05 REM- PROGRAM BUILDS STUDY HALL MASTER FILE FROM CARDS
10 OPEN "DF:STUDYH.MST" AS FILE 1
20 DIM#1, H1$(25)=46
30 OPEN "CR:" AS FILE 2
40 FIELD#2, 80 AS C$
50 ON ERROR GO TO 180
60 GET#2
70 IF MID(C$,40,2)<>M$ GO TO 130
89 IF I$<>SPACE$(23) GO TO 110
90 LET I$=MID(C$,49,3)+MID(C$,56,20)
100 GO TO 60
110 LET J$=MID(C$,49,3)+MID(C$,56,20)
120 GO TO 60
130 LET H1$(VAL(M$)) = I$+J$
140 LET I$=SPACE$(23)
150 LET J$=SPACE$(23)
160 LET M$=MID(C$,40,2)
170 GO TO 90
180 IF ERR=11 GO TO 200
190 STOP
200 CLOSE 1,2
210 END