ZXTape! 0Created with Ramsoft MakeTZXKRISSKROSS8/.:/0l$="o":r$="p":u$="q":d$="a":f$="m":q$="n" 3po=502:7:1:0:0: 1999 (a(3,3):b(3,3) c(3,3) x=1:y=1 x1=1:y1=1 # mo=0 ( y=3 - 9710% 2Vz1=x:z2=y:i=13:j=13:c(i,j)=0x=i:y=j:557 3j:i d(x-1)*8+1,(y-1)*8+1;1;""'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"" e 200 i=u$x>1107k j 115s n(x-1)*8+1,(y-1)*8+1;1;""'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"":x=x-1 oHz=x+1:c(x,y)=1x=1:c(x,y)=1x=z:100d r 100d s=d$x<3117u t 125} x(x-1)*8+1,(y-1)*8+1;1;""'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"":z=x:x=x+1 y;c(x,y)=1x=3:c(x,y)=1x=z:100d | 100d }=r$y<3127 ~ 135 (x-1)*8+1,(y-1)*8+1;1;""'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"":z=y:y=y+1 100d =l$y>1137 145 (x-1)*8+1,(y-1)*8+1;1;""'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"";'(y-1)*8+1;"":z=y:y=y-1 100d =f$301- =q$600X 105i K60<,0:0,175:123{,0:0,175 K0,524:175,0:0,116t:175,0 , 1c(x,y)=1105i 2.01z# =,40( 6;i=(x-1)*8+1(x-1)*8+5 @4i,(y-1)*8+1;1;"":i Ji T58:*(y-1)+20,58:*(3-x)+18:20,20:58:*(y-1)+20,58:*(3-x)+38&:20,-20 ^ a(x,y)=1:c(x,y)=1 _mo=mo+1 cmo39000(# mmo2450 rd(x1y1)(x3y3)(x3y1)(x1y3)400 sV(*100d)<75Kc(2,2)=0x1=2:y1=2:990 t3c(x,2)=0x1=x:y1=2:990 w3c(2,y)=0x1=2:y1=y:990 |?c(2,2)=0x1=2:y1=2:990 3c(x,1)=0x1=x:y1=1:990 3c(x,3)=0x1=x:y1=3:990 3c(1,y)=0x1=1:y1=y:990 3c(3,y)=0x1=3:y1=y:990 i=13 'c(i,i)=0x1=i:y1=i:990 i ?c(1,3)=0x1=1:y1=3:990 ?c(3,1)=0x1=3:y1=1:990 Mj=13:i=13:c(i,j)=0x1=i:y1=j:990 i:j i=13 Wc(i,3)=0(a(i,1)+a(i,2)=2)x1=i:y1=3:990 Wc(i,1)=0(a(i,2)+a(i,3)=2)x1=i:y1=1:990 Wc(i,2)=0(a(i,1)+a(i,3)=2)x1=i:y1=2:990 Wc(3,i)=0(a(1,i)+a(2,i)=2)x1=3:y1=i:990 Wc(1,i)=0(a(3,i)+a(2,i)=2)x1=1:y1=i:990 Wc(2,i)=0(a(3,i)+a(1,i)=2)x1=2:y1=i:990 i oc(3,3)=0(a(1,1)+a(2,2)=2)x1=3:y1=3:990 oc(2,2)=0(a(1,1)+a(3,3)=2)x1=2:y1=2:990 oc(1,1)=0(a(2,2)+a(3,3)=2)x1=1:y1=1:990 oc(2,2)=0(a(1,3)+a(3,1)=2)x1=2:y1=2:990 oc(1,3)=0(a(2,2)+a(3,1)=2)x1=1:y1=3:990 oc(3,1)=0(a(2,2)+a(1,3)=2)x1=3:y1=1:990 ?c(2,2)=0x1=2:y1=2:990 cj=13:i=13:c(i,j)=0(i1j1)x1=i:y1=j:990 i:j Z.01z# =,524 [i=130:i b;i=(x-1)*8+1(x-1)*8+5 d8i,(y-1)*8+1;1;" ":i f k=1 g0,23;"";1,23;" UNDO ";3,23;" QUIT ";5,23;" EXIT ";6,23;"" la=d$k<5k,23;1;"":k=k+2:k,23;1;"" qa=u$k>1k,23;1;"":k=k-2:k,23;1;"" s%=f$.01z# =,40(:631w t=q$670 v 620l w-i=130:i:k=5670 xk=1640 z/i=06:i,23;" ":i |1,23;" YOU";2,23;" REALLY ";3,23;" WANNA";4,23;" QUIT ?";6,23;" Y / N" }=""637} ~="y"3  670 mo>0mo=mo-1 Ha(z1,z2)=0:b(x1,y1)=0:c(z1,z2)=0:c(x1,y1)=0 ii=(z1-1)*8+1(z1-1)*8+5:i,(z2-1)*8+1;" ":i ii=(x1-1)*8+1(x1-1)*8+5:i,(y1-1)*8+1;" ":i /i=06:i,23;" ":i  502 H61=*(y1-1)+30,61=*(3-x1)+23,15 $b(x1,y1)=1:c(x1,y1)=1  9000(# mo<4997 _j=13:i=13:c(i,j)=0x=i:y=j:.01z# =,40(:340T i:j  502 Bx=10 :10 ,5;"GAME ";''5;" KEYS" (=d$Ŧ="6"Ŧ=" ")x=10 10 ,5;1;" ":x=12 :12 ,5;1;" " (=u$Ŧ="7"Ŧ=" ")x=12 12 ,5;1;" ":x=10 :10 ,5;1;" " 8=f$Ŧ="0"Ŧ=13 .01z# =,40(:1020  1010 :x=10 10 1,1;" THE KEYS ARE:"''L$;".....LEFT"''R$;".....RIGHT";''U$;".....UP"''D$;".....DOWN"''F$;".....FIRE"''Q$;".....FUNCTION" (:" REDEFINE? Y / N " ="n"10808 ="y"1035   1030  .01z# =,40(:  i=130:i  :" LEFT "; l$=:l$=""1041 l$ i=140(:i :" RIGHT "; r$=:r$=""1051 r$ i=140(:i  :" UP ";  u$=:u$=""1056  !u$ "i=140(:i $ :" DOWN "; %d$=:d$=""1061% &d$ 'i=140(:i ) :" FIRE "; *f$=:f$=""1066* +f$ ,i=140(:i .:" FUNCTION "; /q$=:q$=""1071/ 0q$ 1i=140(:i 3:" O.K. ? Y / N" 4="n"1035  5'="y".01z# =,40(:10808 7 10764 8:1000 i=1:4 v502,130:10 ,40(:557,150:15,13 :557,150:18,-15  10 d75K,130:10 ,40(:10 ,-10 :-10 ,-10 :10 ,-20  10 (100d,130:10 ,40(  10 ց110n,130:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13  10 ؁125},130:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13 !10 :i>12015 ځ140,130:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13  25 ܊1:140,130:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13  0  20 s502,502:10 ,40(:557,70F:15,13 :557,70F:18,-15  10 c75K,502:10 ,40(:10 ,-10 :-10 ,-10 :10 ,-20  10 135,70F,40( 176,502:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13  10 191,502:10 ,10 :2,5:-5,3:-2,4:2,5:10 ,13 -i=15:i=i+1:2000 -i=23:i=i+1:2000 -i=36:i=i+1:2000 Ca=130:a:#0;" press any key":0 4.7::a=1502:a:1000 #2i=13 #7<a(i,1)+a(i,2)+a(i,3)=39500% #9<b(i,1)+b(i,2)+b(i,3)=39600% #;<a(1,i)+a(2,i)+a(3,i)=39500% #=<b(1,i)+b(2,i)+b(3,i)=39600% #?Nb(1,1)+b(2,2)+b(3,3)=39600% #ANa(1,1)+a(2,2)+a(3,3)=39500% #CNa(1,3)+a(2,2)+a(3,1)=39500% #ENb(1,3)+b(2,2)+b(3,1)=39600% #Fi #Pmo<5 #Z+20,23;"DRAW":9700% %=20,22;"YOU WON":po=po+1:9700% %/20,23;"I WON":po=po-1 %"19,20;"" %po09800H& %po100d9900& %9710%:0 %0::10 %U17,24;" ";17,25;po;17,29;100d-po %15,24;"YOU ME" %M223,20:0,35#:255,43+:-65A,0 % &H>:10 ,0;" YOU LOST. BYE!":a=1502:a &I &1:1::10 ,0;1;" C O N G R A T U L A T I O N S !!!!!! " &i=14 &+.025{L,-15:.025{L,-8 &a=14:a &V.025{L,-15:.025{L,-8:.025{L,-15:.025{L,-8 &""3 &i &ʪi=14:.025{L,-12 :.025{L,-5:a=14:a:.025{L,-12 :.025{L,-5:.025{L,-12 :.025{L,-5 &""3 &i &Ϫi=14:.025{L,-10 :.025{L,-3:a=14:a:.025{L,-10 :.025{L,-3:.025{L,-10 :.025{L,-3 &""3 &i &Ԥi=14:.025{L,-7:.025{L,0:a=14:a:.025{L,-7:.025{L,0:.025{L,-7:.025{L,0 &""3 &i & 9910& LoRpUqDaFmQn2i324x Q