10 REM-PROGRAM NAME: "STU707"
30 REM-PROGRAM ADDS CREDITS FOR COURSES COMPLETED TO CUMULATIVE
     TOTAL IN EACH STUDENT RECORD
50 OPEN "DF:STUDNT.MST" AS FILE 1
70 DIM #1, S1$(500)=511
90 OPEN "CR:" FOR INPUT AS FILE 2
110 FIELD #2, 80 AS C$
115 OPEN "LP:" FOR OUTPUT AS FILE 3
130 ON ERROR GOTO 1130
132 LET A$="  "
135 LET T0=166       !"   F"
138 LET T1=164       ! "   D"
140 LET T2=163       ! "   C"
145 LET T3=162       ! "   B"
147 LET T4=161       ! "   A"
160 GET #2
170 IF LEFT(C$,5)<>I$ THEN GOSUB 710
175 LET V$=MID(C$,33,3)
190 LET F$=MID(C$,64,1)    !FINAL GRADE
191 IF F$="F" OR F$="X" OR F$="I" THEN GOTO 330
192 IF F$<>" " THEN GOTO 250
193 IF MID(C$,61,1)="F" THEN GOTO 330
194 IF MID(C$,63,1)="F" THEN GOTO 330
210 LET V$=MID(C$,33,3)    !COURSE CODE NUMBER
230 IF MID(C$,60,4)=SPACE$(4) THEN GOTO 650
250 GOSUB 1270
251 LET T8=0: LET T9=0
252 LET G8$=MID(C$,60,4)
253 LET G9$=F$+SPACE$(3)
254 CHANGE G8$ TO G8
255 CHANGE G9$ TO G9
260 FOR I%=1 TO 4
261 LET T9=T9+G9(I%)
262 LET T8=T8+G8(I%)
263 NEXT I%
264 IF T8=T9 OR T8=T1 OR T8=T2 OR T8=T3 OR T8=T4 THEN GOTO 640
266 IF V$="002" THEN GOTO 330 !OFFICE PRACTICE,DONT COUNT
270 IF LEFT(V$,1)="0" GOTO 350   ! 0=PHYS ED
271 IF V$="999" THEN GOTO 330 !DONT COUNT DRIVER ED
275 IF V$="   " GOTO 2150
290 LET V=VAL(LEFT(V$,1))   !PICK UP 1ST DIGIT OF COURSE#
310 ON V GOTO 390,450,530,570,610,530,530,530,530
330 PRINT #3,SPACE$(15)+V$+"  "+MID(C$,38,9)+"  "+
     MID(C$,60,4)+" "+MID(C$,64,1)
331 GOTO 160
350 LET P=P+F      !ADD IN CREDIT FOR PHYS ED
370 GOTO 330
390 LET E=E+F      !ADD IN CREDIT FOR ENGLISH COURSE
410 GOTO 330
430 IF LEFT(V$,2)="23" GOTO 490  !BR IF AMERICAN HISTORY
450 LET S=S+F      !ADD IN CREDITS FOR SOCIAL STUDIES
470 GOTO 330
530 LET O=O+F   !OTHERS
550 GOTO 330
570 LET M=M+F      !ADD IN CREDITS FOR MATH
590 GOTO 330
610 LET C=C+F      !ADD IN CREDITS FOR SCIENCE
630 GOTO 330
640 LET F=1
641 GOTO 270
650 PRINT "NO GRADE FOR COURSE #";V$;
670 PRINT " STUDENT #"; I$
690 GOTO 150
710 IF I$=SPACE$(5) THEN GOTO 1115
711 PRINT #3, SPACE$(78)
730 LET X9$=NUM$(P)
750 GOSUB 2660
770 LET P$=X1$
790 LET X9$=NUM$(E)     !ENGLISH CREDITS
810 GOSUB 2660
830 LET E$=X1$
850 LET X9$=NUM$(S)     !SOCIAL STUDIES CREDIT
870 GOSUB 2660
890 LET S5$=X1$
950 LET X9$=NUM$(O)  !CREDIT FOR OTHER COURSES
970 GOSUB 2660
990 LET O$=X1$
1010 LET X9$=NUM$(M)     !CREDIT FOR MATH
1030 GOSUB 2660
1050 LET M$=X1$
1070 LET X9$=NUM$(C)      !CREDIT FOR SCIENCE
1090 GOSUB 2660
1110 LET C1$=X1$
1111 LET S1$(J%)=LEFT(S$,165)+E$+S5$+C1$+M$+P$+A$+O$+
     MID(S$,180,332)
1113 IF ERR=11 GOTO 1120
1115 LET I$=LEFT(C$,5)
1116 LET J%=J%+1
1117 IF LEFT(S1$(J%),5)>I$ THEN GOTO 2460
1118 IF LEFT(S1$(J%),5)<I$ THEN GOTO 1116
1119 LET S$=S1$(J%)
1120 LET X%=0
1121 LET P=0
1122 LET E=0
1123 LET S=0
1124 LET A=0
1125 LET O=0
1126 LET M=0
1127 LET C=0
1128 PRINT #3, LEFT(S$,5)+"   "+MID(S$,6,25)
1129 RETURN
1130 IF ERR=11 GOTO 2600
1150 IF ERR=13 OR ERR=14 GOTO 1210
1170 PRINT "ERROR =";ERR
1190 STOP
1210 SLEEP(5)
1230 RESUME
1250 LET F=40
1270 IF V$<="042" THEN 2190
1290 IF V$<"130" THEN 2230
1295 IF V$<="199" THEN 2190
1310 IF V$<="225" THEN 2230
1330 IF V$<"233" THEN 2190
1350 IF V$="233" THEN 2270
1370 IF V$<"243" THEN 2230
1390 IF V$="243" THEN 2270
1430 IF V$="251" THEN 2310
1440 IF V$<="299" THEN 2190
1450 IF V$<"526" THEN 2230
1470 IF V$<"542" THEN 2350
1480 IF V$="614" THEN 2230
1490 IF V$<="615" THEN 2310
1495 IF V$="619" THEN 2270
1510 IF V$<"619" THEN 2350
1530 IF V$="621" THEN 2230
1550 IF V$<="625" THEN 2310
1590 IF V$<="628" THEN 2390
1595 IF V$="629" THEN 2270
1610 IF V$<="636" THEN 2230
1630 IF V$="655" THEN 2390
1650 IF V$<="710" THEN 2230
1690 IF V$<="712" THEN 2430
1710 IF V$<="720" THEN 2230
1730 IF V$="721" THEN 2430
1750 IF V$="722" THEN 2430
1770 IF V$<="730" THEN 2230
1790 IF V$<="739" THEN 2390
1810 IF V$<="748" THEN 2230
1830 IF V$="749" THEN 2430
1850 IF V$="750" THEN 2430
1870 IF V$<="752" THEN 2230
1910 IF V$<="754" THEN 2430
1930 IF V$<="765" THEN 2230
1950 IF V$="766" THEN 2390
1970 IF V$<="771" THEN GOTO 2430
1990 IF V$<="773" THEN GOTO 2430
2010 IF V$="781" THEN 2430
2030 IF V$="782" THEN 2430
2050 IF V$="791" THEN 2430
2070 IF V$="792" THEN 2430
2090 IF V$<="826" THEN 2230
2110 IF V$="999" THEN 2190
2130 IF V$>="910" THEN 2310
2150 PRINT "UNDEFINED COURSE CODE";V$,K$
2170 STOP
2175 GOTO 270
2190 LET F=1
2210 GOTO 2450
2230 LET F=4
2250 GOTO 2450
2270 LET F=8
2290 GOTO 2450
2310 LET F=2
2330 GOTO 2450
2350 LET F=5
2370 GOTO 2450
2390 LET F=6
2410 GOTO 2450
2430 LET F=9
2450 RETURN
2460 PRINT "CANNOT FIND MASTER FOR ";I$
2462 LET X%=0 
2465 GET #2
2466 IF I$=LEFT(C$,5) THEN GOTO 2465
2468 LET I$=LEFT(C$,5)
2470 GOTO 1117
2475 GOTO 190
2500 LET X%=1
2505 LET J%=1
2510 GOTO 1117
2600 GOSUB 710
2610 RESUME 2800
2660 LET N=1
2665 LET A6=LEN(X9$)
2670 LET A6=A6-1
2675 IF A6>2 THEN GOTO 2690
2678 LET X1$=MID(X9$,N,A6)
2680 RETURN
2690 LET N=N+1
2695 GOTO 2670
2800 CLOSE 1,2
2810 END