ZXTape! 0Created with Ramsoft MakeTZX gm I 'CSIM  0:5:0:1:5:0:0::23658j\,8:236099\,33 ! 9300 T$ '3;7;2,21;"COMPUTER'S";3,21;" WINS: ";1;10 ,21;"YOUR WINS";11 ,21;" ";11 ,24-n$/2;n$;":";mw;2;18,21;" PRESS (s)";19,21;" TO END " H3;7;3,28;cw Jm=16162480:16,m:144,0:m (Jm=16162480:m,16:0,144:m 21;7;2,2;"31";2,8;"32";2,14;"33";8,2;"21";8,8;"22";8,14;"23";14,2;"11";14,8;"12";14,14;"13" F"f1=0:9010 2# P#f1=0  Zf1000:2000:5000:k$=i$:i$=d$:5000:d$=i$:i$=k$:f1110 n dB7000X:f1=1:90 Z n 4000:80 P %PRINT BOARD b$="133132332122231112" Iy1=3:x1=4:y2=0:x2=-6  $Fx2=x2+6:x2>12 x2=0:y2=y2+6  .y2>12 8#b$=b$(3)+b$(2) B>a(b$(2))=cz1=150:i=7  L>a(b$(2))=hz1=144:i=0  V<a(b$(2))=ez1=157  `4i;y1+y2,x1+x2;z1;(z1+1) j@i;y1+1+y2,x1+x2;(z1+2);(z1+3) t@i;y1+2+y2,x1+x2;(z1+4);(z1+5) ~!1060 $ #THE WINNER Sd$="003123"(i$="001321"i$="002113")2160 p 6i$="001221"d$="003122"2160 p Sd$="330021"(i$="001123"i$="002311")2160 p 6i$="002312"d$="330022"2160 p 6i$="000022"d$="003200"2150 f  6i$="001322"d$="003223"2160 p 6i$="001122"d$="320021"2160 p  Sd$="223133"(i$="122321"i$="211223")2150 f *i$=02160p 4)Z=152  >@i$(zz+1)>302150 f Hbd$(zz+1)<20ưd$(zz+1)>10 2160 p Rz \ fg=g+1:c(n,r)=0:mw=mw+1:ii=18:jj=20:1;7;11 ,24-n$/2+n$+1;mw:2180  pg=g+1:cw=cw+1:3;7;3,28;cw:i=1502:1:2:3:4:i zi=170F:4:3:.002xn,40(+i/10 :4:i:.1}L,30:.04|# =,0:d(g)=1:5:5  l#1;7;1;1;1,8;"SORRY BUT I WON":70 F 65345A,ii:65354J,jj:i=1836$2:j=1610 -1:65349E,i:65358N,j:653302:j:i Bd(g)=-1:5:5  kz2=0#0;7;1;1;1,5;"OK! YOU WIN THIS TIME":70 F kz2=1#1;7;1;1;1,6;"OK ";n$;", I CONCEDE":70 F %COMPUTER LOSES A PIECE &z=13  @a$(3)=d$(2)3050  >d$=d$(3)+d$(2):z !3060  d$="00"+d$(3) @i$(2)=a$(2)3080  Ci$=i$(3)+i$(2):3060  #i$=i$(3)+a$(3)  %I LOSE A PIECE :9a(b)=c((b-a)=9 Ž(b-a)=11 )3150N D!3170 b Nqa$(3)=i$(12)3165] :1532,24:31,255:0  XCi$=i$(3)+i$(2):3150 N ] i$="00"+i$(3) b[d$(2)=a$(2)d$=d$(3)+a$(3): lCd$=d$(3)+d$(2):3170 b  #COMPUTER'S MOVE "f2=1f3=1  "f2=2f3=4  "f2=3f3=26  !n=f339':.005y# =,n Zn=26d$="000033"i$="212223"n=29:4120  Zn=28i$="000023"d$="212231"n=32 :4120  Zn=22d$="002132"i$="002223"n=30:4120  Zn=23d$="002332"i$="002122"n=31:4120  Zn=23d$="003133"i$="001321"n=24:4120  4i$+d$=b(n)4120  n N23671w\,*10 :23672x\,*13 :r=(*4)+1  "c(n,1)=0c(n,2)=0c(n,3)=0c(n,4)=0n=n1:r=r1:z2=1:2150 f , c(n,r)=04120 6Oa$=c(n,r):a=a$(2):b=a$(34):a(b)=a(a):a(a)=e @33100 :z2=0:n1=n:r1=r: !STRING INTO ORDER i$(34)>i$(5)j$=i$(34):i$(34)=i$(5):i$(5)=j$:j$="" i$(2)>i$(34)j$=i$(2):i$(2)=i$(34):i$(34)=j$:j$="" i$(34)>i$(5)j$=i$(34):i$(34)=i$(5):i$(5)=j$:j$=""  |GRAPH ROUTINE ;6:6:1:0: 236,19:-216,0:0,80P:z=12 21612 :20+z,18:0,-2:z S20,2;"0 0 1 1 2 3 3 4 4 5" S21,2;"0 6 2 8 4 0 6 2 8 6" K#0;0,0;1;6;31;" " 7n3=45-:t=0:t1=t:t2=t1:i=t 5z=1g:t=t+d(z):d(z)<0t1=t1+d(z) t20n3=30-t1 d(z)=-1i=z z F20,t2*5+19:t=0:z=1g:t=t+d(z) K.05|L,-5+t+4*d(z):4*d(z),4*d(z):z jz=080P:z:z=517:d=163:i/2=(i/2)d=164  C.01z# =,40(-z:1;z,i/2+2;d:z i171,1;"EITHER YOU GAVE UP PREMATURELY OR THE PROGRAM BECAME A MASTER PLAYER SOONER THAN YOU THOUGHT":3;7;14,22;"I'M NOT";15,21;"SURE ABOUT";16,24-n$/2;"YOU ";n$ &i18i35#1,1;"BRILLIANT, YOU'VE JUST FOUND OUT THAT THE BETTER YOU PLAY THE FASTER THE PROGRAM LEARNS":3;7;15,21;"NICE ONE" 0i36$1,1;"NEVER MIND, AFTER THE NUMBER OF GAMES YOU'VE JUST PLAYED YOU HAD TO RETIRE QUITE SOON":3;7;15,21;"NOT BAD" :5;5,1;"THE COMPUTER";6,1;"IS A PERFECT";7,1;"PLAYER AFTER";8,3;i;" GAMES":i<177;1;10 ,8;" MAYBE!" DHi>173;7;16,25-n$/2;n$ Nz=0300,:z Xic1=0#1;7;1;1,4;1;"PRESS ANY KEY TO CONTNUE" b~c1#1;1;7;1;1,0;"GOODBYE PUPIL! SEE YOU NEXT TIME":4e4@: l0: X#MY MOVE  b#f2=f2+1  la$ qa$="s"8500 4! v<a$47090  {`i=14:a$(i)<491ůa$(i)>5137090  :i:a=a$(2):b=a$(34) (b-a)>11 (b-a)<9 a(a)=ea(b)=e(b-a=9 b-a=11 )bG:3,1;" ";4,1;" IF YOU WOULD LIKE COMPUTER'S ";5,1;" MEMORY OF THIS GAME ERASED ";6,1;" AND THEN TO START AGAIN JUST ";7,1;" PRESS (y).  ";8,1;" " !H1;" BUT IF YOU PRESSED (s) BY ";10 ,1;" MISTAKE AND WANT TO CONTINUE ";11 ,1;" THEN PRESS (c).  ";12 ,1;" " !R1;" IF NEITHER OF THESE OPTIONS ";14,1;" FIT THEN OBVIOUSLY YOU WANT ";15,1;" TO FINISH THE GAME, OK! THEN ";16,1;" SIMPLY PRESS (f).  ";17,1;" " !\1a$=:a$=""8540 \! !fka$="y".07}\(,35#:.05|L,20:c1=0:5500|:9340 |$ !pda$="c".07}\(,35#:.05|L,20:5:5:0:1::20 !zia$="f".07}\(,35#::.05|L,20:c1=1:5500 | !!8540 \! #(H0:10INITIALISE 1 #6#1;5;1;0,6;"YOUR NAME IS TOO LONG";1,2;"A MAXIMUM OF 6 LETTERS PLEASE":200:9310 ^$ $rJ23658j\,0:c1=0:9410 $ $|_23658j\,8:"WHOSE NAME THIS TIME? ";n$:c1=1  $n$>6#1;6;1;0,6;"YOUR NAME IS TOO LONG";1,2;"A MAXIMUM OF 6 LETTERS PLEASE":200:9340 |$ $(23658j\,0:9430 $ $8,7;0;" ";9 ,7;" I'M JUST EMPTYING ";10 ,7;" MY MEMORY BANKS ";11 ,7;" BEFORE WE START ";12 ,7;" SO DON'T GO AWAY ";13 ,7;" " $!9500 % $E0;8,5;" " $o0;9 ,5;" I WON'T BE A SECOND ";10 ,5;" I'M JUST FLUSHING " $0;11 ,5;" ALL TRACES OF THE ";12 ,5;" PREVIOUS GAMES FROM ";13 ,5;" MY MEMORY BANKS.OK! " $E0;14,5;" " %424456OA,424555OM`,434554T/@,214455Qm,234255d,224554[J,224255Z,125255t,125356t,135255,115356aN,224356[,224453[1@,325456,365254 2X %&214356QU,234354d܀,3652542X,325456,4555,4254,4355,4454f,4454f,4256,212256OH,222352Y$,212254OG,212256OH,4355  %0r4454f,212254OG,222354Y$,2155k,23531 ,2253,2255,2153i,2355 3 %:#b(39') %D69500%:z=139':d:b(z)=d:z %N3223 ,31211 ,3222 ,0,31222 ,31211 ,3322 ,3323 ,3221 ,3222 ,3323 ,0  %Xl2111?,31222 ,3322 ,3323 ,2313 ,31222 ,3322 ,3121 1 %bl2212,2213,3221 ,3323 ,2212,2211,3223 ,3121 1 %ll31222 ,3322 ,3323 ,0,31222 ,3322 ,31211 ,0  %vl3221 ,3222 ,3223 ,0,3221 ,3222 ,3223 ,0  %l2211,2212,3223 ,0,2213,2212,3221 ,0  %l3322 ,3223 ,0,0,31222 ,3221 ,0,0  %l2112@,2111?,0,0,2313 ,2312 ,0,0  %l3221 ,31222 ,0,0,3223 ,3322 ,0,0  %l3322 ,3323 ,0,0,31222 ,31211 ,0,0  %l3322 ,3323 ,0,0,31222 ,31211 ,0,0  %L3323 ,0,0,0,31211 ,0,0,0  %l2111?,2212,0,0,2212,2313 ,0,0  %L31222 ,0,0,0,3322 ,0,0,0  %l2111?,3223 ,0,0,2313 ,3221 ,0,0  %l2111?,2212,0,0,2212,2313 ,0,0  %l2111?,3322 ,3323 ,0,2313 ,31222 ,31211 ,0  %l2212,3221 ,0,0,2212,3223 ,0,0  &l2111?,31222 ,0,0,2313 ,3322 ,0,0  & +c(39',4):d(100d) &Wi=139':j=14:d:c(i,j)=d:j:97804&:i & 'mw=0:cw=0:g=0 &*5c15:5::20  &/: &4c1=01;8,7;" ";8,25;" ";13 ,7;" ";13 ,25;" " &>c1=0.001wn,502:0;8,7;" ";8,25;" ";13 ,7;" ";13 ,25;" " &Hc11;8,5;" ";8,25;" ";14,5;" ";14,25;" " &Rc1.001wn,502:0;8,5;" ";8,25;" ";14,5;" ";14,25;" " &\ ' 5653291: 36255 ' D"""a":""653302:36256 ' 9:8999'#:9000 '/"l"8999'#: 9995 '"g""a",168:"lc"36256,206::10 ,5;"PLEASE REWIND THE TAPE":"":"":"":.5,0  A64575":''''"3";"PLEASE WAIT, CODE LOADING":"":5950> r:"toolkit"6760h:"toolcode"64576@,790: N111111'OAOM`T/@Qmd[JZttaN[[1@2XQUd܀2XffOHY$OGOHfOGY$k1 i3 ('D%d' 1 2 1 d'&&9g X ??gmc )[>:H\% y&n- y.>??p