Compucolor.org – Virtual Media

Listing of file='LA3.BAS;02' on disk='vmedia/ncc_14-sector.ccvf'

5 CLEAR 200
8 IF PEEK (9700)= 54AND PEEK (9703)= 56THEN 15
10 PLOT 27,4:PRINT "LOA BLPRNT.4X BF00":PLOT 27,27:GOTO 20
15 PLOT 27,4:PRINT "LOA BLPRNT.3X BF00":PLOT 27,27
20 PLOT 12,3,64,0,29
25 Y= 16:YY= 112
30 RS= PEEK (33209):C= RND (- RS)
40 POKE 33283,0:POKE 33284,191
50 DIM T$(3),T1$(3),L$(8)
60 DIM PA(3),LS$(2),LA(3)
70 LS$(1)= "ATESOMCLIBRDN":LS$(2)= "VGUFJHPWZKQXY"
90 PLOT 27,4:PRINT "LOA IMG1.IMG":PLOT 27,27
100 FOR HALF= 1TO 2
110 L$= LS$(HALF)
120 FOR LD= 1TO 13
130 AL= ASC (MID$ (L$,LD,1))- 65
140 GOSUB 4000
150 IF J= LDTHEN 140
160 OL= ASC (MID$ (L$,J,1))- 65
170 PA(1)= (LD- 1)* 600+ 40960:PA(2)= PA(1)+ 300
180 PA(3)= (300* (INT (RND (1)+ .5)))+ (J- 1)* 600+ 40960
190 CN= PA(3)
200 GOSUB 10000
210 PI= 0:POKE 49043,2:POKE 49044,98:REM  POKE START POS
220 FOR DO= 1TO 3
240 GOSUB 4500
250 XC= PA(DO):IF  XC= CN THEN  PI= DO
255 YC= CALL (XC)
260 NEXT DO
275 FOR TI= 1TO 3500:NEXT
300 REM  PAINT LETTER
310 FOR DO= 1TO 3
320 X= (18+ (DO- 1)* 48)
330 IF  DO= PI THEN  LI= OL+ 1:GOTO  350
340 LI= AL+ 1
350 PLOT 6,1:GOSUB 1000
360 NEXT  DO
380 GOSUB 3500
385 POKE 33283,105:BP= PI- 1:BL= CALL (BP)
388 POKE  33283,0
390 GOSUB 4500
392 FOR  TI= 1 TO  2000:NEXT
395 PLOT 12,3,64,0:GOSUB 4500
397 NEXT LD
398 IF HALF= 1THEN PLOT 27,4:PRINT "LOA IMG2.IMG":PLOT 27,27
399 NEXT HALF
400 FOR TI= 1TO 1500:LOAD "MENU":RUN
1000 REM  LETTER SELECTION SUBROUTINE
1010 ON LIGOTO 1040,1140,1230,1300,1390,1470,1570,1680,1750
1020 LI= LI- 9:ON LIGOTO 1810,1880,1970,2000,2130,2220,2280,2350
1030 LI= LI- 8:ON LIGOTO 2450,2530,2590,2680,2750,2810,2880,2960,3040
1040 REM  LETTER A
1050 PLOT 6,4,2,X+ 8,Y+ 12
1060 RESTORE 1080
1070 GOSUB 3140
1080 DATA  251,34,38,38,38,102,70,68,69,69,85,21,21,17,17
1090 DATA 17,25,25,25,153,137,136,138,138,170,234,234,34,239,255
1100 PLOT 2,X+ 8,Y+ 23
1110 GOSUB 3140
1120 DATA  251,17,17,17,17,17,17,17,17,17,17,17,31,255
1130 RETURN
1140 REM  LETTER B
1150 PLOT 2,X- 9,Y+ 39
1160 GOSUB 3100
1170 PLOT 2,X- 8,Y+ 16
1180 RESTORE 1200
1190 GOSUB 3140
1200 DATA  251,42,42,170,138,136,137,137,153,25,25,17,17,17,21,21,21,85,69,68,70,70
1210 DATA  102,38,47,255
1220 RETURN
1230 REM  LETTER C
1240 PLOT 2,X+ 6,Y+ 19
1250 RESTORE 1270
1260 GOSUB 3140
1270 DATA  251,102,100,100,68,84,85,81,81,81,17,17,17,145
1280 DATA  145,153,152,152,136,168,170,175,255
1290 RETURN
1300 REM  LETTER D
1310 PLOT 2,X+ 8,Y+ 39
1320 GOSUB 3100
1330 PLOT 2,X+ 7,Y+ 16
1340 RESTORE 1360
1350 GOSUB 3140
1360 DATA  251,38,38,102,70,68,69,69,85,21,21,17,17,17,25,25,25,153,137,136,138
1370 DATA  138,170,234,234,34,239,255
1380 RETURN
1390 REM  LETTER E
1400 PLOT 6,4,2,X- 8,Y+ 12
1410 RESTORE 1430
1420 GOSUB 3140
1430 DATA  251,136,136,136,136,136,136,136,136,34,38,38,38,102
1440 DATA 70,68,69,69,85,21,21,17,17
1450 DATA 17,25,25,25,153,137,136,138,138,170,255
1460 RETURN
1470 REM  LETTER F
1480 PLOT  2,X+ 3,Y+ 33
1490 RESTORE 1510
1500 GOSUB 3140
1510 DATA  251,38,38,69,21,17,17,17,17,17,17,17,17,17,17,17,17,17,17
1520 DATA  17,17,17,255
1530 PLOT  2,X- 4,Y+ 22
1540 RESTORE 1550:GOSUB 3140
1550 DATA  251,136,136,143,255
1560 RETURN
1570 REM  LETTER G
1580 PLOT  2,X+ 8,Y+ 12
1590 RESTORE 1600:GOSUB 3140
1600 DATA  251,34,38,38,38,102,70,68,69,69,85,21,21,17,17,17,25,25,25
1610 DATA  153,137,136,138,138,170,234,234,34,239,255
1620 PLOT  2,X+ 8,Y+ 23
1630 RESTORE 1640:GOSUB 3140
1640 DATA  251,17,17,17,17,17,17,17,17,17,17,17
1650 DATA  17,17,17,17
1660 DATA  21,21,21,85,69,68,70,70,102,38,38,47,255
1670 RETURN
1680 REM  LETTER H
1690 PLOT  2,X- 9,Y+ 39:GOSUB 3100
1700 PLOT 2,X- 8,Y+ 16
1710 RESTORE 1720:GOSUB 3140
1720 DATA  251,42,42,170,138,136,137,137,153,25,25,17,17,17,17,17,17,17
1730 DATA  31,255
1740 RETURN
1750 REM  LETTER I
1760 PLOT  6,4,2,X,Y+ 23
1770 RESTORE 1780:GOSUB 3140
1780 DATA  251,17,17,17,17,17,17,17,17,17,17,17,31,255
1790 PLOT  2,X,Y+ 27,255
1800 RETURN
1810 REM  LETTER J
1820 PLOT  2,X+ 8,Y+ 23
1830 RESTORE 1840:GOSUB 3140
1840 DATA  251,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17
1850 DATA  21,21,21,85,69,68,70,70,102,38,47,255
1860 PLOT 2,X+ 8,Y+ 27,255
1870 RETURN
1880 REM  LETTER K
1890 PLOT  2,X- 7,Y+ 39:GOSUB 3100
1900 PLOT 2,X- 6,Y+ 12
1910 RESTORE 1920:GOSUB 3140
1920 DATA  251,170,170,170,170,170,175,255
1930 PLOT  2,X- 2,Y+ 14
1940 RESTORE 1950:GOSUB 3140
1950 DATA  251,25,25,25,25,25,25,25,255
1960 RETURN
1970 REM  LETTER L
1980 PLOT 2,X,Y+ 39:GOSUB 3100
1990 RETURN
2000 REM  LETTER M
2010 PLOT 2,X- 14,Y+ 23
2020 RESTORE 2030:GOSUB 3140
2030 DATA  251,17,17,17,17,17,17,17,17,17,17,17,31,255
2040 PLOT 2,X- 13,Y+ 18
2050 RESTORE 2060:GOSUB 3140
2060 DATA  251,42,170,138,136,137,137,145,17,17,17
2070 DATA  17,17,17,17,17,17,31,255
2080 PLOT 2,X,Y+ 21
2090 RESTORE 2100:GOSUB 3140
2100 DATA  251,168,168,136,152,153,145,17,17,17
2110 DATA  17,17,17,17,17,17,255
2120 RETURN
2130 REM  LETTER N
2140 PLOT 2,X- 9,Y+ 23
2150 RESTORE 2160:GOSUB 3140
2160 DATA  251,17,17,17,17,17,17,17,17,17,17,17,31,255
2170 PLOT 2,X- 8,Y+ 16
2180 RESTORE 2180:GOSUB 3140
2190 DATA  251,42,42,170,138,136,137,137,153,25,25
2200 DATA 17,17,17,17,17,17,17,31,255
2210 RETURN
2220 PLOT 6,4:REM  LETTER 0
2230 PLOT 2,X,Y+ 23
2240 RESTORE 2250:GOSUB 3140
2250 DATA  251,68,84,85,81,81,81,17,17,17,145,145,153
2260 DATA 152,152,136,168,170,162,162,162,34,34,34,98,98,102,100,111,255
2270 RETURN
2280 REM  LETTER P
2290 PLOT 2,X- 9,Y+ 23:GOSUB 3100
2300 PLOT 2,X- 8,Y+ 16
2310 RESTORE 2320:GOSUB 3140
2320 DATA  251,42,42,170,138,136,137,137,153,25,25
2330 DATA 17,17,17,21,21,21,85,69,68,70,70,102,38,47,255
2340 RETURN
2350 REM  LETTER Q
2360 PLOT 2,X+ 7,Y+ 12
2370 RESTORE 2380:GOSUB 3140
2380 DATA 251,34,38,38,38,102,70,68,69,69,81,85,21
2390 DATA 17,17,17,25,25,25,153,137,136,138,138,170,234,234,34,239,255
2400 PLOT 2,X+ 7,Y+ 23
2410 RESTORE 2420:GOSUB 3140
2420 DATA 251,17,17,17,17,17,17,17,17
2430 DATA 17,17,17,17,17,17,17,17,17,17,145,152,138,42,47,255
2440 RETURN
2450 REM  LETTER R
2460 PLOT 2,X- 7,Y+ 23
2470 RESTORE 2480:GOSUB 3140
2480 DATA  251,17,17,17,17,17,17,17,17,17,17,17,31,255
2490 PLOT 2,X- 6,Y+ 17
2500 RESTORE 2510:GOSUB 3140
2510 DATA  251,42,42,170,138,137,137,159,255
2520 RETURN
2530 REM  LETTER S
2540 PLOT 2,X+ 7,Y+ 18
2550 RESTORE 2560:GOSUB 3140
2560 DATA 251,98,102,70,68,68,69,69,85,21,25,25,137
2570 DATA 136,136,136,136,137,137,25,17,81,85,84,84,68,68,100,102,98,111,255
2580 RETURN
2590 REM  LETTER T
2600 PLOT 2,X- 1,Y+ 34
2610 RESTORE 2620:GOSUB 3140
2620 DATA 251,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17
2630 DATA 25,25,138,42,255
2640 PLOT 2,X- 4,Y+ 23
2650 RESTORE 2660:GOSUB 3140
2660 DATA  251,136,136,136,255
2670 GOSUB 3130:RETURN
2680 PLOT  6,4:REM  LETTER U
2690 PLOT 2,X- 9,Y+ 23
2700 RESTORE 2710:GOSUB 3140
2710 DATA 251,17,17,17,17,17,17,17,25,25,25,153,137
2720 DATA 136,138,138,170,42,42,34,34,34,34,34,34,34,47
2730 DATA 17,17,17,17,17,17,17,17,17,17,17,31,255
2740 RETURN
2750 REM  LETTER V
2760 PLOT 2,X- 8,Y+ 23
2770 RESTORE 2780:GOSUB 3140
2780 DATA 251,17,145,25,17,145,25,17,145,25,25,25,18,162,162,162
2790 DATA 42,34,162,42,34,162,42,34,255
2800 RETURN
2810 REM  LETTER W
2820 PLOT 2,X- 16,Y+ 23
2830 RESTORE 2840:GOSUB 3140
2840 DATA 251,17,145,25,17,145,25,17,145,25,17,145,18
2850 DATA 42,34,162,42,34,162,42,34,162,42,34,17,145,25,17,145
2860 DATA 25,17,145,25,17,145,18,42,34,162,42,34,162,42,34,162,42,34,255
2870 RETURN
2880 REM  LETTER X
2890 PLOT 2,X- 8,Y+ 25
2900 RESTORE 2910:GOSUB 3140
2910 DATA 251,25,145,153,25,145,153,25,145,153,25,145,153,31,255
2920 PLOT 2,X+ 8,Y+ 25
2930 RESTORE 2940:GOSUB 3140
2940 DATA 251,21,81,85,21,81,85,21,81,85,21,81,85,31,255
2950 RETURN
2960 PLOT 6,4:REM  LETTER Y
2970 PLOT 2,X- 9,Y+ 23
2980 RESTORE 2990:GOSUB 3140
2990 DATA 251,17,17,17,17,17,17,17,25,25,25,153,137
3000 DATA 136,138,138,170,42,42,34,34,34,34,34,34,34,47
3010 DATA 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17
3020 DATA 21,21,21,85,69,68,70,70,102,38,38,47,255
3030 RETURN
3040 REM  LETTER Z
3050 PLOT 2,X- 9,Y+ 23
3060 RESTORE 3070:GOSUB 3140
3070 DATA 251,136,136,136,136,136,136,136,136,21
3080 DATA 81,85,81,85,81,85,81,85,81,85,24,136,136,136,136,136,136,136,143,255
3090 RETURN
3100 RESTORE 3120:GOSUB 3140
3110 RETURN
3120 DATA  251,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,19,255
3130 RETURN
3140 READ P:PLOT P:IF P< > 255THEN 3140
3150 RETURN
3500 REM  PRINTS RED X OVER ODD PICTURE
3505 XX= (PI- 1)* 48+ 1
3510 PLOT 6,1,2,XX,YY,242,XX+ 30,YY- 40,240,17,17,255
3515 PLOT 2,XX+ 30,YY,242,XX,YY- 40,240,17,17,255,6,1
3520 RETURN
4000 REM  PICKS RANDOM NUMBER 1-13
4010 J= INT ((13* RND (1))+ 1)
4020 RETURN
4500 FOR TI= 1TO 750:NEXT :RETURN
5000 REM  PICTURE PAINTING SUBROUTINE
5005 M1= 48914:M2= M1+ 1
5010 IF PP= 1THEN POKE M1,22:POKE M2,112
5020 IF PP= 2THEN POKE M1,150:POKE M2,117
5030 IF PP= 3THEN POKE M1,22:POKE M2,123
5040 Z= CALL (P1)
5045 FOR C1= 1TO 1000:NEXT
5050 RETURN
10000 REM  PICTURE ORDER SHUFFLE ROUTINE
10060 FOR I= 3TO 2STEP - 1
10070 K= I* RND (1)+ 1
10080 J= INT (K)
10090 P1= PA(I)
10100 PA(I)= PA(J)
10110 PA(J)= P1
10120 NEXT I
10130 RETURN