05 REM PROGRAM NAME: "RNKLST"
06 REM PROGRAM PRINTS LIST OF STUDENTS WITH G.P.AVE AND
     RANKING ORDER
10 OPEN "DF:STUDNT.RNK" AS FILE 1
20 DIM #1, S$(400)=64
25 OPEN "LP:" FOR OUTPUT AS FILE 2
30 FOR J%=1 TO 500
40 IF LEFT(S$(J%),5)="99999" THEN GOTO 500
50 PRINT #2, LEFT(S$(J%),5)+"  "+MID(S$(J%),6,25)+
     "  "+MID(S$(J%),31,1)+"."+MID(S$(J%),32,3)+"  ";
60 PRINT #2, J%
70 NEXT J%
80 STOP
500 CLOSE 1,2
510 END