CONNECT 4 MConnections (aka. Connect 4) by D.R. Tose, from Your Spectrum #6 (Aug.1984)  c D.R.TOSE D1:1:7::'7;6;"C O N N E C T 4" ''" The game is played on a 7x6"''"grid and the object of the game"''"is to connect four of your"''"pieces in a row, vertically,"''"horizontally, or diagonally."'' ~" You take turns to drop one of"''"your pieces in one of the seven"''"columns and it falls to the"''"lowest free position." G#1;5;"Press Any Key To Play Connect 4":1:0 4:0:4: j:#1;"Level 1-easy 2-hard ?":1:0:lev=-480:lev1lev215 d:5;18,0,," 0-to drop piece Any other key to move arrow ",,  u=0 # UDG data ()255,252,240,224,192,192,128,128,255,63?,15,7,3,3,1,1,128,128,192,192,224,240,252,255,1,1,3,3,7,15,63?,255 2 n="a""d"+7:a:n,a:n 7 PRINT BOARD <{n=16:m=17:n*2,m*2;7;1;"";n*2+1,m*2;"":m:n F-14,2;1;" " KDEFINE ARROW P1,1,9 ,13 ,15,7,3,1,128,128,144,176,240,224,192,128 Z n="e""f"+7:a:n,a:n d x=2 nmove=-1 xa(9 ,8) zz=0 CHOOSE WHO GOES FIRST <.5280 0,2;"" paper=5 #10 ,18;" " $n=28:a(n,7)n n=9 660:DRAW u=0 YOUR MOVE move=move+1 6,19;"MOVE ";move a$=:a$=""230 Wa$="0"580D:s=0:n=x/2:m=5:u=1:300,:630v GO SUB 300 SCORES YOUR MOVE 50,x;" ":x=x+2:x=16x=2 $0,x;"":5:502  230  MY MOVE 10 ,18;"I'm Thinking":move=move+1:6,19;"MOVE ";move:hs=-1e6t$:n=17:hh=0:s=0:m=253 "!a(n+1,7)510 'CALCULATE SCORE ,&q=27:a(n+1,q)q 6uq=q-1 ; HORIZONTAL @*y=13:a(n+1,q+y)=my J7z=y-1:y=13:a(n+1,q-y)=my Tz=z+y:s=s+5^z Y VERTICAL ^*y=13:a(n+1+y,q)=my h7z=y-1:y=13:a(n+1-y,q)=my rz=z+y:s=s+5^z w DIAGONAL |,y=13:a(n+1+y,q+y)=my 9z=y-1:y=13:a(n+1-y,q-y)=my z=z+y:s=s+5^z ,y=13:a(n+1-y,q+y)=my 9z=y-1:y=13:a(n+1+y,q-y)=my .z=z+y:s=s+5^z+:ADD A RANDOM ELEMENT u hh Zm=2s>625qzz=1:hs=s:ht=n:520:IF SCORE >625 THEN 4 IN A ROW! m=2m s1=s:s=0 Flev=2q<7s=0:q=q+1:hh=1:320@ 8s1=s1-s*.5:s>625qhs>-1e6t$510 CHOOSE BEST MOVE s1>hshs=s1:ht=n n :0,x;" ":paper=2:hs=-1e6t$660 x=ht*2 0,x;"" & 580D 0_zz0,21;"I Win";2,18;"Press any key":0:502:0: : 160 ? PRINT MOVE I+a((x/2)+1,7)230 N0n=27:a((x/2)+1,n)n Xv=116-2*n:v,x;1;1;paper;" ";v+1,x;" ";v-1,x;(4+3*(v>2));" ":.1}L,v+10 :v ba(x/2+1,n)=paper l q YOU WIN vjs>625q0,20;"You Win";2,18;"Press any key":0:502:0:  u=0  280 DRAW Q0,21;"DRAW";1,18;"Press any key":502:0: '"Connect 4": '"m";1;"Connect 4" ':*"m";1;"Connect 4" eua xovm #m~s,z#m~ape XA0