Listing of file='FINANC.BAS;01' on disk='vmedia/chip_13-sector.ccvf'
0 CLEAR 1000 2 P1$= " ":P2$= " ":P3$= " ":P4$= " " 3 P5$= " F$NANC$ER " 4 OUT 8,255:OUT 8,247 10 PLOT 6,2,12,27,24,15 20 DIM DK(96),KD(104),RW(26),RR(8,3),PF(8,9),H(64) 25 DIM SS(24) 30 A= PEEK (33209):FOR B= 0TO 15* A:C= RND (1):NEXT B 40 GOSUB 1000:REM HOUSEKEEPING 50 IF SW= 1THEN 200 70 PLOT 6,6,15,3,0,17:PRINT "DECK A/SHUFFLE ?" 77 OUT 8,255 80 PLOT 6,1,3,0,18:INPUT "A OR HIT RETURN";Q$ 82 OUT 8,247 84 PLOT 6,2,3,0,17:PRINT P4$ 85 PLOT 6,2,3,0,18:PRINT P4$ 90 IF LEFT$ (Q$,1)= "0"THEN 105 95 FOR A= 1TO 96:READ K:DK(A)= K:NEXT A 96 RESTORE 800 100 GOTO 200 105 OUT 8,255 107 POKE 33278,0 110 PLOT 6,65,3,0,18:PRINT "HIT RETURN" 120 I= RND (1) 130 IF PEEK (33278)= 0THEN 120 135 OUT 8,247 140 PLOT 6,2,3,0,18:PRINT "*SHUFFLING" 150 GOSUB 40500:REM SHUFFLE 160 PLOT 6,2,3,0,18:PRINT P3$ 200 GOSUB 2000:REM INITIALIZE VARIABLES AND ARRAYS 210 PLOT 6,3,15:GOSUB 1140 300 REM MAIN ROUTINE 305 GOSUB 600:REM TO BLINK COMPLETE PILES 310 REM CHECK FOR WINNER: HAND EMPTY AND PLAYING ROW EMPTY 320 IF HC< > 0THEN 400 330 FOR A= 1TO 8 332 IF PF(A,1)< > 0THEN 400 334 NEXT A 340 REM A WINNER 350 PLOT 6,65,14,3,0,19:PRINT "YOU WIN !!" 360 FOR A= 0TO 999:NEXT A:PLOT 6,2,14,3,0,19:PRINT P3$ 370 GOTO 9000:REM END OF JOB 400 PLOT 6,3,15,3,1,20:PRINT RIGHT$ ((STR$ (MO)),3):MO= MO+ 1 402 IF MO= 10THEN PLOT 6,2:FOR A= 3TO 16:PLOT 3,0,A:PRINT P4$:NEXT A 410 PLOT 6,1,15,3,0,18:OUT 8,255:INPUT "FROM: ";Q1$ 415 PLOT 6,2,15,3,0,18:PRINT P4$ 420 PLOT 6,6,15,3,0,18:INPUT "TO: ";Q2$ 430 OUT 8,247 440 PLOT 6,2,15,3,0,18:PRINT P4$ 450 Q1$= LEFT$ (Q1$,1):Q2$= LEFT$ (Q2$,1) 460 PLOT 6,1,15,3,14,20:PRINT Q1$ 470 PLOT 6,6,15,3,14,22:PRINT Q2$ 480 IF Q1$= "Z"AND Q2$= "Z"THEN 900:REM YOU QUIT 481 IF Q1$= "Y"AND Q2$= "Y"THEN PLOT 6,2:FOR A= 3TO 16:PLOT 3,0,A:PRINT P4$:NEXT A:GOTO 300 482 IF S5= 1THEN 582 490 IF Q1$= "0"AND Q2$= "0"THEN FF= 0:TT= 0:GOTO 6000:REM HAND TO PLAYING ROW 500 IF Q1$= Q2$THEN ER= 1:GOTO 8000 510 IF Q2$< "A"OR Q2$> "X"THEN ER= 2:GOTO 8000 520 IF Q1$< "1"THEN ER= 3:GOTO 8000 530 IF Q1$> "X"THEN ER= 3:GOTO 8000 540 IF Q1$< "A"AND Q1$> "8"THEN ER= 3:GOTO 8000 550 IF Q1$< "Y"AND Q1$> "@"THEN FF= 1 560 IF Q1$< "9"AND Q1$> "0"THEN FF= 2 570 IF Q2$< "Y"AND Q2$> "@"THEN TT= 1 580 GOTO 3000 582 REM NEXT CARD MUST BE TO LOCATION IN S1$ 584 IF Q2$< > S1$THEN ER= 12:GOTO 8000 586 GOTO 490 600 REM REMOVE CARDS FOR COMPLETE PILE 610 PLOT 6,0 620 FOR A= 1TO 24 630 IF SS(A)= 1THEN 660 635 IF RW(A)= 0THEN 660 640 B= RW(A):FOR C= 1TO 3:IF B> 13THEN B= B- 13:NEXT C 650 IF A> 16AND B= 13THEN 700 651 IF A> 16THEN 660 652 IF A> 8AND B= 12THEN 700 653 IF A> 8THEN 660 654 IF B= 11THEN 700 660 NEXT A 665 PLOT 6,2 670 RETURN 700 X= A:FOR C= 1TO 3:IF X> 8THEN X= X- 8:NEXT C 705 X= X* 6+ 13 708 Y= 7 710 IF A> 16AND A< 25THEN Y= 23 712 IF A> 8AND A< 17THEN Y= 15 715 PLOT 3,X,Y:PRINT " " 720 X9= X- 2:Y9= Y- 7:BC$= " ":PLOT 6,2 730 GOSUB 40300 735 SS(A)= 1 740 GOTO 660 800 REM DATA FOR WINNING DECK (A) BUILT INTO PRGOGRAM 801 DATA 25,41,26,38,47,31,2,49 802 DATA 25,48,44,51,30,44,13,18 803 DATA 43,45,29,12,20,31,50,8 804 DATA 5,30,16,42,11,11,45,13 805 DATA 33,12,49,35,10,39,2,6 806 DATA 46,8,17,18,34,29,24,21 807 DATA 3,23,37,33,17,21,20,7 808 DATA 4,51,50,5,48,19,43,34 809 DATA 22,35,32,52,42,16,23,7 810 DATA 4,9,26,22,19,10,32,46 811 DATA 28,52,47,3,41,39,36,24 812 DATA 15,28,38,6,37,15,9,36 900 REM YOU LOSE 910 PLOT 6,68,14,3,0,19:PRINT "YOU LOSE !!" 920 FOR A= 0TO 999:NEXT A:PLOT 6,2,14,3,0,19:PRINT " " 930 GOTO 9000:REM END OF JOB 999 PLOT 6,2,27,11,15:END 1000 REM HOUSEKEEPING 1002 PLOT 6,6,15,3,23,15 1004 PRINT "COPYRIGHT 1979 BY DONALD R MILLER" 1010 PLOT 6,1 1020 FOR Y9= 0TO 16STEP 8 1030 FOR X9= 17TO 59STEP 6 1040 GOSUB 40420 1050 NEXT X9,Y9 1060 Y9= 24 1070 PLOT 6,7 1080 FOR X9= 0TO 56STEP 8 1090 GOSUB 40420 1100 NEXT X9 1110 PLOT 6,56,14,8:PRINT P5$ 1120 PLOT 15,6,3,3,19,7 1130 PRINT "A B C D E F G H" 1132 GOTO 1160 1140 PLOT 3,19,15 1150 PRINT "I J K L M N O P" 1152 RETURN 1160 PLOT 3,19,23 1170 PRINT "Q R S T U V W X" 1180 PLOT 6,1,3,2,31 1190 PRINT "1 2 3 4 5 6 7 8" 1200 PLOT 27,10,6,4,3,63,24:PRINT "QUIT Z&Z":PLOT 27,24 1210 PLOT 6,2,3,1,19 1220 PRINT " " 1230 PLOT 3,1,21 1240 PRINT "jje b a" 1250 PLOT 3,0,20:PRINT "b aMOVESbFM: a" 1260 PLOT 3,0,22 1270 PRINT "b aHAND bTO: a" 1280 PLOT 3,1,23 1290 PRINT "ee eeee" 1300 PLOT 27,10,6,6,3,16,3 1310 PRINT "ROW ROW ROW" 1320 PLOT 27,24 1330 PLOT 6,1,14,3,16,1:PRINT "2" 1340 PLOT 3,16,9:PRINT "3" 1350 PLOT 3,16,17:PRINT "4" 1360 PLOT 15,6,2,3,0,3:PRINT "OBJECT: BUILD," 1370 PLOT 3,0,4:PRINT "IN SUIT, SKIP" 1380 PLOT 3,0,5:PRINT "(2) SEQUENCE:" 1390 PLOT 3,0,6:PRINT " 2 ROW:2-5-8-J" 1400 PLOT 3,0,7:PRINT " 3 ROW:3-6-9-Q" 1410 PLOT 3,0,8:PRINT " 4 ROW:4-7-T-K" 1420 PLOT 3,0,9:PRINT "TO WIN, 8 J IN" 1430 PLOT 3,0,10:PRINT "2 ROW, Q IN 3," 1440 PLOT 3,0,11:PRINT "K IN 4 ROW." 1450 PLOT 3,0,12:PRINT "MOVE FROM 1-9" 1460 PLOT 3,0,13:PRINT "& A-X, TO A-X," 1470 PLOT 3,0,14:PRINT "1 CARD.0 BLANK" 1480 PLOT 3,0,15:PRINT "A-X.NEXT CARD?" 1490 PLOT 3,0,16:PRINT "2 RETURNS." 1999 PLOT 15,6,2:RETURN 2000 REM INITIALIZE VARIABLES AND ARRAYS 2002 FOR A= 1TO 8:FOR B= 1TO 9:PF(A,B)= 0:NEXT B,A 2004 FOR A= 1TO 24:SS(A)= 0:NEXT A 2010 FOR I= 1TO 24:RW(I)= DK(I):NEXT I 2020 FOR I= 25TO 32:PF(I- 24,1)= DK(I):NEXT I 2030 FOR I= 33TO 96:H(I- 32)= DK(I):NEXT I 2040 PLOT 6,7,15,3,1,22:PRINT "64" 2050 HC= 64 2060 A= 1:FOR Y9= 0TO 16STEP 8:FOR X9= 17TO 59STEP 6:X= RW(A):GOSUB 40000:A= A+ 1:NEXT X9,Y9 2070 A= 1:Y9= 24:FOR X9= 0TO 56STEP 8:X= PF(A,1):GOSUB 40000:A= A+ 1:NEXT X9 2080 MO= 0 2100 PLOT 6,0 2105 CT= 0 2107 S5= 0 2110 FOR A= 1TO 24 2120 RN= INT ((A- 1)/ 8)+ 1:RN= RN+ 1 2122 D= RW(A):FOR C= 1TO 3:IF D> 13THEN D= D- 13:NEXT C 2130 IF D< > RNTHEN 2160 2140 NEXT A 2142 IF CT< > 24THEN 2150 2144 PLOT 15,6,121,3,0,18:PRINT "YOU CAN'T WIN IT" 2146 FOR A= 0TO 1000:NEXT A:PLOT 6,2,15,3,0,18 2148 PRINT P4$:GOTO 135 2150 GOTO 2220 2160 SS(A)= 1 2165 CT= CT+ 1 2170 Y= INT ((A- 1)/ 8)+ 1:Y= Y* 8- 2 2180 A3= A:FOR B= 1TO 3:IF A3> 8THEN A3= A3- 8:NEXT B 2190 X= A3* 6+ 11 2200 PLOT 3,X+ 2,Y:PRINT " " 2210 GOTO 2140 2220 RETURN 3000 REM Q1$ AND Q2$ ARE IN PROPER RANGES. NOW CHECK FOR VALID MOVE. 3010 IF FF= 1AND TT= 1THEN 3100 3020 GOTO 4000:REM MUST BE PLAYING ROW TO 2-4 ROW 3100 REM 2-4 ROW TO 2-4 ROW 3110 FM= ASC (Q1$)- 64 3120 T2= ASC (Q2$)- 64 3125 IF SS(T2)= 1THEN ER= 11:GOTO 8000 3127 IF SS(FM)= 0THEN ER= 11:GOTO 8000 3130 F= RW(FM) 3140 T= RW(T2) 3150 F1= F:FOR A= 1TO 3:IF F1> 13THEN F1= F1- 13:NEXT A 3160 T1= T:FOR A= 1TO 3:IF T1> 13THEN T1= T1- 13:NEXT A 3170 IF F= 0THEN ER= 5:GOTO 8000 3180 IF T< > 0THEN 3600 3190 REM FROM 2-4 ROW TO OPEN SPOT 3200 RN= INT ((T2- 1)/ 8)+ 1 3210 RN= RN+ 1 3220 IF RN< > F1THEN ER= 6:GOTO 8000 3225 IF F1> 4THEN ER= 7:GOTO 8000 3230 REM NOW DRAW CARD IN TO SPOT 3240 X= F:Y9= (RN- 1)* 8- 8 3250 T3= T2:FOR A= 1TO 3:IF T3> 8THEN T3= T3- 8:NEXT A 3260 X9= T3* 6+ 11 3270 GOSUB 40000 3280 RW(T2)= X 3290 REM NOW BLANK OUT OLD CARD 3300 BC$= " " 3310 Y9= (INT ((FM- 1)/ 8)+ 1)* 8- 8 3320 F3= FM:FOR A= 1TO 3:IF F3> 8THEN F3= F3- 8:NEXT A 3330 X9= F3* 6+ 11 3335 PLOT 6,2 3340 GOSUB 40300 3350 RW(FM)= 0 3355 SS(FM)= 0 3370 GOSUB 3400:GOTO 300 3400 REM EMPTY SPACE. SAVE SPACE, TURN ON SWITCH, PUT OUT MESSAGE 3410 S1$= Q1$:S5= 1 3420 PLOT 6,68,15,3,X9,Y9:PRINT "YOUR" 3430 PLOT 3,X9,Y9+ 1:PRINT "NEXT" 3440 PLOT 3,X9,Y9+ 2:PRINT "MOVE" 3450 PLOT 3,X9,Y9+ 3:PRINT "MUST" 3460 PLOT 3,X9,Y9+ 4:PRINT " BE" 3470 PLOT 3,X9,Y9+ 5:PRINT " TO" 3480 PLOT 3,X9,Y9+ 6:PRINT "HERE" 3490 RETURN 3600 REM FROM 2-4 ROW TO EXISTING CARD 3610 A= INT ((F- 1)/ 13)+ 1 3620 B= INT ((T- 1)/ 13)+ 1 3630 IF A< > BTHEN ER= 8:GOTO 8000 3640 IF T1+ 3< > F1THEN ER= 9:GOTO 8000 3650 RN= INT ((T2- 1)/ 8)+ 1:RN= RN+ 1 3700 RW(T2)= F 3710 REM NOW DRAW CARD IN 'TO' SPOT 3720 X= F:Y9= (RN- 1)* 8- 8 3730 T3= T2:FOR A= 1TO 3:IF T3> 8THEN T3= T3- 8:NEXT A 3740 X9= T3* 6+ 11 3750 GOSUB 40000 3755 REM NOW DRAW CARD IN 'FROM' SPOT 3760 BC$= " " 3770 Y9= (INT ((FM- 1)/ 8)+ 1)* 8- 8 3780 F3= FM:FOR A= 1TO 3:IF F3> 8THEN F3= F3- 8:NEXT A 3790 X9= F3* 6+ 11 3800 PLOT 6,2 3810 GOSUB 40300 3820 RW(FM)= 0 3825 SS(FM)= 0 3840 GOSUB 3400 3850 GOTO 300 4000 REM PLAYING ROW TO 2-4 ROW 4010 FM= ASC (Q1$)- 48 4020 T2= ASC (Q2$)- 64 4025 IF SS(T2)= 1THEN ER= 11:GOTO 8000 4030 F= PF(FM,1) 4040 T= RW(T2) 4050 F1= F:FOR A= 1TO 3:IF F1> 13THEN F1= F1- 13:NEXT A 4060 T1= T:FOR A= 1TO 3:IF T1> 13THEN T1= T1- 13:NEXT A 4070 IF F= 0THEN ER= 5:GOTO 8000 4080 IF T< > 0THEN 4500 4090 REM FROM PLAYING ROW TO 2-4 ROW OPEN SPOT 4100 RN= INT ((T2- 1)/ 8)+ 1 4110 RN= RN+ 1 4120 IF RN< > F1THEN ER= 6:GOTO 8000 4130 IF F1> 4THEN ER= 7:GOTO 8000 4140 REM NOW DRAW CARD IN 'TO' SPOT 4150 X= F:Y9= (RN- 1)* 8- 8 4160 T3= T2:FOR A= 1TO 3:IF T3> 8THEN T3= T3- 8:NEXT A 4170 X9= T3* 6+ 11 4180 GOSUB 40000 4190 RW(T2)= X 4200 REM NOW BLANK OUT OLD CARD 4210 FOR A= 1TO 8 4220 PF(FM,A)= PF(FM,A+ 1) 4230 NEXT A 4235 PF(FM,9)= 0 4236 S5= 0 4240 IF PF(FM,1)= 0THEN 4400 4250 X= PF(FM,1):X9= FM* 8- 8:Y9= 24:GOSUB 40000 4260 BA= 2:BB= 9:AA= FM:AB= FM:GOTO 6152 4400 BC$= " " 4410 Y9= 24:X9= FM* 8- 8:PLOT 6,2 4420 GOSUB 40300 4430 PLOT 6,6 4440 GOSUB 40420 4450 FOR A= 24TO 31:PLOT 3,X9+ 5,A:PRINT " ":NEXT A 4460 GOTO 300 4500 REM FROM PLAYING ROW TO 2-4 OVER EXISTING CARD 4510 A= INT ((F- 1)/ 13)+ 1 4520 B= INT ((T- 1)/ 13)+ 1 4530 IF A< > BTHEN ER= 8:GOTO 8000 4540 IF T1+ 3< > F1THEN ER= 9:GOTO 8000 4550 RN= INT ((T2- 1)/ 8)+ 1:RN= RN+ 1 4600 RW(T2)= F 4605 S5= 0 4610 REM NOW DRAW CARD IN 'TO' SPOT 4620 X= F:Y9= (RN- 1)* 8- 8 4630 T3= T2:FOR A= 1TO 3:IF T3> 8THEN T3= T3- 8:NEXT A 4640 X9= T3* 6+ 11 4650 GOSUB 40000 4660 REM NOW DRAW CARD IN 'TO' SPOT 4670 GOTO 4200 6000 REM HAND TO PLAYING ROW 6010 IF HC= 0THEN ER= 4:GOTO 8000 6020 HC= HC- 8 6025 PLOT 6,7,15,3,1,22:PRINT RIGHT$ ((STR$ (HC)),2) 6030 FOR A= 1TO 8 6040 FOR B= 8TO 1STEP - 1 6050 PF(A,B+ 1)= PF(A,B) 6060 NEXT B 6070 PF(A,1)= H(A) 6080 NEXT A 6100 FOR A= 1TO 56 6110 H(A)= H(A+ 8) 6130 NEXT A 6140 REM 6150 A= 1:Y9= 24:FOR X9= 0TO 56STEP 8:X= PF(A,1):GOSUB 40000:A= A+ 1:NEXT X9 6151 AA= 1:AB= 8:BA= 2:BB= 9 6152 REM 6160 A= AA 6162 PLOT 6,2,15,27,10 6163 X= A* 8- 3:Y= 24 6164 PLOT 3,X,Y:PRINT P2$ 6166 PLOT 3,X+ 1,Y:PRINT P2$ 6168 PLOT 27,24,6,6,15 6170 B= BA 6180 F= PF(A,B) 6190 IF F= 0THEN 6420 6200 F1= F:FOR C= 1TO 3 6210 IF F1> 13THEN F1= F1- 13 6220 NEXT C 6230 PLOT 3,A* 8- 3,B+ 22 6240 D= INT ((F- 1)/ 13)+ 1 6250 PLOT 6,7 6260 IF D= 2OR D= 3THEN PLOT 6,1 6270 IF F1= 1THEN CD$= "A":GOTO 6450 6280 IF F1= 10THEN CD$= "T":GOTO 6450 6290 IF F1= 11THEN CD$= "J":GOTO 6450 6300 IF F1= 12THEN CD$= "Q":GOTO 6450 6310 IF F1= 13THEN CD$= "K":GOTO 6450 6320 PRINT RIGHT$ ((STR$ (F1)),1) 6330 PLOT 3,A* 8- 2,B+ 22 6340 IF D= 1THEN PRINT "s" 6350 IF D= 2THEN PRINT "d" 6360 IF D= 3THEN PRINT "h" 6370 IF D= 4THEN PRINT "c" 6400 B= B+ 1:IF B< BB+ 1THEN 6180 6420 A= A+ 1:IF A< AB+ 1THEN 6162 6425 S5= 0 6449 GOTO 300 6450 PRINT CD$:GOTO 6330 8000 REM ERROR, PUT OUT MESSAGE AND TRY AGAIN 8010 MO= MO- 1 8020 PLOT 6,1,15,3,14,20:PRINT Q1$ 8030 PLOT 6,6,15,3,14,22:PRINT Q2$ 8035 PLOT 6,6,15,3,0,18 8040 ON ERGOSUB 8110,8120,8130,8140,8150,8160,8170,8180,8190,8200,8210,8220 8050 FOR A= 0TO 999:NEXT A 8060 PLOT 6,2,15,3,0,18:PRINT P4$ 8100 GOTO 400 8110 PRINT "FROM & TO SAME":RETURN 8120 PRINT "TO NOT A-X":RETURN 8130 PRINT "FROM NOT 1-8,A-X":RETURN 8140 PRINT "NO MORE CARDS":RETURN 8150 PRINT "FROM IS EMPTY":RETURN 8160 PRINT "SKIP SEQUENCE NG":RETURN 8170 PRINT "NOT BOTTOM CARD":RETURN 8180 PRINT "CARD SUIT NOT OK":RETURN 8190 PRINT "SEQUENCE NO GOOD":RETURN 8200 PRINT "TO CARD NO GOOD":RETURN 8210 PRINT "NOT BASE CARD":RETURN 8220 PRINT "MUST FILL BLANK":RETURN 8500 REM CHECK TO BE SURE WILL ONLY HAVE ONE GAP IN 2-4 ROWS MAXIMUM 9000 REM END OF JOB 9001 S5= 0 9005 OUT 8,255 9010 PLOT 6,1,14,3,0,19:INPUT "AGAIN (Y/N) ?";Q$ 9020 IF LEFT$ (Q$,1)< > "Y"THEN 9900 9030 PLOT 6,2,14,3,0,19:PRINT " " 9040 FOR A= 0TO 999:NEXT A 9050 PLOT 6,6,14,3,0,19:INPUT "SAME DECK ?";Q$ 9055 OUT 8,247 9056 PLOT 6,2,12,27,24,15 9060 IF LEFT$ (Q$,1)< > "Y"THEN SW= 0:GOTO 40 9070 SW= 1:GOTO 40 9900 PLOT 6,2,12,27,11,15 9910 LOAD "MENU":RUN 9920 END 39999 REM DRAW CARD AT X9,Y9, FROM X(1-52) 40000 C1= 56:C2= 57 40005 IF X> 39THEN Q= X- 39:P$= "c":PLOT 6,C1:GOTO 40040 40010 IF X> 26THEN Q= X- 26:P$= "h":PLOT 6,C2:GOTO 40040 40020 IF X> 13THEN Q= X- 13:P$= "d":PLOT 6,C2:GOTO 40040 40030 Q= X:P$= "s":PLOT 6,C1 40035 IF X= 0THEN RETURN 40040 PLOT 27,10:FOR II= 0TO 4:PLOT 3,X9+ II,Y9:PRINT P1$:NEXT II 40050 IF Q> 9THEN 40120 40060 IF Q> 5THEN 40130 40070 IF Q> 3THEN 40140 40080 IF Q= 1OR Q= 5OR Q= 7THEN 40150 40090 IF Q= 2OR Q= 8THEN 40160 40100 IF Q= 3OR Q= 9OR Q> 10THEN 40170 40110 GOTO 40180 40120 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 40100 40130 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$" "P$:GOTO 40080 40140 PLOT 3,X9+ 1,Y9+ 1:PRINT P$" "P$:PLOT 3,X9+ 3,Y9+ 1:PRINT P$" "P$:GOTO 40080 40150 PLOT 3,X9+ 2,Y9+ 3:PRINT P$:GOTO 40180 40160 PLOT 3,X9+ 2,Y9+ 2:PRINT P$" "P$:GOTO 40180 40170 PLOT 3,X9+ 2,Y9+ 1:PRINT P$" "P$" "P$ 40180 IF Q= 1THEN PLOT 3,X9,Y9:PRINT "A":PLOT 3,X9+ 4,Y9+ 6:PRINT "A":GOTO 40270 40190 IF Q> 9THEN 40210 40200 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),1):PLOT 3,X9+ 4,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),1):GOTO 40270 40210 PLOT 27,24:IF Q> 10THEN 40230 40220 PLOT 3,X9,Y9:PRINT RIGHT$ ((STR$ (Q)),2):PLOT 3,X9+ 3,Y9+ 6:PRINT RIGHT$ ((STR$ (Q)),2):GOTO 40270 40230 IF Q= 11THEN CD$= "J":GOTO 40260 40240 IF Q= 12THEN CD$= "Q":GOTO 40260 40250 CD$= "K" 40260 PLOT 3,X9,Y9:PRINT CD$:PLOT 3,X9+ 4,Y9+ 6:PRINT CD$:PLOT 3,X9+ 2,Y9+ 3:PRINT CD$ 40270 PLOT 27,24,3,64,0:RETURN 40300 REM DRAW BACK OF CARD FROM X9,Y9,BC$(PATTERN) 40310 BC$= BC$+ BC$+ BC$+ BC$+ BC$ 40320 FOR I= 0TO 6 40330 PLOT 3,X9,Y9+ I 40340 PRINT BC$ 40350 NEXT I 40355 PLOT 3,64,0 40360 RETURN 40400 REM DRAW BLUE BORDER AROUND EMPTY CARD FROM X9,Y9 40410 PLOT 6,4 40420 PLOT 3,X9,Y9:PRINT "neeeo" 40430 PLOT 3,X9,Y9+ 6:PRINT "lm" 40440 PLOT 27,10 40450 PLOT 3,X9,Y9+ 1:PRINT "aaaaa" 40460 PLOT 3,X9+ 4,Y9+ 1:PRINT "bbbbb":PLOT 27,24 40465 PLOT 3,64,0 40470 RETURN 40500 REM SHUFFLE DECK INTO DK(1-96),USE KD TO STOP DUPES 40502 FOR A= 1TO 104:KD(A)= 0:NEXT A 40505 PLOT 6,1,15 40510 FOR I= 96TO 1STEP - 1 40512 PLOT 3,18,15:PRINT I;" " 40514 PLOT 3,64,0 40520 A= INT (104* RND (1)+ 1) 40525 AA= PEEK (33209) 40530 IF AA= 3* ITHEN FOR B= 0TO I:C= RND (1):NEXT B 40540 IF KD(A)= 1THEN 40520:REM DUPE 40550 KD(A)= 1 40560 IF A> 52THEN A= A- 52 40565 IF A= 1OR A= 14OR A= 27OR A= 40THEN 40520 40570 DK(I)= A 40580 NEXT I 40600 RETURN