ZXTape!Connect 4  ` 2000:3000 3,15,63?,63?,127,127,255,255,192,240,252,252,254,254,255,255,255,255,127 127,63?,63?,15,3,255,255,254,254,252,252,240,192,128,64@,32 16,8,4,2,1,1,2,4,8,16,32 ,64@,128,255,255,255,255,255,255,255,255 &:n=0557:a:"a"+n,a:n 2Vm(8,9 ):n=19 :m(1,n)=3:m(8,n)=3:n <me=0:you=0 d!:0:2,0;" " en=16 f-2;" " g-2;" " h02;" ":n i-2;" " n*n=02:5;n,0,, on s4n=321:n,0;5;" ":n x5n=321:n,27;5;" ":n }Z502:.5,20:0,5;0;"Press any key to start":0 H0,5;5;" ":.25~,25 :go=-1:r=*10 +1:r>5go=1 3z=0:d=6:found=0:move=0 >move=move+1:go=go*-1:move>42*1100L go=1300, L0,12 ;1;6;1;"My Move":.25~,21  40( /0,12 ;0;5;" "  #sf=1:z=2:x3=0  move<5275  650 z=1:650 ,z=2:found=1m(y1,x1)=0 found=1850R x30870f 9w=(*7)+2:m(2,w)0275 y=2:x=w *1,d;5;" ";2,d;" " t1,3+((x-1)*3);1;5;1;"";2,3+((x-1)*3);""  100d  400 v100d:1,3+((x-1)*3);5;" ";2,3+((x-1)*3);5;" " " 250 ,N0,11 ;1;6;1;"Your Move":.25~,35# .40(:sf=0 110,11 ;0;5;" " 58c=1:d=15:x=5:y=2:z=1 685;0;1;c,d;"";c+1,d;"" ;!1:z$=:z$=""315; =!z$="5"z$="8"z$="0"320@ > 315; @9.2~L,12 :c,d;5;" ";c+1,d;" " E"z$="8"d=d+3:x=x+1 Jd>24d=24 Kx>8x=8 O"z$="5"d=d-3:x=x-1 Td<6d=6 Ux<2x=2 Yz$="0"355c ^ 3106 c!m(2,x)03095 d 400 m&700:found=11000  250 %m(1+y,x)=0y=y+1 #m(1+y,x)0420  401  m(y,x)=z a=1:b=3 #z=1in=6:pa=1 #z=2in=1:pa=6 2a=a+(y-1)*3:b=b+(x-1)*3 %in;pa;a,b;"";a+1,b;"" -n=40(0-5:.01z# =,n:n  sf=0 *1,d;5;" ";2,d;" "  d=6*(*6)+3 31;1;1,d;"";2,d;""  5:  n=0 temp=0 $t=m(y+n,x):t=ztemp=temp+1 n=n+1:z=t535 !temp4found=1 "temp>2z=1x3=x # &n=0:temp=0 +$t=m(y,x-n):t=ztemp=temp+1 0n=n+1:t=z555+ 5 n=1 7$t=m(y,x+n):t=ztemp=temp+1 9n=n+1:t=z5677 :temp4found=1 ;temp>2z=1x3=x < ?n=1:temp=0 A&t=m(y+n,x+n):t=ztemp=temp+1 Cn=n+1:t=z577A E n=0 G&t=m(y-n,x-n):t=ztemp=temp+1 In=n+1:t=z583G Ktemp4found=1 Ltemp>2z=2x3=x M Xn=0:temp=0 ]&t=m(y+n,x-n):t=ztemp=temp+1 bn=n+1:t=z605] g n=1 l&t=m(y-n,x+n):t=ztemp=temp+1 qn=n+1:t=z620l vtemp4found=1 xtemp>2z=2x3=x { found=0 &y=27:x=28  t=m(y,x):t=0690 found=1800  x:y  y=2: m(y+1,x)=0 m(y,x)=z:700 found=0m(y,x)=0 found=1y1=y:x1=x   530  550&  575?  600X   z=1675 "1,d;5;1;" ";2,d;" ";1,3+((x-1)*3);1;1;"";2,3+((x-1)*3);"" % 502 * 450 / 1000 Rfound=0 T*1,d;5;" ";2,d;" " Vk1,3+((x-1)*3);1;5;"";2,3+((x-1)*3);"" W 100d Xb5;1,3+((x-1)*3);" ";2,3+((x-1)*3);" " \ 400 a100d:250 fx=x3:850R z=1you=you+1 6.5,3:.2~L,6:.5,9 z=2me=me+1 Lz=10,12 ;1;6;1;1;"You Win" Jz=20,12 ;1;6;1;1;"I Win" n=0200:n '0,12 ;5;" " o11 ,1;5;0;"Me";13 ,2;me;11 ,28;"You";13 ,29;you a=1:b=3  /x=28:y=72-1  m(y,x)=0 @7;a+((y-1)*3),b+((x-1)*3);" " H7;a+1+((y-1)*3),b+((x-1)*3);" " y:x 91,6;5;" " 92,6;5;" "  135 L25;0;0,9 ;"It's a draw" Qk=1200:k V 0,9 ;" " [ 1030 6:1:6: +9 ,8;"CONNECT 4":100d: 7:7:0: 0,12 ;"CONNECT 4" 02,0;"Can you beat your Specrtum?" F''"Get 4 in a row, either; horizontal,vertical or diagonal." %''"Press: 8-Left 5-Right 0-Drop" 518,5;1;"PRESS ANY KEY":0 :