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

Back to the directory listing

   3 j(i)=j(i+1
   2 h(t,d)=c(n)*10
   2 (b$(i))+v),10
   1 win=stake*o(x(2
   1 win=stake*o(x(1
   1 v,c;h$(x(d))
   1 temp=temp+1
   1 temp=h(t,d)
   1 temp=h(i,d)
   1 t(k(i))=t(k(i))+1
   1 s=temp-r*10
   1 r$="Queen"
   1 poker     Y!
   1 odds=o(x(2
   1 odds=o(x(1
   1 k(i)=h(i,d)-j(i)*10
   1 j(i)=j(i+2
   1 h(t,d)>h(t+1
   1 h(t,d)=h(t+1
   1 h(i,d)=h(i,d)*10
   1 clubs   diamondshearts  spades  
   1 b$(t)>b$(t+1
   1 b$(t)=b$(t+1
   1 amt=amt-win
   1 amt=amt-stake
   1 amt=amt+win+stake
   1 amt=amt+stake
   1 Swap numbers
   1 Swap cards
   1 Straight flushFours         Full-house    Flush         Straight      Threes        Two pairs     One pair      
   1 Straight flush
   1 Sort hand D
   1 Return rank
   1 Print score   
   1 Print results
   1 Full-house
   1 Compute cards to change
   1 Change cards b$
   1 Analyse hands
   1 Analyse hand D
   1 Analyse computer hand
   1 ;r$;" of ";s$(s):
   1 ;r$;" of ";s$(s)
   1 ;r$;" High";
   1 ;"`";stake;" at ";odds;" to 1 = `";win;" +","`";stake;" stake = ";"`";win+stake
   1 ;"Your hand:";
   1 ;"You win ";
   1 ;"You lose ";
   1 ;"You have NO money - Game Over":
   1 ;"Sorry - The maximum bid is `";m:
   1 ;"OK, game over":
   1 ;"My hand:                        "
   1 ;"Invalid reply - Try again":
   1 ;"Enter numbers of cards to change";
   1 ;"Bet now - Maximum stake: `";m
   1 ;"                 "
   1 +temp-h(i,d)*10
   1 )="spades"
   1 )="hearts":
   1 )="diamonds":
   1 )="clubs":
   1 )="Two pairs":
   1 )="Threes":
   1 )="Straight":
   1 )="Straight flush":
   1 )="One pair"
   1 )="Full-house":
   1 )="Fours":
   1 )="Flush":
   1 (h(i,d)/100
   1 (h(i,d)/10
   1 "You are `";amt;" in credit";
   1 "I change none":
   1 "I change cards ";b:
   1 "I change card ";b:
   1 "Enter '0' for another deal";
   1 "Draw - Your money returned":
   1  David Lamb
   1