10 REM-PROGRAM NAME: "STU708"
20 REM20 REM - PROGRAM ADDS IN CREDITS FOR COURSES TAKEN  UNDER
     NEW COURSE NUMBERING SYSTEM
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1, S1$(500)=511
50 OPEN "CR:" FOR INPUT AS FILE 2
60 FIELD #2, 80 AS C$
70 OPEN "LP:" FOR OUTPUT AS FILE 3
75 LET I$=SPACE$(5)
80 ON ERROR GOTO 1130 
90 LET G1$=SPACE$(3)+"A"
100 GOSUB 2620
110 LET G9=T1
120 LET G1$=SPACE$(3)+"B"
130 GOSUB 2620
140 LET G8=T1
150 LET G1$=SPACE$(3)+"C"
160 GOSUB 2620
170 LET G7=T1
180 LET G1$=SPACE$(3)+"D"
190 GOSUB 2620
200 LET G6=T1
210 GET #2
212 IF LEFT(C$,5)<>I$ THEN GOSUB 710
215 PRINT #3, SPACE$(15)+MID(C$,31,4)+" "+
   MID(C$,38,20)+" "+MID(C$,60,4)+" "+MID(C$,64,1)
217 IF MID(C$,31,4)="EF01" THEN GOTO 250
220 IF MID(C$,31,1)="E" OR MID(C$,31,1)="Z" THEN GOTO 600
225 IF MID(C$,64,1)=" " THEN GOTO 210   !NO FINAL GRADE
230 IF MID(C$,64,1)>"D" AND MID(C$,64,1)<>"P" THEN GOTO 210
240 GOTO 1300
250 IF MID(C$,60,1)<>"F" AND MID(C$,60,1)<>" " THEN LET E=E+1
251 IF MID(C$,61,1)<>"F" AND MID(C$,61,1)<>" " THEN LET E=E+1
252 IF MID(C$,62,1)<>"F" AND MID(C$,62,1)<>" " THEN LET E=E+1
253 IF MID(C$,63,1)<>"F" AND MID(C$,63,1)<>" " THEN LET E=E+1
255 GOTO 210
500 LET G1$=MID(C$,60,4)    !PICK UP MINI
505 GOSUB 2620
510 IF T1=G9 OR T1=G8 OR T1=G7 OR T1=G6 THEN GOTO 1250
520 GOTO 210
600 IF MID(C$,34,1)="1" THEN GOTO 500
605 GOTO 225
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$     !PHYS ED CREDITS
790 LET X9$=NUM$(E)
810 GOSUB 2660
830 LET E$=X1$     !ENGLISH CREDITS
850 LET X9$=NUM$(S)
870 GOSUB 2660
890 LET S5$=X1$ !SOCIAL STUDIES CREDIT
910 LET X9$=NUM$(A)  !AMERICAN HISTORY
920 GOSUB 2660
930 LET A$=X1$      !AMERICAN HISTORY CREDIT
950 LET X9$=NUM$(O)
970 GOSUB 2660
990 LET O$=X1$      !CREDIT FOR OTHER COURSEz
1000 CHANGE G1$ TO G1
1010 LET X9$=NUM$(M)
1020 LET T1=T1+G1(I%)
1030 GOSUB 2660
1050 LET M$=X1$     !CREDIT FOR MATH
1070 LET X9$=NUM$(C)
1090 GOSUB 2660
1110 LET C1$=X1$    !CREDIT FOR SCIENCE
1111 LET S1$(J%)=LEFT(S$,165)+E$+S5$+C1$+M$+P$+A$+O$+
     MID(S$,180,332)
1113 IF ERR=11 GOTO 2800
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=VAL(MID(S$,174,2))   !PHYS ED
1122 LET E=VAL(MID(S$,166,2))   !ENGLISH
1123 LET S=VAL(MID(S$,168,2))   !SOCIAL STUDIES
1124 LET A=VAL(MID(S$,176,2))   !US HISTORY
1125 LET O=VAL(MID(S$,178,2))   !OTHERS
1126 LET M=VAL(MID(S$,172,2))   !MATH
1127 LET C=VAL(MID(S$,170,2))   !SCIENCE
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 "ERR=";ERR
1190 STOP
1210 SLEEP(5)
1230 RESUME
1250 IF MID(C$,31,1)="E" THEN LET E=E+1
1260 IF MID(C$,31,1)="Z" THEN LET S=S+1
1265 GOTO 210
1300 IF MID(C$,31,1)="E" THEN GOTO 1600
1310 IF MID(C$,31,1)="Z" THEN GOTO 1650
1320 IF MID(C$,31,1)="M" THEN GOTO 1700
1330 IF MID(C$,31,1)="P" THEN GOTO 1750
1335 IF MID(C$,31,1)="S" THEN GOTO 1775
1340 LET O=O+VAL(MID(C$,34,1))   !CREDIT FOR OTHER CRSES
1350 GOTO 210
1600 LET E=E+VAL(MID(C$,34,1))   !CREDIT FOR ENGLISH
1610 GOTO 210
1650 LET S=S+VAL(MID(C$,34,1))   !CREDIT FOR SOC STUDIES
1660 GOTO 210
1700 LET M=M+VAL(MID(C$,34,1))   !CREDIT FOR MATH
1710 GOTO 210
1750 LET P=P+VAL(MID(C$,34,1))   !CREDIT FOR PHYS ED
1755 GOTO 210
1775 LET C=C+VAL(MID(C$,34,1))   !CREDIT FOR SCIENCE
1777 GOTO 210
2460 PRINT "CANNOT FIND MASTER FOR ";I$
2462 GET#2
2464 IF LEFT(C$,5)=I$ GO TO 2462
2465 LET J%=J%-1
2466 GO TO 1115
2600 GOSUB 710
2610 RESUME 2800
2620 CHANGE G1$ TO G1
2621 LET T1=0
2622 FOR I%=1 TO 4
2623 LET T1=T1+G1(I%)
2625 NEXT I%
2627 RETURN
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,3
2810 END