CONNECT4 kC0:0:0:0:0:0:32299+~ ="a":8:8:8:8:0,0;  "b":"c" a @~B<|~<|BB<<~~<|~|~~~~~~~BD888`f`ff`|DD@|f|ff|?BDx8>f|f||B<@f`~|`| <~~|!!B@Bb@~~x$B@BR<`~~x!~~@~J`~~|!!B@BFB``fBB~BB><`|f<`|fZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvqqqqqqqqqqqqqqqqqqqqqqvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrrvvrrvrrrrrrrrrrrrvvvvvvrrrrrrrrrvrrrrrrrrrrrrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrvvvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrvrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvrrrrrrvrrrrrrrrrrrrrvrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrrvvvvvvpppppvppppppppvvvvrrrrrrrvvvvvvvvvvvvvvvvvvvvvvvvvrrrrrrrvvvvllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZb ,~[[,~!0~^>(;:,~'''_!7~".~ > *.~~*.~{D_~{D_¦~:-~ >2,~~:,~= Oc B 5000 0#0;1,0;"Skill level (1-3)?" %s$=:s$"1"s$"2"s$"3"6 "":.05|L,20 1,13 ;"LEVEL ";s$ ""11 D#0,0,0;"Do you want to play 1st or 2nd (12)?" Ea$=:a$="2""":.05|L,20:30:a=4:524 a$"1"14 "":.05|L,20 ""18  90Z `plyr,1:ply1=0#0;0,10 ;"*** I win ***":700:4000 -nc=1a=4+(a=4):524 /plyr,2:ply1=0a=col:524 .#0;1,0;"I'm thinking ..." Bs$="1"b=17:s(b)=-((psn+b)=7):b:502 +n=1:800 :c=0524 8n=2:800 :c=0s(a)>0524 s$="2"502 n=1:1000 "n=2:1000 0!nc=1a=4:524 2 600X 4"":n=1:400 6&nc=nc+1:nc42*98b Z!100d:n=2:200 \O400:c=0#0;0,8;"*** You win ***":4000 `&nc=nc+1:nc<42*20 b9#0;0,10 ;"*** A draw ***":4000 dInput n.#0,1,0;"Your move (17)?" xa$= a$<"1"a$>"7"120x a=a$ (psn+a)=7120x "" brd+8*a+(psn+a),2  Test col,a:plyr,n c=test   Display (q=2:r=20-3*(psn+a) eq,3+a*3;n*3+1;"";q+1,3+a*3;"":.1}L,10 -q q=r420 F0;q,3+a*3;"";q+1,3+a*3;"" q=q+3:407 brd+8*a+(psn+a),n psn+a,1+(psn+a)  1-Ply plyr,n:c=ply1 a=col  XDecide ]a=1:s=s(a):e=a bb=27 ls(b)1650  s=s(b):a=b s(b)=0:b: I play a=col:n=1:400  2-ply % c=1 *b=17:q=(psn+b) /c=0b: 4q=7s(b)=-1:b: >$brd+8*b+q,n:psn+b,q+1 Hn=2851S M%s(b)=.5:q=6851S R=plyr,2:col,b:test=0s(b)=0:890z Ws(b)0890z \ 900 z'psn+b,q:brd+8*b+q,0:b:  Check-1 plyr,n:c=ply1:c0 s(b)=.75@ (a=col:psn+a,(psn+a)+1:c=p1a psn+a,(psn+a)-1:a=b:  Check-2 plyr,n b=17 q=(psn+b):q=7b: psn+b,q+1:col,b p=17 s(p)0p:1090B &r=(psn+p):r=7p:1090B $$brd+8*p+r,n:psn+p,r+1 .test=0s(p)=.8L 8%brd+8*p+r,0:psn+p,r:p Bpsn+b,q:b:  End of game 10 :.2~L,2:.1}L,-3:.1}L,-3:.2~L,-1:.2~L,-3:10 :.2~L,1:.2~L,2 /#0,1,0;"Play again (y-n)?" a$= a$="y"a$="Y" a$"n"a$"N"4020  0  Initialise  7000X  s(7)  nc=0 Ecol=32300,~:plyr=32301-~:psn=32303/~:brd=323117~ 6test=32383~:ply1=32473~:p1a=ply1+5 6:5:9 : )21,7;"1 2 3 4 5 6 7" $0,9 ;"C O N N E C T 4" %b=17:psn+b,1:b &b=071G:brd+b,0:b 6b=015:p:"a"+b,p:"d"+7-b,p:b Ά1,0:b=16:0;" "'" "'':.05|L,10 -b-b:b  pM7,31,63?,127,127,255,255,255 zQ224,248,252,254,254,255,255,255 X6:6:9 : ]27;"" b$"  " l%"  " v$"  " 27;"":: 2"In CONNECT 4 you play against me -the computer" x:" To win, you must complete a line of four counters before I do; your counters are white, and mine are green" d:" You can select the difficultyof play, which varies from 1 - the easiest, to 3 -the hardest" .21,5;"Press any key to start" )0:.05|L,20:5005