10 REM- PROGRAM NAME "STU008"
20 REM- PROGRAM SUMARRIZES NUMBER OF ABSENCES BY
   RESIDENT AND NONRESIDENT STUDENTS
25 OPEN "DF:STUDNT.MST" AS FILE 1
26 DIM #1, S1$(500)=512
30 OPEN "LP:" FOR OUTPUT AS FILE 2
35 PRINT #2, SPACE$(30)+DATE$(0)
40 FOR J%=1 TO 500
50 LET S$=S1$(J%)
60 IF LEFT(S$,5)="99999" GOTO 200
65 LET C%=VAL(MID(S$,127,2))+VAL(MID(S$,129,2))+
     VAL(MID(S$,131,2))+VAL(MID(S$,133,2))+VAL(MID(S$,135,2))
66 IF MID(S$,71,1)="0" OR MID(S$,71,1)="4" GOTO 90
70 LET A1%=A1%+C%
71 GOTO 80
80 NEXT J%
90 LET A2%=A2%+C%
95 GOTO 80
200 PRINT #2, "TOTAL NUMBER OF ABSENCES THRU OCT 16,1972"
201 PRINT #2, "   RESIDENT STUDENTS = ";A1%
202 PRINT #2, "   NONRESIDENT STUDENTS = ";A2%
205 CLOSE 1,2
210 END