Compucolor.org – Virtual Media

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

100 REM KY 		EUCHRE
110 REM 	     V5/14/80 RHT
120 REM    COPYRIGHT(C) 1980 BY COMPUCOLOR
130 REM 	WRITTEN BY D.R.MILLER

140 PLOT 6,2,12,27,24,15,3,64,0
150 CLEAR 250
160 GOTO 180
170 PLOT 3,64,0:FOR JJ= 0TO 250:NEXT JJ:RETURN
180 S1$= "1      2      3      4      5"
190 S2$= "b  a b a"
200 S3$= "1234567890"
210 S4$(1)= "s":S4$(2)= "d":S4$(3)= "h":S4$(4)= "c"
220 DIM DK(11),KD(52),DH(24)
230 DH(1)= 1:FOR I= 9TO 14:DH(I- 7)= I:NEXT :DH(8)= 22:DH(9)= 23
240 DH(10)= 24:DH(11)= 25:DH(12)= 26:DH(13)= 27:DH(14)= 35:DH(15)= 36:DH(16)= 37:DH(17)= 38
250 DH(18)= 39:DH(19)= 40:DH(20)= 48:DH(21)= 49:DH(22)= 50:DH(23)= 51:DH(24)= 52
260 A= PEEK (33209):FOR B= 0TO A:C= RND (1):NEXT B
270 PLOT 6,4,2,0,0,242,0,127,127,127,127,0,0,0,255
280 GOSUB 470
290 IF INT (2* RND (1)+ 1)= 1THEN 6120
300 GOSUB 2070:PLOT 6,1,14,3,22,13
310 PRINT "TO DEAL, HIT RETURN"
320 POKE 33278,0
330 PLOT 3,64,0:I= RND (1)
340 IF PEEK (33278)= 0THEN 330
350 GOSUB 4660:PLOT 27,24
360 PLOT 6,2,14,3,22,13:PRINT SPC( 19)""
370 GOSUB 7360
380 GOSUB 900
390 GOSUB 1200
400 IF SC= 1THEN SC= 0:GOTO 6180
410 GOTO 1490
420 BC$= " ":PLOT 6,2:X9= Q* 7+ 8:Y9= 23:GOSUB 7240:RETURN
430 BC$= "%":PLOT 6,14:X9= 4:Y9= 12:GOSUB 7240:RETURN
440 X= U1(Q):U1(Q)= 0:X9= 34:Y9= 15:PLOT 15:GOSUB 7000:RETURN
450 X= C1(A):C1(A)= 0:X9= 24:Y9= 10:PLOT 15:GOSUB 7000:RETURN
460 BC$= " ":PLOT 6,2:X9= A* 7+ 8:Y9= 2:GOSUB 7240:RETURN
470 REM
480 GOSUB 490:GOTO 500
490 PLOT 6,7,14,3,5,5:PRINT "EUCHRE":RETURN
500 C0= 5:CO= 6
510 Q9$= "   ":PLOT 6,3,15,3,50,1:PRINT Q9$
520 FOR Y= 2TO 6:PLOT 3,49,Y:PRINT S2$:NEXT Y
530 R9$= "ee   e":PLOT 3,50,7:PRINT R9$
540 PLOT 3,50,24:PRINT Q9$
550 FOR Y= 25TO 29:PLOT 3,49,Y:PRINT S2$:NEXT Y
560 PLOT 3,50,30:PRINT R9$
570 PLOT 6,6,3,55,9:PRINT ""
580 PLOT 3,55,23:PRINT "eeeeeee"
590 PLOT 27,10,3,54,10
600 PRINT "bbbbbbbbbbbbb"
610 PLOT 3,62,10
620 PRINT "aaaaaaaaaaaaa"
630 PLOT 6,7
640 PLOT 3,1,24
650 PRINT "bbbbb"
660 PLOT 3,12,24
670 PRINT "aaaaa"
680 PLOT 27,24
690 PLOT 3,2,23
700 PRINT ""
710 PLOT 3,2,29
720 PRINT "eeeeeeeeee"
730 PLOT 27,10,6,3,3,53,2:PRINT "TRICK"
740 PLOT 3,53,25:PRINT "TRICK"
750 GOSUB 6060
760 PLOT 6,7,3,55,10
770 PRINT "ME  YOU"
780 PLOT 6,1,3,55,22:PRINT "GAME=10"
790 PLOT 6,3,3,57,20:PRINT "1"
800 PLOT 6,3,3,58,21:PRINT "T"
810 PLOT 6,1,3,2,26:PRINT S3$
820 PLOT 6,7,3,2,30:PRINT "PAST GAMES"
830 X9= 4:Y9= 12:PLOT 6,14:BC$= "%":GOSUB 7240
840 PLOT 6,6,15,3,17,30:PRINT S1$
850 LN= 1
860 TK= 0
870 C7= 1
880 P7= 1
890 RETURN
900 REM
910 FOR A= 1TO 5:C1(A)= DK(A):NEXT A
920 FOR A= 1TO 5:U1(A)= DK(A+ 5):NEXT A
930 TC= DK(11)
940 Y9= 2:PLOT 6,14:BC$= "%"
950 FOR X9= 15TO 43STEP 7
960 GOSUB 7240
970 BC$= "%"
980 NEXT X9
990 Y9= 23:A= 6
1000 FOR X9= 15TO 43STEP 7
1010 X= DK(A)
1020 GOSUB 7000
1030 A= A+ 1
1040 NEXT X9
1050 X9= 4:Y9= 12:X= DK(11):GOSUB 7000
1060 IF DK(11)> 39THEN TR= 4:GOTO 1100
1070 IF DK(11)> 26THEN TR= 3:GOTO 1100
1080 IF DK(11)> 13THEN TR= 2:GOTO 1100
1090 TR= 1
1100 PLOT 6,2,15,3,15,16:PRINT SPC( 34)""
1110 RETURN
1120 REM
1130 IF TC= 0THEN TD= 0:GOTO 1190
1140 CC= TC:FOR I= 1TO 3:IF CC> 13THEN CC= CC- 13:NEXT I
1150 IF CC= 9OR CC= 10THEN TD= CC- 2:GOTO 1190
1160 IF CC= 12OR CC= 13THEN TD= CC- 3:GOTO 1190
1170 IF CC= 1THEN TD= 11:GOTO 1190
1180 TD= 13
1190 RETURN
1200 CT= 0:PT= 0
1210 FOR A= 1TO 5
1220 CB= INT ((C1(A)- 1)/ 13)+ 1:UB= INT ((U1(A)- 1)/ 13)+ 1
1230 CC= C1(A):FOR I= 1TO 3:IF CC> 13THEN CC= CC- 13:NEXT I
1240 UC= U1(A):FOR I= 1TO 3:IF UC> 13THEN UC= UC- 13:NEXT I
1250 IF C1(A)= 0THEN C2(A)= 0:GOTO 1310
1260 IF CB= TRTHEN 1410
1270 IF CC= 1THEN C2(A)= 6:GOTO 1310
1280 C2(A)= CC- 8
1290 IF C2(A)< > 3THEN 1310
1300 MF= 0:IF TR+ CB= 5THEN C2(A)= 12:MF= 1
1310 IF U1(A)= 0THEN U2(A)= 0:GOTO 1370
1320 IF UB= TRTHEN 1450
1330 IF UC= 1THEN U2(A)= 6:GOTO 1370
1340 U2(A)= UC- 8
1350 IF U2(A)< > 3THEN 1370
1360 IF TR+ UB= 5THEN U2(A)= 12
1370 CT= CT+ C2(A):PT= PT+ U2(A)
1380 NEXT A
1390 GOSUB 1120
1400 RETURN
1410 IF CC= 9OR CC= 10THEN C2(A)= CC- 2:GOTO 1310
1420 IF CC= 12OR CC= 13THEN C2(A)= CC- 3:GOTO 1310
1430 IF CC= 1THEN C2(A)= 11:GOTO 1310
1440 C2(A)= 13:GOTO 1310
1450 IF UC= 9OR UC= 10THEN U2(A)= UC- 2:GOTO 1370
1460 IF UC= 12OR UC= 13THEN U2(A)= UC- 3:GOTO 1370
1470 IF UC= 1THEN U2(A)= 11:GOTO 1370
1480 U2(A)= 13:GOTO 1370
1490 REM
1500 IF CT> 36THEN 2110
1510 C3= 0:FOR A= 1TO 5
1520 CB= INT ((C1(A)- 1)/ 13)+ 1:IF CB= TRTHEN C3= C3+ 1
1530 NEXT A
1540 IF C3> 2AND CT> 31THEN 2110
1550 PLOT 6,6,14,3,12,15:PRINT "I PASS"
1560 GOSUB 170
1570 GOSUB 2000
1580 PLOT 6,1,14,3,12,15
1590 INPUT "PICK UP (P) OR PASS (HIT RETURN) ?";Q$
1600 GOSUB 2000
1610 IF LEFT$ (Q$,1)= "Q"THEN 5820
1620 IF LEFT$ (Q$,1)= "P"THEN S2= 0:GOSUB 3700:GOTO 2160
1630 GOSUB 2280
1640 REM
1650 T1= TR
1660 FOR CR= 1TO 4
1670 IF CR= T1THEN 1710
1680 TR= CR:GOSUB 1200
1690 CR= TR
1700 IF CT> 31THEN GOSUB 3670:GOTO 2320
1710 NEXT CR
1720 TR= T1
1730 REM
1740 PLOT 6,6,14,3,12,15:PRINT "I PASS AGAIN"
1750 GOSUB 170
1760 GOSUB 2000
1770 PLOT 6,1,14,3,12,15
1780 INPUT "PASS(RETURN) OR TRUMP(S,D,H,C)";Q$
1790 GOSUB 2000
1800 IF LEFT$ (Q$,1)= ""THEN 6870
1810 S2= 0
1820 TC= 0:TD= 0
1830 Q$= LEFT$ (Q$,1)
1840 IF Q$= "S"THEN 1890
1850 IF Q$= "D"THEN 1890
1860 IF Q$= "H"THEN 1890
1870 IF Q$= "C"THEN 1890
1880 GOTO 2670
1890 IF TR= 1THEN 1940
1900 IF TR= 2THEN 1960
1910 IF TR= 3THEN 1980
1920 IF Q$= "C"THEN 2670
1930 GOTO 2700
1940 IF Q$= "S"THEN 2670
1950 GOTO 2700
1960 IF Q$= "D"THEN 2670
1970 GOTO 2700
1980 IF Q$= "H"THEN 2670
1990 GOTO 2700
2000 PLOT 6,2,14,3,12,15
2010 PRINT SPC( 41)""
2020 RETURN
2030 PLOT 27,10,15,6,1,3,62,1:PRINT "DEALER"
2040 PLOT 3,62,25:PRINT SPC( 6)""
2050 SD= 1
2060 PLOT 27,24:RETURN
2070 PLOT 27,10,15,6,1,3,62,25:PRINT "DEALER"
2080 PLOT 3,62,1:PRINT SPC( 6)""
2090 SD= 0
2100 PLOT 27,24:RETURN
2110 REM
2120 GOSUB 3670
2130 S2= 1
2140 PLOT 6,1,14,3,12,15:PRINT "PICK IT UP"
2150 GOSUB 170:GOSUB 170:GOSUB 170
2160 GOSUB 2000
2170 GOSUB 3630
2180 PLOT 6,1,14,3,12,15
2190 INPUT "DISCARD (1-5) ? ";Q$:Q= VAL (Q$)
2200 GOSUB 2000
2210 IF Q> 5OR Q< 1THEN 2640
2220 REM
2230 GOSUB 420
2240 U1(Q)= TC:GOSUB 1200
2250 PLOT 6,6,15,3,6,19
2260 PRINT RIGHT$ ((STR$ (Q)),1)
2270 GOTO 2790
2280 GOSUB 430
2290 PLOT 6,2,3,5,11:PRINT "   "
2300 TC= 0:TD= 0
2310 RETURN
2320 REM
2330 S2= 1:TR= CR:GOSUB 3630
2340 TC= 0:TD= 0
2350 GOSUB 1200
2360 PLOT 6,6,14,3,12,15:PRINT "TRUMP IS ";
2370 PLOT 3,22,15:ON TRGOTO 2380,2390,2400,2410
2380 PRINT "SPADES":GOTO 2420
2390 PRINT "DIAMONDS":GOTO 2420
2400 PRINT "HEARTS":GOTO 2420
2410 PRINT "CLUBS"
2420 GOSUB 170:GOSUB 2000:GOSUB 2790
2430 IF CD> 4OR TK> 3THEN 2570
2440 PLOT 6,1,14,3,12,15
2450 INPUT "LEAD (1-5) ? ";Q$:Q= VAL (Q$)
2460 GOSUB 2000
2470 IF Q> 5OR Q< 1THEN 2610
2480 IF U1(Q)= 0THEN 2610
2490 PF= U2(Q):U2(Q)= 0:PG= U1(Q):O= Q
2500 GOSUB 440
2510 Q= O:IF TC< > XTHEN 2540
2520 GOSUB 430
2530 TC= 0:TD= 0
2540 GOSUB 420
2550 S5= 0
2560 GOTO 4750
2570 FOR A= 1TO 5
2580 IF U1(A)< > 0THEN Q= A:GOTO 2490
2590 NEXT A
2600 END
2610 REM
2620 PLOT 6,65,14,3,12,15:PRINT "LEAD NO GOOD"
2630 GOSUB 170:GOSUB 2000:GOTO 2430
2640 REM
2650 PLOT 6,65,14,3,12,15:PRINT "DISCARD NO GOOD"
2660 GOSUB 170:GOSUB 2000:GOTO 2180
2670 REM
2680 PLOT 6,65,14,3,12,15:PRINT "SUIT NO GOOD"
2690 GOSUB 170:GOSUB 2000:GOTO 1770
2700 REM
2710 IF Q$= "S"THEN TR= 1:GOTO 2750
2720 IF Q$= "D"THEN TR= 2:GOTO 2750
2730 IF Q$= "H"THEN TR= 3:GOTO 2750
2740 TR= 4
2750 GOSUB 1200
2760 GOSUB 3630
2770 GOSUB 3700
2780 GOTO 2790
2790 REM
2800 S5= 1
2810 CD= CD+ 1
2820 IF CD< 5THEN 3210
2830 REM
2840 FOR A= 1TO 5
2850 IF C1(A)< > 0THEN 2880
2860 NEXT A
2870 END
2880 IF C1(A)< > TCTHEN 2900
2890 GOSUB 430:TC= 0:TD= 0
2900 GOSUB 450
2910 CG= X
2920 CF= C2(A):C2(A)= 0
2930 GOSUB 460
2940 FOR A= 1TO 5
2950 IF U1(A)< > 0THEN Q= A:GOTO 3110
2960 NEXT A
2970 PLOT 6,1,14,3,12,15
2980 INPUT "PLAY(1-5)?";Q$:Q= VAL (Q$)
2990 PLOT 3,12,15:PRINT SPC( 12)""
3000 IF Q> 5OR Q< 1THEN 3580
3010 IF U1(Q)= 0THEN 3580
3020 TT= INT ((CG- 1)/ 13)+ 1:TU= INT ((U1(Q)- 1)/ 13)+ 1
3025 F1= 0:FOR I= 1TO 5
3030 IF (MF= 1)AND (INT ((U1(I)- 1)/ 13)+ 1= TR)THEN F1= 3:GOTO 3050
3035 IF (TT= TR)AND (U2(I)= 12)THEN F1= 1:GOTO 3050
3040 IF TT= INT ((U1(I)- 1)/ 13)+ 1THEN F1= 2
3045 NEXT
3050 IF F1= 0THEN 3110
3055 ON F1GOTO 3060,3075,3085
3060 IF U2(Q)= 12THEN 3110
3065 IF TU= TRTHEN 3110
3070 GOSUB 7440:GOTO 2970
3075 IF TU< > TTTHEN GOSUB 7440:GOTO 2970
3080 GOTO 3110
3085 IF TU< > TRTHEN GOSUB 7440:GOTO 2970
3110 PF= U2(Q):U2(Q)= 0
3120 PG= U1(Q)
3130 O= Q
3140 GOSUB 440
3150 Q= O
3160 IF TC< > XTHEN 3190
3170 GOSUB 430
3180 TC= 0:TD= 0
3190 GOSUB 420
3200 GOTO 3730
3210 REM
3220 FOR A= 1TO 5
3230 IF C2(A)= 13THEN 3560
3240 NEXT A
3250 FOR A= 1TO 5
3260 IF C2(A)= 12THEN 3540
3270 NEXT A
3280 FOR A= 1TO 5
3290 IF C2(A)= 6THEN 3520
3300 NEXT A
3310 IF CD= 1AND INT (3* RND (1)+ 1)< > 1THEN 3370
3320 C3= 0
3330 FOR A= 1TO 5
3340 IF C2(A)> 6THEN 3490
3350 NEXT A
3360 IF C3< > 0THEN 3410
3370 C3= 0
3380 FOR A= 1TO 5
3390 IF C2(A)> C3THEN C3= C2(A):C4= A
3400 NEXT A
3410 X= C1(C4):X9= 24:Y9= 10:PLOT 15:GOSUB 7000
3420 IF TC< > C1(C4)THEN 3440
3430 GOSUB 430
3440 CG= C1(C4)
3450 C1(C4)= 0
3460 A= C4:GOSUB 460
3470 CF= C2(C4):C2(C4)= 0
3480 GOTO 2970
3490 IF C2(A)> C3THEN C3= C2(A):C4= A
3500 GOTO 3350
3510 GOTO 3410
3520 C4= A
3530 GOTO 3410
3540 C4= A
3550 GOTO 3410
3560 C4= A
3570 GOTO 3410
3580 REM
3590 PLOT 6,65,14,3,12,15:PRINT "PLAY NO GOOD"
3600 GOSUB 170
3610 PLOT 6,2,3,12,15,14:PRINT SPC( 12)""
3620 GOTO 2970
3630 REM
3640 PLOT 15,3,53,LN+ 10
3650 PRINT S4$(TR)
3660 RETURN
3670 PLOT 15,6,1,27,10,3,48,22:PRINT SPC( 9)""
3680 PLOT 3,48,1:PRINT "SET TRUMP"
3690 PLOT 27,24:RETURN
3700 PLOT 15,6,1,27,10,3,48,1:PRINT SPC( 9)""
3710 PLOT 3,48,22:PRINT "SET TRUMP"
3720 PLOT 27,24:RETURN
3730 REM
3740 TK= TK+ 1
3750 IF S5= 0THEN 3940
3760 REM
3770 IF CF> 6AND PF> 6THEN 3910
3780 IF CF> 6THEN 4010
3790 IF PF> 6THEN 3820
3800 IF INT ((CG- 1)/ 13)< > INT ((PG- 1)/ 13)THEN 3930
3810 IF CF= > PFTHEN 4010
3820 PLOT 6,6,14,3,40,21:PRINT "YOUR TRICK"
3830 P6= P6+ 1
3840 S4= 0
3850 BC$= "%":PLOT 6,14:X9= 57:Y9= 24:GOSUB 7240
3860 GOSUB 170
3870 PLOT 6,2,14,3,40,21:PRINT SPC( 10)""
3880 PLOT 6,1,15,3,55,24+ TK
3890 PRINT RIGHT$ ((STR$ (TK)),1)
3900 GOTO 4130
3910 IF CF> PFTHEN 4010
3920 GOTO 3820
3930 GOTO 4010
3940 REM
3950 IF PF> 6AND CF> 6THEN 4100
3960 IF PF> 6THEN 3820
3970 IF CF> 6THEN 4010
3980 IF INT ((PG- 1)/ 13)< > INT ((CG- 1)/ 13)THEN 4120
3990 IF PF= > CFTHEN 3820
4000 GOTO 4010
4010 PLOT 6,6,14,3,15,11:PRINT "MY TRICK"
4020 C6= C6+ 1
4030 S4= 1
4040 BC$= "%":PLOT 6,14:X9= 57:Y9= 1:GOSUB 7240
4050 GOSUB 170
4060 PLOT 6,2,14,3,15,11:PRINT SPC( 8)""
4070 PLOT 6,1,15,3,55,1+ TK
4080 PRINT RIGHT$ ((STR$ (TK)),1)
4090 GOTO 4130
4100 IF PF> CFTHEN 3820
4110 GOTO 4010
4120 GOTO 3820
4130 REM
4140 IF CG< 53AND CG> 39THEN PLOT 6,7:CD$= "c":GOTO 4180
4150 IF CG< 40AND CG> 26THEN PLOT 6,1:CD$= "h":GOTO 4180
4160 IF CG< 27AND CG> 13THEN PLOT 6,1:CD$= "d":GOTO 4180
4170 PLOT 6,7:CD$= "s"
4180 CH= CG
4190 FOR G= 1TO 3
4200 IF CH> 13THEN CH= CH- 13
4210 NEXT G
4220 IF CH= 1THEN CE$= "A":GOTO 4300
4230 IF CH= 10THEN CE$= "T":GOTO 4300
4240 IF CH= 11THEN CE$= "J":GOTO 4300
4250 IF CH= 12THEN CE$= "Q":GOTO 4300
4260 IF CH= 13THEN CE$= "K":GOTO 4300
4270 PLOT 3,50,C7+ 1
4280 PRINT RIGHT$ ((STR$ (CH)),1)
4290 GOTO 4320
4300 PLOT 3,50,C7+ 1
4310 PRINT CE$
4320 PLOT 3,51,C7+ 1
4330 PRINT CD$
4340 IF PG< 53AND PG> 39THEN PLOT 6,7:CD$= "c":GOTO 4380
4350 IF PG< 40AND PG> 26THEN PLOT 6,1:CD$= "h":GOTO 4380
4360 IF PG< 27AND PG> 13THEN PLOT 6,1:CD$= "d":GOTO 4380
4370 PLOT 6,7:CD$= "s"
4380 PH= PG
4390 FOR G= 1TO 3
4400 IF PH> 13THEN PH= PH- 13
4410 NEXT G
4420 IF PH= 1THEN CE$= "A":GOTO 4500
4430 IF PH= 10THEN CE$= "T":GOTO 4500
4440 IF PH= 11THEN CE$= "J":GOTO 4500
4450 IF PH= 12THEN CE$= "Q":GOTO 4500
4460 IF PH= 13THEN CE$= "K":GOTO 4500
4470 PLOT 3,50,P7+ 24
4480 PRINT RIGHT$ ((STR$ (PH)),1)
4490 GOTO 4520
4500 PLOT 3,50,P7+ 24
4510 PRINT CE$
4520 PLOT 3,51,P7+ 24
4530 PRINT CD$
4540 C7= C7+ 1:P7= P7+ 1
4550 BC$= " ":PLOT 6,2:X9= 24:Y9= 10:GOSUB 7240
4560 BC$= " ":PLOT 6,2:X9= 34:Y9= 15:GOSUB 7240
4570 IF CD> 4THEN PLOT 6,2,15,3,53,1:PRINT " ":PLOT 3,53,30:PRINT " ":GOTO 4600
4580 IF S4= 1THEN 2790
4590 GOTO 2430
4600 S1= 0:IF C6> P6THEN S1= 1:GOTO 4730
4610 PLOT 6,70,14,3,41,15:PRINT "YOU WIN"
4620 GOSUB 170:GOSUB 170
4630 PLOT 6,2,14,3,41,15:PRINT "         "
4640 CD= 0:TK= 0:C7= 1:P7= 1
4650 PLOT 6,2,15,27,10:GOTO 4690
4660 PLOT 6,2,15,27,10,3,55,2:PRINT "     ":PLOT 3,55,25:PRINT "     "
4670 PLOT 3,50,2:PRINT "     ":PLOT 3,51,2:PRINT "     "
4680 PLOT 3,50,25:PRINT "     ":PLOT 3,51,25:PRINT "     ":RETURN
4690 PLOT 3,48,1:PRINT SPC( 9)"":PLOT 3,48,22:PRINT SPC( 9)""
4700 PLOT 27,24
4710 PLOT 6,6,15,3,17,30:PRINT S1$
4720 GOTO 5530
4730 PLOT 6,70,14,3,41,15:PRINT "I WIN"
4740 GOTO 4620
4750 REM
4760 CD= CD+ 1
4770 IF CD< > 5THEN 4880
4780 FOR A= 1TO 5
4790 IF C1(A)< > 0THEN 4810
4800 NEXT A
4810 GOSUB 450
4820 CG= X
4830 IF TC< > XTHEN 4850
4840 GOSUB 430
4850 CF= C2(A):C2(A)= 0
4860 GOSUB 460
4870 GOTO 3730
4880 REM
4890 IF PF< 7THEN 5240
4900 REM
4910 FOR A= 1TO 5
4920 IF C2(A)> 6THEN 5020
4930 NEXT A
4940 REM
4950 C3= 53
4960 FOR A= 1TO 5
4970 IF C2(A)= 0THEN 4990
4980 IF C2(A)< C3THEN C3= C2(A):D1= A
4990 NEXT A
5000 A= D1
5010 GOTO 4810
5020 REM
5030 FOR A= 1TO 5
5040 IF C2(A)> PFTHEN 5140
5050 NEXT A
5060 C3= 53
5070 FOR A= 1TO 5
5080 IF C2(A)> 6THEN 5120
5090 NEXT A
5100 A= D1
5110 GOTO 4810
5120 IF C2(A)< C3THEN C3= C2(A):D1= A
5130 GOTO 5090
5140 REM
5150 C3= 53
5160 FOR A= 1TO 5
5170 IF C2(A)> 6THEN 5210
5180 NEXT A
5190 A= D1
5200 GOTO 4810
5210 IF C2(A)< PFTHEN 5180
5220 IF C2(A)- PF< C3THEN C3= C2(A):D1= A
5230 GOTO 5180
5240 REM
5250 FOR A= 1TO 5
5260 IF C1(A)= 0THEN 5280
5270 IF INT ((PG- 1)/ 13)= INT ((C1(A)- 1)/ 13)THEN 5340
5280 NEXT A
5290 REM
5300 FOR A= 1TO 5
5310 IF C2(A)> 6THEN 5440
5320 NEXT A
5330 GOTO 4940
5340 REM
5350 C3= 0
5360 FOR A= 1TO 5
5370 IF C1(A)= 0THEN 5390
5380 IF INT ((PG- 1)/ 13)= INT ((C1(A)- 1)/ 13)THEN 5420
5390 NEXT A
5400 A= D1
5410 GOTO 4810
5420 IF C2(A)> C3THEN C3= C2(A):D1= A
5430 GOTO 5390
5440 REM
5450 C3= 53
5460 FOR A= 1TO 5
5470 IF C2(A)= 0THEN 5500
5480 IF C2(A)< 7THEN 5500
5490 IF C2(A)< C3THEN C3= C2(A):D1= A
5500 NEXT A
5510 A= D1
5520 GOTO 4810
5530 REM
5540 IF S2= 1AND S1= 0THEN P9= 2:P5= P5+ 2:GOTO 5630
5550 IF S2= 0AND S1= 1THEN C9= 2:C5= C5+ 2:GOTO 5630
5560 IF P6= 5THEN P9= 2:P5= P5+ 2:GOTO 5600
5570 IF C6= 5THEN C9= 2:C5= C5+ 2:GOTO 5600
5580 IF S1= 1THEN C9= 1:C5= C5+ 1:GOTO 5660
5590 P9= 1:P5= P5+ 1:GOTO 5660
5600 PLOT 6,6,14,3,12,15:PRINT "MARCH"
5610 GOSUB 170:GOSUB 2000
5620 GOTO 5660
5630 REM
5640 PLOT 6,6,14,3,12,15:PRINT "EUCHRE":GOSUB 170:GOSUB 2000
5650 PLOT 6,1,15,3,58,LN+ 10:PRINT "E"
5660 PLOT 6,6,15,3,55,21:PRINT RIGHT$ ((STR$ (C5)),2)
5670 PLOT 3,60,21:PRINT RIGHT$ ((STR$ (P5)),2)
5680 PLOT 15,6,CO
5690 PLOT 3,56,LN+ 10:PRINT RIGHT$ ((STR$ (C9)),1)
5700 PLOT 3,60,LN+ 10:PRINT RIGHT$ ((STR$ (P9)),1)
5710 LN= LN+ 1
5720 IF LN> 10THEN CO= 1:LN= 1:PLOT 6,2,15,3,56,LN+ 10:PRINT "     ":GOSUB 6060
5730 IF C5> 9THEN 5790
5740 IF P5> 9THEN 5900
5750 C9= 0:P9= 0:C6= 0:P6= 0
5760 BC$= " ":PLOT 6,2:X9= 57:Y9= 1:GOSUB 7240:Y9= 24:GOSUB 7240
5770 IF SD= 1THEN SD= 0:GOTO 300
5780 SD= 1:GOTO 6120
5790 PLOT 6,70,14,3,12,15:PRINT "I WIN THE GAME !"
5800 GOSUB 170:GOSUB 170
5810 PLOT 6,2,14,3,12,15:PRINT SPC( 15)""
5820 PLOT 6,C0,15
5830 PLOT 3,LM+ 2,24
5840 IF C5> 9THEN PRINT "W":GOTO 5860
5850 PRINT RIGHT$ ((STR$ (C5)),1)
5860 PLOT 3,LM+ 2,28
5870 IF P5> 9THEN PRINT "W":GOTO 5890
5880 PRINT RIGHT$ ((STR$ (P5)),1)
5890 GOTO 5920
5900 PLOT 6,70,14,3,12,15:PRINT "YOU WIN GAME !"
5910 GOTO 5800
5920 C5= 0:P5= 0:C6= 0:P6= 0:C9= 0:P9= 0
5930 LN= 1:CO= 6
5940 LM= LM+ 1:IF LM> 9THEN LM= 0:C0= 7
5950 CO= 6
5960 PLOT 6,1,14,3,12,15:INPUT "PLAY ANOTHER GAME (Y/N) ? ";Q$
5970 GOSUB 2000
5980 IF LEFT$ (Q$,1)< > "Y"THEN 6090
5990 GOSUB 2000
6000 PLOT 27,10,15,6,2,3,56,11:PRINT SPC( 11)""
6010 PLOT 3,60,11:PRINT SPC( 11)""
6020 PLOT 3,53,11:PRINT SPC( 10)""
6030 PLOT 3,48,1:PRINT SPC( 9)"":PLOT 3,48,22:PRINT SPC( 9)"":PLOT 27,24
6040 PLOT 6,6,3,55,21:PRINT "   T   "
6050 GOSUB 6060:GOTO 290
6060 PLOT 6,3,27,10,3,58,11:PRINT S3$
6070 PLOT 27,24
6080 RETURN
6090 PLOT 6,2,27,11,15
6100 LOAD "MENU":RUN
6110 END
6120 REM
6130 GOSUB 2030
6140 PLOT 6,6,14,3,22,13
6150 SC= 1
6160 PRINT "MY DEAL, HIT RETURN"
6170 GOTO 320
6180 PLOT 6,1,14,3,12,15
6190 INPUT "ORDER IT UP(U) OR PASS(HIT RETURN)?";Q$
6200 GOSUB 2000
6210 IF LEFT$ (Q$,1)= "Q"THEN 5820
6220 IF LEFT$ (Q$,1)= "U"THEN 6630
6230 T1= TR:T2= TC:T3= TD
6240 C3= 0
6250 FOR JJ= 1TO 5
6260 T4= C1(JJ):T5= C2(JJ):C1(JJ)= T2:C2(JJ)= T3
6270 GOSUB 1200
6280 IF CT> C3THEN C3= CT:D1= JJ
6290 C1(JJ)= T4:C2(JJ)= T5
6300 NEXT JJ
6310 IF C3> 33THEN GOSUB 3670:S2= 1:GOTO 6330
6320 GOTO 6380
6330 C1(D1)= TC:C2(D1)= TD
6340 A= D1:GOSUB 460
6350 TR= T1:GOSUB 3630
6360 GOSUB 1120
6370 GOTO 2430
6380 PLOT 6,6,14,3,12,15:PRINT "I PASS"
6390 TC= 0:TC= 0:GOSUB 430
6400 GOSUB 170
6410 GOSUB 2000
6420 PLOT 6,1,14,3,12,15
6430 INPUT "TRUMP(S,D,H,C) OR PASS(RETURN)?";Q$
6440 GOSUB 2000
6450 Q$= LEFT$ (Q$,1)
6460 IF Q$= ""THEN 6790
6470 S2= 0:TC= 0:TD= 0
6480 IF Q$= "S"THEN 6540
6490 IF Q$= "D"THEN 6540
6500 IF Q$= "H"THEN 6540
6510 IF Q$= "C"THEN 6540
6520 PLOT 6,65,14,3,12,15:PRINT "SUIT NO GOOD":GOSUB 170:GOSUB 2000
6530 GOTO 6420
6540 IF TR= 1AND Q$= "S"THEN 6520
6550 IF TR= 2AND Q$= "D"THEN 6520
6560 IF TR= 3AND Q$= "H"THEN 6520
6570 IF TR= 4AND Q$= "C"THEN 6520
6580 IF Q$= "S"THEN TR= 1:GOTO 6620
6590 IF Q$= "D"THEN TR= 2:GOTO 6620
6600 IF Q$= "H"THEN TR= 3:GOTO 6620
6610 TR= 4
6620 GOSUB 1200:GOSUB 3630:GOSUB 3700:GOTO 2430
6630 FOR A= 1TO 5
6640 IF C2(A)> 6THEN 6710
6650 NEXT A
6660 C3= 53
6670 FOR A= 1TO 5
6680 IF C2(A)< C3THEN C3= C2(A):D1= A
6690 NEXT A
6700 T1= TR:GOSUB 3700:S2= 0:GOTO 6330
6710 C3= 53
6720 FOR A= 1TO 5
6730 IF C2(A)< 7THEN 6770
6740 NEXT A
6750 IF C3< > 0THEN 6700
6760 GOTO 6660
6770 IF C2(A)< C3THEN C3= C2(A):D1= A
6780 GOTO 6740
6790 REM
6800 C3= 0:FOR BB= 1TO 4
6810 IF BB= T1THEN 6840
6820 TR= BB:GOSUB 1200
6830 IF CT> C3THEN C3= CT:D1= BB
6840 NEXT BB
6850 TR= D1
6860 IF CT> 31THEN 6900
6870 PLOT 6,6,14,3,12,15:PRINT "PASS AGAIN"
6880 GOSUB 170:GOSUB 2000
6890 GOTO 5680
6900 GOSUB 3630
6910 S2= 1:GOSUB 3670
6920 PLOT 6,6,14,3,12,15:PRINT "TRUMP IS ";
6930 GOSUB 170
6940 IF TR= 1THEN PRINT "SPADES":GOTO 6980
6950 IF TR= 2THEN PRINT "DIAMONDS":GOTO 6980
6960 IF TR= 3THEN PRINT "HEARTS":GOTO 6980
6970 PRINT "CLUBS"
6980 GOSUB 170:GOSUB 2000:GOTO 2430
6990 REM
7000 IF X> 39THEN Q= X- 39:P$= "c":PLOT 6,56:GOTO 7040
7010 IF X> 26THEN Q= X- 26:P$= "h":PLOT 6,57:GOTO 7040
7020 IF X> 13THEN Q= X- 13:P$= "d":PLOT 6,57:GOTO 7040
7030 Q= X:P$= "s":PLOT 6,56
7040 PLOT 27,10:FOR II= 0TO 4:PLOT 3,X9+ II,Y9:PRINT "       ":NEXT II
7050 IF Q> 9THEN 7100
7060 IF Q> 5THEN 7110
7070 IF Q= 1THEN 7120
7080 IF Q= 9OR Q> 10THEN 7130
7090 GOTO 7140
7100 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 7080
7110 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$" "P$:GOTO 7070
7120 PLOT 3,X9+ 2,Y9+ 3:PRINT P$:GOTO 7140
7130 PLOT 3,X9+ 2,Y9+ 1:PRINT P$" "P$" "P$
7140 IF Q= 1THEN PLOT 3,X9,Y9:PRINT "A":PLOT 3,X9+ 4,Y9+ 6:PRINT "A":GOTO 7230
7150 IF Q> 9THEN 7170
7160 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),1):PLOT 3,X9+ 4,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),1):GOTO 7230
7170 PLOT 27,24:IF Q> 10THEN 7190
7180 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),2):PLOT 3,X9+ 3,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),2):GOTO 7230
7190 IF Q= 11THEN CD$= "J":GOTO 7220
7200 IF Q= 12THEN CD$= "Q":GOTO 7220
7210 CD$= "K"
7220 PLOT 3,X9,Y9:PRINT CD$:PLOT 3,X9+ 4,Y9+ 6:PRINT CD$:PLOT 3,X9+ 2,Y9+ 3:PRINT CD$
7230 PLOT 27,24,3,X9+ 4,Y9:PRINT P$:PLOT 3,64,0:RETURN
7240 REM
7250 PLOT 15
7260 BC$= BC$+ BC$+ BC$+ BC$+ BC$
7270 FOR I= 0TO 6
7280 PLOT 3,X9,Y9+ I
7290 PRINT BC$
7300 NEXT I
7310 BC$= " "
7320 IF Y9= 23OR Y9= 12THEN 7340
7330 GOTO 7350
7340 PLOT 6,2,15,3,X9+ 1,Y9+ 7:PRINT "   "
7350 RETURN
7360 FOR A= 1TO 52:KD(A)= 0:NEXT A
7370 FOR A= 1TO 11
7380 B= INT (24* RND (1)+ 1)
7390 IF KD(B)= 1THEN 7380
7400 KD(B)= 1
7410 DK(A)= DH(B)
7420 NEXT A
7430 RETURN
7440 PLOT 6,65,14,3,12,15:PRINT "FOLLOW SUIT!"
7450 GOSUB 170:PLOT 3,12,15:PRINT SPC( 12)""
7460 RETURN