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