ZXTape! 0Created with Ramsoft MakeTZXPARAGRAM ' a'.v=112 :"PARAGRAM"9999':v 'R1:1:1::"":16,0;"":"":7:0:: 'PES @d@@ @@@ @D  @ @ @2 @ @@@AH @D ?@!*@E$ @ @@ H`@@!  , ? PE$@ @@ H@@@     @ HC$h@@ @$ @ (@  @Ȃ  @  @ D("(   @@ @ @$ @(@ @HAA    @D("( @ @@ @@ $ @ (@ @dA@   ""H   @@ @@ D  @2 $@ @4   @ AH@ &@ Q BP@ @ A ! BaAA @@ C",X@a @ HVC~ @ BPB  @  ȡ1B @@@ @0@ JLE"CB`  @8p1u+C BRf` @?w;fU -9qDB@BHBB@H A@ TE D @  B1B  @ 0J,EBF! ? 9I:C  Z@v?q#?BB|@pBB|uz䴁[?ﱞ_;0BB@@HBBH A`@A*"A  @ :!h$8  @ 0#$F c >c]Uc8RL~ A@B Ba @@ \DU$a @0pc `IC:!P"|̀(l<|?qٱ<~@~|BB<@@@@BBBb@B@BBB@@BBDbB@88D888x8Dxxx<|@|B~BR@x<(xB<~<<< <@< 8DD8D@8?8888888888888888888888888888888?88?8888888888888888888888888888?88888888888888888888888888888888888888888888888888888888?8888888888888888888888888888888PARA y"m23658j\,8:Q=0:flag=0:s=0:m1=0:gMS=0:b(16):b$(16) :10 ,8;"Do you want the";11 ,9 ;"instructions";12 ,14;"of";13 ,8;"P A R A G R A M";15,11 ;"(Y/N) ?" =""10 a$= ""12 )a$="N"q=1:5::180 >a$"Y"1;1;15,12 ;" ":10  1: 236099\,60< 'i=116:b(i)=i:i:,,,,,, #zi=113 4:6;1;b(i);4;b(i+1);7;b(i+2);11 ;b(i+3):i (6;3,12 ;" ";4,12 ;" ":1,152:104h,0:0,-33!:-104h,0:0,33! -a$="n"q=1:180 0a$="n"q=1:180 2flag=1 78,0; <^7;1;"the board positions are","randomly occupied with the","letters 'a''p'.","the object of the game :-","to rearrange the letters into ","order , by ROTATING a group of ","four letters CLOCKWISE one position.",,0;5;" You specify the upper left position of the four you wish to rotote. " A21,3;7;2;1;"Press any key to continue":0:4,14;7;2;"valid moves are:" FO7;1;5,15;"1 2 3 5 6";6,15;"7 9 10 11" K1;1;3,1;" ";3,4;" ";3,7;" " ;4,1;" ";4,4;" ";4,7;" ";5,1;" ";5,4;" ";5,5;" ";5,7;" ";5,8;" " P/f=821:1;f,0;,,:f U^21,3;7;2;1;"Press any key to continue":0::7 ZM1;7;"If the board looked ","like this :- " _,i=116:b$(i)=(i+64@):i dDb$(2)="c":b$(3)="g":b$(6)="b":b$(7)="f" i 320@ n{6;1;1;3,3;" ";3,5;" ";4,3;" ";4,5;" ":150 s5;3,10 ;0;"and you ";4,10 ;"rotated ";5,10 ;"position ";6,10 ;" '2' ":1;1;3,3;" ":f=0700:f xP1;7;9 ,10 ;"The board";10 ,10 ;"becomes " }+i=27:b$(i)=(i+64@):i )7;0;12 ,0;" " i=113 4 6;0;" ";b$(i);" ";b$(i+1);" ";b$(i+2);" ";b$(i+3):i:0,39':64@,0:0,33!:-64@,0:0,-33!:Q=1 \Q=1:1;7;16,10 ;"And you ";17,10 ;"would WIN" ^21,3;7;2;1;"Press any key to continue":0::7  1;7;" you also have one SPECIAL move per game,which you may or may not need.",," The special move allows you","to swap two ADJACENT letters","in a ROW. " 1;7;" To make this move input'-1' as your move, and you will be ","asked for the two positions of the letters you wish to exchange" :5;0;"REMEMBER ONLY ONE SPECIAL MOVE "," PER GAME "::1;7;"To give up at any time input '0'":100d v21,3;7;2;1;"Press any key to continue":0::5:flag=1:30 j1;7;10 ,0;"O.K. I'M THINKING UP A HARD ONE"," FOR YOU " !I=116:B$(I)="":I I=116: T$=((*16+65A)) "J=1I:B$(J)=T$195 J B$(I)=T$:I 150 !M=0:S=0:130 g1;7;10 ,0;" MOVES TAKEN SO FAR = ";M;" " 12 ,0; /4;0;"Position to ROTATE ?";i$ I$=""235 ;h=1̱i$:i$(h)<45-ůi$(h)>579235 h:i=i$ I=0300, i=-1335O wi=4i=8i12 19,0;1;7;" ILLEGAL MOVE- TRY AGAIN ":235  xM=M+1:T$=B$(I):B$(I)=B$(I+4):B$(I+4)=B$(I+5):B$(I+5)=B$(I+1):B$(I+1)=T$  130 7;19,0;" ";1;7;10 ,0;" MOVES TAKEN SO FAR = ";M;" " 4I=116:(I+64@)B$(I)235 I "l1;7;10 ,0;"YOU ORDERED THE BOARD IN ";M;" MOVES " 'M1=M1+M:GMS=GMS+1 ,@:10 ,10 ;"Play again";12 ,12 ;"(Y/N) ?" -=""301- .a$= /""303/ 0 a$="Y" 1?a$"N"1;1;12 ,13 ;" ":301- 6%g=160<:.005y# =,g:g ;g1M111;7;10 ,0;" you played ";g;" games and have an average score of ";m1/gMS;" moves/game " =0g=160<:.005y# =,g:g:0: @(7;0;2,0;" " Ei=113 4 J6;0;" ";b$(i);" ";b$(i+1);" ";b$(i+2);" ";b$(i+3):i:1,152:65A,0:0,-33!:-65A,0:0,33!: Os1355c TY21,0;" ":4;0;"First position ?";x$ WX$=""340T Y;h=1̱x$:x$(h)<480ůx$(h)>579340T ^ h:x=x$ c.4;0;"Second position ?";y$ eY$=""355c h;h=1̱y$:y$(h)<480ůy$(h)>579355c m h:y=y$ rxy+1xy-1x17y1719,0;1;7;" ILLEGAL MOVE- TRY AGAIN ":120x:19,0;" ":340T ws=s+1:s>121,0;2;1;" ONLY ONE SPECIAL MOVE PER GAME ":120x:21,0;" ":235 |,t$=b$(x):b$(x)=b$(y):b$(y)=t$:270 'V=113 :"PARA":V qlasmS A  '