Compucolor.org – Virtual Media

Listing of file='POKER.BAS;01' on disk='vmedia/chip_53-sector.ccvf'

100 REM  DRAW POKER, 'COMPUTER GAMES', NAHIGIAN & HODGES, 1979
110 REM  ADAPTED TO COMPUCOLOR II MARCH 1981 DONALD R MILLER
120 CLEAR 3000
130 BL$= "                                                              "
140 OUT 8,255:OUT 8,247
150 PLOT 6,2,12,27,24,15
160 GOSUB 3710
170 REM  VARIABLE LIST
180 REM    A9=TOTAL AMOUNT IN POOL
190 REM     B=AMOUNT OF MONEY BID BY PLAYER
200 REM    B1=AMOUNT OF MONEY BID BY COMPUTER
210 REM    B9=DOLLAR LIMIT FOR COMPUTER BEFORE IT DECIDES TO 'GO OUT'
220 REM     C=TYPE OF CARD
230 REM    C1=RANK OF COMPUTER'S HAND
240 REM    C2=COMPUTER'S HIGH CARD
250 REM   C()=TYPE OF CARD HELD BY COMPUTER (BY CARD NUMBER)
260 REM  C1()=SUIT OF CARD HELD BY COMPUTER (BY CARD NUMBER)
270 REM  C9()=NUMBER OF CARDS IN HAND OF A PARTICULAR SUIT
280 REM    H8=NUMBER OF CARDS COMPUTER WILL REPLACE
290 REM    H9=HIGH CARD IN CURRENT HAND
300 REM    K9=NUMBER OF CARDS PLAYER REPLACED
310 REM   M()=TYPE OF CARD HELD BY PLAYER (BY CARD NUMBER)
320 REM  M1()=SUIT OF CARD HELD BY PLAYER (BY CARD NUMBER)
330 REM    P1=RANK OF PLAYER'S HAND
340 REM    P2=PLAYER'S HIGH CARD
350 REM    P9=AMOUNT OF MONEY OWNED BY PLAYER
360 REM     S=SUIT OF CARD
370 REM   S()=CARDS PICKED FROM DECK
380 REM     T=RANK OF CURRENT HAND
390 REM    T9=CARD NUMBER PICKED BY PLAYER TO REPLACE
400 REM   T()=NUMBER OF CARDS IN HAND OF A PARTICULAR KIND
410 S= PEEK (33209):FOR I= 0TO S:B= RND (1):NEXT I
420 GOTO 440
430 OUT 8,255:PLOT 27,11,15,6,2:END
440 DIM T(13),C9(4),S(4,13),M(5),M1(5),C(5),C1(5)
450 P1$= "       "
460 P9= 100
470 FOR X= 1TO 4
480 FOR I= 1TO 13
490 S(X,I)= 0
500 NEXT I
510 NEXT X
520 REM
530 A9= 5
540 O8= 2* A9
550 PLOT 6,7,14,3,0,31,11
560 PRINT "ANTE OF $ 5.   YOU HAVE $";P9
570 FOR Q= 0TO 500:NEXT Q
580 GOSUB 5310
590 O6= P9- A9:GOSUB 5170
600 FOR X= 1TO 5
610 GOSUB 3150
620 M(X)= C
630 M1(X)= S
640 NEXT X
650 GOSUB 3490
660 REM
670 PLOT 6,2,14,3,0,31,11
680 FOR X= 1TO 5
690 GOSUB 3150
700 C(X)= C
710 C1(X)= S
720 NEXT X
730 GOSUB 3630
740 C1= T
750 C2= H9
760 P1= - 5
770 BC$= "%"
780 PLOT 6,38,15:Y9= 2
790 FOR X9= 12TO 36STEP 6:BC$= "%":GOSUB 6050:NEXT X9
800 OUT 8,255
810 PLOT 6,3,14,3,0,31,11
820 INPUT "OPEN WITH BET OF $ ";B
830 OUT 8,247:PLOT 3,0,31,11
840 IF B= - 9THEN GOSUB 5630:GOTO 800
850 IF B< 0THEN 800
860 O6= P9- (A9+ B):GOSUB 5170
870 IF RND (1)< .2THEN 890
880 IF INT (((T* RND (1))+ 1)+ ((H9* RND (1))+ 1)+ (T* 10))< B- (B/ 10)THEN 1630
890 A9= A9+ B
900 O8= O8+ B:GOSUB 5310
910 PLOT 6,4,14,3,0,31,11
920 PRINT "I'LL ACCEPT."
930 O8= O8+ B:GOSUB 5310
940 FOR I= 0TO 1000:NEXT I
950 OUT 8,255
960 PLOT 6,3,14,3,0,31,11
970 INPUT "HOW MANY CARDS TO REPLACE (0-4) ? ";K9
980 OUT 8,247:PLOT 3,0,31,11
990 IF K9= 0THEN 1150
1000 FOR X= 1TO K9
1010 OUT 8,255
1020 PLOT 6,3,14,3,0,31,11
1030 INPUT "REPLACE CARD # ";T9
1040 OUT 8,247:PLOT 3,0,31,11
1050 GOSUB 3150
1060 IF T9< 6THEN 1110
1070 PLOT 6,1,14,3,0,31,11
1080 PRINT "ENTER CARD NUMBER FROM 1 TO 5."
1090 FOR Q= 1TO 1000:NEXT Q
1100 PLOT 3,0,31,11:GOTO 1010
1110 M(T9)= C
1120 M1(T9)= S
1130 NEXT X
1140 GOSUB 3490
1150 GOSUB 3570
1160 FOR X= 1TO 5
1170 T(M(X))= T(M(X))+ 1
1180 C9(M1(X))= C9(M1(X))+ 1
1190 NEXT X
1200 GOSUB 2370
1210 P1= T
1220 GOSUB 2830
1230 P2= H9
1240 GOSUB 3630
1250 H9= 0
1260 IF T> 3THEN 1350
1270 FOR Z= 1TO 5
1280 IF H9= 3THEN 1340
1290 IF T(C(Z))< > 1THEN 1340
1300 H9= H9+ 1
1310 GOSUB 3150
1320 C(Z)= C
1330 C1(Z)= S
1340 NEXT Z
1350 PLOT 6,4,14,3,0,31,11
1360 PRINT "I'LL TAKE ";H9;" CARDS."
1370 Y9= 2:FOR X9= 12TO H9* 6+ 6STEP 6:GOSUB 6140:NEXT X9
1380 Y9= 2:PLOT 6,38:FOR X9= 12TO H9* 6+ 6STEP 6:BC$= "%":GOSUB 6050:NEXT X9
1390 H8= H9
1400 GOSUB 3630
1410 C1= T
1420 GOSUB 2830
1430 C2= H9
1440 B9= INT ((C1* RND (1))+ (C2* RND (1))+ (C1* 10))+ INT (A9/ 3)+ ((K9- H8)* 2)+ 7
1450 B1= 0
1460 IF RND (1)< C1* .5THEN 1480
1470 B9= 99.99
1480 OUT 8,255
1490 PLOT 6,3,14,3,0,31,11
1500 INPUT "HOW MUCH DO YOU BET ? ";B
1510 OUT 8,247:PLOT 3,0,31,11
1520 IF B= - 9THEN GOSUB 5630:GOTO 1480
1530 IF B< 0THEN 2100
1540 O8= O8+ B:GOSUB 5310
1550 A9= A9+ B1
1560 O6= O6- (B+ B1):GOSUB 5170
1570 IF B< > 0THEN 1600
1580 GOSUB 1820
1590 GOTO 2010
1600 IF A9+ B< B9THEN 1750
1610 IF A9+ B< B9+ (B9/ 2)THEN 1680
1620 IF B9= 99.99THEN 1680
1630 PLOT 6,4,14,3,0,31,11
1640 PRINT "I'M OUT !!"
1650 FOR Q= 1TO 1000:NEXT Q
1660 GOSUB 1820
1670 GOTO 2140
1680 PLOT 6,4,14,3,0,31,11
1690 PRINT "I CALL  !!"
1700 O8= O8+ B:GOSUB 5310
1710 FOR Q= 1TO 1000:NEXT Q
1720 A9= A9+ B
1730 GOSUB 1820
1740 GOTO 2010
1750 B1= INT (((B9- A9)/ 3)* RND (1))+ 2
1760 A9= A9+ B
1770 PLOT 6,4,14,3,0,31,11
1780 PRINT "I RAISE ";B1
1790 O8= O8+ B+ B1:GOSUB 5310
1800 FOR Q= 1TO 1000:NEXT Q
1810 GOTO 1480
1820 GOSUB 5450
1830 PLOT 6,4,14,3,0,31,11:PRINT "I HAD ";:T= C1
1840 GOSUB 2860
1850 PRINT "WITH A HIGH CARD OF ";
1860 C= C2
1870 GOSUB 3200
1880 PRINT "."
1890 FOR Q= 1TO 500:NEXT Q
1900 IF P1= - 5THEN 2000
1910 PLOT 6,3,14,3,0,31,11
1920 PRINT "YOU HAD ";
1930 T= P1
1940 GOSUB 2860
1950 PRINT "WITH A HIGH CARD OF ";
1960 C= P2
1970 GOSUB 3200
1980 PRINT "."
1990 FOR Q= 1TO 500:NEXT Q
2000 RETURN
2010 IF C1= P1THEN 2040
2020 IF C1< P1THEN 2140
2030 GOTO 2100
2040 IF C2= P2THEN 2070
2050 IF C2< P2THEN 2140
2060 GOTO 2100
2070 PLOT 6,7,14,3,0,31,11
2080 PRINT "IT WAS A TIE !!!!!!"
2090 GOTO 2170
2100 PLOT 6,7,14,3,0,31,11
2110 PRINT "I WON $";A9
2120 P9= P9- A9
2130 GOTO 2165
2140 PLOT 6,7,14,3,0,31,11
2150 PRINT "YOU WON $";A9
2160 P9= P9+ A9
2165 O8= 0:GOSUB 5310
2166 O6= P9:GOSUB 5170
2170 FOR Y9= 2TO 21STEP 19:FOR X9= 12TO 36STEP 6:GOSUB 6140:NEXT X9:NEXT Y9
2180 GOSUB 5170
2190 PLOT 6,5,14,3,0,31,11:OUT 8,255
2200 INPUT "DO YOU WANT TO PLAY AGAIN (Y/N) ? ";Q$
2210 OUT 8,247:PLOT 3,0,31,11
2220 IF LEFT$ (Q$,1)< > "Y"THEN 2240
2230 GOTO 470
2240 IF P9< 0THEN 2340
2250 IF P9> = 100THEN 2310
2260 PLOT 6,6,14,3,0,31,11
2270 PRINT "YOU LEFT LOSING $";100- P9
2280 OUT 8,255
2290 PLOT 6,2,15,27,11
2300 LOAD "MENU":RUN
2310 PLOT 6,6,14,3,0,31,11
2320 PRINT "YOU LEFT WINNING $";P9
2330 GOTO 2280
2340 PLOT 6,1,14,3,0,31,11
2350 PRINT "YOU OWE ME $";- P9
2360 GOTO 2280
2370 T= 0
2380 FOR I= 1TO 4
2390 IF C9(I)< > 5THEN 2410
2400 T= 5
2410 NEXT I
2420 I= 2
2430 H9= 0
2440 I= I- 1
2450 IF I< > 0THEN 2470
2460 I= 13
2470 IF T(I)< 1THEN 2440
2480 H9= I
2490 IF I< > 1THEN 2510
2500 I= 14
2510 Z= I- 14
2520 I= I- 1
2530 IF T(I)< > 1THEN 2590
2540 IF Z< > ITHEN 2520
2550 T= T+ 4
2560 IF Z< > 10THEN 2590
2570 IF T= 4THEN 2590
2580 T= T+ 1
2590 IF I= 13THEN 2440
2600 IF T< > 5THEN 2630
2610 IF T(1)< > 1THEN 2630
2620 H9= 1
2630 IF T= 0THEN 2650
2640 RETURN
2650 FOR I= 1TO 13
2660 IF T(I)< > 4THEN 2680
2670 T= 7
2680 IF T(I)< > 3THEN 2710
2690 T= T+ 5
2700 H9= I
2710 IF T(I)< > 2THEN 2790
2720 IF T= 5THEN 2780
2730 IF T< > 0THEN 2750
2740 H9= 0
2750 IF H9= 1THEN 2780
2760 IF H9> ITHEN 2780
2770 H9= I
2780 T= T+ 1
2790 NEXT I
2800 IF T< > 5THEN 2850
2810 T= 3
2820 RETURN
2830 IF H9< > 1THEN 2850
2840 H9= 14
2850 RETURN
2860 IF T< > 0THEN 2890
2870 PRINT "NOTHING ";
2880 RETURN
2890 IF T< > 1THEN 2920
2900 PRINT "ONE PAIR ";
2910 RETURN
2920 IF T< > 2THEN 2950
2930 PRINT "TWO PAIR ";
2940 RETURN
2950 IF T< > 3THEN 2980
2960 PRINT "THREE OF A KIND ";
2970 RETURN
2980 IF T< > 4THEN 3010
2990 PRINT "STRAIGHT ";
3000 RETURN
3010 IF T< > 5THEN 3040
3020 PRINT "FLUSH ";
3030 RETURN
3040 IF T< > 6THEN 3070
3050 PRINT "FULL HOUSE ";
3060 RETURN
3070 IF T< > 7THEN 3100
3080 PRINT "FOUR OF A KIND ";
3090 RETURN
3100 IF T< > 8THEN 3130
3110 PRINT "STRAIGHT FLUSH ";
3120 RETURN
3130 PRINT "ROYAL FLUSH !!!"
3140 RETURN
3150 S= INT (4* RND (1)+ 1)
3160 C= INT (13* RND (1)+ 1)
3170 IF S(S,C)= 1THEN 3150
3180 S(S,C)= 1
3190 RETURN
3200 IF C< > 1THEN 3230
3210 PRINT "ACE ";
3220 RETURN
3230 IF C< > 11THEN 3260
3240 PRINT "JACK ";
3250 RETURN
3260 IF C< > 12THEN 3290
3270 PRINT "QUEEN ";
3280 RETURN
3290 IF C< > 13THEN 3320
3300 PRINT "KING ";
3310 RETURN
3320 IF C< > 14THEN 3350
3330 PRINT "ACE ";
3340 RETURN
3350 PRINT C;
3360 PRINT " ";
3370 RETURN
3380 IF S< > 1THEN 3410
3390 PRINT "OF HEARTS."
3400 RETURN
3410 IF S< > 2THEN 3440
3420 PRINT "OF SPADES."
3430 RETURN
3440 IF S< > 3THEN 3470
3450 PRINT "OF DIAMONDS."
3460 RETURN
3470 PRINT "OF CLUBS."
3480 RETURN
3490 PLOT 6,3,14,3,0,31,11
3500 PRINT "HERE IS YOUR HAND:"
3510 FOR X= 1TO 5
3520 C= M(X)
3530 S= M1(X)
3540 GOSUB 4960
3550 NEXT X
3560 RETURN
3570 FOR X= 1TO 4
3580 C9(X)= 0
3590 NEXT X
3600 FOR X= 1TO 13
3610 T(X)= 0
3620 NEXT X:RETURN
3630 GOSUB 3570
3640 FOR X= 1TO 5
3650 T(C(X))= T(C(X))+ 1
3660 C9(C1(X))= C9(C1(X))+ 1
3670 NEXT X
3680 GOSUB 2370
3690 RETURN
3700 OUT 8,255:PLOT 6,2,15,27,11:END
3710 REM  BUILD SCREEN
3720 PLOT 6,6,15
3730 PLOT 2,0,8,242,0,127,127,127,127,8,0,8,255
3740 PLOT 6,14,14
3750 PLOT 3,1,3
3760 PRINT "  D R A W  "
3770 PLOT 3,1,5
3780 PRINT " P O K E R "
3790 PLOT 6,7,15
3800 PLOT 3,12,1
3810 PRINT "*......COMPUTER'S HAND......*"
3820 PLOT 6,6,15
3830 PLOT 3,14,28
3840 PRINT "1     2     3     4     5"
3850 PLOT 6,3,15
3860 PLOT 6,3
3870 PLOT 3,1,27
3880 PRINT "CASH=  100"
3890 PLOT 6,1,15
3900 PLOT 3,2,22
3910 PRINT "POT=    0"
3920 PLOT 6,7
3930 PLOT 2,13,15,242,13,20,22,20,22,15,13,15,255
3940 PLOT 2,13,35,242,13,40,22,40,22,35,13,35,255
3950 FOR Y9= 2TO 21STEP 19
3960 FOR X9= 12TO 36STEP 6
3970 GOSUB 6140
3980 NEXT X9,Y9
3990 PLOT 6,3,14,3,0,31,11
4000 OUT 8,255
4010 INPUT "DO YOU WANT INSTRUCTIONS (Y/N) ? ";Q$
4020 OUT 8,247
4030 PLOT 6,2,14,3,0,31,11
4040 IF LEFT$ (Q$,1)< > "Y"THEN 4060
4050 GOSUB 4590
4060 REM
4070 PLOT 6,2,15
4080 PLOT 3,1,9
4090 PRINT "NO. OF   ODDS"
4100 PLOT 3,1,10
4110 PRINT "COMBOS (HANDS) RANK OF HANDS"
4120 PLOT 3,1,11
4130 PRINT "     4  649740 1.ROYAL FLUSH-ACE HIGH STRAIGHT FLUSH."
4140 PLOT 3,1,12
4150 PRINT "    36   72193 2.STRAIGHT FLUSH-5 CONSECUTIVE CARDS SAME SUIT"
4160 PLOT 3,1,13
4170 PRINT "   624    4165 3.FOUR OF A KIND-4 CARDS OF SAME RANK"
4180 PLOT 3,1,14
4190 PRINT "  3744     694 4.FULL HOUSE-3 CARDS 1 RANK & 2 CARDS DIF RANK"
4200 PLOT 3,1,15
4210 PRINT "  5108     509 5.FLUSH-5 CARDS OF SAME SUIT"
4220 PLOT 3,1,16
4230 PRINT " 10200     255 6.STRAIGHT-5 CONSECUTIVE CARDS,2 OR MORE SUITS"
4240 PLOT 3,1,17
4250 PRINT " 54912      47 7.THREE OF A KIND-3 CARDS OF SAME RANK"
4260 PLOT 3,1,18
4270 PRINT "123552      21 8.TWO PAIRS-2 CARDS 1 RANK & 2 CARDS DIF RANK"
4280 PLOT 3,1,19
4290 PRINT ">MILL.       2 9.ONE PAIR-2 CARDS OF SAME RANK (3 UNMATCHED)"
4300 PLOT 6,7,15
4310 PLOT 2,87,91,242,87,120,122,120,122,91,87,91,255
4320 PLOT 6,3
4330 PLOT 3,46,2
4340 PRINT "RANK OF CARDS"
4350 PLOT 6,1,3,44,3
4360 PRINT "eeeeeeeeeeeeeeeee"
4370 PLOT 6,2
4380 PLOT 3,44,4
4390 PRINT "A(HIGH),K,Q,J,10,"
4400 PLOT 3,44,6
4410 PRINT "9,8,7,6,5,4,3,2,"
4420 PLOT 3,44,8
4430 PRINT "A (E.G.5-4-3-2-A)"
4440 PLOT 6,6,15
4450 PLOT 2,87,15,242,87,40,122,40,122,15,87,15,255
4460 PLOT 6,3,3,49,22
4470 PRINT "BETTING"
4480 PLOT 6,1,3,44,23
4490 PRINT "eeeeeeeeeeeeeeeee"
4500 PLOT 6,2,3,44,24
4510 PRINT "ANTE IS $ 5."
4520 PLOT 3,44,25
4530 PRINT "BET $ 0 TO CALL"
4540 PLOT 3,44,26
4550 PRINT "BET $-1 TO GO OUT"
4560 PLOT 3,44,27
4570 PRINT "BET $-9 CLEAR OUT"
4580 RETURN
4590 REM  INSTRUCTIONS
4600 PLOT 6,3,15
4610 PLOT 3,2,9
4620 PRINT "YOU AND THE COMPUTER PLAY 'DRAW POKER' AGAINST EACH OTHER."
4630 PLOT 3,2,10
4640 PRINT "YOU BOTH HAVE $100 TO START THE GAME.  THE CARDS ARE SHUFFLED"
4650 PLOT 3,2,11
4660 PRINT "AND YOUR HAND AND THE COMPUTER'S HAND ARE DEALT. THE COMPUTER"
4670 PLOT 3,2,12
4680 PRINT "DEALS YOU 5 CARDS.  UPON COMPLETION OF THE DEAL THE BETTING"
4690 PLOT 3,2,13
4700 PRINT "BEGINS.  YOU OPEN WITH YOUR FIRST BID, BETTING ACCORDING TO"
4710 PLOT 3,2,14
4720 PRINT "WHAT YOU HAVE TO START WITH IN YOUR HAND.  THE COMPUTER AND"
4730 PLOT 3,2,15
4740 PRINT "YOU BOTH MAY DISCARD 1 OR MORE CARDS (BUT NOT MORE THAN 4)"
4750 PLOT 3,2,16
4760 PRINT "AND RECEIVE NEW CARDS FROM THE UNDEALT PORTION OF THE CARD"
4770 PLOT 3,2,17
4780 PRINT "PACK.  THIS IS THE 'DRAW'.  YOU MAY STAND PAT AND DRAW NO"
4790 PLOT 3,2,18
4800 PRINT "CARDS IF YOU WISH.  AFTER THE DRAW, THERE IS ANOTHER BETTING"
4810 PLOT 3,2,19
4820 PRINT "ROUND, FOLLOWED EITHER BY YOU OR THE COMPUTER 'CALLING' FOR"
4830 PLOT 3,2,20
4840 PRINT "THE OTHER TO SHOW HIS HAND.  GOOD LUCK !"
4850 PLOT 6,3,14,3,0,31,11
4860 OUT 8,255
4870 INPUT "HIT ENTER TO BEGIN THE GAME AND ERASE THE INSTRUCTIONS.";Q$
4880 OUT 8,247
4890 PLOT 3,0,31,11
4900 PLOT 6,2,15
4910 FOR Y= 9TO 20
4920 PLOT 3,1,Y
4930 PRINT BL$
4940 NEXT Y
4950 RETURN
4960 REM  CONVERT POKER SUIT 1-4 TO CARD DRAW SUIT 1-4
4970 X1= X
4980 C9= C1
4990 C8= C2
5000 IF S= 1THEN S1= 3:GOTO 5050
5010 IF S= 2THEN S1= 1:GOTO 5050
5020 IF S= 3THEN S1= 2:GOTO 5050
5030 IF S= 4THEN S1= 4:GOTO 5050
5040 END
5050 REM  SUIT RIGHT, NOW GET X
5060 IF X= 14THEN X= 1
5070 X= C+ 13* (S1- 1)
5080 REM  CONVERT CARD LOCATION TO X9 AND Y9
5090 Y9= 21
5100 PLOT 6,6,15
5110 X9= 6+ X1* 6
5120 GOSUB 5740
5130 X= X1
5140 C1= C9
5150 C2= C8
5160 RETURN
5170 REM  POST PLAYER CASH POSITION
5180 O7= P9:P9= O6
5190 PLOT 6,2,15
5200 IF P9> 999THEN O1= 4:GOTO 5300
5210 IF P9> 99THEN O1= 3:GOTO 5300
5220 IF P9> 9THEN O1= 2:GOTO 5300
5230 O1= 1
5240 PLOT 3,7,27
5250 PRINT "    "
5260 PLOT 3,7,27
5270 PRINT RIGHT$ ((STR$ (P9)),O1)
5280 P9= O7
5290 RETURN
5300 GOTO 5240
5310 REM  POST POT CASH POSITION
5320 O9= A9:A9= O8
5330 PLOT 6,2,15
5340 IF A9> 999THEN O1= 4:GOTO 5380
5350 IF A9> 99THEN O1= 3:GOTO 5380
5360 IF A9> 9THEN O1= 2:GOTO 5380
5370 O1= 1
5380 PLOT 3,7,22
5390 PRINT "    "
5400 PLOT 3,7,22
5410 PRINT RIGHT$ ((STR$ (A9)),O1)
5420 A9= O9
5430 RETURN
5440 REM  POST COMPUTER CASH POSITION
5450 REM  TURN OVER COMPUTER'S CARDS
5460 O4= C1:O5= C2
5470 FOR I= 1TO 5
5480 C= C(I)
5490 S= C1(I)
5500 IF S= 1THEN S1= 3:GOTO 5550
5510 IF S= 2THEN S1= 1:GOTO 5550
5520 IF S= 3THEN S1= 2:GOTO 5550
5530 IF S= 4THEN S1= 4:GOTO 5550
5540 END
5550 IF C= 14THEN C= 1
5560 X= C+ 13* (S1- 1)
5570 Y9= 2
5580 X9= 6+ I* 6
5590 GOSUB 5740
5600 NEXT I
5610 C1= O4:C2= O5
5620 RETURN
5630 REM  BLANK OUT ODDS, ETC IN CENTER
5640 PLOT 6,2,15
5650 FOR Q2= 9TO 20
5660 PLOT 3,1,Q2
5670 PRINT BL$
5680 NEXT Q2
5690 PLOT 6,7,15
5700 PLOT 2,87,91,242,122,91,255
5710 RETURN
5720 RETURN
5730 REM  DRAW CARD AT X9,Y9, FROM X(1-52)
5740 C1= 56:C2= 57
5750 PLOT 15
5760 IF X> 39THEN Q= X- 39:P$= "c":PLOT 6,C1:GOTO 5810
5770 IF X> 26THEN Q= X- 26:P$= "h":PLOT 6,C2:GOTO 5810
5780 IF X> 13THEN Q= X- 13:P$= "d":PLOT 6,C2:GOTO 5810
5790 Q= X:P$= "s":PLOT 6,C1
5800 IF X= 0THEN RETURN
5810 PLOT 27,10:FOR II= 0TO 4:PLOT 3,X9+ II,Y9:PRINT P1$:NEXT II
5820 IF Q> 9THEN 5890
5830 IF Q> 5THEN 5900
5840 IF Q> 3THEN 5910
5850 IF Q= 1OR Q= 5OR Q= 7THEN 5920
5860 IF Q= 2OR Q= 8THEN 5930
5870 IF Q= 3OR Q= 9OR Q> 10THEN 5940
5880 GOTO 5950
5890 PLOT 3,X9+ 1,Y9+ 1:PRINT P$;P$;P$;P$;P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$;P$;P$;P$;P$:GOTO 5870
5900 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$" "P$:GOTO 5850
5910 PLOT 3,X9+ 1,Y9+ 1:PRINT P$"   "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$"   "P$:GOTO 5850
5920 PLOT 3,X9+ 2,Y9+ 3:PRINT P$:GOTO 5950
5930 PLOT 3,X9+ 2,Y9+ 2:PRINT P$" "P$:GOTO 5950
5940 PLOT 3,X9+ 2,Y9+ 1:PRINT P$" "P$" "P$
5950 IF Q= 1THEN PLOT 3,X9,Y9:PRINT "A":PLOT 3,X9+ 4,Y9+ 6:PRINT "A":GOTO 6040
5960 IF Q> 9THEN 5980
5970 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),1):PLOT 3,X9+ 4,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),1):GOTO 6040
5980 PLOT 27,24:IF Q> 10THEN 6000
5990 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),2):PLOT 3,X9+ 3,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),2):GOTO 6040
6000 IF Q= 11THEN CD$= "J":GOTO 6030
6010 IF Q= 12THEN CD$= "Q":GOTO 6030
6020 CD$= "K"
6030 PLOT 3,X9,Y9:PRINT CD$:PLOT 3,X9+ 4,Y9+ 6:PRINT CD$:PLOT 3,X9+ 2,Y9+ 3:PRINT CD$
6040 PLOT 27,24,3,64,0:RETURN
6050 REM  DRAW BACK OF CARD FROM X9,Y9,BC$(PATTERN)
6060 PLOT 15
6070 BC$= BC$+ BC$+ BC$+ BC$+ BC$
6080 FOR I= 0TO 6
6090 PLOT 3,X9,Y9+ I
6100 PRINT BC$
6110 NEXT I
6120 PLOT 3,64,0
6130 RETURN
6140 REM  DRAW BLUE BORDER AROUND EMPTY CARD FROM X9,Y9
6150 PLOT 6,4,15
6160 BC$= " "
6170 GOSUB 6050
6180 PLOT 3,X9,Y9:PRINT "neeeo"
6190 PLOT 3,X9,Y9+ 6:PRINT "lm"
6200 PLOT 27,10
6210 PLOT 3,X9,Y9+ 1:PRINT "aaaaa"
6220 PLOT 3,X9+ 4,Y9+ 1:PRINT "bbbbb":PLOT 27,24
6230 PLOT 3,64,0
6240 RETURN
6250 END