Listing of file='LA1.BAS;01' on disk='vmedia/ncc_14-sector.ccvf'
3 PLOT 12,3,64,0,27,4:PRINT "LOA IMAGE.IMG":PLOT 27,27 4 OUT 8,4:PLOT 12,3,64,0,29:T1= 15:RS= PEEK (33209):C= RND (- RS):POKE 33284,191:POKE 33283,0 5 IF PEEK (9700)= 54AND PEEK (9703)= 56THEN 8 6 PLOT 27,4:PRINT "LOA BLPRT4":PLOT 27,27:GOTO 10 8 PLOT 27,4:PRINT "LOA BLPRT3":PLOT 27,27 10 DIM T$(3),T1$(3),L$(8):FOR C= 0TO 8:READ L$(C):NEXT 30 DATA "AT","ESO","MCL","IBR","DNV","GUF","JHP","WZK","QXY" 40 FOR LD= 0TO 8:A$= L$(LD):L= LEN (A$):GOSUB 10000 60 A1$= T$(3)+ T$(1)+ T$(2):IF L= 2THEN A1$= T$(2)+ T$(1) 70 FOR PP= 1TO L:P$= T$(PP):X= 92:Y= 88- (PP- 1)* 44:P1= ASC (P$)- 65:LI= P1+ 1:GOSUB 5000 80 PLOT 6,1:GOSUB 6000 81 GOSUB 3003 82 NEXT PP 85 GOSUB 3001 90 PLOT 12,3,64,0:GOSUB 3001 100 FOR C2= 1TO L:GOSUB 10000 110 FOR C= 1TO L:T1$(C)= MID$ (A$,C,1):NEXT 115 P1= ASC (MID$ (A1$,C2,1))- 65:PP= 2:GOSUB 5000 118 GOSUB 10000 120 FOR C= 1TO L:Y= 88- (C- 1)* 44:LI= ASC (T1$(C))- 64:PLOT 6,1 125 IF LI= P1+ 1THEN CA= LI+ 64:FP= C 127 GOSUB 6000 130 IF C= LTHEN 140:GOSUB 3000 140 NEXT C 145 RP= CALL (239):IF RP= CATHEN 160 152 NA= NA+ 1:PLOT 12,3,64,0:WA= WA+ 1:IF WA= 3THEN 218 154 LD= LD- 1:GOTO 215 160 POKE 33283,112:Z= CALL (FP- 1):POKE 33283,0:GOSUB 3003 180 NC= NC+ 1:NA= NA+ 1:WA= 0:PLOT 12,3,64,0:GOSUB 3000 210 NEXT C2 215 NEXT LD 218 PC= INT (100* NC/ NA)/ 100:IF PC= 0 THEN PLOT 6,54,12:GOTO 270 220 GOSUB 4000 270 PLOT 3,17,25,15,14:PRINT "YOUR PERCENTAGE CORRECT IS ";PC* 100 275 IF WA= 3THEN PLOT 6,113,3,16,29:PRINT "ABORT - THREE CONSECUTIVE ERRORS" 280 GOSUB 3003 289 PLOT 6,7,3,0,0,15:OUT 8,255:LOAD "MENU":RUN 290 REM 310 PLOT 6,4,2,X+ 8,Y+ 16:RESTORE 340:GOSUB 2280 340 DATA 251,34,38,38,38,102,70,68,69,69,85,21,21,17,17 350 DATA 17,25,25,25,153,137,136,138,138,170,234,234,34,239,255 360 PLOT 2,X+ 8,Y+ 27 370 GOSUB 2280 380 DATA 251,17,17,17,17,17,17,17,17,17,17,17,31,255 395 RETURN 400 REM 410 PLOT 2,X- 9,Y+ 39:GOSUB 2240 430 PLOT 2,X- 8,Y+ 16:RESTORE 460:GOSUB 2280 460 DATA 251,42,42,170,138,136,137,137,153,25,25,17,17,17,21,21,21,85,69,68,70,70 470 DATA 102,38,47,255 480 RETURN 490 REM 510 PLOT 2,X+ 6,Y+ 27:RESTORE 540:GOSUB 2280 520 RESTORE 540 530 GOSUB 2280 540 DATA 251,102,100,100,68,84,85,81,81,81,17,17,17,145 550 DATA 145,153,152,152,136,168,170,175,255 560 RETURN 570 REM 580 PLOT 2,X+ 8,Y+ 39 590 GOSUB 2240 600 PLOT 2,X+ 7,Y+ 16 610 RESTORE 630 620 GOSUB 2280 630 DATA 251,38,38,102,70,68,69,69,85,21,21,17,17,17,25,25,25,153,137,136,138 640 DATA 138,170,234,234,34,239,255 650 RETURN 660 REM 680 PLOT 6,4,2,X- 8,Y+ 20 690 RESTORE 710 700 GOSUB 2280 710 DATA 251,136,136,136,136,136,136,136,136,34,38,38,38,102 720 DATA 70,68,69,69,85,21,21,17,17 730 DATA 17,25,25,25,153,137,136,138,138,170,255 745 RETURN 750 REM 770 PLOT 2,X+ 3,Y+ 35 780 RESTORE 800 790 GOSUB 2280 800 DATA 251,38,38,69,21,17,17,17,17,17,17,17,17,17,17,17,17,17,17 810 DATA 17,17,17,255 820 PLOT 2,X- 4,Y+ 24 830 RESTORE 840:GOSUB 2280 840 DATA 251,136,136,143,255 850 RETURN 860 REM 870 PLOT 2,X+ 8,Y+ 28 880 RESTORE 890:GOSUB 2280 890 DATA 251,34,38,38,38,102,70,68,69,69,85,21,21,17,17,17,25,25,25 900 DATA 153,137,136,138,138,170,234,234,34,239,255 910 PLOT 2,X+ 8,Y+ 39 920 RESTORE 930:GOSUB 2280 930 DATA 251,17,17,17,17,17,17,17,17,17,17,17 940 DATA 17,17,17,17 950 DATA 21,21,21,85,69,68,70,70,102,38,38,47,255 955 RETURN 960 REM 970 PLOT 2,X- 9,Y+ 39:GOSUB 2240 980 PLOT 2,X- 8,Y+ 16 990 RESTORE 1000:GOSUB 2280 1000 DATA 251,42,42,170,138,136,137,137,153,25,25,17,17,17,17,17,17,17 1010 DATA 31,255 1020 RETURN 1030 REM 1050 PLOT 6,4,2,X,Y+ 27 1060 RESTORE 1070:GOSUB 2280 1070 DATA 251,17,17,17,17,17,17,17,17,17,17,17,31,255 1080 PLOT 2,X,Y+ 31,255 1085 RETURN 1090 REM 1110 PLOT 2,X+ 8,Y+ 35 1120 RESTORE 1130:GOSUB 2280 1130 DATA 251,17,17,17,17,17,17,17,17,17,17,17,17,17 1140 DATA 21,21,21,85,69,68,70,70,102,38,47,255 1142 PLOT 2,X+ 8,Y+ 39,255 1145 RETURN 1150 REM 1160 PLOT 2,X- 7,Y+ 39:GOSUB 2240 1170 PLOT 2,X- 6,Y+ 12 1180 RESTORE 1190:GOSUB 2280 1190 DATA 251,170,170,170,170,170,175,255 1200 PLOT 2,X- 2,Y+ 14 1210 RESTORE 1220:GOSUB 2280 1220 DATA 251,25,25,25,25,25,25,25,255 1225 RETURN 1230 REM 1240 PLOT 2,X,Y+ 39:GOSUB 2240 1245 RETURN 1250 REM 1260 PLOT 2,X- 14,Y+ 31 1270 RESTORE 1280:GOSUB 2280 1280 DATA 251,17,17,17,17,17,17,17,17,17,17,17,31,255 1290 PLOT 2,X- 13,Y+ 26 1300 RESTORE 1310:GOSUB 2280 1310 DATA 251,42,170,138,136,137,137,145,17,17,17 1320 DATA 17,17,17,17,17,17,31,255 1330 PLOT 2,X,Y+ 29 1340 RESTORE 1350:GOSUB 2280 1350 DATA 251,168,168,136,152,153,145,17,17,17 1360 DATA 17,17,17,17,17,17,255 1365 RETURN 1370 REM 1380 PLOT 2,X- 9,Y+ 31 1390 RESTORE 1400:GOSUB 2280 1400 DATA 251,17,17,17,17,17,17,17,17,17,17,17,31,255 1410 PLOT 2,X- 8,Y+ 24 1420 RESTORE 1420:GOSUB 2280 1430 DATA 251,42,42,170,138,136,137,137,153,25,25 1440 DATA 17,17,17,17,17,17,17,31,255 1445 RETURN 1450 PLOT 6,4 1470 PLOT 2,X,Y+ 31 1480 RESTORE 1490:GOSUB 2280 1490 DATA 251,68,84,85,81,81,81,17,17,17,145,145,153 1500 DATA 152,152,136,168,170,162,162,162,34,34,34,98,98,102,100,111,255 1505 RETURN 1510 REM 1520 PLOT 2,X- 9,Y+ 39:GOSUB 2240 1530 PLOT 2,X- 8,Y+ 32 1540 RESTORE 1550:GOSUB 2280 1550 DATA 251,42,42,170,138,136,137,137,153,25,25 1560 DATA 17,17,17,21,21,21,85,69,68,70,70,102,38,47,255 1565 RETURN 1570 REM 1580 PLOT 2,X+ 8,Y+ 28 1590 RESTORE 1600:GOSUB 2280 1600 DATA 251,34,38,38,38,102,70,68,69,69,81,85,21 1610 DATA 17,17,17,25,25,25,153,137,136,138,138,170,234,234,34,239,255 1620 PLOT 2,X+ 8,Y+ 39 1630 RESTORE 1640:GOSUB 2280 1640 DATA 251,17,17,17,17,17,17,17,17 1650 DATA 17,17,17,17,17,17,17,17,17,17,145,152,138,42,47,255 1655 RETURN 1660 REM 1670 PLOT 2,X- 7,Y+ 30 1680 RESTORE 1690:GOSUB 2280 1690 DATA 251,17,17,17,17,17,17,17,17,17,17,17,31,255 1700 PLOT 2,X- 6,Y+ 24 1710 RESTORE 1720:GOSUB 2280 1720 DATA 251,42,42,170,138,137,137,159,255 1725 RETURN 1730 REM 1740 PLOT 2,X+ 7,Y+ 26 1750 RESTORE 1760:GOSUB 2280 1760 DATA 251,98,102,70,68,68,69,69,85,21,25,25,137 1770 DATA 136,136,136,136,137,137,25,17,81,85,84,84,68,68,100,102,98,111,255 1775 RETURN 1780 REM 1790 PLOT 2,X- 1,Y+ 34 1800 RESTORE 1810:GOSUB 2280 1810 DATA 251,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17 1820 DATA 25,25,138,42,255 1830 PLOT 2,X- 4,Y+ 23 1840 RESTORE 1850:GOSUB 2280 1850 DATA 251,136,136,136,255 1855 GOSUB 2270:RETURN 1860 PLOT 6,4 1870 PLOT 2,X- 9,Y+ 31 1880 RESTORE 1890:GOSUB 2280 1890 DATA 251,17,17,17,17,17,17,17,25,25,25,153,137 1900 DATA 136,138,138,170,42,42,34,34,34,34,34,34,34,47 1910 DATA 17,17,17,17,17,17,17,17,17,17,17,31,255 1915 RETURN 1920 REM 1930 PLOT 2,X- 8,Y+ 31 1940 RESTORE 1950:GOSUB 2280 1950 DATA 251,17,145,25,17,145,25,17,145,25,25,25,18,162,162,162 1960 DATA 42,34,162,42,34,162,42,34,255 1965 RETURN 1970 REM 1980 PLOT 2,X- 14,Y+ 31 1990 RESTORE 2000:GOSUB 2280 2000 DATA 251,17,145,25,17,145,25,17,145,25,17,145,18 2010 DATA 42,34,162,42,34,162,42,34,162,42,34,17,145,25,17,145 2020 DATA 25,17,145,25,17,145,18,42,34,162,42,34,162,42,34,162,42,34,255 2025 RETURN 2030 REM 2040 PLOT 2,X- 8,Y+ 33 2050 RESTORE 2060:GOSUB 2280 2060 DATA 251,25,145,153,25,145,153,25,145,153,25,145,153,31,255 2070 PLOT 2,X+ 8,Y+ 33 2080 RESTORE 2090:GOSUB 2280 2090 DATA 251,21,81,85,21,81,85,21,81,85,21,81,85,31,255 2095 RETURN 2100 PLOT 6,4 2110 PLOT 2,X- 9,Y+ 39 2120 RESTORE 2130:GOSUB 2280 2130 DATA 251,17,17,17,17,17,17,17,25,25,25,153,137 2140 DATA 136,138,138,170,42,42,34,34,34,34,34,34,34,47 2150 DATA 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17 2160 DATA 21,21,21,85,69,68,70,70,102,38,38,47,255 2165 RETURN 2170 REM 2180 PLOT 2,X- 9,Y+ 31 2190 RESTORE 2200:GOSUB 2280 2200 DATA 251,136,136,136,136,136,136,136,136,21 2210 DATA 81,85,81,85,81,85,81,85,81,85,24,136,136,136,136,136,136,136,143,255 2220 RETURN 2240 RESTORE 2260:GOSUB 2280 2250 RETURN 2260 DATA 251,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,19,255 2270 RETURN 2280 READ P:PLOT P:FOR T= 1TO T1:NEXT :IF P< > 255THEN 2280 2290 RETURN 3000 FOR C1= 1TO 750:NEXT :RETURN 3001 FOR C1= 1TO 1500:NEXT :RETURN 3003 FOR C1= 1TO 2500:NEXT :RETURN 4000 PLOT 6,49,12,3,64,0,2,63,83,242,84,83,240:PV= INT (PC* 148):RESTORE 4020 4010 FOR C1= 1TO PV:READ P:PLOT P,49,50:NEXT C1:PLOT 255:RETURN 4020 DATA 50,50,50,50,50,50,50,50,50,54,50,50,50,54,50,54,54 4030 DATA 50,54,50,54,54,50,54,54,54,52,54,54,54,52,54 4040 DATA 52,52,52,52,52,52,52,52,52,52,52,53,52,53,53,53 4050 DATA 52,53,53,53,49,53,53,49,53,49,53,53,49,53,49,49,49,53 4060 DATA 49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49,49 4070 DATA 57,49,49,49,57,49,57,57,49,57,49,57,57,49,57,57,57,56 4080 DATA 57,57,57,56,57,56,56,56,56,56,56,56,56,56,56,56 4090 DATA 58,56,58,58,58,56,58,58,58,50,58,58,50,58,50,58,58,50,58 4100 DATA 50,50,50,58,50,50,50,50,50,50,50,50 5000 REM 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 GOSUB 3001 5050 RETURN 6000 REM 6005 ON LIGOTO 290,400,490,570,660,750,860,960,1030 6010 LI= LI- 9:ON LIGOTO 1090,1150,1230,1250,1370,1450,1510,1570 6020 LI= LI- 8:ON LIGOTO 1660,1730,1780,1860,1920,1970,2030,2100,2170 10000 REM 10030 FOR CC= 1TO L:T$(CC)= MID$ (A$,CC,1):NEXT CC 10060 FOR I= LTO 2STEP - 1 10070 K= I* RND (1)+ 1 10080 J= INT (K) 10090 T1$= T$(I) 10100 T$(I)= T$(J) 10110 T$(J)= T1$ 10120 NEXT I 10130 A$= T$(1)+ T$(2)+ T$(3) 10140 RETURN