05 REM- PROGRAM NAME: "STU605"
06 REM- PROGRAM PRODUCES HONOR LIST
10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM #1, S$(500)=511
30 OPEN "CR:" FOR INPUT AS FILE 2
40 FIELD #2, 80 AS C$
50 OPEN "LP:" FOR OUTPUT AS FILE 3
60 ON ERROR GOTO 500
61 PRINT #3, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
62 PRINT #3, SPACE$(29)+"HONOR LIST"
63 PRINT #3, SPACE$(78)
65 INPUT "ENTER MARKING PERIOD";M%
66 LET M1%=59+M%
70 GET #2
71 IF MID(C$,M1%,1)<>"A" GOTO 70
80 LET I$=LEFT(C$,5)
90  IF I$<>I1$ GOTO 300
95 PRINT #3, SPACE$(10)+MID(C$,31,4)+"  "+
     MID(C$,38,20)
110 GOTO 70
300 LET J%=J%+1
310 IF LEFT(S$(J%),5)=I$ GOTO 370
315 IF LEFT(S$(J%),6)="999999" THEN GOTO 330
320 GOTO 300
330 PRINT "CANT FIND MASTER FOR ";I$
335 LET J%=0
340 GOTO 70
370 LET N$=MID(S$(J%),6,25)
375 LET I1$=LEFT(C$,5)
376 PRINT #3, SPACE$(78): PRINT #3, SPACE$(78)
377 PRINT #3, I1$+"   "+N$
380 GOTO 95
500 IF ERR=11 GOTO 550
510 IF ERR=13 OR ERR=14 GOTO 530
520 PRINT "ERR0R =";ERR
525 STOP
530 SLEEP(5)
535 RESUME
550 CLOSE 1,2,3,4
560 END