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