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