poker  :2;1;4,12 ;" POKER "''''''0;1;" First round is Draw Poker (Aces or better to win)"'''" Second round is High or Low" 9000(# w(f3)=(*f)+1 b(5):z(5):p(5):c(5):credit=100d:v=1:f=2266:c(v)=f:v=v+1:f  162 &1:4:4::7 ,a(524):f=1524:a(f)=f:f  f=513 2credit=credit-bet <<1;" CREDIT `";credit;0,20;" BET `";bet F.x=15:9900&:3000 :x P 301- Z*x=15:m$(x)="n"3000 _x d8000@:430 xcredit=0179 0:4:4 20,8;7;0;1;" YOU HAVE `";credit;" ";21,4;" HOW MUCH WILL YOU BET? ":b$;" ":b$="".1}L,0:163 x=1̱b$ 2b$(x)<"0"b$(x)>"9".1}L,0:163 Ax:bet=b$:bet=0bet>credit.1}L,0:163 :19 4: Cf=30-30-10 :.1}L,f:.2~L,f+5:f i1;7;10 ,9 ;" BROKE AGAIN "'''''''';0;" Q to Quit or any other to Play " ""220 p0:="q"Ŧ="Q"9 :0::10 ,7;" WELL HOW ABOUT A"''" NICE GAME OF LUDO!": 12 1 m$(5) 6n0;3,1;" Use nos.1-5 to DISCARD cards ";4,1;" no.6 to DEAL and Q to RECALL " 7="q"Ŧ="Q"370r Jx=15 Y=x7300 ]x ^="6".03{u\,20: h 3117 rJ.03{u\,20:x=15:m$(x)="n"z(x)=b(x)::3000 |x:  1 o=052413 z(1)>oz(1)oz(2)oz(3)oz(4)oz(5)p(x))(v$="H"p(x-1)13 ff<272:13 ,yy;" ";14,yy;" " Kff>26ff<40(0:13 ,yy;" ";14,yy;" " ?ff>39'0:13 ,yy;" ";14,yy;" " f$="1"f$="A" f$="11"f$="J" f$="12"f$="Q" f$="13"f$="K" V10 ,yy;" ";11 ,yy;" ";f$;" ";12 ,yy;" ";15,yy;" " ,4:11 ,yy+4;"":2  z(x)<14f$=z(x) 2z(x)>13 z(x)<27f$=(z(x)-13 ) 2z(x)>26z(x)<40(f$=(z(x)-26) $z(x)>39'f$=(z(x)-39') 'b(x)=z(x):p(x)=f$:ff=z(x):yy=c(x) H2000: p(q(1)=q(2)-1q(2)=q(3)-1q(3)=q(4)-1q(5)=q(4)+1)(q(1)=1q(2)=10 q(3)=11 q(4)=12 q(5)=13 )6900 zbet=bet*8 U8,13 ;" FLUSH ":f=012 :.1}L,f:f:502:640 VQ8,9 ;" PAIR OF ACES ":f=517:.1}L,f:f:635{ bet=bet*2  8,12 ;" 2 PAIR " 9f=10 22:.1}L,f:f:502:640 bet=bet*40( 8,13 ;" POKER " 9f=1527:.1}L,f:f:502:640 bet=bet*5 8,13 ;" RUN " 9f=2032 :.1}L,f:f:502:640 4q(1)=1q(5)=13 6930 bet=bet*100d  8,13 ;" STRAIGHT " /f=2537%:.1}L,f:f:640 bet=bet*500 #6,13 ;" ROYAL FLUSH " &9f=2739':.1}L,f:f:502:640 Xbet=bet*10 l8,13 ;" HOUSE " v9f=3042*:.1}L,f:f:502:640  bet=bet*3 48,13 ;" PRIDE " >9f=35#47/:.1}L,f:f:502:640 .03{u\,20  m$(x)="n" gg=c(x):9900& &g=10 15:g,gg;"":g L @.q(5):i=15:q(i)=15 ^ j=i5 hp(j)