ZXTape!Mutant Z m Z _ 2000 ` :600X d&"Enter randomising factor (1-1000) " xi r=2 n=0i 200 n 600X rn=1+(*r) rn 340T Hn r=15:rm=5 200:nm=rn n=1nm r=13 :rm=0 200:y(n)=rn r=23:rm=6 200:x(n)=rn px=x(n):py=y(n) m$="M":340T n lm=nm r=13 :rm=0 200:yy=rn r=23:rm=6 200:yx=rn !s$=(yy,yx):s$" "1020 $px=yx:py=yy )m$="*":340T Lm$="Your move!" V 300, ` 400 e!px=yx:py=yy:m$=" ":340T j%i$="R"i$="D"i$="C"yx=yx+1 t%i$="W"i$="S"i$="Z"yx=yx-1 ~%i$="W"i$="E"i$="R"yy=yy-1 %i$="Z"i$="X"i$="C"yy=yy+1  s$=(yy,yx) s$=" "1265 $s$="O"m$="You fell in a puddle!" #s$="M"m$="Right into a mutant!" $s$=b$m$="You fell in the ocean!"  300,  1800 !px=yx:py=yy:m$="*":340T m$="Here come the mutants!"  300, (n=1nm 2x(n)=99c1500 <px=x(n):py=y(n) Am$=" ":340T Fx(n)yxx(n)=x(n)-1 Zy(n)yyy(n)=y(n)-1 ns$=(y(n),x(n)) xMs$="O"m$="Splash goes a mutant!":x(n)=99c:lm=lm-1:300, ;s$="*"m$="A mutant catches you!":300,:1800 px=x(n):py=y(n):m$="M" s$=" "340T n lm>01100L m$="OK - you win!" ys=ys+1  300, " 1900l m$="You're dead!"  300, ms=ms+1 v"Another game (y/n)?"  400 i$="Y"600X i$"N"1920 "Good-bye!":10000' x(502):y(502) n=0:a$="" b$="#" n=120  a$=a$+b$ n ms=0:ys=0  rm=0 4