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

Back to the directory listing

   2 ,yy;"    ";
   1 z(x)=b(x)::
   1 z(x)=a(q):
   1 poker     
   1 p(pp)=p(i)
   1 credit=credit-bet
   1 credit=credit+bet
   1 credit=100
   1 bet>credit
   1 bet=bet*500
   1 bet=bet*40
   1 bet=bet*100
   1 bet=bet*10
   1 b(x)=z(x):
   1 a(q)=a(f+1
   1 ;" no.6 to DEAL and Q to RECALL "
   1 ;" YOU HAVE `";credit;" ";
   1 ;" WINNINGS ";bet;" ":
   1 ;" WINNINGS ";bet;" "
   1 ;" WELL HOW ABOUT A"''"       NICE GAME OF LUDO!":
   1 ;" Use nos.1-5 to DISCARD cards ";
   1 ;" Use ""1"" to go Lower ";
   1 ;" STRAIGHT "
   1 ;" ROYAL FLUSH "
   1 ;" Q to Quit or any other to Play "
   1 ;" PRIDE "
   1 ;" POKER "''''''
   1 ;" POKER "
   1 ;" PAIR OF ACES ":
   1 ;" HOW MUCH WILL YOU BET? ":
   1 ;" HOUSE "
   1 ;" FLUSH ":
   1 ;" CREDIT `";credit;
   1 ;" BROKE AGAIN "'''''''';
   1 ;" BET `";bet
   1 ;" 2 PAIR "
   1 ;" ";v$;" "
   1 ;"   and ""P"" to Stand  "
   1 ;"   ""0"" to go Higher  ";
   1 ;"    First round is Draw Poker        (Aces or better to win)"'''"   Second round is High or Low"
   1 ,yy;" ";f$;"  ";
   1 ,yy;"    "