10 REM-PROGRAM NAME:"STU700
20 REM-PROGRAM LOADS STUDENT GRADE CARDS INTO STUDNT
     MASTER RECORD.
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1, S1$(500)=511
50 OPEN "CR:" FOR INPUT AS FILE 2
60 FIELD #2, 80 AS C$
61 INPUT "ENTER QUARTER";Q%
62 LET B%=2*Q%
63 LET B1%=B%+68 !TO POINT TO PROPER CUT QUARTER
65 LET I$=SPACE$(5)
68 ON ERROR GOTO 800
70 DIM K$(16)      !ARRAY FOR COURSES
71 GET #2
72 IF LEFT(C$,5)<>I$ THEN GOSUB 330
80 REM------SEARCH FOR THIS COURSE
90 FOR L%=1 TO 16
100 IF LEFT(K$(L%),4)=MID(C$,31,4) THEN GOTO 200
110 NEXT L%
120 FOR L%=1 TO 16
130 IF LEFT(K$(L%),4)=SPACE$(4) THEN GOTO 150
135 NEXT L%
139 PRINT " NO ROOM IN STUDENT REC FOR COURSE"
140 STOP
150 LET B$=MID(C$,B1%,2) !TO PICK UP NUMBR OF CUTS
152 LET K$(L%)=MID(C$,31,4)+MID(C$,58,2)+MID(C$,60,10)+
     "00"+B$
160 GOTO 71
200 LET B$=MID(C$,B1%,2) !TO PICK UP NUMBR OF CUTS
220 IF B$="  " THEN LET B$="00"
230 LET B3=VAL(MID(K$(L%),17,2))+
     VAL(B$)
235 LET X9$=NUM$(B3)
240 LET N=1
242 LET A=LEN(X9$)
245 LET A=A-1
247 IF A>2 THEN GOTO 290
250 LET B3$=MID(X9$,N,A)
255 IF A=2 THEN GOTO 300
260 IF A=1 THEN LET M=1
262 LET B3$=SPACE$(M)+B3$
263 GOTO 300
290 LET N=N+1
295 GOTO 245
300 LET K$(L%)=LEFT(K$(L%),4)+MID(C$,58,2)+MID(C$,60,10)+
     B3$+B$
310 GOTO 71
330 IF I$=SPACE$(5) THEN GOTO 500
331 LET A$=O$   !TO COLLAPSE A$ TO NOTHING
332 FOR A%=1 TO 16
334 LET A$=A$+K$(A%)
338 NEXT A%
340 LET S1$(J%)=LEFT(S$,179)+A$+SPACE$(12)
345 IF ERR=11  GOTO 950
500 LET I$=LEFT(C$,5)
510 LET J%=J%+1
520 IF LEFT(S1$(J%),5)="99999" THEN GOTO 700
530 IF LEFT(S1$(J%),5)<>I$ THEN GOTO 510
535 LET X%=0
540 LET S$=S1$(J%)
550 FOR K%=1 TO 16
555 LET M%=180+((K%-1)*20)
560 LET K$(K%)=MID(S$,M%,20)
570 NEXT K%
600 RETURN
700 IF X%=0 GOTO 750
705 PRINT "CANNOT FIND MASTER FOR ";I$
708 LET X%=0
710 GOTO 71
750 LET X%=1
760 LET J%=1
770 GOTO 520
800 IF ERR=11 GOTO 880
810 IF ERR=13 OR ERR=14 GOTO 830
820 PRINT "ERROR =";ERR
825 STOP
830 SLEEP(5)
835 RESUME
880 GOSUB 330
882 RESUME 950
950 CLOSE 1,2
1000 END