10 REM****
20 REM* POKER
30 REM* WM V R SMITH
40 REM*  ARTSCI INC
50 REM******
60 CLS
70 PO=100:CU=52
80 DIM C$(15),C(51),E(13)
90 U$=CHR$(30)
100 S$="                "
110 GT$=U$+U$+U$
120 D$=CHR$(31)
130 GB$=D$+D$+D$
140 L$=CHR$(29)
150 TC$="‡……ˆ"
160 BC$="‰……Š"
170 EC$="†ŒŒ†"
180 C$(13)=EC$
190 S$(5)=EC$
200 DATA “,”,’,‘
210 DATA A,2,3,4
220 DATA 5,6,7,8,9
230 DATA 10,J,Q,K
240 FOR X=0 TO 3
250 READ C$
260 S$(X)="† "+C$+"†"
270 NEXT X
280 FOR X=0 TO 12
290 READ C$
300 IF LEN(C$)=1 THEN C$=C$+" "
310 C$(X)="†"+C$+"†"
320 NEXT
330 CLS
340 PRINT:PRINT"** DRAW POKER **"
350   PRINT"     --------"
360 PRINT"**PRESS ANY KEY**";
370 LOCATE 0,0
380 C=52
390 FOR X=1 TO 12
400 CX=X
410 IF INKEY$<>"" THEN 510
420 GOSUB 1640
430 NEXT
440 FOR X=12 TO 1 STEP-1
450 GOSUB1470:C(C)=0
460 CX=X
470 IF INKEY$<>"" THEN 510
480 GOSUB1640
490 NEXTX
500 GOTO 330
510 X=VAL(RIGHT$(TIME$,2))
520 FOR Y=1TO X:A=RND(1):NEXT Y
530 REM******
540 REM* START HERE
550 REM******
560 HD=1
570 GOSUB 2010
580 CLS
590 FOR X=1 TO 5
600 GOSUB1470
610 PC(X)=C
620 DC(X)=C
630 NEXT
640 GOSUB 1320
650 GOSUB 1860
660 IF INKEY$<>"" THEN 660
670 PRINT"YOUR HAND SHOWS:"
680 PRINTS$:PRINTU$;HR$
690 PRINT "SELECT HOLD CARDS"
700 PRINT"I-INSTRUCTIONS";
710 GOSUB 1550
720 IFI$="i" THEN 2250
730 IF I$="I" THEN 2250
740 GOSUB 1950
750 N=1
760 X=(N*4)-4
770 LOCATE0,0
780 LOCATE X,3
790 PRINT"*";
800 GOSUB 1550
810 LOCATE X,3
820 PRINT"‰";
830 IF ASC(I$)=28 THEN N=N+1 :GOTO860
840 IF ASC(I$)=29 THENN=N-1:GOTO860
850 GOTO890
860 IF N=0 THEN N=5
870 IF N=6 THEN N=1
880 GOTO 760
890 IF I$=" " THEN 650
900 IF I$= CHR$(13) THEN 980
910 CX=(N*4)-4
920 IF PC(N)<>52 THEN 940
930 PC(N)=DC(N):C=PC(N):GOTO 950
940 C=52:PC(N)=52
950 GOSUB 1640
960 N=N+1:GOTO860
970 REM
980 REM
990 FOR X=1 TO 5
1000 IF PC(X)<>52 THEN 1030
1010 GOSUB1470
1020 PC(X)=C
1030 NEXT
1040 LOCATE 0,0
1050 GOSUB 1320
1060 GOSUB 1860
1070 PRINT"YOUR HANDS SHOWS:"
1080 PRINT HR$
1090 PRINT"YOU HAVE ";
1100 IF WIN<1 THEN 1140
1110 PO=PO+WIN:PRINT"WON     "
1120 PRINT WIN;"DOLLARS    ";
1130 GOTO 1170
1140 PRINT"LOST    "
1150 PO=PO-BT
1160 PRINT BT;"DOLLARS    ";
1170 GOSUB 1550
1180 GOTO1210
1190 GOSUB 1550
1200 GOTO530
1210 GOSUB 1950:COPY:GOSUB 1860:COPY
1220 LPRINT"YOU HAVE $";PO
1230 GOTO530
1240 M$="":M1$=""
1250 REM*MESSAGE
1260 PRINTU$;U$
1270 PRINTM$
1280 PRINT"             ";U$
1290 PRINTM1$;
1300 RETURN
1310 STOP
1320 REM****
1330 REM* SHOW HAND
1340 REM****
1350  FOR Q=0 TO 13:E(Q)=0:NEXT
1360  PA=0:TR=0:FU=0
1370  FOR Q=0 TO 3: D(Q)=0:NEXT
1380 CX=0:AF=0
1390 FOR X=1 TO 5
1400 C=PC(X)
1410 GOSUB 1640
1420 CX=CX+4
1430 NEXT
1440 LOCATE0,0
1450 GOSUB 2340
1460 RETURN
1470 REM****
1480 REM* PICK A CARD
1490 REM****
1500 C=INT(RND(1)*52)
1510 IF C(C)>0 THEN 1470
1520 C(C)=1
1530 CU=CU+1
1540 RETURN
1550 REM***
1560 REM* WAIT
1570 REM****
1580 T=0
1590 I$=INKEY$
1600 T=T+1:IF T>100 THEN I$=" "
1610 IF I$="" THEN 1590
1620 IF INKEY$<>"" THEN 1620
1630 RETURN
1640 REM*****
1650 REM* DRAW A CARD
1660 REM*****
1670 CY=0
1680 IF C=52 THEN F=13:S=5:GOTO 1740
1690 IF C=53 THEN RETURN
1700 S=INT(C/13)
1710 F=C-(S*13)
1720 E(F)=E(F)+1
1730 D(S)=D(S)+1
1740 GOSUB 1830
1750 PRINTTC$;
1760 GOSUB 1830
1770 PRINT C$(F);
1780 GOSUB 1830
1790 PRINT S$(S);
1800 GOSUB 1830
1810 PRINT BC$;
1820 RETURN
1830 LOCATE CX,CY
1840 CY=CY+1
1850 RETURN
1860 REM****
1870 REM* SCREEN 2
1880 REM****
1890 LOCATE0,0
1900 PRINTGB$
1910 PRINTGB$;
1920 PRINTGT$
1930 PRINTU$;
1940 RETURN
1950 REM****
1960 REM* SCREEN 1
1970 REM****
1980 PRINTGT$:PRINTGT$
1990 PRINTGT$:PRINTGT$
2000 RETURN
2010 REM****
2020 REM* BET
2030 REM****
2040 IF PO=0 THEN 2150
2050 IF CU>40 THEN GOSUB 2200
2060 CLS
2070 PRINT"YOU HAVE $";PO
2080 PRINT
2090 INPUT"YOUR BET ";I$
2100 BT=INT(VAL(I$))
2110 IF BT<1 THEN BT=1
2120 IF BT>PO THEN SOUND 2,2:GOTO2010
2130 CLS
2140 RETURN
2150 CLS
2160 PRINT"YOU'RE ALL OUT"
2170 PRINT"OF MONEY!!"
2180 PRINT"GOOD BYE"
2190 END
2200 CLS
2210 PRINT:PRINT"SHUFFLING"
2220 FOR X=0 TO 51:C(X)=0:NEXT
2230 CU=0
2240 RETURN
2250 REM* INSTR
2260 LOCATE0,4
2270 PRINT"PRESS:         "
2280 PRINT"ARROWS-NEXT CARD"
2290 PRINT"RETURN-NEW  CARD"
2300 PRINT"ANY-THROW AWAY ";
2310 GOSUB 1550
2320 LOCATE0,4
2330 GOTO 670
2340 REM*FIGURE HAND
2350 REM***
2360 FL=0:ST=0:F1=0:PA=0
2370 FOR Q=0 TO 3:IF D(Q)<>5 THEN 2400
2380 REM FLUSH
2390 FL=1:GOTO2490
2400 NEXT Q
2410 FOR Q=0 TO 12:IF E(Q)<2 THEN 2480
2420 IF E(Q)=2 THEN PA=PA+1
2430 IF E(Q)=3 THEN TR=TR+1
2440 IF E(Q)=4 THEN FU=FU+1
2450 IF E(Q)=2 THEN CA=Q
2460 IF E(0)=2 THEN CA=13
2470 F1=1
2480 NEXTQ
2490 E(13)=E(0)
2500 IF F1=1 THEN 2580
2510 FOR Q=0 TO 9
2520 Q2=0
2530 FOR X=0 TO 4
2540 Q2=Q2+E(Q+X)
2550 NEXT
2560 IF Q2=5 THEN ST=1
2570 NEXT
2580 IF ST<>1 THEN 2620
2590 IF FL<>1 THEN 2620
2600 HR$="STRAIGHT FLUSH"
2610 WIN=BT*100:RETURN
2620 IF FU<>1THEN 2650
2630 HR$="FOUR OF A KIND"
2640 WIN=BT*40:RETURN
2650 IF TR <> 1 THEN 2690
2660 IF PA<>1 THEN 2690
2670 HR$="FULL HOUSE    "
2680 WIN=BT*40:RETURN
2690 IF FL<>1 THEN 2720
2700 HR$="FLUSH         "
2710 WIN=BT*7:RETURN
2720 IF ST<>1 THEN2750
2730 HR$="STRAIGHT     "
2740 WIN=BT*5:RETURN
2750 IF TR<>1 THEN 2780
2760 HR$="3 OF A KIND   "
2770 WIN=BT*3:RETURN
2780 IF PA<>2 THEN 2810
2790 HR$="TWO PAIR       "
2800 WIN=BT*2:RETURN
2810 IF PA<>1 THEN 2850
2820 IF CA<=9 THEN 2860
2830 HR$="JACKS OR BETTER"
2840 WIN=BT:RETURN
2850 WIN=0:HR$="NOTHING        ":RETURN
2860 HR$="PAIR     ":RETURN