10 REM PROGRAM NAME: STU607
15 REM-PROGRAM PRINTS LIST OF STUDENTS WITH NO PHYS ED CLASS
20 OPEN "DF:STUDNT.MST" AS FILE 1
30 DIM #1,S$(500)=511
40 OPEN "CR:" FOR INPUT AS FILE 2
45 FIELD #2, 80 AS C$
50 OPEN "LP:" FOR OUTPUT AS FILE 4
60 ON ERROR GOTO 600
62 PRINT #4, SPACE$(10)+
     "LISTING OF STUDENTS WITH NO PHYS-ED CLASS OR GRADE"
63 PRINT #4,SPACE$(34)+DATE$(0)
64 PRINT #4, SPACE$(78)
70 GET #2
80 LET I$=LEFT(C$,5)
90 IF I$<>I1$ GOTO 300
100 IF MID(C$,31,1)<>"P" GOTO 70
105 IF MID(C$,60,1)=" " GOTO 70
110 LET E=E+1
120 GOTO 70
300 IF X=0 GOTO 310
305 IF E>0 GOTO 310
306 PRINT #4, LEFT(S$(J%),5)+" "+MID(S$(J%),6,25)
310 LET J%=J%+1
315 IF LEFT(S$(J%),5)=I$ GOTO 370
316 IF LEFT(S$(J%),5)="99999" GOTO 500
320 GOTO 310
370 LET I1$=LEFT(S$(J%),5)
450 LET X=X+1
455 LET E=0
460 LET I1$=I$
470 GOTO 100
500 PRINT "CANNOT FIND MASTER FOR ID# ";I$
510 LET J%=0
520 GOTO 310
600 IF ERR=11 GOTO 850
610 IF ERR=13 OR ERR=14 GOTO 650
620 PRINT "ERR0R =";ERR
625 STOP
650 SLEEP(5)
660 RESUME
850 IF E>0 GOTO 880
860 PRINT #4, LEFT(S$(J%),5)+" "+MID(S$(J%),6,25)
880 CLOSE 1,2,4
950 END