home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / HAMRADIO / HAMTECHS.ZIP / TECPRINT.BAS < prev   
Encoding:
BASIC Source File  |  1988-02-22  |  4.0 KB  |  77 lines
  1. 10    GOSUB 550:DEFINT A-O:DIM A$(20),Q$(25)
  2. 20 PRINT:PRINT"TECHNICIAN QUIZ VERSION 0.2":GOSUB 280:GOSUB 290
  3. 30 PRINT:INPUT"ENTER OR CARRIAGE RETURN";A$
  4. 40 FOR J=1 TO 25
  5. 50 WHILE A$<"X"
  6. 60 K=K+1:READ A$:A$(K)=A$
  7. 70 WEND
  8. 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
  9. 90 A$=A$(I):GOSUB 240
  10. 100 IF INSTR(R$,Q$)>0 THEN 150
  11. 110 LINE INPUT#1,R$
  12. 120 IF EOF(1) THEN Z=Z+1:GOSUB 270
  13. 130 IF Z>9 THEN CLOSE:PRINT"FILE ERRORS":END   
  14. 140 GOTO 100
  15. 150 A$=MID$(R$,4,1):R$=""
  16. 160 PRINT#2, R$:LINE INPUT#1,R$:IF INSTR(R$,CHR$(126))<1 THEN 160
  17. 170 I=J/3:I=I*3
  18. 180 Q$=LEFT$(Q$+"        ",12):Q$(J)=Q$+A$:PRINT Q$(J)
  19. 190 IF I=J THEN PRINT#2,CHR$(12) ELSE PRINT#2,CHR$(13);CHR$(13);CHR$(13)
  20. 200 K=0:NEXT J
  21. 210 PRINT#2,CHR$(12)
  22. 220 FOR I=1 TO 25:PRINT#2,Q$(I):NEXT I:PRINT#2,CHR$(12)
  23. 230 CLOSE:PRINT"COPY TEC.TST PRN":SYSTEM
  24. 240 B$=MID$(A$,2,2):IF LEFT$(B$,1)="0" THEN B$=RIGHT$(B$,1)
  25. 250 C$=MID$(A$,4,2):IF LEFT$(C$,1)="0" THEN C$=RIGHT$(C$,1)
  26. 260 Q$="3"+LEFT$(A$,1)+"-"+B$+"."+C$:RETURN
  27. 270 PRINT"I AM HAVING TROUBLE FINDING FILE ";Q$;"PLEASE STAND-BY":CLOSE
  28. 280 OPEN "I",1,"TEC.DAT":RETURN
  29. 290 OPEN"O",2,"TEC.TST":RETURN
  30. 300 DATA A0101, A0102, A0201, A0202, A0203, A0204, A0205, A0206, A0207, A0208, Z
  31. 310 DATA A0301, A0306, A0308, A0402, A0404, A0405, A0406, A0501, A0502, A0503, A0504, Z
  32. 320 DATA A0603, A0604, A0605, A0701, A0702, A0703, A0704, A0801, A0802, A0803, A0804, A0805, A1009, A1010, Z
  33. 330 DATA A1101, A1102, A1201, A1202, A1203, A1204, A1303, A1304, A1305, A1306, A1307, A1308, A1309, A1310, Z
  34. 340 DATA A1401, A1402, A1403, A1405, A1407, A1502, A1701, A1702, A1703, Z
  35. 350 DATA B0101, B0102, B0103, B0106, B0107, B0108, B0109, B0110, B0111, B0112, B0113, Z
  36. 360 DATA B0114, B0115, B0116, B0205, B0207, B0208, B0209, B0301, B0302, B0303, B0304, B0305, B0306, B0307, B0309, B0310, B0311, Z
  37. 370 DATA B0313, B0604, B0605, B0606, B0607, B0608, B0609, B0610, B0901, B0902, Z
  38. 380 DATA C0101, C0102, C0103, C0104, C0105, C0108, Z
  39. 390 DATA C0111, C0112, C0114, C0201, C0202, C0205, C0206, C0301, C0302, C0305, C0401, C0402, C0403, C0404, C0601, C0603, Z
  40. 400 DATA C0801, C0802, C0901, C0902, C0903, C0904, C0905, C0906, Z
  41. 410 DATA D0101, D0102, D0103, D0104, D0201, D0202, D0203, Z
  42. 420 DATA D0205, D0502, D0503, D0504, D0701, D0702, D0703, D0704, D0801, D0802, Z
  43. 430 DATA D0803, D0804, D0805, D1101, D1102, D1103, D1104, D1105, D1201, D1401, D1402, Z
  44. 440 DATA D1403, D1404, D1405, D1408, D1601, D1602, D1603, D1604, D1605, D1701, D1801, D1802, D1803, Z
  45. 450 DATA E0201, E0202, E0203, E0204, E0401, E0402, E0403, E0404, E0405, E0501, E0502, E0503, E0504, E0505, E0701, E0703, Z
  46. 460 DATA E0801, E0802, E0803, E0804, E0901, E0902, E0903, E0904, E1101, E1102, E1103, E1104, E1105, E1202, E1304, E1408, E1409, E1410, E1411, Z
  47. 470 DATA F0101, F0102, F0103, F0104, F0106, Z
  48. 480 DATA F0201, F0202, F0203, F0204, F0205, F0208, F0301, F0302, F0303, F0304, F0305, F0306, F0503, Z
  49. 490 DATA G0201, G0202, G0203, G0204, G0205, G0206, G0207, G0209, G0301, G0302, G0303, Z
  50. 500 DATA H0101, H0102, H0103, H0104, H0105, H0106, H0107, H0108, H0109, H0110, H0202, H0601, H0602, H0701, Z
  51. 510 DATA H0902, H1201, H1401, H1402, H1601, H1602, H1603, Z
  52. 520 DATA I0101, I0102, I0104, I0105, I0106, I0108, I0202, I0203, I0204, I0205, I0206, I0401, I0402, I0403, Z
  53. 530 DATA I0404, I0405, I0406, I0407, I0408, I0607, I0801, I0802, I0803, I0901, I0902, Z
  54. 540 DATA I1001, I1002, I1003, I1004, I1103, I1105, I1106, I1109, I1111, I1203, I1204, Z
  55. 550 CLS
  56. 560 PRINT,:PRINT"TEC.BAS  Technician random exam"
  57. 570 PRINT
  58. 580 PRINT,"by Charles E. Gelm  NC8Q
  59. 590 PRINT
  60. 600 PRINT"with the assistance of Gary Laxton  WD8ATN"
  61. 610 PRINT
  62. 620 PRINT"                       Ric  Walsh   WD8MSJ"
  63. 630 PRINT
  64. 640 PRINT"                   and the Far Out ARC BBS"
  65. 650 PRINT
  66. 660 PRINT"This program is released as ShareWare and is for private use only."
  67. 670 PRINT"If this program is of benefit to you, please send $5 to:"
  68. 680 PRINT
  69. 690 PRINT"Far Out Amateur Radio Club
  70. 700 PRINT"Dayton, OHio"
  71. 710 PRINT"Post Office Box 9181
  72. 720 PRINT"Dayton, OHio
  73. 730 PRINT"45409"
  74. 740 PRINT
  75. 750 PRINT
  76. 760 RETURN
  77.