Squares 4UDG A="",B="",C="" D="",E=""  Neil Pellinacci LINES ***** 23658j\,8 9000(#:8000@ )9500%:0:0::7 X9200#:0:7: $6000p:2000:PLAYER ONE WFAF5000  6000p NP=13000 NP=24000 WFAF5000  700   PLAYER ONE T.3,-10 :6;16,22;"PLAYER ONE";17,22;P$ )18,22;6;"TO MOVE:"; #2600( :19,23;A$ AFAF=1: B(X,Y)02030 NP=121004 @LL=(Y-2)*2+1:CC=(X-2)*2+1 OP1S=P1S+1:B(X,Y)=1:LL,CC;1;C1;" ";LL+1,CC;" " B(X,Y+1)=2B(X,Y-1)=2B(X+1,Y)=2B(X-1,Y)=2B(X,Y)=2:LL,CC;1;C2;" ";LL+1,CC;" ":P2S=P2S+1:P1S=P1S-1 .2~L,10 NP=1WF=0:  WF=0:7500L  4iB(X,Y+1)=2B(X,Y-1)=2B(X+1,Y)=2B(X-1,Y)=22030 > 2035 'MOVE (A$:A$22600( -A$="AA"AF=1: 29A$(1)<480ůA$(1)>5792600( <9A$(2)<65AůA$(2)>74J2600( FX=A$(1)-46. PY=A$(2)-63? Z SPECTRUM ^16,22;6;"PLAYER TWO";17,22;Q$;18,22;"TO MOVE:" A=115 2X=(*10 )+2:Y=(*10 )+2 B(X,Y)03020 _B(X+1,Y)=1B(X-1,Y)=1B(X,Y+1)=1B(X,Y-1)=1 nLL=(Y-2)*2+1:CC=(X-2)*2+1:LL,CC;1;C2;" ";LL+1,CC;" " #B(X,Y)=2:P2S=P2S+1: SEACH DX=211 :Y=211 :B(X,Y)03540 iB(X+1,Y)=1B(X-1,Y)=1B(X,Y+1)=1B(X,Y-1)=13540  Y:X:WF=1:   PLAYER TWO T.3,-10 :6;16,22;"PLAYER TWO";17,22;Q$ )18,22;6;"TO MOVE:"; #2600( :19,23;A$ AFAF=2: B(X,Y)04030 @LL=(Y-2)*2+1:CC=(X-2)*2+1 OP2S=P2S+1:B(X,Y)=2:LL,CC;1;C2;" ";LL+1,CC;" " ҽB(X,Y+1)=1B(X,Y-1)=1B(X+1,Y)=1B(X-1,Y)=1B(X,Y)=1:LL,CC;1;C1;" ";LL+1,CC;" ":P1S=P1S+1:P2S=P2S-1 .2~L,20 WF=0:7500L   GAME OVER D1:1:A=13 21:A,22;" ":A  13 ,23;"GAME OVER" WAF15,24;"STOPPED";16,23;"BY PLAYER";17,27;AF ?WF15,23;"PLAYER ";WF;16,25;"WINS" B20,23;6;"PRESS ANY";21,26;"KEY" b0:0:6000p:K=-2040(2:.05|L,K:.01z# =,30-K:K 0:540 pPRINT SCORES z2,22;7;"PLAYER ONE";3,22;P$;4,23;7;C1;"";0;5;" ";P1S;" " 9 ,22;7;"PLAYER TWO";10 ,22;Q$;11 ,23;7;C2;"";0;5;" ";P2S;" "  X LCHECK FOR WIN V(X=211 :Y=211 `4B(X,Y)0A=B(X,Y):7800x:WF=1 jY:X: x X1=X:Y1=Y :Z=14:X1=X1+1:B(X1,Y1)A7830  Z:WF=A:  X1=X:Y1=Y :Z=14:Y1=Y1+1:B(X1,Y1)A7860  Z:WF=A:  ? @ VARIABLES J4P$(10 ):Q$(10 ):C1=4:C2=6 TB(12 ,12 ) ^236099\,100d !4 !INFO !1:1:6: !31,13 ;"AREA";2,13 ;"____" !''8;"A ONE-PLAYER GAME"'''" YOU MUST BEAT THE COMPUTER. YOU"''"PLACE SQUARES ON THE BOARD SO "''"THAT NONE ARE ADJACENT TO THOSE "''"OF THE COMPUTER." !G'" THE COMPUTER WILL PLAY LIKEWISE"''"AND WILL TELL YOU WHO HAS WON." !/''7;" PRESS ANY KEY TO CONTINUE " !&0:6:6::0 !51,12 ;"LINES";2,12 ;"_____" !x''7;"A TWO-PLAYER GAME"'''" YOU MUST BEAT YOUR OPPONENT BY"''"GETTING FIVE SQUARES IN A ROW"''"BEFORE HE DOES." !1'" THE LINES CAN BE HORIZONTAL OR"''"VERTICAL." !+''2;" PRESS ANY KEY TO CONTINUE" "&0:4:4::0 " >'''7;"SQUARES continued";7;"-----------------" "~''" IF YOU PLACE A SQUARE ON THE "''"BOARD ADJACENT TO ONE OF YOUR"''"OPPONENT'S, IT WILL IMMEDIATELY"''"BECOME ONE OF HIS." "/''''7;" PRESS ANY KEY TO SELECT GAME" "$0:9500% #(UDG'S #2>A=06:"A"+A,1:"B"+7-A,1:A #<("A"+7,255:"B",255 #FBA=06:"C"+A,128:"D"+7-A,128:A #P("C"+7,255:"D",255 #ZP"E",255:A=16:"E"+A,129:A:"E"+7,255 #d # DRAW BOARD #0::7 $lA=1202:A,1;"";A+1,1;"":A $l7:2:A=09 :0,A*2+1;A;" ";21,A*2+1;A;" ":A $"A=110 :A1=A*2 $"jA1,0;(A+64@);A1,21;(A+64@);A1+1,0;" ";A1+1,21;" ":A $,W0,0;" ";1,0;" ";1,21;" ";0,21;" " $T % OPTIONS %!HAF=0:WF=0:P1S=0:P2S=0:B(12 ,12 ) %&2:2:7: %0V1,9 ;"***SQUARES***";3,0;"WRITTEN BY Neil Pellinacci 1983" %:'''12 ;"OPTIONS" %D"''6;"[A] ONE PLAYER GAME" %N!'6;"[B] TWO PLAYER GAME" %X '6;"[C] CHANGE COLOURS" %]'6;"[D] INFORMATION" %bE''" CHOOSE YOUR OPTION NOW BY "'" PRESSING THE APPROPRIATE KEY" %l="A"NP=1:9700% %v="B"NP=2:9800H& %{="D"8600! %"C"9580l% %f7:7::1:'''"PLAYER ONE COLOUR:"''" PRESS THE KEY FOR THE COLOUR YOU WANT NOW" %A= %#A<491A>5579620% %C1=A-480:.5,C1 %I'''"PLAYER TWO COLOUR:"''" PRESS THE KEY FOR THE COLOUR YOU WANT NOW" %)A=:A<491A>5579660% %"C2=A-480:C2=C19660% %.5,C2:9500% %("TYPE YOUR NAME ['ENTER' TO SKIP]";A$ %A$=""9730& %P$=A$ &Q$="SPECTRUM": &H("PLAYER ONE NAME [ENTER TO SKIP] ";A$ &RA$=""9830f& &\P$=A$ &f("PLAYER TWO NAME [ENTER TO SKIP] ";A$ &pA$=""9860& &zQ$=A$ & Z#12 V V  A4F    }