Compucolor.org – Virtual Media

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