10 REM- PROGRAM NAME-"STU504" 20 REM- PROGRAM PRINTS OUT LIST OF STUDENTS MAKING B OR BETTER OR ALL A'S FOR 2 QUARTERS 30 OPEN "DF:STUDNT.MST" AS FILE 1 40 DIM #1, S1$(400)=511 50 OPEN "LP:" FOR OUTPUT AS FILE 2 60 OPEN "CR:" FOR INPUT AS FILE 3 70 FIELD #3,80 AS C$ 80 ON ERROR GOTO 500 90 GET #3 100 IF LEFT(C$,5)<>I$ THEN GOSUB 400 110 LET G$=MID(C$,60,1) !GRADE FOR 1ST QTR 120 LET G1$=MID(C$,61,1) !GRADE FOR 2ND QTR 130 IF G$="P" OR G$="I" THEN GOTO 172 140 IF G$="B" AND Z$=" " THEN LET Z$="B" 150 IF G$="A" AND Z$=" " THEN LET Z$="A" 160 IF G$>"B" THEN LET Z$="0" 170 IF G$="B" AND Z$="A" THEN LET Z$="B" 172 IF G1$="P" OR G1$="I" GOTO 200 174 IF G1$="B" AND Z1$=" " THEN LET Z1$="B" 176 IF G1$="A" AND Z1$=" " THEN LET Z1$="A" 178 IF G1$=" " AND MID(C$,34,1)="1" THEN GOTO 90 180 IF G1$>"B" THEN LET Z1$="0" 185 IF G1$="B" AND Z1$="A" THEN LET Z1$="B" 200 GOTO 90 400 IF I$=SPACE$(5) THEN GOTO 408 401 IF Z1$=" " THEN GOTO 406 402 IF Z1$="0" THEN GOTO 406 403 IF Z$="0" THEN LET Z$="-" 404 IF MID(S1$(L%),146,1)="D" OR MID(S1$(L%),146,1)= "V" THEN GOTO 406 405 PRINT #2, I$+" "+MID(S1$(L%),6,25)+" "+ Z$+" "+Z1$ 406 IF ERR=11 THEN GOTO 600 408 LET L%=L%+1 410 IF LEFT(S1$(L%),5)="99999" GOTO 450 415 IF LEFT(S1$(L%),5)<>LEFT(C$,5) GOTO 408 420 LET I$=LEFT(S1$(L%),5) 425 LET Z1$=" " 426 LET Z$=" " 430 RETURN 450 PRINT "CANNOT FIND MASTER FOR ";LEFT(C$,5) 455 LET L%=1 460 GOTO 430 500 IF ERR=11 THEN GOSUB 400 510 IF ERR<>14 THEN GOTO 560 520 SLEEP(5) 530 RESUME 560 PRINT "ERR =";ERR 570 STOP 600 END