Compucolor.org – Virtual Media

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