ZXTape! 0Created with Ramsoft MakeTZXSOLITAIRE k087:7:0:0:0:0:  23659k\,0  6690" (i="k""k"+7 2 x:i,x:i im1=0:m2=21 ni=1568 xJcr=(*6+1):nt=*10 +5:du=*0.3+0.1}L *n:n=32 m1=m1+1:6530 9 ;cr;m1,n;"" cr=(*6+1) *n:n=32 m2=m2-1:6560 9 ;cr;m2,n;"" i "I0,24,60<,126~,126~,60<,24,0 ,1,31,2,30,32 ,0,29,3,32 ,29,32 ,0,28,5,25,6,32 ,29,32 ,1 628,4,25,7,32 ,31,32 ,2,30,4,29,7,27,9 ,25,32 ,3,23,4,32 @29,7,26,9 ,25,32 ,0,23,3,21,4,17,7,32 ,29,9 ,27,12 ,25,32 J1,23,2,21,4,17,7,32 ,31,9 ,30,12 ,29,32 ,4,28,7,25,9 ,23 T12 ,21,14,17,15,15,16,32 ,28,32 ,5,25,6,23,9 ,21,12 ,20,15,19 ^32 ,9 ,18,12 ,17,15,15,19,32 ,27,32 ,9 ,26,10 ,25,11 ,23,12 ,21,15 hv17,18,15,20,12 ,23,32 ,23,32 ,12 ,21,15,17 719,0;1;"MAIN PROGRAM NOW LOADING" 7:7 "" SOLITAIRE vIvIfxIHSOLITAIRE  Copyright David Wright H9000(#:8700!:7500L:9900&:6400:7505Q (1000:85U 2i=2i$="5" 7i=4i$="6" <i=8i$="7" Ai=1i$="8" F K320,10 ;2;1;"Try again!" L+j=17:.15~,.15~:j M U,21,0;"Press any key to start" W""87W X=""88X ZC0;5;10 ,10 ;"";11 ,10 ;"" _=3;20,0;"Centre peg removed. Good luck!" `.21,0;" " bi=1200:i ds23659k\,2:1,0;"Enter S to stop play";0,0;"Position of peg to be moved? ";p$ e'23659k\,0:p$=""100d f63;10 ,22;"Move ";move+1;" " iv19,0;" " j!d$(1,p$):d$(1)=p$ k@i=1̱p$:d$(1,i)="S"d$(1,i)="s"1000 li np$2300, xc$(1)=p$ 0v=c$(1,1):w=c$(1,2) `v>71Gv=v-32 :c$(1,1)=(c$(1,1)-32 ):p$=c$(1) "v<65Av>71G320@ "w<491w>557340T *b$(v-62>,w-46.)"P"360h c2=v-62>:c1=w-46. t5;0;1;2*c1-2,2*c2-2;"";2*c1-1,2*c2-2;"" E20,0;"Use cursor keys to jump"'"Press 0 to change peg" 0""(jy=1ƿ310)180 2z=0:.2~L,5:.05|L,-10 I=""(31jy=1)=0z=z+1:z<40(190 z=40(185 i$=:i=31 619,0;" " i$="0"(jy=1i16)5;0;2*c1-2,2*c2-2;"";2*c1-1,2*c2-2;"":19,0;" ":100d #i$=""502:i$=""180 &i$<535ůi$>568180 0m=v-62>-2*(i$="5")+2*(i$="8") 0n=w-46.+2*(i$="6")-2*(i$="7") b$(m,n)="E"380| Bb$((v-62>+m)/2,(w-46.+n)/2)"P"390 b$(m,n)="P"370r  500 ,M20,0;1;2;"Incorrect form for input";:" " 1 400 6A21,0;"Correct form is A3 C5 E6 etc ":100d @M20,0;1;2;"Incorrect form for input";:" " E 400 JB21,0;"First entry is A B C D E F or G ";:100d TM20,0;1;2;"Incorrect form for input";:" " Y 400 ^A21,0;"Second entry is 1 2 3 4 5 6 or 7":100d hc21,0;1;2;"There is no peg here! Try again";:" ":400:100d rM19,0;1;2;"Peg already here! Try again";:" " wL21,0;" ":400:170 |M19,0;1;2;"Off edge of board! Try again";:" " L21,0;" ":400:170 L19,0;1;2;"You must jump a peg! Try again";:" " L21,0;" ":400:170 +j=110 :.15~,15:j  15  g0;5;2*n-2,2*m-2;"";2*n-1,2*m-2;"" &.1}L,-4:7*p+5 move=move+1 ,move>replayreplay=0:flag1=0 Gm$(move,12)=p$:m$(move,3)=m:m$(move,4)=n c2=v-62>:c1=w-46. 6d2=(v-62>+m)/2:d1=(w-46.+n)/2 &+b$(c2,c1)="N":b$(d2,d1)="N":b$(m,n)="P" +.15~,2 0k5;0;2*c1-2,2*c2-2;"";2*c1-1,2*c2-2;"" 5.15~,0 :t1;5;0;2*d1-2,2*d2-2;"";2*d1-1,2*d2-2;"" ?p5;0;1;2*n-2,2*m-2;"";2*n-1,2*m-2;"" @&.1}L,-4:4*p+5 Bk5;0;2*d1-2,2*d2-2;"";2*d1-1,2*d2-2;"" Dg5;0;2*n-2,2*m-2;"";2*n-1,2*m-2;"" G(move=31flag=23110& Imove=3119,0;" " N_move=31b$(6,6)="P"20,4;2;1;"CONGRATULATIONS!" XNmove=31b$(6,6)="N"20,0;"Very good attempt" b'move=316000p:1000 gv19,0;" " i p+5 jflag=23110& kflag=12110> l 100d K23659k\,2::23659k\,0:2,10 ;"SOLITAIRE" +7,0;"PRESS P to play a game" 112 ,0;"PRESS R to replay your game" 617,0;"PRESS D for a demonstration game"  ""1035  =""1040 #j$=:j$=""75K:1035  Aj$"P"j$"p"j$"R"j$"r"j$"D"j$"d"75K:1035  $1j$="P"j$="p"8000@:8700!:85U .j$="R"j$="r"2000 8 3000 L K23659k\,2::23659k\,0:5,10 ;"SOLITAIRE" flag1=0move1=move n10 ,0;"You made ";move1;" moves.";'''';"You can replay all the moves";'';"or some of the moves." imove1=110 ,15;". ";14,15;"the move or not.";'';" " Cflag1=112 ,0;"You replayed ";replay;" moves." )replay=112 ,19;". " G23659k\,2:"How many moves would you like to replay?";x$ 223659k\,0:x$=""75K:2000 /d$(1,x$):d$(1)=x$:flag=1 Vi=1̱x$:d$(1,i)<480ůd$(1,i)>57975K:2000  i x$=023659k\,2::23659k\,0:5,10 ;"SOLITAIRE":10 ,0;"So you do not wish to replay";'';"any moves!":200:1000  x$>move123659k\,2::23659k\,0:5,10 ;"SOLITAIRE":10 ,0;"You only made ";move1;" moves";''';"You cannot replay ";x$;" moves!":200:2000 /flag1=1 4replay=x$:move=0 7U23659k\,2::23659k\,0:10 ,8;"replay?":7000X 9 8000@ ;C0;5;10 ,10 ;"";11 ,10 ;"" }move=replayflag=0:p=15:19,0;replay;" moves completed";';"You can continue playing";:100d @+21,0;"Press 0 to end replay" CM="0"(jy=1ƿ3116)flag=0:p=15:1000 HL20,0;"Move ";move+1;" of ";replay;" moves " _p$=m$(move+1,12):m=m$(move+1,3):n=m$(move+1,4) :v=m$(move+1,1):w=m$(move+1,2) c2=v-62>:c1=w-46. t5;0;1;2*c1-2,2*c2-2;"";2*c1-1,2*c2-2;""  p+15  500 a23659k\,2::23659k\,0:10 ,8;"demonstration game?":7000X 8000@ 01,3;3;"DEMONSTRATION GAME" flag1=0move1=move flag=2:move=0 =20,0;3;"Demonstration begins":502 *20,0;" " C0;5;10 ,10 ;"";11 ,10 ;"" 25;20,0;"Centre peg removed." $i=131:r$(i)=m$(i):i  30 I15,18;"Press 0 to end";16,18;" demonstration"  3200 &A="0"(jy=1ƿ3116)move=313300 0m$(move+1) :_p$=m$(move+1,12):m=m$(move+1,3):n=m$(move+1,4) D:v=m$(move+1,1):w=m$(move+1,2) Nc2=v-62>:c1=w-46. Xt5;0;1;2*c1-2,2*c2-2;"";2*c1-1,2*c2-2;"" b p+15 l 500 9"D666","F567","E777","C779","E478","E777","D587","E276" 9"G375","G595","D385","G375","F585","F365","C375","E474" 9"C155","E153","C454","C155","E254","B567","B347","A557" 2"A337","D547","A557","C656","D446","C256","B466" 620,0;3;"Demonstration game over" $i=131:m$(i)=r$(i):i #move=move1:250:1000  p 6100 zj  i=1j m:n:m*0.25~,n:i  5 j11 6010z  13 ,1,12 ,1,12 ,2,9 ,2,12 ,2,9 ,2,5,1,7,1,9 ,2,10 ,2,7,2,12 ,2,9 ,2,5 13 ,2,12 ,2,12 ,2,9 ,2,12 ,2,9 ,2,5,1,7,1,9 ,2,10 ,2,7,2,12 ,2,9 ,4,5 12 ,2,7,2,4,2,7,2,4,2,0,1,2,1,4,2,5,2,2,2,7,2,0,4,0 10 ,2,7,2,4,2,7,4,0,1,2,1,4,2,5,2,2,2,7,6,0 10 ,2,12 ,2,9 ,2,12 ,4,5,1,7,1,9 ,2,10 ,2,7,2,12 ,4,5 11 ,2,12 ,2,12 ,2,9 ,2,12 ,4,5,1,7,1,9 ,2,10 ,2,7,2,12 ,6,5 \23659k\,2::23659k\,0:5,11 ;2;1;"WARNING!"  P8,3;"Do not use the BREAK key";10 ,15;"or STOP key." U14,0;"These will cause the program to";16,10 ;"C-R-A-S-H!" i=110 #"16,10 ;"C R A S H !" (F6,11 ;2;"--------":.15~,.15~:10 -"16,10 ;"C-R-A-S-H !" 2F6,11 ;2;" ":.15~,.15~:10 <i Fi=1100d:i: X6,8;"SOLITAIRE";'';"Would you like a fast, medium";'';"or slow ";12 ,6;"Fast -PRESS 1";14,6;"Medium -PRESS 2";16,6;"Slow -PRESS 3" ]""7005] b=""7010b lx$=:x$"1"x$"2"x$"3"18,8;2;1;"Try again!":j=17:.15~,.15~:j:7005] vx$="1"p=1 x$="2"p=7 x$="3"p=15  Lb0:23659k\,2::23659k\,0:10 ,9 ;1;"STOP THE TAPE!" M823659k\,2:" Press ENTER to continue";x$ N.23659k\,0:x$07501M O Q23659k\,2::23659k\,0:0,10 ;"SOLITAIRE"''"To start the game the centre pegis removed from the board." V?''"Each move consists of jumping a peg over an adjacent peg." j;''"The peg jumped over is then","removed from the board." t%''"Diagonal moves are not allowed." ~X''"The aim is to finish with a"'"single peg which must be in the centre of the board." 423659k\,2:"Press ENTER to continue";x$ .23659k\,0:x$07600 Ν23659k\,2::23659k\,0:0,10 ;"SOLITAIRE"''"Three options are available, namely:- Play, Replay and Demonstration." 3''"Play allows you to play a game of Solitaire." ''"Replay allows you to replay all or part of your last game. This can be used to experiment with endplays after promising starts." U''"The Demonstration Game can be used to learn a successful method of play." 423659k\,2:"Press ENTER to continue";x$ .23659k\,0:x$07670 23659k\,2::23659k\,0:0,10 ;"SOLITAIRE"'''"The Kempston Competition-Pro Joystick can be used instead of the cursor keys."'''"The fire button replaces the instruction Press 0." l''"Is there a joystick connected?";14,6;"If yes PRESS y.";16,6;"If no PRESS n." #""7715# (=""7720( 2x$= <3x$"y"x$"Y"x$"n"x$"N"75K:7715# Fx$="y"x$="Y"jy=1 Px$="n"x$="N"jy=0 R jt=1 Ti=1502 V 31>30jt=0 Xi Z=(jy=1jt=1)(jy=0jt=0)7800x \jy=1jt=023659k\,2::23659k\,0:9 ,0;"Is there really a joystick connected?" ^jy=0jt=123659k\,2::23659k\,0:9 ,0;"I think that a joystick is connected." `g5,10 ;"SOLITAIRE";14,6;"If yes PRESS y.";16,6;"If no PRESS n." a""7777a b=""7778b c!x$=:x$="y"x$="Y"jy=1 dx$="n"x$="N"jy=0 x)23659k\,2::23659k\,0:0,10 ;"SOLITAIRE"'''"All inputs may be entered in either lower case or upper case."'''"After an incorrect input the upper case version of the correct input will be given."'''"I recommend that the CAPSLOCK key is engaged now!" 423659k\,2:"Press ENTER to continue";x$ .23659k\,0:x$07810 ? @S23659k\,2::23659k\,0:0,7;3;"SOLITAIRE" Jk$="":l$="" Tg$="":h$="" h 8090 rPi=14:x:0;5;x,8;k$;x+1,8;l$:i |i=13 *x:0;5;x,4;g$;k$;g$ 20;5;x+1,4;h$;l$;h$:i =4,6,14,16,8,10 ,12 B7,5;0;6;"AB ";7,14;" FG" D14,5;0;6;"AB ";14,14;" FG" D0;6;3,9 ;"CDDE";18,9 ;"CDDE" i0;6;5,7;"1";5,14;"1";6,7;"2";6,14;"2" 0;6;9 ,3;"3";9 ,18;"3";10 ,3;"4";10 ,18;"4";11 ,3;"4";11 ,18;"4";12 ,3;"5";12 ,18;"5" m0;6;15,7;"6";15,14;"6";16,7;"7";16,14;"7" 3,8;"";3,13 ;"";4,7;"";4,14;"";5,6;"";5,15;"";6,5;"";6,15;"";7,4;"";7,17;"";8,3;"";8,18;""  1 13 ,3;"";13 ,18;"";14,4;"";14,17;"";15,5;"";15,15;"";16,6;"";16,15;"";17,7;"";17,14;"";18,8;"";18,13 ;""  0 !4,b$(11 ,11 ):c$(1,2) !Hi=111 !Rb$(i)="EEEEEEEEEEE":I !\ 8600! !fi=14 !p#x:b$(x,57)="PPP":i !zi=13 !'x:b$(x,39 )="PPPPPPP":i !b$(6,6)="N" !93,4,8,9 ,5,6,7 ! !,m$(31,4):r$(31,4) "Vmove=0:move1=0:flag=0:flag1=0:replay=0:p=15 "V #( 9100# #-i="a""j"+7 #2 x:i,x:i # #Q255,128,128,129,131,135,143,159 #M255,1,1,129,193,225,241,249 #Q159,143,135,131,129,128,128,255 #M249,241,225,193,129,1,1,255 #Q255,128,128,128,128,128,128,128 #C255,1,1,1,1,1,1,1 #Q128,128,128,128,128,128,128,255 #C1,1,1,1,1,1,1,255 #H1,3,7,15,31,63?,127,255 #Q128,192,224,240,248,252,254,255 &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &G0:0:7:23659k\,2::23659k\,0 &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &25,7;1;" 1983 D.Wright. " &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right,of SOLITAIRE. Please note":"unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." &A21,2;6;1;"Press any key to continue" &=""9965& &7:7:0 & 7