home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
exam
/
tec2
/
tecprint.bas
< prev
Wrap
BASIC Source File
|
1988-01-12
|
4KB
|
77 lines
10 GOSUB 550:DEFINT A-O:DIM A$(20),Q$(25)
20 PRINT:PRINT"TECHNICIAN QUIZ VERSION 0.2":GOSUB 280: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 240
100 IF INSTR(R$,Q$)>0 THEN 150
110 LINE INPUT#1,R$
120 IF EOF(1) THEN Z=Z+1:GOSUB 270
130 IF Z>9 THEN CLOSE:PRINT"FILE ERRORS":END
140 GOTO 100
150 A$=MID$(R$,4,1):R$=""
160 PRINT#2, R$:LINE INPUT#1,R$:IF INSTR(R$,CHR$(126))<1 THEN 160
170 I=J/3:I=I*3
180 Q$=LEFT$(Q$+" ",12):Q$(J)=Q$+A$:PRINT Q$(J)
190 IF I=J THEN PRINT#2,CHR$(12) ELSE PRINT#2,CHR$(13);CHR$(13);CHR$(13)
200 K=0:NEXT J
210 PRINT#2,CHR$(12)
220 FOR I=1 TO 25:PRINT#2,Q$(I):NEXT I:PRINT#2,CHR$(12)
230 CLOSE:PRINT"COPY TEC.TST PRN":SYSTEM
240 B$=MID$(A$,2,2):IF LEFT$(B$,1)="0" THEN B$=RIGHT$(B$,1)
250 C$=MID$(A$,4,2):IF LEFT$(C$,1)="0" THEN C$=RIGHT$(C$,1)
260 Q$="3"+LEFT$(A$,1)+"-"+B$+"."+C$:RETURN
270 PRINT"I AM HAVING TROUBLE FINDING FILE ";Q$;"PLEASE STAND-BY":CLOSE
280 OPEN "I",1,"TEC.DAT":RETURN
290 OPEN"O",2,"TEC.TST":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
620 PRINT" Ric Walsh WD8MSJ"
630 PRINT
640 PRINT" and the Far Out ARC 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