10 REM-PROGRAM NAME:"STU705"
20 REM-PROGRAM PRODUCES A LISTING OF GRADES FOR EACH
     STUDENT FROM THE STUDENT MASTER FILE
25 OPEN "DF:TEACHR.MST" AS FILE 6
26 DIM #6, T$(200)=16
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1, S1$(500)=511
45 OPEN "LP:" FOR OUTPUT AS FILE 2
50 FOR J%=1 TO 500
60 LET S$=S1$(J%)
70 IF LEFT(S$,5)="99999" GOTO 1000
71 IF MID(S$,146,1)="D" OR MID(S$,146,1)="V" THEN GOTO 150
75 PRINT #2, SPACE$(78)
76 PRINT #2, SPACE$(78)
80 PRINT #2, LEFT(S$,5)+" "+MID(S$,6,25)
100 FOR K%=1 TO 16
110 LET M%=180+((K%-1)*20)
120 LET C$=MID(S$,M%,20)
125 IF LEFT(C$,6)=SPACE$(4) GOTO 140
130 PRINT #2, SPACE$(10)+LEFT(C$,4)+SPACE$(3)+MID(C$,7,5)+
     SPACE$(2)+MID(C$,12,5);
131 IF MID(C$,5,1)="A" THEN LET L%=100+VAL(MID(C$,6,1))
     ELSE LET L%=VAL(MID(C$,5,2))
132 PRINT #2, T$(L%)
140 NEXT K%
150 NEXT J%
1000 CLOSE 1,2
1010 END