05 REM- PROGRAM BUILDS MASTER SCHEDULE FILE FROM CARD DECK
10 OPEN "DF:SCHED.MST" AS FILE 1
20 DIM#1, S1$(150)=255
30 OPEN "CR:" AS FILE 2
40 FIELD#2, 80 AS C$
50 ON ERROR GO TO 200
60 DIM A$(25)
70 GET#2
80 IF MID(C$,58,2)<>T$ GO TO 120
90 LET M=VAL(MID(C$,40,2))
100 LET A$(M)=MID(C$,49,3)+MID(C$,43,5)
110 GO TO 70
120 LET N=VAL(RIGHT(T$,2))
122 IF LEFT(T$,1)<="9" G OTO 128
124 LET N=N+(100+(ASCII(LEFT(T$,1))-65)*10)
126 GO TO 130
128 LET N=N+VAL(LEFT(T$,1))*10
130 FOR I=1 TO 22
140 LET S$=S$+A$(I)
145 LET A$(I)=SPACE$(8)
150 NEXT I
160 LET S1$(N)=S$+SPACE$(79)
170 LET S$=SPACE$(0)
180 LET T$=MID(C$,58,2)
190 GO TO 90
200 IF ERR=11 GO TO 250
210 IF ERR=13 OR ERR=14 GO TO 230
220 PRINT USING "ERROB ### AT LINE ###",ERR,ERL: STOP
230 SLEEP(2)
240 RESUME
250 CLOSE 1,2
260 END