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