ZXTape! take4 @@B ^T$="[] SIMON MICRO-SOFT":h(2):s(6,7):6:1:6: 'b$=" " 'c$=" " ('d$=" " 2'e$=" " <7a$=c$:a=16:a$=a$+b$+c$:a:a$=a$+d$+e$ F1m$="":n$="":f$="":h$="":i$="" P27,0;a$;#0;1,0;T$ Z!f=0:t=1:i=2 d'c=1:b=6:START GAME" n(t=1)*2+(t=2)*4;9 ;0,0;" PLAYER ";1;t;0;" is ";j$(t);" ":1,-20:.1}L,0 x'c=1a=3213 (c=2a=183-3 i;b,a;f$ i;b+1,a;"" .5,a b,a;" " b+1,a;"" ""220 a .c=(c=1)*2+(c=2):120x $(b+2,a)491200 f=f+1 e=8182 (e,a)=491e b=8e-22 Ai;b,a;i$;b+1,a;h$:.2~L,b:b,a;i$;b+1,a;h$ b " b=b-2 ,?i;b,a;i$;b+1,a;h$:t=(t=1)*2+(t=2) 6+i=(t=1)*2+(t=2)*4 @5s(b-b/2-3,a-(a/3)*2)=(b,a) Jf=42*350^ T 100 d ^0,23;" " h h(2) r`0,0;j$(1);" has scored ";h(1)'''j$(2);" has scored ";h(2) |&k=16:l=14 %r=s(k,l):r=s(k,l+1)r=s(k,l+2)r=s(k,l+3)r=17h(1)=h(1)+1:0,22;h(1):.5,20:a=l*3l*3+10 3:2;1;k*2+6,a;m$;k*2+7,a;n$:.1}L,20:a:420 'r=s(k,l):r=s(k,l+1)r=s(k,l+2)r=s(k,l+3)r=33!h(2)=h(2)+1:3,22;h(2):.5,-20:a=l*3l*3+10 3:4;1;k*2+6,a;m$;k*2+7,a;n$:.1}L,-20:a:420 l k &l=17:k=13 %r=s(k,l):r=s(k+1,l)r=s(k+2,l)r=s(k+3,l)r=17h(1)=h(1)+1:0,22;h(1):.5,20:a=k*2+6k*2+12 2:2;1;a,l*3;m$;a+1,l*3;n$:.1}L,20:a:470 'r=s(k,l):r=s(k+1,l)r=s(k+2,l)r=s(k+3,l)r=33!h(2)=h(2)+1:3,22;h(2):.5,-20:a=k*2+6k*2+12 2:4;1;a,l*3;m$;a+1,l*3;n$:.1}L,-20:a:470 k l &k=13:l=14 u=h(1):r=s(k,l):r=s(k+1,l+1)r=s(k+2,l+2)r=s(k+3,l+3)r=17h(1)=h(1)+1:k<3l<4s(k+4,l+4)=rh(1)=h(1)-1 uh(1)0,22;h(1):.5,20:w=0:x=0:a=14:2;1;k*2+6+w,l*3+x;m$;k*2+7+w,l*3+x;n$:w=w+2:x=x+3:.1}L,20:a u=h(1) v=h(2):r=s(k,l):r=s(k+1,l+1)r=s(k+2,l+2)r=s(k+3,l+3)r=33!h(2)=h(2)+1:k<3l<4s(k+4,l+4)=rh(2)=h(2)-1 vh(2)3,22;h(2):.5,-20:w=0:x=0:a=14:4;1;k*2+6+w,l*3+x;m$;k*2+7+w,l*3+x;n$:w=w+2:x=x+3:.1}L,-20:a v=h(2) &l 0k :/k=64-1:l=14 Du=h(1):r=s(k,l):r=s(k-1,l+1)r=s(k-2,l+2)r=s(k-3,l+3)r=17h(1)=h(1)+1:k>4l<4s(k-4,l+4)=rh(1)=h(1)-1 Nuh(1)0,22;h(1):.5,20:w=0:x=0:a=14:2;1;k*2+6+w,l*3+x;m$;k*2+7+w,l*3+x;n$:w=w-2:x=x+3:.1}L,20:a Xu=h(1) bv=h(2):r=s(k,l):r=s(k-1,l+1)r=s(k-2,l+2)r=s(k-3,l+3)r=33!h(2)=h(2)+1:k>4l<4s(k-4,l+4)=rh(2)=h(2)-1 lvh(2)3,22;h(2):.5,-20:w=0:x=0:a=14:4;1;k*2+6+w,l*3+x;m$;k*2+7+w,l*3+x;n$:w=w-2:x=x+3:.1}L,-20:a vv=h(2) l k `h(1)=h(2)5,0;"WELL PLAYED*********IT'S A DRAW":680 w5,0;"THE WINNER IS*****";1;"****";j$((h(1)>h(2))+(h(2)>h(1))*2) -"Press enter for new game ";z$:700   :"udg" H23658j\,8:23693\,14:0:0:1: B" TAKE 4 COMPUTER SIMULATION"'''''" [] SIMON MICRO-SOFT" j$(2,10 ) ;"PLAYER 1 PLAYS RED. PLEASE ENTERYOUR NAME ";j$(1) A"PLAYER 2 PLAYS GREEN. PLEASE ENTER YOUR NAME ";j$(2) a=110 ,j$(1,a)=32 j$(1,a)="*" ,j$(2,a)=32 j$(2,a)="*"  a  10  +:"take4"690:"udg""a",168 udg X@?? sgఘ~<?~<?ᇁ၃?<@<B<BBBBB<K