SQUAREL |~d SQUAREOLOGY  J A ENNESS :0:6:2: 236099\,10 :23658j\,8:x=072:"a"+x,170:"a"+x+1,85U:.01z# =,x:.01z# =,-x:x &3;"SQUAREOLOGY  J. ENNESS" 1;2,0;" The object of the game is to join the dots and complete as many squares as possible. The computer also tries this : aftermaking the fourth move on any third side." 3;" The completion of a square willblacken the grey blocks and put a '#', '$', or '%' in its' centre."'1;5;0;"NOTE:-";0;" The computer gets two points for every one you get! " 71;" To start, select a pattern : 1-9, or '0' for no pattern, or A-W for a mystery start. To enter a move, type LETTER, then NUMBER[";1;"S";0;"] of the required square. The winner of a square is entitled to an extra turn!":21,5;1;"Press any key to start" 400  a(195)  V(3) .c=2:f=-58::g=0:i=0  " "; 2a=65A87W:a;:.1}L,A-60<:a $ &7a=2182:.01z# =,A:.01z# =,-A (a<10 " "; *q" ";a;0;6;"                       ";6, ,a=18524 .a+1<10 " "; 0" ";a+1,, 2a 4Q19,0;"Pattern required";1;"?";0;" 1-9 or mysteryA-W" 6 400 8d=z$ :z$="0"c=1 <'z$>"0"z$<":"d=z$*4+64@ >>21,2;"My score";21,17;"Your score" @ 420 BPc=1"Your move:";:.3,5:.2~L,5:.1}L,5 Dc=2220 FQc=0"My move:";:.3,-5:.2~L,-5:.1}L,-5 Hc=0150 J 400 Lz$<"A"z$>"W"74J N " ";Z$;"-"; PX=((Z$-64@)/2) R Y=0 T 400 VZ$"1"94^ X Y=10 Z"1"; \ 400 ^Z$<"0"Z$>"9"64@ ` Y=Z$+Y bZ$ d1I=X+(Y-2)*12 -((Y-2)/2) f 474 h4Y<2Y>18E=0X=064@ jA(I)>064@ lA(I)=1 ndY-1,X*2+4+E;7;"":.01z# =,Y-1:.01z# =,-(X*2+4+E) p Q=4 r 430 t 440 vU=X*2+4 xM=1486 zL=1484 |K=1484 ~J=1480 +C<2J+K+L+M<1C=(C-1) #V(C+1)=V(C+1)+J+K+L+M N21,11 ;2;V(1)*2;21,28;V(2) 6V(1)+V(2)+V(3)=88X138 64@ 420 D"I won - hard luck!":T=50-.05|L:.01z# =,T:T v(1)*220,6;1;"Another game? (Y/N)":400 Z$="Y"14  430 (19,12 ;3;"SEARCH "; q=3 0a=2434":.01z# =,A:.01z# =,-A Ci=a17246.:.01z# =,I/4:.01z# =,-I/4 452 lm=1200 i a 1;"X"; q=2 f=f+60< f=195g=1 f>195f=f-193 a(f)>0170 i=f 470 g=1194 430 440 j+k+l+m>0170 430 ;" ";(x*2+64@+e);"-";y:T=1250:T 104h l=0l=-1 a(i)=0212 i=i+11 *l a(i)=0212 i=i+1*l 202 470 106j i>0b i>0c=0 7b=160<:.01z# =,B:.01z# =,-B+2 i=i+d i>195i=i-193 470 106j ""400 =""402 z$=  V19,0;" ";19,0;" ";: .j=0:k=0:l=0:m=0: e=0452 x>10 448 <a(i)+a(i+1)+a(i+12 )+a(i-11 )=qj=1  x<1 <a(i)+a(i-1)+a(i-12 )+a(i+11 )=qk=1  i>172458 =a(i)+a(i+11 )+a(i+12 )+a(i+23)=ql=1 i<24 =a(i)+a(i-11 )+a(i-12 )+a(i-23)=qm=1  ;y=((i+((i+11 )/23-1))/12 )+2 3x=i-((y-2)*12 -((y-2)/2)) $e=(y/2+0.5)*2-y  k=1y=y-1  u=u+2 y=y+2-e .1}L,10 :.1}L,15:.1}L,20:0;6;y-1,u;" ";y-2,u-1;" ";y-2,u+1;" ";y-3,u;" ";y-2,u;(c+35#)  cfg.LWdT<y eqjklmue|̌ZY