05 REM - PROGRAM NAME: "STU006" 06 REM - PROGRAM PRODUCES LISTING OF STUDENTS 10 OPEN "DF:STUDNT.MST" AS FILE 1 20 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 IF MID(S$,146,1)="D" OR MID(S$,146,1)="V" GOTO 80 70 PRINT#2,LEFT(S$,5)+" "+MID(S$,6,25)+" "+MID(S$,114,1) 75 LET K%=K%+1 80 NEXT J% 200 LET J%=J%-1 201 PRINT #2 202 PRINT #2, "TOTAL NUMBER OF STUDENTS = ";K% 205 CLOSE 1,2 210 END