0 PRINT:PRINT:PRINT" NOVICE1D.BAS  CPM COMPATIBLE  VERSION 1.D 870715":PRINT
1 PRINT" THIS PROGRAM GIVES THE USER A RANDOM 'AMATEUR NOVICE CLASS' QUIZ"
2 PRINT
3 PRINT" WRITTEN BY  CHARLES E. GELM  2925 WEHRLY AVENUE  DAYTON, OH  45419"
4 PRINT:PRINT" ASSISTED BY GARY R. LAXTON, WD8ATN,  RIC WALSH, WD8MSJ"
5 PRINT:PRINT" AND THE FAR OUT AMATEUR RADIO BULLETIN BOARD SYSTEM"
6 PRINT
7 PRINT"NOVICE QUIZ VERSION 1.D BY NC8Q":DEFINT A-O:DIM A$(20):GOSUB 35
8 A$=INKEY$:PRINT:PRINT"PRESS ANY KEY TO CONTINUE":RANDOMIZE TIMER
9 FOR J=1 TO 30
10 WHILE A$<"X"
11 K=K+1:READ A$:A$(K)=A$
12 WEND
13 K=K-1:R=RND(0):I=R*K:IF I<1 THEN I=1 ELSE IF I>K THEN I=K
14 A$=A$(I):GOSUB 31
15 IF LEN(R$)=>LEN(Q$) AND LEFT$(R$,LEN(Q$))=Q$ THEN 20
16 LINE INPUT#1,R$
17 IF EOF(1) THEN Z=Z+1:GOSUB 34
18 IF Z>9 THEN CLOSE:PRINT"FILE ERRORS":END   
19 GOTO 15
20 FOR I=0 TO 9:PRINT:PRINT:NEXT I
21 PRINT R$:LINE INPUT#1,R$:IF INSTR(R$,CHR$(126))<1 THEN 21
22 PRINT:INPUT"WHAT IS THE CORRECT ANSWER  A, B, C, OR D";Z$
23 IF Z$="" THEN PRINT"ANSWER 'A' 'B' 'C' 'D' ONLY":GOTO 22
24 Z$=CHR$(ASC(Z$) AND 95)
25 IF Z$<"A" OR Z$>"D" THEN GOSUB 119:GOTO 22
26 PRINT:IF Z$=RIGHT$(A$,1) THEN Y=Y+1:PRINT"CORRECT"
27 IF Z$<>RIGHT$(A$,1) THEN PRINT"NO, THE CORRECT ANSWER WAS ";RIGHT$(A$,1)
28 FOR I=0 TO 999:NEXT I:K=0:NEXT J
29 PRINT:PRINT"YOUR SCORE IS "(Y*100)/30" PERCENT"
30 CLOSE:END
31 B$=MID$(A$,2,2):IF LEFT$(B$,1)="0" THEN B$=RIGHT$(B$,1)
32 C$=MID$(A$,4,2):IF LEFT$(C$,1)="0" THEN C$=RIGHT$(C$,1)
33 Q$="2"+LEFT$(A$,1)+"-"+B$+"."+C$:RETURN
34 PRINT"I AM HAVING TROUBLE FINDING FILE ";Q$;"PLEASE STAND-BY":CLOSE
35 OPEN "I",1,"NOVICE.DAT":RETURN
36 DATA A0101C,A0201B,A0301D,A0401A,A0501C,A0601B,A0701A,A0702D,A0801A,A0802B
37 DATA Z
38 REM QUESTION 2
39 DATA A0901B,A0902C,A0903A,A0904D,A0905D,A0906B,A0907B,A0908B,A0909A,A0910B
40 DATA A0911A,A0912B,A0913C,A0914C,Z
41 REM QUESTION 3
42 DATA A1001C,A1002C,A1003D,A1004C,A1005C,A1006A,A1007A,A1008A,A1009C,Z
43 REM QUESTION 4
44 DATA A1010B,A1011B,A1012C,A1013A,A1014A,A1015D,A1016A,A1017B,A1018B,A1019B
45 DATA A1020C,A1021B,A1022B,Z
46 REM QUESTION 5   A1101--->A1402
47 DATA A1101C,A1102D,A1103A,A1202B,A1202B,A1203B,A1301A,A1302C,A1401A,A1402D
48 DATA Z
49 REM QUESTION 6  A1501----->A1705
50 DATA A1501A,A1601D,A1602C,A1603D,A1604D,A1701D,A1702C,A1703D,A1704D,A1705D
51 DATA Z
52 REM QUESTION 7  A1801----->A1810
53 DATA A1801C,A1802B,A1803B,A1804A,A1805B,A1806B,A1807C,A1808D,A1809B,A1810A
54 DATA Z
55 REM QUESTION 8  A1901----->A2103
56 DATA A1901D,A1902C,A1903C,A1904C,A1905B,A1906C,A1907D,A1908B
57 DATA A2001C,A2002D,A2003D,A2101C,A2102C,A2103B
58 DATA Z
59 REM QUESTION 9
60 DATA A2201A,A2202C,A2203C,A2301B,A2302D,Z
61 REM QUESTION 10
62 DATA B0101B,B0102D,B0103A,B0201C,B0301A,B0302D,B0401C,B0501C,B0502B,B0503C
63 DATA B0601A,B0701B,B0702B,B0703C,B0704A,Z
64 REM QUESTION 11
65 DATA B0801C,B0802D,B0803A,B0804B,B0805D
66 DATA B0901A,B0902C,B0903D,B0904A,B0905B,B0906D,B0907A,B0908C
67 DATA B1001D,B1002A,B1003B,B1004C,B1005D,B1006B
68 DATA Z
69 REM QUESTION 12
70 DATA C0101A,C0102B,C0103A,C0104C,C0105D,C0106D
71 DATA C0201D,C0202B,C0203B,C0204A,Z
72 REM QUESTION 13
73 DATA C0301B,C0302B,C0401C,C0402C,C0403B,C0404A,C0405B,Z
74 REM QUESTION 14  D0101----->D0403
75 DATA D0101B,D0201D,D0202C,D0203D,D0301B,D0302A,D0303C,D0401D,D0402C,D0403D
76 DATA Z
77 REM QUESTION 15
78 DATA D0501B,D0502C,D0503B,D0504C
79 DATA D0601A,D0602A,D0603A,D0604C,D0605D,D0606B,Z
80 REM QUESTION 16
81 DATA D0701B,D0702C,D0703A,D0704C,D0705D
82 DATA D0706B,D0707D,D0708A,D0801A,D0802A,Z
83 REM QUESTION 17
84 DATA D0901B,D0902A,D0903C,D0904A,D0905B,D0906D
85 DATA D0907D,D0908D,D0909B,D0910B,D0911B,D0912B,Z
86 REM QUESTION 18
87 DATA E0101A,E0102D,E0103C
88 DATA E0202B,E0203C
89 DATA E0301A,E0302C,E0303C,Z
90 REM QUESTION 19 2E-4.1 -----> 2E-6.3
91 DATA E0401D,E0402C,E0501A,E0601B,E0602A,E0603C,Z
92 REM QUESTION 20
93 DATA E0701A,E0702D,E0703C,E0801A,E0802D,E0803A
94 DATA E0901B,E1001C,E1101B,Z
95 REM QUESTION 21
96 DATA E1201C,E1202A,E1301A,E1302C,E1303C
97 DATA E1304A,E1305D,E1306A,E1307D,E1308D,Z
98 REM QUESTION 22
99 DATA F0101C,F0103B,F0201C,F0202D,Z
100 REM QUESTION 23  3.1 3.2 3.3 DRAW SCHEMATIC
101 DATA F0401A,F0402D,Z
102 REM QUESTION 24
103 DATA G0102B,G0104D,G0202C,Z
104 REM QUESTION 25
105 DATA G0401C,G0501B,G0601B,G0602B,G0603C,Z
106 REM QUESTION 26
107 DATA H0101A,H0201B,H0202B,H0301B,H0302D
108 DATA H0401C,H0402C,H0501D,H0601A
109 DATA H0801B,H0802A,H0901C,H0902B,H1001C,H1002A,Z
110 REM QUESTION 27
111 DATA H1101A,H1102C,H1103B,H1104B,H1105D
112 DATA H1201C,H1202B,H1203B,H1204B,H1205A,Z
113 REM QUESTION 28
114 DATA I0101A,I0102D,I0103C,I0104C
115 DATA I0201D,I0202D,I0203B,I0204B,I0205A,Z
116 REM QUESTION 29
117 DATA I0206C,I0207B,I0301D,I0302B,I0303B,I0304B,I0305C,Z
118 REM QUESTION 30
119 DATA I0401B,I0402C,I0403D,I0404A,I0405B,I0501A,I0601B,I0605C,Z
120 IF A$="X" THEN CLOSE:END
121 PRINT"OOOPS YOU DIDN'T ENTER A B C D"
122 INPUT"ENTER 'X' TO eXit OR <ENTER> TO CONTINUE";Q$
123 IF Q$="X" THEN CLOSE:END
124 IF Q$="x" THEN CLOSE:END
125 RETURN