*POKER .CODS%=1000% S1%=50% S3% AT(9%,22%)S3% S1%=S1%-S3% I%=1%TO5% I% * * * * * * * * * * * * * * * * * * 4000 AT(19%,18%)A% 4150 F2% 4-50%,64%,1% F1% * J A%=A%+1% 710 D$=INKEY$ 1020 AT(14%,16%)CHR$(153%) POINT(W%,145%)<>1% TH GOSUB 4300 W% 1000 A%=1% F2%=1%TOF1% S%=S%+S3% I%,T% I%,T% T% T% 600 700 J% I% I%=6%TO 10% POINT(W%,145%)<>1% TH GOSUB 4100 W%=W%+48% X%=X%+6% I% * R%=1%TO4% 760 4000 90 STRING$(2%,140%)CHR$(148%)CHR$(158%)CHR$(145%) 2200 D$=INKEY$ 2200 T%=1% T%=2% 710 AT(5%,1%)CHR$(153%) N%=N%+1% T%=1%TO13% I%=1%TO13% T%=1%TO26% L(T%)=2% AND L(I%)=3% GOTO700 T%=1%TO13% I%=1%TO12% L(T%)=2% AND L(T%+I%)=2%GOTO700 T%=1%TO13% L(T%)=3% GOTO700 L(T%)=1%AND L(T%+1%)=1% AND L(T%+2%)=1% AND L(T%+3%)=1% AND L(T%+4%)=1%GOTO565 R%=1%TO4% R%=1%TO4% C(R%)=5% GOTO700 I%=I%+1% I%=1%TO10% I% 490 T%=1%TO13% I%=1% C(R%)=5% GOTO700 R% L(1%)=1% AND L(2%)=1% AND L(3%)=1% AND L(4%)=1% AND L(5%)=1% AND C(R%)=5% GOTO700 R% D$=""GOTO760 T%=P(I%) R%=M(I%) L(26%) AT(2%,5%)" " AT(2%,6%)" " AT(2%,7%)" " AT(2%,8%)" " AT(2%,9%)" " AT(2%,10%)" " CHR$(145%)AT(14%,17%)"D/N"CHR$(146%) D$=INKEY$ D$="D"GOTO65 54 L D$="N" TH ?AT(7%,19%)"-!" C%=2% D100 CHR$(156%)CHR$(146%)AT(9%,15%)" ?" CHR$(147%) AT(14%,16%)" " B9%,22% AT(5%,16%)""AT(6%,19%)""AT(2%,22%)"" CHR$(146%) AT(4%,17%)S% AT(5%,20%)S1% AT(5%,20%)S1% (7%,155%)-(100%,235%),2%,B (7%,180%)-(100%,180%),2% F1%=50%TO1%ST-1% L(T%)=4% GOTO700 (0,0)-(255%,238%),3%,B CHR$(147%)AT(8%,0%)" 1990 &"CHR$(156%) X%=X%+6% D%=2% D%=3% D%=40% D%=10% D%=5% D%=6% D%=100% D%=250% D$=CHR$(32%) AND N%<8%GOTO2290 EL IF D$=CHR$(32%) AND N%>=8% GOTO600 N1%=N1%+1% POINT(W%,145%)<>1% TH GOSUB4300 NC%,0% * N1%,0% L(T%)=0% C(R%)=0% J%=0%TOI%-1% S3%>5%ORS3%=0%ORS3%>S1% GOTO100 POINT(W%,145%)<>1% TH P(I%)=0% POINT(W%,145%)<>1% TH M(I%)=0% POINT(W%,145%)=1% TH P(I%)=0% POINT(W%,145%)=1% TH M(I%)=0% P(I%)<>0%TH L(T%)=L(T%)+1% M(I%)<>0%TH C(R%)=C(R%)+1% N%=>16% TH N%=0% 4-50%,64%,0% R%,T% N1%=200%GOTO2270 C%=0% 1020 I%<6% TH GOSUB 4100 I%<6% TH X%=X%+6% I%=1%TO10% N%<8% TH ?CHR$(145%)CHR$(156%) AT(5%,1%)"DOUBLE"CHR$(146%)AT(27%,1%)S3%*D%*2% CHR$(156%) EL ?AT(5%,1%)CHR$(153%) CHR$(146%) AT(14%,16%)" N?" S%<=0%TH ?AT(14%,16%)" !" CHR$(145%) AT(14%,16%)" !" D$=CHR$(32%) TH ?AT(2%,14%)CHR$(153%)EL IF D$=CHR$(10%)GOTO1200 D$=INKEY$ N1%=0% P(I%)=P(J%) AND M(I%)=M(J%)GOTO250 P(I%)=CINT(RND(1%)*13%+1%) M(I%)=CINT(RND(1%)*4%+1%) P(I%)=14%GOTO250 M(I%)=5%GOTO252 S1%<=0 TH ?CHR$(146%)CHR$(156%)AT(12%,19%)"e ,"AT(14%,21%)" !"CHR$(156%) S%<=0%OR S1%<=0% TH END S1%=S1%+K%+S3% S%=S%-K% C%=2% H%=H%+48% :P(I%) GOSUB 5400,5500,5600,5700,5800,5900,6000,6100,6200,6300,6400,6500,6600 M(I%)<=2% TH COL 1%,0%EL COL 3%,0% :M(I%) GOSUB 5000,5100,5200,5300 A$="" A$="" A$="" A$="" W%=36%TO 228%ST48% W%=36% (8%,40%)-(248%,120%),2%,B AT(X%-1%,4%)"2"AT(X%+3%,12%)"2"AT(X%+1%,5%)A$AT(X%+1%,11%)A$ 4300 AT(X%-1% ,4%)"3"AT(X%+3%,12%)"3"AT(X%+1%,5%)A$AT(X%+1%,8%)A$AT(X%+1%,11%)A$ H%=13% (H%,37%)-(H%+46%,133%),C%,B X%=3% X%=3% X%=3% AT(X%-1%,4%)"10"AT(X%+2%,12%)"10"AT(X%,5%)B$AT(X%+1%,6%)A$AT(X%,7%)B$AT(X%,9%)B$AT(X%+1%,10%)A$AT(X%,11%)B$ AT(X%-1%,4%)"7"AT(X%+3%,12%)"7"AT(X%,5%)B$AT(X%+1%,7%)A$AT(X%,9%)B$AT(X%,11%)B$ AT(X%-1%,4%)"6"AT(X%+3%,12%)"6"AT(X%,5%)B$AT(X%,8%)B$AT(X%,11%)B$ AT(X%-1%,4%)"5"AT(X%+3%,12%)"5"AT(X%,5%)B$AT(X%+1%,8%)A$AT(X%,11%)B$ AT(X%-1%,4%)"4"AT(X%+3%,12%)"4"AT(X%,5%)B$AT(X%,11%)B$ AT(X%-1%,4%)""AT(X%-1%,5%)""AT(X%-1%,6%)""AT(X%-1%,7%)""AT(X%-1%,8%)""AT(X%-1%,9%)""AT(X%-1%,10%)""AT(X%-1%,11%)""AT(X%-1%,12%)"" X%=3%TO27%ST6% X% A%=K%+1% OR A%=S% GOTO740 2295 K%=S3%*D%*T% AT(X%-1%,4%)A$ AT(X%+3%,12%)A$ AT(X%+1%,5%)""AT(X%+1%,6%)""AT(X%+1%,7%)""AT(X%+1%,8%)""AT(X%+1%,9%)""AT(X%+1%,10%)"" AT(X%-1%,4%)A$AT(X%+3%,12%)A$AT(X%+1%,6%)""AT(X%+1%,7%)""AT(X%+1%,8%)""AT(X%+1%,9%)""AT(X%+1%,10%)"" CHR$(146%) AT(2%,7%)CHR$(153%)AT(2%,14%)CHR$(153%)AT(19%,18%)CHR$(153%)AT(5%,1%)CHR$(153%) D$=CHR$(49%)THX1%=28%EL IF D$=CHR$(50%)THX1%=76%EL IF D$=CHR$(51%)THX1%=124%EL IF D$=CHR$(52%)THX1%=172%EL IF D$=CHR$(53%)THX1%=220% X1%<>0%GOTO4200 X1%=0% (X1%,149%)-(X1%+16%,149%),2% -(X1%+8%,140%),2% -(X1%,149%),2% "(X1%+8%,145%),1%,2% B$=A$+" "+A$ AT(X%-1%,4%)A$ AT(X%+3%,12%)A$AT(X%+1%,7%)""AT(X%+1%,8%)""AT(X%+1%,9%)"" AT(X%-1%,4%)A$ AT(X%+3%,12%)A$AT(X%+1%,6%)""AT(X%+1%,7%)"A"AT(X%+1%,8%)"M"AT(X%+1%,9%)"A" AT(X%-1%,4%)"8"AT(X%+3%,12%)"8"AT(X%,5%)B$AT(X%,7%)B$AT(X%,9%)B$AT(X%,11%)B$ AT(X%-1%,4%)"9"AT(X%+3%,12%)"9"AT(X%,5%)B$AT(X%,7%)B$AT(X%+1%,8%)A$AT(X%,9%)B$AT(X%,11%)B$ ,100xX0dV000/y/L6/684/..H.pF. -' --x-}Xv,fDt,{+}+y&+|$+w,*0*u*n*sZ*fP*q~*^|*on*Vl* )) )z)x)\) H)|.)r)h )B)@(>(<(1:(8( 6(,("f("L(5 ((m(i('F'^'>'*''#''/'~'f'V''P  ' &V& x&Dt&} @n&y 4&%% % %m %U%K%Fv%DN%gC4%~A% -%($q#$q$$ $c $ $Gz$'`$J$vB$ :$j&$"$.$$#@D#-:### #"""""|"|j" `"<"."""!!!!!!!T!F!>b*! X&!dN!7 I! D Q ? > >d <\ G :F F 5B _0< +" ( ; & 0 #[!lV PW6.  P    ~rI@r*ZN ( $m"7"ip V.J*c  t ^fLV >Q,Bxn=i d/ Z Pr KXe FL BJe AFa :4S 9g 8H 6" 4 3 2 1p 0\ /H~ .4U - - ,+4*)*( '% #  (