Compucolor.org – Virtual Media

Listing of file='FINANC.BAS;01' on disk='vmedia/cards_miller-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 A:C= RND (1):NEXT B
40 GOSUB 1000
50 IF SW= 1THEN 200
70 PLOT 6,6,15,3,0,17:PRINT "DECK A/SHUFFLE ?"
77 OUT 8,255
80 PLOT 6,65,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,70,3,0,18:PRINT "SHUFFLING "
150 GOSUB 40500
160 PLOT 6,2,3,0,18:PRINT P3$
200 GOSUB 2000
210 PLOT 6,3,15:GOSUB 1140
300 REM
305 GOSUB 600
310 REM
320 IF HC< > 0THEN 400
330 FOR A= 1TO 8:IF PF(A,1)< > 0THEN 400:NEXT A
340 REM
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
400 PLOT 6,3,15,3,1,20:PRINT RIGHT$ ((STR$ (MO)),3):MO= MO+ 1
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
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
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
584 IF Q2$< > S1$THEN ER= 12:GOTO 8000
586 GOTO 490
600 REM
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 FOR C= 0TO 750:NEXT C:GOSUB 40300
735 SS(A)= 1
740 GOTO 660
800 REM
801 DATA 7,21,45,11,48,32,25,16
802 DATA 9,4,36,42,49,35,12,30
803 DATA 3,24,28,39,13,31,37,22
804 DATA 5,44,12,47,32,39,29,18
805 DATA 23,51,34,52,47,2,41,46
806 DATA 7,23,19,18,13,50,8,2
807 DATA 8,10,44,9,30,6,41,37
808 DATA 16,43,26,35,29,45,17,15
809 DATA 42,31,15,17,6,26,38,43
810 DATA 10,5,25,52,34,33,20,24
811 DATA 50,51,21,20,48,28,36,38
812 DATA 22,3,46,4,19,11,49,33
900 REM
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
999 PLOT 6,2,27,11,15:END
1000 REM
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,8,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
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
2055 GOSUB 2300
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
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 6,57+ 64,14,3,0,19:PRINT "YOU CAN'T WIN IT"
2146 FOR A= 0TO 5000:NEXT A:PLOT 6,2,14,3,0,19
2148 PRINT P4$:GOTO 9000
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
2300 REM
2310 PLOT 6,6,15,3,0,17:PRINT "CARD COLORS ?"
2335 OUT 8,255
2340 PLOT 6,1,15,3,0,18:INPUT "RD-R,WH-W,BL-B";Q$
2345 OUT 8,247
2350 Q$= LEFT$ (Q$,1)
2360 IF Q$= "R"THEN C1= 8:C2= 15:GOTO 2400
2370 IF Q$= "B"THEN C1= 38:C2= 37:GOTO 2400
2380 C1= 56:C2= 57
2400 PLOT 6,2,15,3,0,18:PRINT P4$
2401 PLOT 6,2,15,3,0,17:PRINT P4$
2405 PLOT 6,C1,14,8:PRINT P5$
2410 PLOT 15:RETURN
2999 RETURN
3000 REM
3010 IF FF= 1AND TT= 1THEN 3100
3020 GOTO 4000
3100 REM
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
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
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
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
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
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
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
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
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
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
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
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
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
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
4670 GOTO 4200
6000 REM
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
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
9000 REM
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 40
9070 SW= 1:GOTO 40
9900 PLOT 6,2,12,27,11,15
9910 LOAD "MENU":RUN
9920 END
39999 REM
40000 REM
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
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
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
40502 FOR A= 1TO 104:KD(A)= 0:NEXT A
40505 PLOT 3,64,0
40510 FOR I= 1TO 96
40520 A= INT (104* RND (1)+ 1)
40540 IF KD(A)= 1THEN 40520
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