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

Back to the directory listing

  11 PRINT CARD
   2 c$=z$(z(fl1,1
   2 INVALID ENTRY, PUT BACK CARD
   2 BUILD ON ACE PILE
   2 ,,,,,,,,,,
   2 "patience"
   1 z$(z(fl1,1
   1 z$(nfs,pp)=c$
   1 z$(m,fl1)="  "
   1 z$(i,pp)=z$(m,fl1)
   1 z$(i,l)=p$(j)
   1 x$="      S H U F F L I N G      "
   1 w=z(fl1)+2
   1 p$(shf)=t$
   1 p$(i)=p$(shf)
   1 p$(i)=o$(i)+"
   1 nfs=z(pp,2
   1 l$(shf)=t$
   1 l$(i)=p$(i+28
   1 l$(i)=l$(shf)
   1 l$(i)=l$(i+1
   1 ink;" ";c$
   1 fl4=fl4-10
   1 c(c$,z$(z(pp,2
   1 c$=z$(z(pp,1
   1 c$=z$(j,i)
   1 c$=z$(i,pp):
   1 c$=z$(i,pp)
   1 c$=z$(i,i):
   1 c$=z$(fl1,z(fl1)-1
   1 a$(suit)=c$(1
   1 TURN OVER BATCH & PRINT         NEW TOP CARD ON DECK
   1 SET UP PACK
   1 SET FLAGS: DEAL CARDS
   1 Patience by A.M. Grant,from Your Spectrum 14 (May.1985)
   1 Patience  
   1 Patch     
   1 PUT CARD DOWN ON PILE
   1 PRINT A CARD
   1 PLAY NEW GAME
   1 PICK UP DECK CARD
   1 PICK UP CARD OR PILE
   1 PICK UP & DISPLAY CARD
   1 NEXT BATCH OF THREE
   1 NEXT BATCH
   1 NEXT 3 BATCH
   1 MOVE CURSOR RIGHT
   1 MOVE CURSOR LEFT
   1 Including patch        by J Sneideris to only allow    Kings on empty files,           from Your Spectrum 16 (Jul.1985)
   1 INVALID ENTRY, PUT CARD BACK
   1 INITIALISE: SET UP PACK
   1 INITIALISATION
   1 GOTO RUN GAME
   1 GOTO END OF GAME
   1 GET A KEY PRESS
   1 FINISH ROUTINE
   1 DISPLAY CONTROLS
   1 CHEAT SUBROUTINE
   1 CAN'T TURN OVER BATCH
   1 ALREADY HOLDING A CARD
   1 ;"HELD CARD :"
   1 ;"DECK CARD : ";
   1 ;"DEALING"
   1 ;"*";i;"*"
   1 ;" CONTROL KEYS ";
   1 ;" CHEAT ";
   1 ;"  WELL DONE  YOU HAVE FINISHED  "
   1 ;"  SHUFFLED  "
   1 ;"  SETTING UP  ";
   1 ;"   but you did ";
   1 ;"   PATIENCE   ";
   1 ;"    PRESS ANY KEY TO SHUFFLE    "
   1 ;"    How about another game ?    "
   1 ;"        ":
   1 ;"         ";
   1 )=nfs+z(fl1,2
   1 ),pp)="  "
   1 ),fl1)="  "
   1 "AA","JK","QL","KM"
   1 " 9 NEXT BATCH OF THREE";
   1 " 6 PUT DOWN","7 PICK UP";
   1 " 5 LEFT","8 RIGHT";
   1 " 4 PICK UP FROM DECK";
   1  A.M.GRANT  ";
   1                                                 C
   1                                                                                                                                                                                                                                                                                                                     
   1