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