Top 10k strings from fruitma5.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /

Back to the directory listing

   6 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   3 GGGGGGGGGGGGGGGGGGGGGGGGG
   3 ;"FRUIT MACHINE";
   3 ;"-------------"
   2 b$="      
   2 a$="      
   2 ;"You have ";:
   2 ;"  ";k$(6
   1 yu,pos;"VW ";
   1 yu,pos;" @#$ ";
   1 win=w(pw):
   1 w$="YOU'VE WON OVER `10"
   1 w$="YOU'VE NO MONEY LEFT":
   1 w$="Push a key to insert coin":
   1 w$="Hold/cancel- Push 1,2,3,4":
   1 q$="Any other will spin reels"
   1 money=money-10
   1 money=money+win
   1 money+"p  ":
   1 m$=m$+"."+g$
   1 m$=m$+"   ":
   1 lsym=r(r):
   1 fruity    
   1 fm        
   1 c$="                                ":
   1 b$="       
   1 a$="       
   1 ^507&508 should be includedif you want the ON BREAK PRINT  
   1 ^ POKES SCREEN FROM MEMORY ONTO SCREEN
   1 ZZGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 ZZGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 WELL DONE!
   1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGGBBBBBBBBBBGGGGGGGGGGGZZGGGGGGGGG
   1 THIS PUTS THE UDG'S IN THEIR PLACE
   1 RESET  CHARACTER SET TO 0's
   1 Push a key to insert coin
   1 POKES  START OF CHARACTER SET INTO A   PART OF MEMORY WHICH IS OCCUPIEDBY NOTHING.THIS ALONG WITH LINE 34 PREVENTS THE 
   1 POKE    23607,60 TO RETURN TO CHARACTER SET IF YOU BREAK IN DURING      LOADING (NAUGHTY!) P.S. IF YOU  DON'T KNOW THIS,IT CAN LOOK IF  THE PROGRAM HAS CRASHED
   1 Mcode     
   1 MESSAGEFROM WRITING OVER THE SCREEN    
   1 LOADS HEADERLESS SCREEN ^
   1 LOADS BASIC   PART OF FRUIT MACHINE
   1 LINES 14,15, 16,17,19
   1 LINES  15,16 & 17 SET UP THE M/C WHICH IS USED IN THE MAIN BASIC       PROGRAM
   1 IT AND SAVE IT AS         
   1 IIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIIIMMMMMMMMMMMMMMMMMMMMIIIIIIIIIIII
   1 GGGGGGGGGGMMMMMMMMOGGGGGGGG
   1 GGGGGGGGGGGZZGGGGGGGGGGGCCCCCCGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGFGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGFFFGGGGGGGGGGGGGGGGGGGGGGGGGZZGGFFFGGGGGGGGGGGGGGGGGGGDDDGGGZZGGFFFGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGBBBGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGZZGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 GGGGGGGGGGGZZGGGGGGGGG
   1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 GGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 GGGGGGGGGGGGGG
   1 Any other will spin reelsI
   1 A GUIDE TO FRUIT       MACHINE (A GAME OF DISTINCTION? FROM BRITISH TELECOM)
   1 ?????UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
   1 ;"~Q~-QUIT (Only works while the  reels are spinning)";
   1 ;"gamble";
   1 ;"collect"
   1 ;"You win ";w$;
   1 ;"You have `1  "
   1 ;"R. HUTCHISON and";
   1 ;"Program written by";
   1 ;"Press: G-Gamble C-collect"
   1 ;"Press any key to play again..."
   1 ;"Press 'M' to";
   1 ;"Press 'C' to";
   1 ;"PRESS ANY KEY..."
   1 ;"NUDGES-";Y;
   1 ;"NUDGES-";Y-1
   1 ;"LOADING FRUIT MACHINE"
   1 ;"A. BEVERIDGE"
   1 ;"***NUDGE NOW***"
   1 ;"       You win `2        ":
   1 ;"        ";
   1 ;"               ";
   1 ;"                            ":
   1 64,156,229,253,54,0,255,253,203,1,174,195,125,27,229,195,3,19
   1 4th PART IS THE M/C    WHICH IS NOT HEADERLESS BUT I   CAN'T REMEMBER WHAT THE         LENGTH/START IS BECAUSE I       DIDN'T DO THAT PART SO I ADVISE YOU TO USE A TAPE COPIER(HANDY   THINGS AREN'T THEY?)
   1 4ZZGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 4%ZZGGGGGGGGGGGGGGGGGGGGGGGGG
   1 4%(ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
   1 3rd PART IS THE MAIN     BASIC(that explains why the     reels are so slow) PROGRAM.     
   1 33,3,19,58,58,92,254,20,40,4,254,12,32,15,33
   1 2nd PART IS THE        HEADERLESS SCREEN WHICH CAN BE  COPIED USING A TAPE COPIER WHICHACCEPTS HEADERLESS PROGRAMS     (AND IF B.T. DOESN'T HAVE ONE   THEN IT IS ABOUT TIME YOU GOT   ONE!)
   1 23613+256*
   1 20 SET UP M/C
   1 1st PART IS THIS BASIC   LOADER SAVE IT BY
   1 ,pos;"nopqr":
   1 ,pos;"UQRTS":
   1 ,pos;"FGHIJ";
   1 ,pos;"7890!";
   1 ,pos;"1Z23 ";
   1 ,pos;"1KLM ":
   1 ,pos;" 45  ":
   1 ,pos;" %&' ":
   1 ,pos;"  =";
   1 ,pos;"  6  ":
   1 ,pos;"     ":
   1 ,(reels-p)*2
   1 +n,p;k$(pw+(p=3
   1 *MACHINE CODE DATA*
   1 )=money/100
   1 (ru-100005
   1 (money/100
   1 (CLEVER EH!!!)
   1 ';"On ~HOLD~ push key 1,2,3        or 4, according to which        reel you want to hold.          To cancel hold, press the       same key again."
   1 "      Push any key to spin reels":
   1 "      On ~NUDGE~ push key 1,2,3       or 4, according to which        reel you want to nudge.":
   1                 SAVE "FruitMach"
   1                                 
   1