10 REM- PROGRAM NAME: "STU805"
20 REM- PROGRAM INSERTS RANKING POSITION INTO STUDENT RECORD
     FROM STUDNT.RNK FILE
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1, S1$(400)=510
50 OPEN "DF:STUDNT.RNK" AS FILE 2
60 DIM #2, R$(400)=64
70 LET J%=1
80 LET K%=1
90 IF LEFT(S1$(J%),5)>LEFT(R$(K%),5) THEN GOTO 200
100 IF LEFT(S1$(J%),5)<LEFT(R$(K%),5) GOTO 300
110 LET S$=S1$(J%)
120 LET S1$(J%)=LEFT(S$,136)+MID(R$(K%),35,3)+MID(S$,140,371)
130 LET K%=K%+1
133 LET J%=J%+1
135 IF LEFT(R$(K%),5)="99999" GOTO 600
140 GOTO 90
200 LET K%=K%+1
210 GOTO 90
300 LET J%=J%+1
305 IF LEFT(S1$(J%),5)="99999" GOTO 600
310 GOTO 90
600 CLOSE 1,2
610 END