home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / C64-AVERAGER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.8 KB  |  457 lines
  1. 100 REM MARK AVERAGER PROGRAM FOR COMPUTER SCIENCE GRADE 1
  2. 110 REM FOR THE COMMODORE  64 COMPUTER
  3. 120 REM THIS PROGRAM KEEPS TRACK OF A SEMESTER'S MARKS BY AVERAGING WORK
  4. 130 :
  5. 140 :
  6. 150 REM PROGRAMMER: W.J. THOMPSON
  7. 160 REM ADDRESS :   BOX 608
  8. 170 REM CITY      : INDIAN HEAD
  9. 180 REM PROVINCE  : SASKATCHEWAN.
  10. 190 REM POSTAL C. : S0G 2K0
  11. 200 :
  12. 210 REM VARIABLES AND THEIR MEANINGS:
  13. 220 :
  14. 230 REM CLASS ASSIGNMENT MODULE VARIABLES
  15. 240 :
  16. 250 REM   X1  =  DIVISOR(AVERAGE DIVISOR)
  17. 260 REM    B  =  DIM(CLASS ASSIGNMENT)
  18. 270 REM   A1  =  FOR/NEXT LOOP AND SUBJECT NUMBER
  19. 280 REM   D1  =  TOTAL(POSSIBLE MARKS)
  20. 290 REM   E1  =  EARNED MARKS BY STUDENT
  21. 300 REM   G1  =  INDIVIDUAL GRADE PERCENTAGE EARNED
  22. 310 REM  B(A1) = G1 = GRADE EARNED
  23. 320 REM   S1  =  SUM OF CLASS ASSIGNMENT MARKS
  24. 330 REM   CA  =  CLASS ASSIGNMENT AVERAGE
  25. 340 REM   N$  =  NAME OF STUDENT
  26. 350 REM  UT$  =  COURSE TERM DATE
  27. 360 REM  PN$  =  NAME OF PROFESSOR
  28. 370 :
  29. 380 REM HOMEWORK ASSIGNMENT MODULE VARIABLES
  30. 390 :
  31. 400 REM   X2  =  DIVISOR(AVERAGE DIVISOR
  32. 410 REM   B1  =  DIM(HOMEWORK)
  33. 420 REM   A2  =  FOR/NEXT LOOP AND SUBJECT NUMBER
  34. 430 REM   D2  =  TOTAL(POSSIBLE MARKS)
  35. 440 REM   E2  =  EARNED MARKS BY STUDENT
  36. 450 REM   G2  =  INDIVIDUAL GRADE PERCENTAGE EARNED
  37. 460 REM  B1(A2)=G2  = GRADE EARNED
  38. 470 REM   S2  =  SUM OF HOMEWORK ASSIGNMENTS MARKS
  39. 480 REM   HW  =  HOMEWORK ASSIGNMENT AVERAGE
  40. 490 :
  41. 500 REM WHIZ KIDS QUIZ MODULE
  42. 510 :
  43. 520 REM   X3  =  DIVISOR/AVERAGE DIVISOR)
  44. 530 REM   B2  =  DIM(WHIZ QUIZZES)
  45. 540 REM   A3  =  FOR/NEXT LOOP AND SUBJECT NUMBER
  46. 550 REM   D3  =  TOTAL(POSSIBLE MARKS)
  47. 560 REM   E3  =  EARNED MARKS BY STUDENT
  48. 570 REM   G3  =  INDIVIDUAL PERCENTAGE ERNED
  49. 580 REM  B2(A3)=G3  =  GRADE EARNED
  50. 590 REM   S3  =  SUM OF WHIZ QUIZ MARKS
  51. 600 REM   WQ  =  WHIZ QUIZ AVERAGE
  52. 610 :
  53. 620 REM MIDTERM EXAM MODULE
  54. 630 REM MARKS DISTRIBUTION PRINTOUT MODULE
  55. 640 :
  56. 650 REM    X4 = DIVOSOR)MIDTERM MARKS
  57. 660 REM    B3 = DIM(MIDTERM)
  58. 670 REM    A4 = FOR/NEXT LOOP AND SUBJECT NUMBER
  59. 680 REM    MM = INDIADUAL PERCENT EARNED
  60. 690 REM    B3(X4)=MM = GRADE ASSIGNED
  61. 700 REM    S4 = SUM OF MIDTERM MARK
  62. 710 REM    M5 = MIDTERM MARK
  63. 720 REM FINAL EXAM VARIABLES
  64. 730 :
  65. 740 REM   X5  = DIVISOR(FINAL EXAM)
  66. 750 REM   B4  = DIM(FINAL)
  67. 760 REM   A5  = FOR/NEXT AND SUBJECT NUMBER
  68. 770 REM   FM  = FINAL PERCENT EARNED
  69. 780 REM   B4(X5) = FM  = FINAL GRADE
  70. 790 REM   S5  = SUM OF FINAL MARKS
  71. 800 REM   F5  = FINAL MARKS
  72. 810 REM STRING VARIABLES:
  73. 820 :
  74. 830 REM   N$  = NAME OF STUDENT
  75. 840 REM  UT$  = NAME OF COURSE TERM
  76. 850 REM  PN$  = NAME OF PROFESSOR
  77. 860 REM   F$  = DISK SEQ. FILENAME
  78. 870 REM  FX$  = TAPE SEQ. FILENAME
  79. 880 :
  80. 890 REM  E2$  = HOMEWORK STRING(VAL)
  81. 900 REM  E3$  = WHIZ QUIZ STRING(VAL)
  82. 910 REM  MM$  = MIDTERM STRING(VAL)
  83. 920 REM  FM$  = FINAL EXAM STRING(VAL)
  84. 1990 GOSUB 30000
  85. 2000 REM INITIALIZATION AND DIMENSIONING MODULE
  86. 2010 :
  87. 2020 PRINTCHR$(147):REM CLEAR THE SCREEN
  88. 2030 CLR
  89. 2040 PRINT:PRINT"ENTER NAME OF STUDENT:"
  90. 2050 INPUT N$
  91. 2060 IF N$="" THEN 2050
  92. 2070 PRINT"ENTER SEMESTER PART:"
  93. 2080 INPUT UT$
  94. 2090 IF UT$="" THEN 2070
  95. 2100 PRINT"ENTER PROFESSOR NAME:"
  96. 2110 INPUT PN$
  97. 2120 IF PN$="" THEN 2100
  98. 2130 PRINT"1.CLASS ASMTS - ENTER NO. OF MARKS"
  99. 2140 INPUT X1
  100. 2150 IF X1<1 THEN GOTO 2130
  101. 2170 PRINT"2.HOMEWORK - ENTER NO. OF MARKS
  102. 2180 [133] X2
  103. 2190 [139] X2[179]1 [167] [137] 2170
  104. 2210 [153]"3. WHIZ QUIZZES - ENTER NO. OF MARKS"
  105. 2220 [133] X3
  106. 2230 [139] X3[179]1 [167] [137] 2210
  107. 2250 X4[178]1:X5[178]1:[143] DIMENSION THE MIDTERM AND FINAL EXAMS TO 1 EACH
  108. 2260 [134] B(X1),B1(X2),B2(X3),B3(X4),B4(X5)
  109. 3000 [143] CLASS ASSIGNMENT MODULE PROGRAM
  110. 3020 :
  111. 3030 [153] [199](147):[143] CLEAR THE SCREEN
  112. 3040 [151]53281,1:[151]53280,7
  113. 3050 [151] 53280,5:[151] 53281,1:[151] 646,2:[143] GRNBORD;WHTBKGD;RED CHAR
  114. 3060 [153]:[153] [163]8);"AVERAGE CALCULATOR:":[153]
  115. 3070 [153]:[153]"I. CLASS ASSIGNMENT MODULE":[153]
  116. 3080 [153]:[153]"NO. OF MARKS/DIVISOR: ";X1
  117. 3100 [129]A1[178]1[164] X1
  118. 3110 [153]
  119. 3120 [153]"THE ;";A1;"GRADE"
  120. 3130 [133]"FIRST, ENTER POSSIBLE MARKS";D1
  121. 3140 [139] D1[179]1 [167] [153]"TRY AGAIN":[137] 3110
  122. 3150 [153]"THE ;";A1;"GRADE"
  123. 3160 [133]"THEN, ENTER EARNED MARKS";E1$
  124. 3170 [139] E1$[178]"" [167] 3160
  125. 3180 E1[178][197](E1$)
  126. 3190 G1[178](E1[172]100)[173]D1
  127. 3200 B(A1)[178]G1
  128. 3210 [153] B(A1)
  129. 3220 [130] A1
  130. 3230 S1[178]0
  131. 3240 [129] A1[178]1 [164] X1
  132. 3250 S1[178]S1[170]B(A1)
  133. 3260 [130] A1
  134. 3270 CA[178]S1[173]X1
  135. 3280 [153]:[153]"CLASS ASSIGNMENT AVERAGE = ";CA
  136. 3290 P1[178](CA[172]10)[173]100
  137. 3300 [153]:[153] [163]5);"PRESS ANY TWO KEYS TO CONTINUE.."
  138. 3310 [161] ZZ$:[139] ZZ$[178]"" [167] 3310
  139. 3320 [161] ZZ$:[139] ZZ$[178]"" [167] 3320
  140. 4000 [143] HOMEWORK ASSIGNMENT MODULE PROGRAM
  141. 4010 :
  142. 4030 :
  143. 4040 [153] [199](147)
  144. 4050 [153]:[153]"II. HOMEWORK ASSIGNMENT MODULE:":[153]
  145. 4060 [153]:[153]"NO. OF MARKS: ";X2
  146. 4080 [129] A2[178]1 [164] X2
  147. 4090 [153]"THE ";A2;"GRADE........."
  148. 4100 [133]"FIRST, ENTER TOTAL MARKS";D2
  149. 4110 [139] D2[179]1 [167] [153]"TRY AGAIN":[137] 4100
  150. 4120 [153]"THE ";A2;"GRADE........."
  151. 4130 [133]"NOW, ENTER EARNED MARKS";E2$
  152. 4140 [139] E2$[178]"" [167] 4130
  153. 4150 E2[178][197](E2$)
  154. 4160 G2[178](E2[172]100)[173]D2
  155. 4170 B1(A2)[178]G2
  156. 4180 [153] B1(A2)
  157. 4190 [130] A2
  158. 4200 S2[178]0
  159. 4210 [129] A2[178]1 [164] X2
  160. 4220 S2[178]S2[170]B1(A2)
  161. 4230 [130] A2
  162. 4240 HW[178]S2[173]X2
  163. 4250 [153]:[153]"HOMEWORK ASSIGNMENT AVERAGE: ";HW
  164. 4260 [153]:[153] [163]5);"PRESS ANY TWO KEYS TO CONTINUE.."
  165. 4270 [161] ZZ$:[139] ZZ$[178]"" [167] 4270
  166. 4280 [161] ZZ$:[139] ZZ$[178]"" [167] 4280
  167. 5000 [143] WHIZ KIDS QUIZ ASSIGNMENT MODULE
  168. 5010 :
  169. 5030 :
  170. 5040 [153] [199](147):[143] CLEAR SCREEN^
  171. 5050 [153]:[153]"III. WHIZ QUIZ ASSIGNMENT MODULE:":[153]
  172. 5060 [153]:[153]"NO. OF MARKS-DIVISOR: ";X3
  173. 5080 [129] A3[178]1 [164] X3
  174. 5090 [153]"THE ";A3;"GRADE........."
  175. 5100 [133]"FIRST, ENTER TOTAL MARKS";D3
  176. 5110 [139] D3[179]1 [167] [153]"TRY AGAIN":[137] 5100
  177. 5120 [153]"THE ";A3;"GRADE........."
  178. 5130 [133]"NOW, ENTER EARNED MARKS";E3$
  179. 5140 [139] E3$[178]"" [167] 5130
  180. 5150 E3[178][197](E3$)
  181. 5160 G3[178](E3[172]100)[173]D3
  182. 5170 B2(A3)[178]G3
  183. 5180 [153] B2(A3)
  184. 5190 [130] A3
  185. 5200 [129] A3[178]1 [164] X3
  186. 5210 S3[178]S3[170]B2(A3)
  187. 5220 [130] A3
  188. 5230 WQ[178]S3[173]X3
  189. 5240 [153]:[153]"WHIZ QUIZ ASSIGNMENT AVERAGE: ";WQ
  190. 5250 [153]:[153] [163]5);"PRESS ANY TWO KEYS TO CONTINUE.."
  191. 5260 [161] ZZ$:[139] ZZ$[178]"" [167] 5260
  192. 5270 [161] ZZ$:[139] ZZ$[178]"" [167] 5270
  193. 6000 [143] MIDTERM EXAM MODULE
  194. 6010 :
  195. 6020 [153] [199](147)
  196. 6030 [153]:[153]:[153]"IV. ENTER THE MIDTERM EXAM MARK (%) "
  197. 6040 [133] MM$
  198. 6050 [139] MM$[178]"" [167] 6030
  199. 6060 MM[178][197](MM$)
  200. 6070 B3(A4)[178]MM
  201. 6080 [153]:[153]"THE MIDTERM MARK: ";B3(A4);"%"
  202. 6090 [153]:[153]"PRESS ANY 2 KEYS FOR MENU"
  203. 6100 [161] ZZ$:[139] ZZ$[178]"" [167] 6100
  204. 6110 [161] ZZ$:[139] ZZ$[178]"" [167] 6110
  205. 7000 [143]   FINAL EXAM MODULE
  206. 7010 :
  207. 7020 [153] [199](147)
  208. 7030 [153]"FINAL";A5;"MARK"
  209. 7040 [153]:[153]:[153]"V. ENTER THE FINAL EXAM MARK (%) "
  210. 7050 [133] FM$
  211. 7060 [139] FM$[178]"" [167] 7040
  212. 7070 FM[178][197](FM$)
  213. 7080 B4(A5)[178]FM
  214. 7090 [153]:[153]"THE FINAL EXAM MARK: ";    FM;"%"
  215. 7100 [153]:[153]"PRESS ANY 2 KEYS FOR MENU"
  216. 7110 [161] ZZ$:[139] ZZ$[178]"" [167] 7110
  217. 7120 [161] ZZ$:[139] ZZ$[178]"" [167] 7120
  218. 8000 [143] CALCULATION MARKS MODULE
  219. 8010 :
  220. 8020 [153] [199](147)
  221. 8030 P1[178](CA[172]10)[173]100
  222. 8040 P2[178](HW[172]10)[173]100
  223. 8050 P3[178](WQ[172]10)[173]100
  224. 8060 P4[178](MM[172]20)[173]100
  225. 8070 P5[178](FM[172]50)[173]100
  226. 8080 MM[178](P1[170]P2[170]P3[170]P4[170]P5)[172]2
  227. 8090 MM[178][181](MM[170].5)
  228. 8100 FM[178](P1[170]P2[170]P3[170]P4[170]P5)
  229. 8110 FM[178][181](FM[170].5)
  230. 8115 [139] MM[177]100 [175] FM[177]0 [167] MM[178](MM[173]2)
  231. 8120 [137] 1990
  232. 9000 [143] MARKS PRINTOUT MODULE
  233. 9010 :
  234. 9020 [153] [199](147)
  235. 9030 [159] 4,4:[157]4
  236. 9040 :
  237. 9050 [152]4:[152]4
  238. 9060 [152]4:[152]4,[163]20);"EXAMINATION STATEMENT: "
  239. 9070 [152]4,[163]20);"DISTRIBUTION OF MARKS   :":[152]4
  240. 9080 [152]4,[163]10);"SEMESTER PART: ";:[152]4,UT$
  241. 9090 [152]4,[163]10);"PROFESSOR: ";:[152]4,PN$
  242. 9100 [152]4:[152]4,[163]10);"STUDENT'S NAME: ";:[152]4,N$
  243. 9110 [152]4,[163]20);"GRADE STANDINGS:"
  244. 9120 [152]4,[163]10);"--------------------------------------------"
  245. 9130 [152]4:[152]4,[163]10);"GREAT DISTINCTION  =   85% - 100%"
  246. 9140 [152]4,[163]10);"DISTINCTION        =   80% - 84%"
  247. 9150 [152]4,[163]10);"PASSING GRADE      =   50% - 79%"
  248. 9160 [152]4,[163]10);"FAILING GRADE      =    0% - 49%"
  249. 9170 [152]4
  250. 9180 [152]4,"---------------------------------------------"
  251. 9190 [152]4,[163]10);"NAME OF ASSIGNMENT----MARKS ASSIGNED:"
  252. 9200 [152]4,"---------------------------------------------"
  253. 9210 [152]4,[163]10);"I.   CLASS ASSIGNMENTS: (10%)    ";:[152]4,P1
  254. 9220 [152]4,[163]10);"II.  HOMEWORK ASSM'NTS: (10%)    ";:[152]4,P2
  255. 9230 [152]4,[163]10);"III. WHIZ KIDS ASS'NTS: (10%)    ";:[152]4,P3
  256. 9240 [152]4,[163]10);"IV.  MIDTERM EXAMIN   : (20%)    ";:[152]4,P4
  257. 9250 [152]4,[163]10);"V.   FINAL EXAMINATION: (50%)    ";:[152]4,P5
  258. 9260 [152]4,"--------------------------------------------------------------"
  259. 9270 [152]4,[163]10);"TOTAL POSSIBLE MARKS:   100"
  260. 9280 [152]4,"--------------------------------------------------------------"
  261. 9290 [152]4
  262. 9300 [152]4,[163]30);"1. MIDTERM MARK:    ";:[152]4,MM
  263. 9310 [152]4,
  264. 9320 [152]4,[163]30);"2. FINAL MARK:      ";:[152]4,FM
  265. 9330 [152]4
  266. 9340 [152]4
  267. 9350 [152]4
  268. 9360 [152]4
  269. 9370 [152]4
  270. 9380 [152]4
  271. 9390 [152]4
  272. 9400 [152]4,"PROFESSOR'S SIGNATURETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  273. 9410 [152]4,"---------------------------------------------------------------"
  274. 9420 [152]4:[160]4
  275. 9430 [142]
  276. 10000 [143] DATA DISPLAY ON SCREEN
  277. 10010 :
  278. 10020 [153][199](147)
  279. 10030 [153]:[153]
  280. 10040 [153]:[153]"STUDENT'S NAME: ";N$
  281. 10050 [153]"SEMESTER PART: ";UT$
  282. 10060 [153] [163]10);"MARK DISTRIBUTION:":[153]
  283. 10070 [153]"NAME OF ASSIGNMENT----MARKS ASSIGNED:"
  284. 10080 [153]"--------------------------------------":[153]
  285. 10090 [153]"I.   CLASS AS'MTS:(10%): ";P1
  286. 10100 [153]"II.  HOMEWORK:    (10%): ";P2
  287. 10110 [153]"III. WHIZ QUIZZES:(10%): ";P3
  288. 10120 [153]"IV.  MIDTERM EXAM:(20%): ";P4
  289. 10130 [153]"V.   FINAL EXAM:  (50%): ";P5
  290. 10140 [153]"--------------------------------------"
  291. 10150 [153]"TOTAL POSSIBLE MARKS:   100":[153]
  292. 10160 [153]:[153][163]2);"1. MIDTERM MARK:    ";MM;"%"
  293. 10170 [153]:[153][163]2);"2. FINAL EXAM MARK: ";FM;"%"
  294. 10180 [153]"--------------------------------------"
  295. 10190 [153]:[153]"PRESS ANY 2 KEYS FOR MENU"
  296. 10200 [161] ZZ$:[139] ZZ$[178]"" [167] 10200
  297. 10210 [161] ZZ$:[139] ZZ$[178]"" [167] 10210
  298. 10220 [142]
  299. 11000 [143] WRITE A SEQ. FILE TO DISK MODULE
  300. 11010 :
  301. 11020 [153] [199](147):[153]:[153]"SEQUENTIAL DISK FILE WRITE(SAVE) ":[153]
  302. 11030 [153]:[153]"ENTER S. FILENAME"
  303. 11040 [133] F$
  304. 11050 [139] F$[178]"" [167] 11030
  305. 11060 [153]"WRITING FILE TO DISK
  306. 11070 OPEN 1,8,2,F$+",S,W"
  307. 11080 PRINT CHR$(147)
  308. 11090 PRINT#1,N$
  309. 11100 PRINT#1,UT$
  310. 11110 PRINT#1,P1
  311. 11120 PRINT#1,P2
  312. 11130 PRINT#1,P3
  313. 11140 PRINT#1,P4
  314. 11150 PRINT#1,P5
  315. 11160 PRINT#1,MM
  316. 11170 PRINT#1,FM
  317. 11180 CLOSE1
  318. 11190 PRINT:PRINT TAB(5);"DISK WRITE COMPLETE!"
  319. 11200 PRINT"PRESS ANY 2 KEY FOR MENU"
  320. 11210 GET ZZ$:IF ZZ$="" THEN 11210
  321. 11220 GET ZZ$:IF ZZ$="" THEN 11220
  322. 11230 RETURN
  323. 12000 REM  READ A SEQ. FILE FROM DISK MODULE
  324. 12010 :
  325. 12020 PRINT CHR$(147):PRINT:PRINT"SEQUENTIAL DISK FILE READ(LOAD)":PRINT
  326. 12030 PRINT:PRINT"ENTER S. FILENAME"
  327. 12040 INPUT F$
  328. 12050 IF F$="" THEN 12030
  329. 12060 PRINT"READING FILE FROM DISK
  330. 12070 [159] 1,8,2,F$
  331. 12080 [153] [199](147)
  332. 12090 [153]:[153] [163]9);"EXAMINATION STATEMENT:":[153]
  333. 12100 [153]:[153] [163]9);"DISTRIBUTION OF MARKS:":[153]
  334. 12110 [132]1,N$
  335. 12120 [132]1,UT$
  336. 12130 [132]1,P1
  337. 12140 [132]1,P2
  338. 12150 [132]1,P3
  339. 12160 [132]1,P4
  340. 12170 [132]1,P5
  341. 12180 [132]1,MM
  342. 12190 [132]1,FM
  343. 12200 [153]"NAME OF STUDENT: ";N$
  344. 12210 [153]"SEMESTER PART: ";UT$
  345. 12220 [153]"--------------------------------------"
  346. 12230 [153]"I.   CLASS ASMENTS: (10%) ";P1
  347. 12240 [153]"II.  HOME  ASMENTS: (10%) ";P2
  348. 12250 [153]"III. WHIZ  QUIZZES: (10%) ";P3
  349. 12260 [153]"IV.  MIDTERM EXAM:  (20%) ";P4
  350. 12270 [153]"V.   FINAL EXAM:    (50%) ";P5
  351. 12280 [153]"--------------------------------------"
  352. 12290 [153]"TOTAL MARKS: (100)"
  353. 12300 [153]:[153]"1. MIDTERM EXAM MARK: ";MM;"CLOSE%"
  354. 12310 [153]:[153]"2. FINAL EXAM MARK:   ";FM;" %"
  355. 12320 [160] 1
  356. 12330 [153]:[153]:[153]"PRESS ANY 2 KEYS FOR MENU"
  357. 12340 [161] ZZ$:[139] ZZ$[178]"" [167] 12340
  358. 12350 [161] ZZ$:[139] ZZ$[178]"" [167] 12350
  359. 12360 [142]
  360. 14000 [143] WRITE (SAVE) A SEQUENTIAL FILE ON TAPE
  361. 14010 :
  362. 14020 [153] [199](147):[153]:[153]"SEQUENTIAL TAPE FILE WRITE(SAVE) ":[153]
  363. 14030 [153]:[153]"ENTER S. FILENAME"
  364. 14040 [133] FX$
  365. 14050 [139] FX$[178]"" [167] 14030
  366. 14060 [153]"WRITING FILE TO TAPE"
  367. 14070 [159] 1,1,1,FX$
  368. 14080 [153] [199](147)
  369. 14090 [152]1,N$
  370. 14100 [152]1,UT$
  371. 14110 [152]1,P1
  372. 14120 [152]1,P2
  373. 14130 [152]1,P3
  374. 14140 [152]1,P4
  375. 14150 [152]1,P5
  376. 14160 [152]1,MM
  377. 14170 [152]1,FM
  378. 14180 [160]1
  379. 14190 [153]:[153] [163]5);"TAPE WRITE COMPLETE!"
  380. 14200 [153]"PRESS ANY 2 KEY FOR MENU"
  381. 14210 [161] ZZ$:[139] ZZ$[178]"" [167] 14210
  382. 14220 [161] ZZ$:[139] ZZ$[178]"" [167] 14220
  383. 14230 [142]
  384. 15000 [143] READ (LOAD) A SEQUENTIAL FILE FROM TAPE
  385. 15010 :
  386. 15020 [153] [199](147):[153]:[153]"SEQUENTIAL TAPE FILE READ(LOAD)":[153]
  387. 15030 [153]:[153]"REWIND TAPE BEFORE ENTERING FILENAME:":[153]
  388. 15040 [153]"ENTER TAPE READ FILENAME"
  389. 15050 [133] FX$
  390. 15060 [139] FX$[178]"" [167] 15040
  391. 15070 [153]"READING FILE FROM TAPE"
  392. 15080 [159] 1,1,0,FX$
  393. 15090 [153] [199](147)
  394. 15100 [153]:[153] [163]9);"EXAMINATION STATEMENT:":[153]
  395. 15110 [153]:[153] [163]9);"DISTRIBUTION OF MARKS:":[153]
  396. 15120 [132]1,N$
  397. 15130 [132]1,UT$
  398. 15140 [132]1,P1
  399. 15150 [132]1,P2
  400. 15160 [132]1,P3
  401. 15170 [132]1,P4
  402. 15180 [132]1,P5
  403. 15190 [132]1,MM
  404. 15200 [132]1,FM
  405. 15210 [153]"NAME OF STUDENT: ";N$
  406. 15220 [153]"SEMESTER PART: ";UT$
  407. 15230 [153]"--------------------------------------"
  408. 15240 [153]"I.   CLASS ASMENTS: (10%) ";P1
  409. 15250 [153]"II.  HOME  ASMENTS: (10%) ";P2
  410. 15260 [153]"III. WHIZ  QUIZZES: (10%) ";P3
  411. 15270 [153]"IV.  MIDTERM EXAM:  (20%) ";P4
  412. 15280 [153]"V.   FINAL EXAM:    (50%) ";P5
  413. 15290 [153]"--------------------------------------"
  414. 15300 [153]"TOTAL MARKS: (100)"
  415. 15310 [153]:[153]"1. MIDTERM EXAM MARK: ";MM;" %"
  416. 15320 [153]:[153]"2. FINAL EXAM MARK:   ";FM;" %"
  417. 15330 [160] 1
  418. 15340 [153]:[153]:[153]"PRESS ANY 2 KEYS FOR MENU"
  419. 15350 [161] ZZ$:[139] ZZ$[178]"" [167] 15350
  420. 15360 [161] ZZ$:[139] ZZ$[178]"" [167] 15360
  421. 15370 [142]
  422. 20000 [143] END THE PROGRAM MODULE
  423. 20010 :
  424. 20020 [153][199](147)
  425. 20030 [153]:[153]:[153]
  426. 20040 [153][163]7);"REPEAT PROGRAM (Y/N)"
  427. 20050 [161] ZY$:[139] ZY$[178]"" [167] 20050
  428. 20060 [139] ZY$[178]"Y" [167] [138]
  429. 20070 [139] ZY$[178]"N" [167] [153] [163]12);"END OF PROGRAM!":[156]:[128]
  430. 20080 [137] 20050
  431. 30000 [143] MAIN MENU ROUTINE
  432. 30010 :
  433. 30020 [153] [199](147)
  434. 30030 [153]:[153]
  435. 30040 [153] [163]3);"COMPUTER SCIENCE MARKS"
  436. 30050 [153] [163]15);"DISTRIBUTION":[153]:[153]
  437. 30060 [153]"N   -   ENTER NEW EXAM MARKS:":[153]
  438. 30070 [153]"H   -   MAKE A HARD COPY ":[153]
  439. 30080 [153]"D   -   DISPLAY DATA ON SCREEN:":[153]
  440. 30090 [153]"W   -   WRITE A FILE TO DISK  :":[153]
  441. 30100 [153]"R   -   READ(LOAD) A FILE FROM DISK:":[153]
  442. 30110 [153]"S   -   WRITE (SAVE) FILE ON TAPE:":[153]
  443. 30120 [153]"L   -   READ (LOAD) FILE FROM TAPE:":[153]
  444. 30130 [153]"E   -   END OR REPEAT PROGRAM:":[153]
  445. 30140 [153]:[153]
  446. 30150 [153] [163]10);"ENTER YOUR SELECTION"
  447. 30160 [161] ZA$:[139] ZA$[178]"" [167] 30160
  448. 30170 [139] ZA$[178]"N" [167] [141]  2000
  449. 30180 [139] ZA$[178]"H" [167] [141] 9000
  450. 30190 [139] ZA$[178]"D" [167] [141] 10000
  451. 30200 [139] ZA$[178]"W" [167] [141] 11000
  452. 30210 [139] ZA$[178]"R" [167] [141] 12000
  453. 30220 [139] ZA$[178]"S" [167] [141] 14000
  454. 30230 [139] ZA$[178]"L" [167] [141] 15000
  455. 30240 [139] ZA$[178]"E" [167] [141] 20000
  456. 30250 [137] 30000
  457.