10 REM-PROGRAM NAME:"STU709"
20 REM-PROGRAM PRINTS ACCUMULATED CREDITS FOR EACH STUDENT
30 OPEN "DF:STUDNT.MST" AS FILE 1
35 OPEN "LP:" FOR OUTPUT AS FILE 2
40 DIM #1, S1$(500)=511
50 FOR J%=1 TO 500
60 LET S$=S1$(J%)
70 IF LEFT(S$,5)="99999" GOTO 500
75 IF MID(S$,146,1)="D" OR MID(S$,146,1)="V" THEN
     GOTO 230
80 PRINT #2, LEFT(S$,5)+" "+MID(S$,6,25)
90 PRINT #2, SPACE$(10)+"ENGLISH     "+
     MID(S$,166,2)
100 PRINT #2, SPACE$(10)+"SOC STUDIES "+
     MID(S$,168,2)
110 PRINT #2, SPACE$(10)+"SCIENCE     "+
     MID(S$,170,2)
120 PRINT #2, SPACE$(10)+"MATH        "+
     MID(S$,172,2)
130 PRINT #2, SPACE$(10)+"PHYS ED     "+
     MID(S$,174,2)
150 PRINT #2, SPACE$(10)+"OTHERS      "+
     MID(S$,178,2)
180 LET T%=VAL(MID(S$,166,2))+VAL(MID(S$,168,2))+
     VAL(MID(S$,170,2))+VAL(MID(S$,172,2))+
     VAL(MID(S$,174,2))+VAL(MID(S$,178,2))
190 PRINT #2, SPACE$(12)+"TOTAL       ";
200 PRINT #2, T%
210 PRINT #2, SPACE$(78)
220 PRINT #2, SPACE$(78)
230 NEXT J%
500 CLOSE 1,2
510 END