10 REM CP/M Adaptation by Jim Lill, WA2ZKD, 20 Feb 88.  It does not affect the
20 REM the shareware rights of the original author.  Contributors are asked to
30 REM mention that they are using the CP/M version.
40 REM CP/M Version changes:  - CLS method
50 REM                        - some display formatting
60 CLS$=CHR$(26): REM Put your Clearscreen char here
70 GOSUB 610:DEFINT A-O:DIM A$(20)
80 PRINT:PRINT"TECHNICIAN QUIZ VERSION 0.2":GOSUB 350
90 PRINT:INPUT"ENTER OR CARRIAGE RETURN";A$
100 FOR J=1 TO 25
110 WHILE A$<"X"
120 K=K+1:READ A$:A$(K)=A$
130 WEND
140 K=K-1:RANDOMIZE TIMER:R=RND(0):I=R*K:IF I<1 THEN I=1 ELSE IF I>K THEN I=K
150 A$=A$(I):GOSUB 310
160 IF INSTR(R$,Q$)>0 THEN 210
170 LINE INPUT#1,R$
180 IF EOF(1) THEN Z=Z+1:GOSUB 340
190 IF Z>9 THEN CLOSE:PRINT"FILE ERRORS":END   
200 GOTO 160
210 FOR I=0 TO 9:PRINT:PRINT:NEXT I:A$=MID$(R$,4,1):R$=""
220 PRINT R$:LINE INPUT#1,R$:IF INSTR(R$,CHR$(126))<1 THEN 220
230 PRINT:INPUT"WHAT IS THE CORRECT ANSWER  A, B, C, OR D";Z$:IF Z$="" THEN 230
240 Z$=CHR$(ASC(Z$) AND 95)
250 IF Z$<"A" OR Z$>"D" THEN GOSUB 820:GOTO 230
260 PRINT:IF Z$=A$ THEN Y=Y+1:PRINT"CORRECT"
270 IF Z$<>A$ THEN PRINT"NO, THE CORRECT ANSWER WAS ";A$
280 FOR I=0 TO 999:NEXT I:K=0:NEXT J
290 PRINT:PRINT"YOUR SCORE IS "(Y*100)/25" PERCENT"
300 CLOSE:END
310 B$=MID$(A$,2,2):IF LEFT$(B$,1)="0" THEN B$=RIGHT$(B$,1)
320 C$=MID$(A$,4,2):IF LEFT$(C$,1)="0" THEN C$=RIGHT$(C$,1)
330 Q$="3"+LEFT$(A$,1)+"-"+B$+"."+C$:RETURN
340 PRINT"I AM HAVING TROUBLE FINDING FILE ";Q$;"PLEASE STAND-BY":CLOSE
350 OPEN "I",1,"TEC.DAT":RETURN
360 DATA A0101, A0102, A0201, A0202, A0203, A0204, A0205, A0206, A0207, A0208, Z
370 DATA A0301, A0306, A0308, A0402, A0404, A0405, A0406, A0501, A0502, A0503, A0504, Z
380 DATA A0603, A0604, A0605, A0701, A0702, A0703, A0704, A0801, A0802, A0803, A0804, A0805, A1009, A1010, Z
390 DATA A1101, A1102, A1201, A1202, A1203, A1204, A1303, A1304, A1305, A1306, A1307, A1308, A1309, A1310, Z
400 DATA A1401, A1402, A1403, A1405, A1407, A1502, A1701, A1702, A1703, Z
410 DATA B0101, B0102, B0103, B0106, B0107, B0108, B0109, B0110, B0111, B0112, B0113, Z
420 DATA B0114, B0115, B0116, B0205, B0207, B0208, B0209, B0301, B0302, B0303, B0304, B0305, B0306, B0307, B0309, B0310, B0311, Z
430 DATA B0313, B0604, B0605, B0606, B0607, B0608, B0609, B0610, B0901, B0902, Z
440 DATA C0101, C0102, C0103, C0104, C0105, C0108, Z
450 DATA C0111, C0112, C0114, C0201, C0202, C0205, C0206, C0301, C0302, C0305, C0401, C0402, C0403, C0404, C0601, C0603, Z
460 DATA C0801, C0802, C0901, C0902, C0903, C0904, C0905, C0906, Z
470 DATA D0101, D0102, D0103, D0104, D0201, D0202, D0203, Z
480 DATA D0205, D0502, D0503, D0504, D0701, D0702, D0703, D0704, D0801, D0802, Z
490 DATA D0803, D0804, D0805, D1101, D1102, D1103, D1104, D1105, D1201, D1401, D1402, Z
500 DATA D1403, D1404, D1405, D1408, D1601, D1602, D1603, D1604, D1605, D1701, D1801, D1802, D1803, Z
510 DATA E0201, E0202, E0203, E0204, E0401, E0402, E0403, E0404, E0405, E0501, E0502, E0503, E0504, E0505, E0701, E0703, Z
520 DATA E0801, E0802, E0803, E0804, E0901, E0902, E0903, E0904, E1101, E1102, E1103, E1104, E1105, E1202, E1304, E1408, E1409, E1410, E1411, Z
530 DATA F0101, F0102, F0103, F0104, F0106, Z
540 DATA F0201, F0202, F0203, F0204, F0205, F0208, F0301, F0302, F0303, F0304, F0305, F0306, F0503, Z
550 DATA G0201, G0202, G0203, G0204, G0205, G0206, G0207, G0209, G0301, G0302, G0303, Z
560 DATA H0101, H0102, H0103, H0104, H0105, H0106, H0107, H0108, H0109, H0110, H0202, H0601, H0602, H0701, Z
570 DATA H0902, H1201, H1401, H1402, H1601, H1602, H1603, Z
580 DATA I0101, I0102, I0104, I0105, I0106, I0108, I0202, I0203, I0204, I0205, I0206, I0401, I0402, I0403, Z
590 DATA I0404, I0405, I0406, I0407, I0408, I0607, I0801, I0802, I0803, I0901, I0902, Z
600 DATA I1001, I1002, I1003, I1004, I1103, I1105, I1106, I1109, I1111, I1203, I1204, Z
610 PRINT CLS$
620 PRINT
630 PRINT "     TEC.BAS  Technician random exam"
640 PRINT
650 PRINT "         by Charles E. Gelm  NC8Q"
660 PRINT
670 PRINT "with the assistance of Gary Laxton  WD8ATN"
680 PRINT
690 PRINT "  and the Far Out Amateur Radio Club BBS"
700 PRINT
710 PRINT"This program is released as ShareWare and is for private use only."
720 PRINT"If this program is of benefit to you, please send $5 to:"
730 PRINT
740 PRINT"Far Out Amateur Radio Club
750 PRINT"Dayton, OHio"
760 PRINT"Post Office Box 9181
770 PRINT"Dayton, OHio
780 PRINT"45409"
790 PRINT
800 PRINT
810 RETURN
820 PRINT
830 PRINT"oops, you didn't enter Aa Bb Cc Dd"
840 PRINT
850 PRINT"You may 'X' eXit or 'Q' Quit or just <enter> to continue"
860 PRINT
870 INPUT"X Q <enter>";Q$
880 IF Q$="x" THEN 930
890 IF Q$="q" THEN 930
900 IF Q$="Q" THEN 930
910 IF Q$="X" THEN 930
920 RETURN
930 GOTO 300