10 REM-PROGRAM NAME: "STU804" 20 REM- PROGRAM CREATES STUDNT.RNK FILE 30 OPEN "DF:STUDNT.MST" AS FILE 1 40 DIM #1, S1$(500)=510 50 OPEN "DF:STUDNT.RNK" AS FILE 2 60 DIM #2, R1$(500)=64 70 FOR J%=1 TO 500 80 LET S$=S1$(J%) 90 IF LEFT(S$,5)="99999" GOTO 600 100 LET R1$(J%)=LEFT(S$,30)+MID(S$,140,4)+"000" 110 NEXT J% 120 STOP 600 LET R1$(J%)="99999"+SPACE$(58) 610 CLOSE 1,2 620 END