ZXTape!Drop Four @ d@ cB d?x=1:i$="XXX":0:7::a(12 ,13 ) n s$="" x t$="_" u$=" " O0,127,127,127,127,127,127,127 O0,255,255,255,255,255,255,255 O0,254,254,254,254,254,254,254 Q128,128,128,128,128,128,128,255 C1,1,1,1,1,1,1,255 <j=144148:k=07:a:j+k,a:k:j 8j=2173:k=2264 6;0;j,k;s$ 6;j+1,k;t$:k:j 73;0,3;"1 2 3 4 5 6 7" ,7;x;20,11 ;"Player ";x d=0:b=17 =(2,(b-1)*4+2)6d=d+1 b d=7570: ""Which column? (1 to 7) ";a ,%aɺaa>7a<0290" 6c=(a-1)*4+2 @T(2,c)61;21,7;"Column ";a;" is full":290" J21,7;u$ T3j=018:z=(j,c):j,c;x;7;i$ r,j=23;j-2,c;" ";a;" " |/j>2z=66;j-2,c;t$ ,(j/3)=j/3j-2,c;" " 9j>2z=5686;0;j-2,c;s$ [j=18ū(j+2,c)=23ū(j+2,c)=15.1}L,-20:440 Bz=480p=14:.05|L,20-2*j+p:p j ,l=j/3+3:c=a+3:a(l,c)=x j=-30 Pa(l+j,c)=xa(l+j+1,c)=xa(l+j+2,c)=xa(l+j+3,c)=x550& Pa(l,c+j)=xa(l,c+j+1)=xa(l,c+j+2)=xa(l,c+j+3)=x550& pa(l+j,c+j)=xa(l+j+1,c+j+1)=xa(l+j+2,c+j+2)=xa(l+j+3,c+j+3)=x550& pa(l-j,c+j)=xa(l-j-1,c+j+1)=xa(l-j-2,c+j+2)=xa(l-j-3,c+j+3)=x550& j i$="OOO":x=2i$="XXX" x=3-x:280 &31;1;20,11 ;u$(8) 0320,9 ;1;x;"Player ";x;" Wins" ::"Another game? ";a$:a$""a$(1)"y"10000' D#:a(12 ,13 ):220 Z