10 PRINTTAB(25)"DRAW POKER"
 20 FORI=0TO3:S(I)=229+I:NEXTI
 30 DIMA(50),B(15)
 40 PRINT:PRINT:PRINT
 50 DEFFNA(X)=INT(10*RND(1))
 60 DEFFNB(X)=X-100*INT(X/100)
 70 PRINT"WELCOME.WE EACH HAVE $ 500"
 80 PRINT"I WILL OPEN THE BETTING BEFORE THE DRAW;"
 90 PRINT"YOU OPEN AFTER.TO FOLD ENTER '0'"
 100 PRINT"TO CHECK ENTER A .5 BET"
 110 PRINT"ENOUGH. NOW TO BUSINESS"
 120 PRINT:INPUT"READY";Q$
 130 O=1:C=500:S=500
 140 P=0
 150 PRINT
 160 IFC<=5THEN2230
 170 PRINT"THE ANTE IS $ 5.00 I WILL DEAL"
 175 FORY=1TO50:A(Y)=0:NEXTY
 180 IFS>5THEN200
 190 GOSUB2410
 200 P=P+10:S=S-5:C=C-5
 210 FORZ=1TO10:GOSUB1100
 220 NEXTZ
 230 PRINT"YOUR HAND:":LO=53932
 240 FORI=1TO8:PRINT:NEXT
 250 FORZ=1TO5:GOSUB1240:NEXTZ
 260 N=6:I=2:GOSUB1380
 270 IFI<>6THEN360
 280 IFFNA(0)<=7THEN300
 290 X=11100:GOTO340
 300 IFFNA(0)<=7THEN320
 310 X=11110:GOTO340
 320 IFFNA(0)>1THEN350
 330 X=11111
 340 I=7:Z=23:GOTO450
 350 Z=1:GOTO400
 360 IFU>=13THEN420
 370 IFFNA(0)>=2THEN390
 380 GOTO340
 390 Z=0
 400 K=0
 410 PRINT"I CHECK":GOTO470
 420 IFU<=16THEN440
 430 Z=2:IFFNA(0)>=1THEN450
 440 Z=35
 450 V=Z+FNA(0):GOSUB2080
 460 PRINT"I'LL OPEN WITH "V:K=V
 470 GOSUB1760:GOSUB480:GOTO560
 480 IFI<>3THEN530
 490 PRINT"I WIN"
 500 C=C+P
 510 PRINT"NOW I HAVE $"C" AND YOU HAVE $"S
 520 GOTO140
 530 IFI<>4THEN550
 540 PRINT"YOU WIN":S=S+P:GOTO510
 550 RETURN
 560 PRINT:INPUT"HOW MANY CARDS DO YOU WANT";T
 570 IFT=0THEN680
 580 Z=10
 590 IFT<4THEN610
 600 PRINT"YOU CAN'T DRAW MORE THAN THREE CARDS":GOTO560
 610 PRINT
 620 PRINT"DISCARD WHICH CARDS(ONE AT A TIME)":FORQ=1TOT
 625 PRINT"CARD#FROM LEFT TO RIGHT";
 630 INPUTU
 640 IFU>5THENPRINT"ERROR":GOTO630
 650 GOSUB1090:NEXTQ
 660 PRINT"YOUR NEW HAND:":FORI=1TO8:PRINT:NEXTI
 670 LO=53932:FORZ=1TO5:GOSUB1240:NEXTZ
 680 Z=10+T:FORU=6TO10
 690 IFINT(X/10^(U-6))<>10*INT(X/10^(U-5))THEN710 
 700 GOSUB1090
 710 NEXTU
 720 PRINT"I AM TAKING"Z-10-T"CARD";:IFZ=11+TTHEN750 
 730 PRINT"S":PRINT:GOTO760 
 740 GOTO760 
 750 PRINT
 760 N=6:V=I:I=1:GOSUB1380:B=U:M=D:IFV<>7THEN780 
 770 Z=28:GOTO870 
 780 IFI<>6THEN800 
 790 Z=1:GOTO870 
 800 IFU>=13THEN830 
 810 Z=2:IFFNA(0)<>6THEN870 
 820 Z=19:GOTO870
 830 IFU>=16THEN860 
 840 Z=19:IFFNA(0)<>8THEN870 
 850 Z=11:GOTO870 
 860 Z=2
 870 K=0:GOSUB1760:IFT<>.5THEN910 
 880 IFV=7ORI<>6THEN900 
 890 PRINT"I'LL CHECK":GOTO920 
 900 V=Z+FNA(0):GOSUB2080:PRINT"I'LL BET"V:K=V:GOSUB1770
 910 GOSUB480
 920 PRINT"NOW WE COMPARE HANDS":J$=H$:PRINT"MY HAND:":N=6
 930 LO=53932:FORI=1TO8:PRINT:NEXTI
 940 FORZ=NTON+4:GOSUB1240:NEXTZ
 950 N=1:GOSUB1380:PRINT"YOU HAVE ";:K=D:GOSUB2250
 960 H$=J$:K=M:PRINT"AND I HAVE ";:GOSUB2250
 970 M=FNB(M):D=FNB(D)
 980 IFB>UTHEN490
 990 IFU>BTHEN540
 1000 IFU=BANDM>DTHEN490
 1010 IFU=BANDD>MTHEN540
 1020 IFH$="A FLUSH IN"THEN180
 1030 PRINT"THE HAND IS DRAWN"
 1040 PRINT"ALL$"P"REMAINS IN THE POT"
 1050 GOTO150
 1060 IFFNB(M)>FNB(D)THEN490
 1070 IFFNB(D)>FNB(M)THEN540
 1080 GOTO1030
 1090 Z=Z+1
 1100 A(Z)=INT(500*RND(1))
 1110 IFT/3=INT(T/3)THENA(Z)=INT(600*RND(1))
 1120 IFT/2=INT(T/2)THENA(Z)=INT(400*RND(1))
 1130 IFINT(A(Z)/100)>3THEN1100
 1140 IFA(Z)-100*INT(A(Z)/100)>12THEN1100
 1150 IFZ=1THEN1230
 1160 FORK=1TOZ-1:IFA(Z)=A(K)THEN1100
 1170 IFT=2*INT(T/2)THENKK=RND(1)
 1180 IFINT(10*KK)/2=10*KK/2THENKK=RND(1)
 1190 FORYY=0TOINT(7*KK):ZZ=RND(1):NEXTYY
 1200 NEXTK
 1210 IFZ<=10THEN1230
 1220 N=A(U):A(U)=A(Z):A(Z)=N
 1230 RETURN
 1240 FORI=LO+32TOLO+128STEP32:POKEI,32:NEXT
 1245 FORI=LOTOLO+1:POKEI,131:POKEI+160,132:NEXT
 1250 FORI=LO+31TOLO+127STEP32:POKEI,140:POKEI+3,139:NEXT
 1260 POKELO-1,221:POKELO+2,222:POKELO+159,220:POKELO+162,223
 1270 GOSUB1370:POKELO+64,S(IS)
 1280 GOSUB1310:POKELO+32,ASC(MID$(C$,1,1))
 1290 LO=LO+2:RETURN
 1300 PRINT:NEXTZ:PRINT:RETURN
 1310 K=FNB(A(Z))
 1320 IFK<8THENC$=MID$(STR$(K+2),2):RETURN
 1325 IFK=8THENC$="T":RETURN
 1330 IFK=9THENC$="JK":RETURN
 1340 IFK=10THENC$="QU":RETURN
 1350 IFK=11THENC$="KI":RETURN
 1360 IFK=12THENC$="AC":RETURN
 1370 K=INT(A(Z)/100):IS=K:RETURN
 1380 U=0:FORZ=NTON+4:B(Z)=FNB(A(Z)):IFZ=N+4THEN1410
 1390 IFINT(A(Z)/100)<>INT(A(Z+1)/100)THEN1410
 1400 U=U+1
 1410 NEXTZ
 1420 IFU<>4THEN1440
 1430 X=11111:D=A(N):H$="A FLUSH IN":U=15:RETURN
 1440 FORZ=NTON+3:FORK=Z+1TON+4:IFB(Z)<=B(K)THEN1470
 1450 X=A(Z):A(Z)=A(K):B(Z)=B(K):A(K)=X
 1460 B(K)=A(K)-100*INT(A(K)/100)
 1470 NEXTK,Z
 1480 X=0:FORZ=NTON+3:IFB(Z)<>B(Z+1)THEN1500
 1490 X=X+11*10^(Z-N):D=A(Z):GOSUB1650
 1500 NEXTZ:IFX<>0THEN1570
 1510 IFB(N)+3<>B(N+3)THEN1530
 1520 X=1111:U=10
 1530 IFB(N+1)+3<>B(N+4)THEN1570
 1540 IFU<>10THEN1560
 1550 U=14:H$="STRAIGHT ":X=11111:D=A(N+4):RETURN
 1560 U=10:X=11110
 1570 IFU>=10THEN1590
 1580 D=A(N+4):H$="SCHMALTZ ":U=9:X=11000:GOTO1630
 1590 IFU<>10THEN1620
 1600 IFI=1THEN1630
 1610 GOTO1640
 1620 IFU>12ORFNB(D)>6THEN1640
 1630 I=6
 1640 RETURN
 1650 IFU>=11THEN1670
 1660 U=11:H$="A PAIR OF ":RETURN
 1670 IFU<>11THEN1710
 1680 IFB(Z)<>B(Z-1)THEN1700
 1690 H$="THREE ":U=13:RETURN
 1700 H$="TWO PAIR ":U=12:RETURN
 1710 IFU>12THEN1730
 1720 U=16:H$="FULL HOUSE ":RETURN
 1730 IFB(Z)<>B(Z-1)THEN1750
 1740 U=17:H$="FOUR ":RETURN
 1750 U=16:H$="A FULL HOUSE ":RETURN
 1760 G=0
 1770 PRINT:INPUT"WHAT IS YOUR BET";T
 1780 IFT-INT(T)=0THEN1820
 1790 IFK<>0ORG<>0THEN1810
 1800 IFT=.5THEN2020
 1810 PRINT"NO SMALL CHANGE PLEASE":GOTO1770
 1820 IFS-G-T>=0THEN1840
 1830 GOSUB2410:GOTO1770
 1840 IFT<>0THEN1860
 1850 I=3:GOTO2010
 1860 IFG+T>=KTHEN1880
 1870 PRINT"IF YOU CAN'T SEE MY BET,THEN FOLD":GOTO1770
 1880 G=G+T
 1890 IFG=KTHEN2010
 1900 IFZ<>1THEN2030
 1910 IFG>15THEN1940
 1920 IFZ>=2THEN1990
 1930 V=5:GOTO2030
 1940 IFZ=1THEN1960
 1950 IFT<=45THEN1990
 1960 I=4
 1970 PRINT"I FOLD"
 1980 RETURN
 1990 IFZ=2THEN2040
 2000 PRINT"I'LL SEE YOU":K=G
 2010 S=S-G:C=C-K:P=P+G+K
 2020 RETURN
 2030 IFG>3*ZTHEN1990
 2040 V=G-K+FNA(0):GOSUB2080
 2050 IFS-V<0THENV=S:IFV<GTHEN2230
 2060 PRINT"I'LL SEE YOU,AND RAISE YOU"V
 2070 K=G+V:GOTO1770
 2080 IFC-G-V>=0THEN2220
 2090 IFG<>0THEN2110
 2100 V=C:RETURN
 2110 IFC-G<>0THEN2000
 2120 IF(O/2)<>INT(O/2)THEN2170
 2130 PRINT"WANT TO BUY BACK YOUR WATCH FOR $ 50"
 2140 INPUTJ$
 2150 IFMID$(J$,1,1)="N"THEN2170
 2160 C=C+50:O=O/2:RETURN
 2170 IFO/3<>INT(O/3)THEN2230
 2180 PRINT"WANT TO BUY BACK YOUR GULF CLUBS FOR $ 50"
 2190 INPUTJ$
 2200 IFMID$(J$,1,1)="N"THEN2230
 2210 C=C+50:O=O/3:RETURN
 2220 RETURN
 2230 PRINT"I'M BUSTED!"
 2240 END
 2250 PRINTH$;
 2260 IFH$<>"A FLUSH IN"THEN2320
 2270 K=INT(K/100):IFK=0THENPRINT" HEARTS"
 2280 IFK=1THENPRINT" CLUBS"
 2290 IFK=2THENPRINT" SPADES"
 2300 IFK=3THENPRINT" DIAMONDS"
 2310 RETURN
 2320 K=FNB(K):IFK<9THENPRINTK+2;
 2330 IFK=9THENPRINT"JACK";
 2340 IFK=10THENPRINT"QUEEN";
 2350 IFK=11THENPRINT"KING";
 2360 IFK=12THENPRINT"ACE";
 2370 IFH$="SCHMALTZ "THEN2390
 2380 IFH$<>"STRAIGHT "THEN2400
 2390 PRINT " HIGH":RETURN
 2400 PRINT"'S":RETURN
 2410 PRINT
 2420 PRINT"YOU CAN'T BET WITH WHAT YOU HAVEN'T GOT"
 2430 IFO/2=INT(O/2)THEN2550
 2440 PRINT"WOULD YOU LIKE TO SELL YOUR WATCH";
 2450 INPUTJ$
 2460 IFMID$(J$,1,1)="N"THEN2550
 2470 IFFNA(0)>=7THEN2510
 2480 PRINT"I'LL GIVE YOU $ 75 FOR IT"
 2490 S=S+75
 2500 GOTO2530
 2510 PRINT"THAT'S A PRETTY CRUMMY WATCH-I'LL GIVE YOU $ 25"
 2520 S=S+25
 2530 O=O*2
 2540 RETURN
 2550 IFO/3=INT(O/3)THEN2670
 2560 PRINT"WILL YOU PART WITH YOUR GULF CLUBS FOR A $ 100"
 2570 INPUTJ$
 2580 IFMID$(J$,1,1)="N"THEN2660
 2590 IFFNA(0)>=6THEN2630
 2600 PRINT"YOU ARE NOW $ 100 RICHER"
 2610 S=S+100
 2620 GOTO2650
 2630 PRINT"CHEAP CLUBS.YOU ONLY GET $25"
 2640 S=S+25
 2650 O=O*3
 2660 RETURN
 2670 PRINT"YOUR BUSTED!...SO LONG SUCKER"