ZXTape! CASIO1  l CASIO GAME I ************  (*** SETUP *** *23658j\,8 +li=1000 -t$="T180O3N1C&&&7g" .u$="T240O5N10$e$b$E" /!v$="T240O5N7$B10$e$b$E10$e$b$E" 2 9905& 6 n="a""l"-1:w:n,w:n 7Rx(9 ):y(9 ):z(9 ):c(5):h(9 ):h$(9 ,18) 9$8700!:INITIALISE HIGH SCORES :8800`":VIEW HIGH SCORES <8900":LOAD HIGH SCORES? A m=0 F 9965& Pn=19 :x(n):n Zn=19 :y(n):n d*** SKILL LEVEL *** nK16,3;1;6;1; " ENTER SKILL LEVEL (1-9) " pz$= qz$=""112p r*z$<491ůz$>579ˤt$:112p s sk=z$:u$ u16,0,, x7000X:SCRAMBLE GRID *** SCREEN SETUP ***  >0,0;6;1;1;" MOVES: ";m;" " (k$=h(sk):h(sk)=99999COk$="n/a" Kj$=" BEST: "+ k$+" ":0,32 -j$;6;1;1;j$ i21,0;1;6;1;" PRESS ";1;"0";0;" TO QUIT THIS GRID " )8,6;" " )9 ,6;"QWE " *10 ,6;" " *11 ,6;"ASD " *12 ,6;" " *13 ,6;"ZXC " *14,6;" " 'n=19 :x(n),y(n);z(n):n v$ *** DETECT MOVES *** z$= i=0 z$="Z"i=1 z$="X"i=2 z$="C"i=3 z$="A"i=4 "z$="S"i=5 ,z$="D"i=6 6z$="Q"i=7 @z$="W"i=8 Jz$="E"i=9 Oz$="0"7500L:QUIT GRID Ti=0240 ^3x(i),y(i)-13 ;1;6;1;z$ cc(1)=i hli+(i*10 ) r2000:CHANGE NUMBERS |3x(i),y(i)-13 ;7;0;0;z$ @m=m+1:0,8;6;1;1;m;" " *** CHECK FULL HOUSE *** Tcs=0:n=19 :cs=cs+z(n):n:cs=sk*9 8000@:TOP SCORE  240  *** NUMBERS TO MOVE *** Rc(2)=2:c(3)=3:c(4)=4:c(5)=7: Rc(2)=1:c(3)=3:c(4)=5:c(5)=8: Rc(2)=2:c(3)=1:c(4)=6:c(5)=9 : Rc(2)=1:c(3)=7:c(4)=5:c(5)=6: Rc(2)=2:c(3)=4:c(4)=6:c(5)=8: $Rc(2)=3:c(3)=5:c(4)=4:c(5)=9 : .Rc(2)=4:c(3)=1:c(4)=8:c(5)=9 : 8Rc(2)=5:c(3)=2:c(4)=7:c(5)=9 : BRc(2)=6:c(3)=3:c(4)=7:c(5)=8: *** INCREASE NUMBERS *** Ln=15:x(c(n)), y(c(n));1;6;1;z(c(n)):n  5 n=15 z(c(n))=z(c(n))+1 z(c(n))>skz(c(n))=0 n  Ln=15:x(c(n)), y(c(n));1;6;1;z(c(n)):n n  5  Ln=15:x(c(n)), y(c(n));7;0;0;z(c(n)):n %u$ * *** DECREASE NUMBERS *** n=15 z(c(n))=z(c(n))-1 z(c(n))<0z(c(n))=sk n  X*** SCRAMBLE GRID *** bK16,7;6;1;1;1;" SCRAMBLING GRID " ln=19 :z(n)=sk:n vs=1sk*5 i=(*9 )+1 c(1)=i li+(i*10 ) 3000 :CHANGE NUMBERS s  L*** QUIT GRID *** Vd21,0,,16,0;6;1;1;" SO, YOU'RE A QUITTER, ARE YOU? " `t$:25 j16,0,,,,,,16,1;1;6;1;" PRESS ";1;"Q";0;" TO QUIT THIS PROGRAM ";17,0;" OR ANY KEY TO FOR ANOTHER GAME " tz$= ~z$=""7540t -z$"Q"ˤv$:16,0,,,,:65A +z$="Q"16,0,,,,:8100  @*** PUZZLE SOLVED *** Jn=19 T5x(n),y(n);1;6;1;1;z(n) ^n he21,0,,16,4;1;6;1;1;" *** YOU'VE DONE IT *** " mE"T240O4N1$bDF$BO5$eg$b$EO4$bDF$BO5faCFO4$bDF$BO5cegCO4$bDF$BO5gbDG" r"m< h(sk)8600!:BEST SCORE |16,0,,,,,,16,7;1;6;1;" PRESS ";1;"Q";0;" TO QUIT ";17,1;" OR ANY OTHER KEY TO CONTINUE " z$= z$=""8065 -z$"Q"ˤv$:16,0,,,,:65A !z$="Q"16,0,,,,,, T16,3;6;1;1;1;" YOU'LL BE BACK FOR MORE! " t$  !*** BEST SCORE INPUT *** !Z18,0;1;6;1;1;"** BEST SCORE FOR THIS LEVEL! **" !5"T240O5N1faCF$bDF$BfaCFO6cegCO5faCFgbDGfaCFO6d#faD" !m20,7;6;1;1;" ENTER YOUR NAME ";21,5;" (MAX. 18 CHARACTERS) " !n$ !n$>18ˤt$:8640! !h(sk)=m:h$(sk)=n$ !20,0,,,, ! 8800`" !ޱ16,0,,,,,,16,1;1;6;1;" PRESS ";1;"S";0;" TO SAVE BEST SCORES ";17,1;" OR ANY OTHER KEY TO CONTINUE " !z$= !z$=""8675! ! z$"S"ˤu$ !z$="S"ˤv$:9980& !16,0,,,,: ! *** INITIALISE HIGH SCORES *** "Dn=19 :h(n)=99999CO:h$(n)="------------------":n "8 "` *** PRINT BEST SCORE TABLE *** "e "jU0,0;" " "ou2,0;" " "q1;6;1;1,1;" BEST SCORE TABLE ";3,1;"LEVEL";3,7;"MOVES";3,13 ;" NAME " "tVn=513 :n,0;"";n,6;"";n,12 ;"";n,31;"":n "~614,0;"" ")n=19 :n+4,3;n ".h(n)=99999COn+4,7;" 0" "Lh(n)99999COn+4,3;n;n+4,12 -((h(n)));h(n) "n+4,13 ;h$(n) "n " " *** LOAD/SAVE HIGH SCORES? *** "ɚ16,1;1;6;1;" PRESS ";1;"L";0;" TO LOAD BEST SCORES ";17,1;" OR ANY OTHER KEY TO CONTINUE " "z$= "z$=""8910" " z$"L"ˤu$ "z$="L"ˤv$:9990' "16,0,,,, # &*** UDG DATA *** &F0,0,0,31,31,24,24,24 &E0,0,0,255,255,0,0,0 &H0,0,0,255,255,24,24,24 &H0,0,0,248,248,24,24,24 &I24,24,24,24,24,24,24,24 &I24,24,24,31,31,24,24,24 &K24,24,24,255,255,24,24,24 &K24,24,24,248,248,24,24,24 &F24,24,24,31,31,0,0,0 &H24,24,24,255,255,0,0,0 &H24,24,24,248,248,0,0,0 &*** SCREEN DATA *** &13 ,13 ,13 ,11 ,11 ,11 ,9 ,9 ,9 ,20,22,24,20,22,24,20,22,24 &*** SAVE HIGH SCORES *** '"moves"h():"names"h$(): '*** LOAD HIGH SCORES *** ' )"moves"h():"names"h$():8800`": ymoves 0z2 COCOCOCOCOCOnames  JIM JIM JIM ------------------------------------------------------------------------------------------------------------