D =?e!6X'D:\%6i{12345@W P P P 88 MS8S \Wq !v>>BB<DHpHDB@~BfZBBBBbRJFBR;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@   THEN PRESS ANY KEY  q# <@Q''(|\\\]{]}}{?~}}}-\(a¶wCvDOX![!PP!! X{@{(Gx {W!|{"\ P#ٰ"2":"Channel4""23296","934 K SR Pd!INITIALISE VARIABLES   n1XJUMPED=ç:YJUMPED=ç:JUMPS=ç:PEGS=32 xP(7,7) <Z=17:Y=17:P(Z,Y)=2:Y:Z P(4,4)= INSTRUCTIONS  ç:ç::2:6 ܜç,9 ;" *";,9 ;"* *";2,9 ;"* SOLITAIRE *";3,9 ;"* *";4,9 ;" *" ç:8,ç;"The ancient european game of logic. The game commences with across shaped peg board having pegs in every hole but the centre." y'"The objective of the game is to remove all the pegs barr one, and to leave the last peg in thecentre of the board." Fڼ;7;21,3;"PRESS ANY KEY TO CONTINUE.":0 "8,ç;31'"Pegs are removed by 'jumping' one peg over another into an empty hole and removing the jumped peg. Only horizontal and" ,"vertical jumps are permitted:no diagonal jumping is allowed. Youmay only jump 1 peg at a time: jumping over holes is not allowed. " 6ç @7,ç;"Use keys 5-8 to position the flashing cursor over the piece you wish to move and press 'J'. Next,position the cursor over" Jn"the hole you wish to jump into and press 'J'. The spectrum checks jumps and rejects illegalmoves.";ç ^Q31'31'"If you cannot move,or simply wish to resign,press 'R'." hç DRAW BOARD  7:7: 6:2:0,6;16;,6;" ";2,6;" ";3,6;16;4,6;" ";5,6;" ";6,6;16 S6,ç;22'" "'" "'22 J10 ,ç;" "'" "'22 J13 ,ç;" "'" "'22 16,6;" ";17,6;" ";18,6;16;19,6;" ";20,6;" ";21,6;16 &%0,127:480,0 :0,480:80P,0:0,-480:480,0:0,-80P:-480,0:0,-47/:-80P,0:0,47/:-480,0:0,80P Du 7:9 :9 ,23;"MOVES ";JUMPS;12 ,23;"PEGS LEFT";13 ,23;".=";PEGS N.02{# =,12 XMOVE INPUT  bKEYM=1:FROMX=4:FROMY=4:TOY=4:TOX=4:FLASHX=4:FLASHY=4:NONFLASHX=4:NONFLASHY=4 l&6:P(4,4):1 v'P(4,4)=1650 E10 ,10 ;"";11 ,10 ;"":0:660 :10 ,10 ;"";11 ,10 ;"":0 KEYM=1 KEYPRESS VERIFICATION  M$=:M$=""670 m$="r"m$="R"2000 M$="J"M$="j"1100L yMOVE=5*(M$=8)+8*(M$=9 )+7*(M$=11 )+6*(M$=10 ): SPECTRUM+ CURSORS  M$>"4"M$<"9"MOVE=M$ MOVE=0670 *MOVE=5MOVE=8850R  VERTICAL MOVE  $NONFLASHY=FLASHY:NONFLASHX=FLASHX  =FLASHY=FLASHY+1*(MOVE=7)-1*(MOVE=6) *b(FLASHX<3FLASHX>5)FLASHY=FLASHY-1*(FLASHY=6)+1*(FLASHY=2) >b(FLASHX>2FLASHX<6)FLASHY=FLASHY-1*(FLASHY=8)+1*(FLASHY=0) H 910 RHORIZONTAL MOVE  \$NONFLASHX=FLASHX:NONFLASHY=FLASHY f=FLASHX=FLASHX+1*(MOVE=8)-1*(MOVE=5) pb(FLASHY<3FLASHY>5)FLASHX=FLASHX-1*(FLASHX=6)+1*(FLASHX=2) b(FLASHY>2FLASHY<6)FLASHX=FLASHX-1*(FLASHX=8)+1*(FLASHX=0) "ERASE" OLD CURSOR  40:P(NONFLASHX,NONFLASHY)=1940 2;22-3*NONFLASHY,3*NONFLASHX-2;"";23-3*NONFLASHY,3*NONFLASHX-2;"":950 {ټ;22-3*NONFLASHY,3*NONFLASHX-2;"";23-3*NONFLASHY,3*NONFLASHX-2;"" PRINT NEW "CURSOR"  )P(FLASHX,FLASHY)=1980 ʄۼ;2;22-3*FLASHY,3*FLASHX-2;"";23-3*FLASHY,3*FLASHX-2;"":1000 sۼ;ټ;22-3*FLASHY,3*FLASHX-2;"";23-3*FLASHY,3*FLASHX-2;"" .02{# =,12 :660 LJUMP CO-ORDINATES  VKEYM11130j `]FROMX=FLASHX:FROMY=FLASHY:.25~,24:.25~,12 :KEYM=0:660 j@TOX=FLASHX:TOY=FLASHY:.25~,24:.25~,12 VALIDATE MOVE  AP(FROMX,FROMY)=1P(TOX,TOY)=21300 ]FROMX=TOXXJUMPED=FROMX:YJUMPED=FROMY+1*(TOY>FROMY)-1*(TOYFROMX)-1*(TOX7;9 ,29;JUMPS;13 ,29;PEGS;" " @CHECK FOR COMPLETION  J9PEGS=1P(4,4)=23000 T PEGS=12000 ^ 655 GAME NOT WON  7:2:8,23;"YOU MADE";9 ,23;JUMPS;" MOVES";10 ,23;"LEAVING";11 ,23;PEGS;" PEGS";12 ,23;ç;13 ,23;ç Ij=12:2060 :i=19 :a$:b$:װa$,b$:i:j 42070:i=112 :a$:b$:װa$,b$:i  T".2","4",".2","2",".2","5","1.4","4",".4","11",".2","9",".2","9",".2","7",".2","5" o".2","7",".2","4",".2","12",".6","9",".2","4",".2","2",".2","7",".6","4",".2","2",".2","0",".2","2","1.4","4" 4 3070 GAME WON  :2:2:1;8,23;"WELL DONE" ]9 ,23;"COMPLETED";10 ,23;"IN ";JUMPS;11 ,23;"MOVES " 43050 :i=128:a$:b$:װa$,b$:i ".3","0",".15","-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1.4","2" ".3","0",".15","-3",".15","0","1","2",".15","-5",".15","-3",".3","0",".3","2",".3","7",".15","9",".15","2",".3","7",".3","9","1","11" >12 ,23;"TRY AGAIN";13 ,23;"(Y OR N)" ?R$=:R$="n"R$="N":10 ,8;"START THE TAPE":"" &R$="y"R$="Y"400 0 3090 #("""a":9990': 'Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): 'R;;_"\`X:\GOxƀO>@0q#= >2\v!͵v!͵:\( >8DDDDD8x"D"D"x>@"@"@.. '/"solitaire"9000(#:"udgs""a",168 jumpejumpeumpegeyromromoolashlashonflashonflashovM 23637U\ 256 23638V\ 6 "{ ppPPPppp`pBB8`hh`p```pPPpPPPppp8pp8p8`hh`p```pPPpPPPppp8pppp8`hh`p```pPPpPPPppp8pppp8`hh`00``pPPpPPPp8`hh`0``pPPpPPP p`hh`888 pPPPp8`hh`PPPP8888ppppPPPp8`TT P88p8pp88M}3}-]-@*#,?DX'6!M Bi{+-e3X': Rv(#k>;}ܾ};l