Listing of file='SOL.BAS;01' on disk='vmedia/solitaire-sector.ccvf'
0 REM KY *** SOLITAIRE *** 90 PLOT 6,2,15,27,24,12,3,64,0 120 CLEAR 100 140 DIM DK(52),FO(4,13),HT(7,6),TA(7,13),HA(24),TN(24) 150 DIM KD(52),TU(7),TH(13),HS(3),TS(24) 210 GOSUB 700 310 PLOT 6,65,3,27,23:PRINT "HIT RETURN":PLOT 3,64,0 320 POKE 33278,0 330 FOR TE= 1TO 10:I= RND (1):NEXT 340 IF PEEK (33278)= 0THEN 330 350 GOSUB 400 370 PLOT 6,68,3,27,23:PRINT "SHUFFLING" 380 PLOT 3,64,0 390 GOSUB 1160:GOSUB 1090:GOSUB 1230:GOSUB 400:GOSUB 1320:GOTO 1510 400 PLOT 3,27,23:PRINT SPC( 10):PLOT 3,64,0 410 RETURN 420 IF X> 39THEN Q= X- 39:P$= "c":PLOT 6,56:GOTO 460 430 IF X> 26THEN Q= X- 26:P$= "h":PLOT 6,57:GOTO 460 440 IF X> 13THEN Q= X- 13:P$= "d":PLOT 6,57:GOTO 460 450 Q= X:P$= "s":PLOT 6,56 460 PLOT 27,10:FOR II= 0TO 4:PLOT 3,X9+ II,Y9:PRINT SPC( 7)"":NEXT II 470 IF Q> 9THEN 540 480 IF Q> 5THEN 550 490 IF Q> 3THEN 560 500 IF Q= 1OR Q= 5OR Q= 7THEN 570 510 IF Q= 2OR Q= 8THEN 580 520 IF Q= 3OR Q= 9OR Q> 10THEN 590 530 GOTO 600 540 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 520 550 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$" "P$:GOTO 500 560 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$:GOTO 500 570 PLOT 3,X9+ 2,Y9+ 3:PRINT P$:GOTO 600 580 PLOT 3,X9+ 2,Y9+ 2:PRINT P$" "P$:GOTO 600 590 PLOT 3,X9+ 2,Y9+ 1:PRINT P$" "P$" "P$ 600 IF Q= 1THEN PLOT 3,X9,Y9:PRINT "A":PLOT 3,X9+ 4,Y9+ 6:PRINT "A":GOTO 690 610 IF Q> 9THEN 630 620 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),1):PLOT 3,X9+ 4,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),1):GOTO 690 630 PLOT 27,24:IF Q> 10THEN 650 640 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),2):PLOT 3,X9+ 3,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),2):GOTO 690 650 IF Q= 11THEN CD$= "J":GOTO 680 660 IF Q= 12THEN CD$= "Q":GOTO 680 670 CD$= "K" 680 PLOT 3,X9,Y9:PRINT CD$:PLOT 3,X9+ 4,Y9+ 6:PRINT CD$:PLOT 3,X9+ 2,Y9+ 3:PRINT CD$ 690 PLOT 27,24,3,X9+ 4,Y9:PRINT P$:RETURN 700 REM HK 710 PLOT 6,36 720 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 730 PLOT 6,3,3,22,1 740 PRINT "SOLITAIRE - CANFIELD" 750 PLOT 6,7,3,64,0 752 FOR I= 10TO 70STEP 20 754 PLOT 2,I,84,242,I,111,I+ 9,111,I+ 9,84,I,84,255 756 NEXT I 830 FOR I= 98TO 112STEP 14 840 PLOT 2,I,84,242,I,111,I+ 9,111,I+ 9,84,I,84,255 850 NEXT I 860 PLOT 3,5,3 870 PRINT "SPADE DIAMOND HEART CLUB HAND PILE" 872 PLOT 3,42,10:PRINT "MOVES" 874 PLOT 6,6,3,42,4:PRINT "FM:" 876 PLOT 6,1,3,42,6:PRINT "TO:" 880 PLOT 6,6,3,64,0 882 PLOT 2,85,91,242,85,96,92,96,92,91,85,91,255 930 PLOT 3,48,7,14:PRINT "8" 940 PLOT 3,61,7:PRINT "9" 950 PLOT 15,6,4,3,64,0 960 FOR I= 6TO 114STEP 18 970 PLOT 2,I,52,242,I,79,I+ 9,79,I+ 9,52,I,52,255 980 NEXT I 990 PLOT 6,6,14 1000 FOR I= 1TO 7 1010 PLOT 3,1+ (I- 1)* 9,15 1020 PRINT I 1030 NEXT I 1040 PLOT 15 1050 PLOT 27,10,3,1,3 1060 PRINT "FOUNDATION STACK" 1070 PLOT 27,24 1080 RETURN 1090 IF S5= 1THEN 1150 1100 FOR I= 1TO 52 1110 DK(I)= INT (52* RND (1)+ 1) 1120 IF KD(DK(I))= 1THEN 1110 1130 KD(DK(I))= 1 1140 NEXT I 1150 RETURN 1160 IF S7= 0THEN S7= 1:GOTO 1220 1170 FOR I= 1TO 52:KD(I)= 0:NEXT I 1180 FOR I= 1TO 24:HA(I)= 0:TN(I)= 0:NEXT I 1190 FOR I= 1TO 4:FOR J= 1TO 13:FO(I,J)= 0:NEXT J:NEXT I 1200 FOR I= 1TO 7:FOR J= 1TO 6:HT(I,J)= 0:NEXT J:NEXT I 1210 FOR I= 1TO 7:FOR J= 1TO 13:TA(I,J)= 0:NEXT J:NEXT I 1220 RETURN 1230 FOR I= 1TO 24:HA(I)= DK(I):NEXT I 1240 FOR I= 25TO 31:TA(I- 24,1)= DK(I):NEXT I 1250 HT(2,1)= DK(32) 1260 HT(3,1)= DK(33):HT(3,2)= DK(34) 1270 HT(4,1)= DK(35):HT(4,2)= DK(36):HT(4,3)= DK(37) 1280 HT(5,1)= DK(38):HT(5,2)= DK(39):HT(5,3)= DK(40):HT(5,4)= DK(41) 1290 HT(6,1)= DK(42):HT(6,2)= DK(43):HT(6,3)= DK(44):HT(6,4)= DK(45):HT(6,5)= DK(46) 1300 HT(7,1)= DK(47):HT(7,2)= DK(48):HT(7,3)= DK(49):HT(7,4)= DK(50):HT(7,5)= DK(51):HT(7,6)= DK(52) 1310 RETURN 1320 BC$= "%":X9= 49:Y9= 4 1330 PLOT 6,43 1340 GOSUB 5180 1350 PLOT 6,4,3,53,3:PRINT RIGHT$ ((STR$ (24)),2) 1360 HC= 24 1370 FOR IA= 1TO 7 1380 X= TA(IA,1) 1390 X9= 3+ (IA- 1)* 9:Y9= 12 1400 GOSUB 5110 1410 NEXT IA 1420 PLOT 6,4 1430 FOR I= 1TO 6 1440 PLOT 3,17+ (I- 1)* 9,12 1450 PRINT RIGHT$ ((STR$ (I)),1) 1460 NEXT I 1470 TC= 0:FOR I= 1TO 7:TU(I)= I- 1:NEXT I 1480 RETURN 1500 PLOT 6,2,12,27,11,15:LOAD "MENU":RUN 1510 REM MAIN ROUTINE 1520 PLOT 6,5,15,3,43,8:PRINT RIGHT$ ((STR$ (M1)),3) 1530 M1= M1+ 1 1540 IF HC< > 0OR TC< > 0THEN 1590 1550 FOR I= 1TO 7 1560 IF TU(I)< > 0THEN 1590 1570 NEXT I 1580 GOTO 1920 1590 S1= 0 1600 PLOT 6,6,3,1,1 1610 PRINT SPC( 15)"":PLOT 3,1,1 1620 INPUT "FROM :";FM$:FM= VAL (FM$) 1621 IF FM< 0OR FM> 12THEN 1800 1625 PLOT 6,6,3,45,4:PRINT " ":PLOT 3,45,4:PRINT FM 1640 PLOT 3,1,1:PRINT SPC( 21)"":PLOT 6,1,3,1,1 1650 INPUT "TO :";T2$:T2= VAL (T2$) 1651 IF T2< 0OR T2> 12THEN 1800 1655 PLOT 6,1,3,45,6:PRINT " ":PLOT 3,45,6:PRINT T2 1670 PLOT 3,1,1:PRINT SPC( 21)"" 1675 IF FM= 11AND T2= 11THEN GOSUB 9500:GOTO 1510 1677 IF FM= 12AND T2= 12THEN GOSUB 9400:GOTO 1510 1680 IF FM= 10AND T2= 10THEN 1950 1690 IF FM= 8THEN FM= 12:T2= 13 1700 IF FM= 9THEN FM= 13 1710 IF FM< 8AND FM> 0THEN 1850 1720 IF FM= 0AND T2= 0THEN FM= 12:T2= 13 1730 IF FM= 13AND T2= 0THEN T2= 11 1740 IF T2= 8THEN T2= 12 1750 IF T2< 1OR T2> 13THEN 1800 1760 IF FM= T2THEN 1800 1770 IF FM< 12AND FM> 7THEN 1800 1780 IF FM= 12AND T2< > 13THEN 1800 1790 GOTO 1880 1800 REM 1805 PLOT 3,1,2:PRINT "TRY AGAIN !":PLOT 3,64,0 1810 M1= M1- 1 1820 FOR I= 0TO 999:NEXT I 1830 PLOT 3,1,2:PRINT " " 1840 GOTO 1510 1850 IF T2< 8AND T2> 0THEN 1720 1860 IF T2< > 0THEN 1800 1870 T2= 11:GOTO 1720 1880 IF FM< 8THEN 2600 1890 IF FM= 12THEN 3090 1900 IF FM= 13THEN 3160 1910 GOTO 1800 1920 PLOT 6,70 1930 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 1940 FOR I= 0TO 999:NEXT I 1950 GOSUB 400:PLOT 6,6,14,3,1,23 1970 INPUT "CONTINUE (Y/N) ? ";Q$ 1980 GOSUB 400 1990 IF LEFT$ (Q$,1)< > "Y"THEN 1500 2080 GOSUB 400:PLOT 6,1,14,3,1,23 2090 INPUT "PLAY SAME CARDS (Y/N) ? ";Q$ 2100 GOSUB 400 2110 IF LEFT$ (Q$,1)= "Y"THEN S5= 1:GOTO 2130 2120 S5= 0 2130 PLOT 15,12 2170 M1= 0 2180 IF S5= 0THEN 210 2190 GOSUB 700:GOTO 390 2600 GOSUB 15000:IF T2= 12OR T2= 13THEN 1800 2605 PTL= CT:IF T2= 11THEN PTL= 1 2610 F= TA(FM,PTL) 2620 GOSUB 9000 2650 IF T2< 12AND T2> 7THEN 2880 2660 T= TA(T2,1) 2670 GOSUB 9100 2700 IF F= 0THEN 1800 2710 IF F1= 13THEN 3060 2720 IF F1+ 1< > T1THEN 2780 2730 IF F> 39THEN 2760 2740 IF F> 26THEN 2860 2750 IF F> 13THEN 2860 2760 IF T< 14OR T> 39THEN 1800 2770 GOTO 3590 2780 IF TA(FM,2)= 0THEN 1800 2790 IF S1= 1THEN S1= 0:GOTO 1800 2800 FOR I= 1TO 13 2810 IF TA(FM,I)= 0THEN S1= 1:GOTO 2830 2820 NEXT I 2830 I= I- 1 2840 F= TA(FM,I) 2850 GOTO 2620 2860 IF T< 14OR T> 39THEN 3590 2870 GOTO 1800 2880 IF F> 39THEN T2= 11:GOTO 2920 2890 IF F> 26THEN T2= 10:GOTO 2920 2900 IF F> 13THEN T2= 9:GOTO 2920 2910 T2= 8 2920 T= FO(T2- 7,1):GOTO 2930 2930 IF T= 0AND F1< > 1THEN 1800 2940 GOSUB 9100 2970 IF F1- 1< > T1THEN 1800 2980 IF T2= 11AND F> 39THEN 3590 2990 IF F> 39THEN 1800 3000 IF T2= 10AND F> 26THEN 3590 3010 IF F> 26THEN 1800 3020 IF T2= 9AND F> 13THEN 3590 3030 IF F> 13THEN 1800 3040 IF T2= 8AND F< 14THEN 3590 3050 GOTO 1800 3060 IF T< > 0THEN 1800 3070 GOTO 3590 3090 IF HC= 0THEN FM= 13:T2= 12:GOTO 3160 3100 IF HC< 3THEN 3120 3110 HC= HC- 3:HS(1)= HA(3):HS(2)= HA(2):HS(3)= HA(1):GOTO 3590 3120 IF HC= 2THEN HS(1)= HA(2):HS(2)= HA(1):HS(3)= 0:GOTO 3140 3130 HS(1)= HA(1):HS(2)= 0:HS(3)= 0 3140 HC= 0:GOTO 3590 3160 F= TN(1) 3170 GOSUB 9000 3200 IF T2= 12THEN 3560 3210 IF T2> 7THEN 3380 3220 T= TA(T2,1) 3230 GOSUB 9100 3260 IF F= 0THEN 1800 3270 IF F1= 13THEN 3360 3280 IF F1+ 1< > T1THEN 1800 3290 IF F> 39THEN 3320 3300 IF F> 26THEN 3340 3310 IF F> 13THEN 3340 3320 IF T< 14OR T> 39THEN 1800 3330 GOTO 3590 3340 IF T< 14OR T> 39THEN 3590 3350 GOTO 1800 3360 IF T< > 0THEN 1800 3370 GOTO 3590 3380 IF F> 39THEN T2= 11:GOTO 3420 3390 IF F> 26THEN T2= 10:GOTO 3420 3400 IF F> 13THEN T2= 9:GOTO 3420 3410 T2= 8 3420 T= FO(T2- 7,1):GOTO 3430 3430 IF T= 0AND F1< > 1THEN 1800 3440 GOSUB 9100 3470 IF F1- 1< > T1THEN 1800 3480 IF T2= 11AND F> 39THEN 3590 3490 IF F> 39THEN 1800 3500 IF T2= 10AND F> 26THEN 3590 3510 IF F> 26THEN 1800 3520 IF T2= 9AND F> 13THEN 3590 3530 IF F> 13THEN 1800 3540 IF T2= 8AND F< 14THEN 3590 3550 GOTO 1800 3560 IF HC< > 0THEN 1800 3570 IF TC= 0THEN 1800 3580 GOTO 3590 3590 REM 3600 IF FM= 12THEN 4210 3610 IF FM= 13THEN 4330 3620 REM REMOVE OLD CARD 3630 IF TA(FM,2)= 0AND TU(FM)= 0THEN 3750 3640 IF TA(FM,2)< > 0THEN 3810 3650 BC$= "%":PLOT 6,43:X9= 3+ (FM- 1)* 9:Y9= 12:GOSUB 5180:PLOT 6,2 3660 X= HT(FM,1):X9= 3+ (FM- 1)* 9:Y9= 12:GOSUB 5110 3670 TA(FM,1)= X 3680 TU(FM)= TU(FM)- 1 3690 PLOT 6,4,3,8+ (FM- 1)* 9,12:PRINT RIGHT$ ((STR$ (TU(FM))),1) 3700 IF TU(FM)= 0THEN 4440 3710 FOR I= 1TO TU(FM) 3720 HT(FM,I)= HT(FM,I+ 1) 3730 NEXT I 3740 GOTO 4440 3750 BC$= " ":PLOT 6,2 3760 X9= 3+ (FM- 1)* 9:Y9= 12 3770 GOSUB 5180 3780 GOSUB 5220 3790 TA(FM,1)= 0 3800 GOTO 4440 3810 IF T2> 7THEN 4070 3820 FOR I= 1TO 13 3830 IF TA(FM,I)= 0THEN 3850 3840 NEXT I 3850 IC= I- 1 3860 FOR ID= 1TO IC 3870 BC$= " ":PLOT 6,2 3880 X9= 3+ (FM- 1)* 9:Y9= 11+ ID 3890 GOSUB 5180 3900 NEXT ID 3910 IF TU(FM)= 0THEN Y9= 12:GOSUB 5220:GOTO 3930 3920 BC$= "%":PLOT 6,43:X9= 3+ (FM- 1)* 9:Y9= 12:GOSUB 5180:PLOT 6,2 3930 FOR I= 1TO 13:TH(I)= 0:NEXT I 3940 FOR I= 1TO IC 3950 TH(I)= TA(FM,I) 3960 TA(FM,I)= 0 3970 NEXT I 3980 IF TU(FM)= 0THEN 4440 3990 TA(FM,1)= HT(FM,1) 4000 FOR I= 1TO TU(FM)- 1 4010 HT(FM,I)= HT(FM,I+ 1) 4020 NEXT I 4030 X= TA(FM,1):X9= 3+ (FM- 1)* 9:Y9= 12:GOSUB 5110 4040 TU(FM)= TU(FM)- 1 4050 PLOT 6,4,3,8+ (FM- 1)* 9,12:PRINT RIGHT$ ((STR$ (TU(FM))),1) 4060 GOTO 4440 4070 BC$= " ":PLOT 6,2:X9= 3+ (FM- 1)* 9 4080 FOR I= 1TO 13 4090 IF TA(FM,I)= 0THEN 4110 4100 NEXT I 4110 Y9= 12+ I- 1 4120 IB= I:GOSUB 5180 4130 TA(FM,1)= 0 4140 FOR I= 2TO 13 4150 TA(FM,I- 1)= TA(FM,I) 4160 NEXT I 4170 IB= IB- 1 4180 X= TA(FM,1):X9= 3+ (FM- 1)* 9:Y9= 12+ IB- 2 4190 GOSUB 5110 4200 GOTO 4440 4210 PLOT 6,4,3,53,3:PRINT RIGHT$ ((STR$ (HC)),2) 4220 IF HC= 0THEN FOR I= 1TO 24:HA(I)= 0:NEXT I:GOTO 4280 4230 FOR I= 1TO 21STEP 3 4240 HA(I)= HA(I+ 3):HA(I+ 1)= HA(I+ 4):HA(I+ 2)= HA(I+ 5) 4250 HA(I+ 3)= 0:HA(I+ 4)= 0:HA(I+ 5)= 0 4260 NEXT I 4270 GOTO 4440 4280 FOR I= 1TO 24:HA(I)= 0:NEXT I 4290 BC$= " ":X9= 49:Y9= 4:GOSUB 5180 4300 GOSUB 5220 4310 GOTO 4440 4320 FOR I= 1TO 24:TN(I)= 0:NEXT I:GOTO 4440 4330 IF T2= 12THEN 4420 4340 TC= TC- 1:PLOT 6,4,3,60,3:PRINT RIGHT$ ((STR$ (TC)),2) 4350 IF TC= 0THEN BC$= " ":X9= 56:Y9= 4:GOSUB 5180:GOSUB 5220:GOTO 4320 4360 FOR I= 1TO 23 4370 TN(I)= TN(I+ 1) 4380 NEXT I 4390 TN(24)= 0 4400 X= TN(1):X9= 56:Y9= 4:GOSUB 5110 4410 GOTO 4440 4420 FOR I= 1TO 24:TS(I)= TN(I):NEXT I 4430 TC= 1:GOTO 4340 4440 REM 4450 IF T2= 13THEN 4750 4460 IF T2= 12THEN 4890 4470 IF T2> 7THEN 5050 4490 IF TH(1)< > 0THEN 4600 4500 IF TA(T2,1)= 0THEN I= 1:GOTO 4570 4510 FOR I= 12TO 1STEP - 1 4520 TA(T2,I+ 1)= TA(T2,I) 4530 NEXT I 4540 FOR I= 2TO 13 4550 IF TA(T2,I)= 0THEN I= I- 1:GOTO 4570 4560 NEXT I 4570 TA(T2,1)= F 4580 X= F:X9= 3+ (T2- 1)* 9:Y9= 12+ I- 1:GOSUB 5110 4590 GOTO 1510 4600 FOR IH= 1TO 13 4610 IF TA(T2,IH)= 0THEN 4640 4620 NEXT IH 4640 FOR IG= 13TO 1STEP - 1 4650 IF TH(IG)< > 0THEN 4670 4660 NEXT IG 4670 X= TH(IG):X9= 3+ (T2- 1)* 9:Y9= 12+ IH- 1:GOSUB 5110 4680 X= TH(IG):TH(IG)= 0 4690 FOR I= 12TO 1STEP - 1 4700 TA(T2,I+ 1)= TA(T2,I) 4710 NEXT I 4720 TA(T2,1)= X 4730 IF TH(1)< > 0THEN 4600 4740 GOTO 1510 4750 BB= 0:REM TO TALON 4760 FOR I= 1TO 3 4770 IF HS(I)< > 0THEN TC= TC+ 1:BB= BB+ 1 4780 NEXT I 4790 PLOT 6,4,3,60,3:PRINT RIGHT$ ((STR$ (TC)),2) 4800 FOR I= BBTO 1STEP - 1 4810 FOR J= 24TO 2STEP - 1 4820 TN(J)= TN(J- 1) 4830 NEXT J 4840 TN(1)= HS(I) 4850 NEXT I 4860 X= TN(1):X9= 56:Y9= 4:GOSUB 5110 4870 GOTO 1510 4890 BC$= "%":PLOT 6,43:X9= 49:Y9= 4:GOSUB 5180 4900 PLOT 6,2 4910 FOR I= 1TO 24 4920 HA(I)= TS(25- I) 4930 TS(25- I)= 0 4940 IF HA(I)< > 0THEN HC= HC+ 1 4950 NEXT I 4960 IF HC= 24THEN 5020 4970 IF HA(1)< > 0THEN 5020 4980 FOR I= 1TO HC 4990 HA(I)= HA(24- HC+ I) 5000 NEXT I 5010 FOR I= 1TO 24- HC:HA(25- I)= 0:NEXT I 5020 PLOT 6,4,3,53,3:PRINT RIGHT$ ((STR$ (HC)),2) 5030 GOTO 1510 5050 X= F:X9= 5+ (T2- 8)* 10:Y9= 4:GOSUB 5110 5060 FOR I= 12TO 1STEP - 1 5070 FO(T2- 7,I+ 1)= FO(T2- 7,I) 5080 NEXT I 5090 FO(T2- 7,1)= F 5100 GOTO 1510 5110 GOSUB 420:RETURN 5180 REM 5190 BC$= BC$+ BC$+ BC$+ BC$+ BC$ 5200 FOR I= 0TO 6:PLOT 3,X9,Y9+ I:PRINT BC$:NEXT I 5210 RETURN 5220 REM 5230 PLOT 6,4 5240 Y8= Y9+ 6:Y8= 31- Y8:Y8= 4* Y8 5250 X8= X9* 2 5260 PLOT 2,X8,Y8,242,X8,Y8+ 27,X8+ 9,Y8+ 27,X8+ 9,Y8,X8,Y8,255 5270 RETURN 5280 END 9000 F1= F:FOR I= 1TO 3:IF F1> 13THEN F1= F1- 13:NEXT I 9010 RETURN 9100 T1= T:FOR I= 1TO 3:IF T1> 13THEN T1= T1- 13:NEXT I 9110 RETURN 9400 L= 2 9410 PLOT 27,10 9420 PLOT 3,L* 9- 1,13:PRINT " ":PLOT 3,L* 9,13:PRINT " " 9430 L= L+ 1:IF L< 8THEN 9420 9440 PLOT 27,24,6,9 9450 PLOT 2,0,0,242,0,127,127,127,127,0,0,0,255 9455 PLOT 6,2 9460 RETURN 9500 GOSUB 9400:GOTO 9509 9501 PLOT 27,10 9502 PLOT 3,L* 9- 1,13:PRINT " ":PLOT 3,L* 9,13:PRINT " " 9504 L= L+ 1:IF L< 8THEN 9502 9505 PLOT 27,24 9509 L= 2 9510 IF TU(L)= 0THEN 9720 9520 LL= 1 9530 F= HT(L,LL) 9540 IF F= 0THEN 9715 9545 IF F= HT(L,LL- 1)THEN 9720 9550 GOSUB 9000 9560 PLOT 3,L* 9- 1,12+ LL 9570 GOSUB 9580:GOTO 9715 9580 IF F> 39THEN PLOT 6,7:CI$= "c":GOTO 9660 9590 IF F> 26THEN PLOT 6,1:CI$= "h":GOTO 9660 9600 IF F> 13THEN PLOT 6,1:CI$= "d":GOTO 9660 9610 PLOT 6,7:CI$= "s" 9660 IF F1= 13THEN PRINT "K";CI$:GOTO 9710 9670 IF F1= 12THEN PRINT "Q";CI$:GOTO 9710 9680 IF F1= 11THEN PRINT "J";CI$:GOTO 9710 9685 IF F1= 10THEN PRINT "T";CI$:GOTO 9710 9690 IF F1= 1THEN PRINT "A";CI$:GOTO 9710 9700 PRINT RIGHT$ ((STR$ (F1)),1);CI$ 9710 RETURN 9715 LL= LL+ 1:IF LL< 7THEN 9530 9720 L= L+ 1:IF L< 8THEN 9510 9740 PLOT 6,38,3,0,0:PRINT "HAND:" 9750 PLOT 3,0,31:PRINT "PILE:" 9760 L1= 1 9770 IF HA(L1)= 0THEN 9840 9780 F= HA(L1) 9790 IF F= 0THEN 9830 9800 GOSUB 9000 9810 PLOT 3,L1* 2+ 3,0 9820 GOSUB 9580 9830 L1= L1+ 1:IF L1< 25THEN 9770 9840 L= 1 9850 IF TN(L)= 0THEN 9920 9860 F= TN(L) 9870 IF F= 0THEN 9910 9880 GOSUB 9000 9890 PLOT 3,L* 2+ 3,31 9900 GOSUB 9580 9910 L= L+ 1:IF L< 25THEN 9850 9920 RETURN 10000 END 15000 CT= 0:FOR I= 1TO 13 15010 IF TA(FM,I)< > 0THEN CT= CT+ 1 15020 NEXT :RETURN