program ranking
      character*8 RANKS(2,14),MNAME,MOLDNM                              0001
      DIMENSION RANKPT(14)                                              0002
      data ranks/'        ','Inductee','        ',                      0003
     1  ' Recruit','        ','   Cadet','      Mi','dshipman',         0004
     1  '        ','  Ensign',' Lieuten','ant J.G.','      Li',         0005
     1  'eutenant','   Lt. C','ommander','       C','ommander',         0006
     1  '        ',' Captain','    Rear',' Admiral','    Vice',         0007
     1  ' Admiral','        ',' Admiral','   Fleet',' Admiral'/         0008
      DATA RANKPT/0.,1.,10.,20.,30.,40.,50.,60.,70.,80.,95.,110.,125.,  0009
     1  140./                                                           0010
	call cpage
	write(*,'('' Suprtrek Player Ranking Program V. 1.0 '')')
	pause ' Press Return to Display current Rankings '
      CALL CPAGE                                                        0011
      WRITE(*,30341)                                                    0012
      OPEN(3,FILE='KEYFILE.TRK',ACCESS='DIRECT',RECL=600)

30341 FORMAT(' Communique from Starfleet Command! '/'  The current ranks0014
     1 have been obtained by the following officers:')                  0015
      IIKK=0                                                            0016
30342 IRNK=14                                                           0017
      IIKK=IIKK+1                                                       0018
      READ(3,rec=IIKK,ERR=30347)MNAME,POINT                             0019
      IF(MNAME.EQ.MOLDNM)GO TO 30347                                    0020
      MOLDNM=MNAME                                                      0021
30344 IF(POINTS.GE.RANKPT(IRNK))GO TO 30345                             0022
      IRNK=IRNK-1
      GO TO 30344                                                       0024
30345 WRITE(*,30346)RANKS(1,IRNK),RANKS(2,IRNK),MNAME,POINTS            0025
30346 FORMAT(2A8,' ',A8,' Currently has Points = ',F6.2)                0026
	iikk=iikk+4
      GO TO 30342                                                       0027
30347 STOP                                                              0028
      END                                                               0029
	SUBROUTINE CPAGE
	call cls
	CALL HOME
	RETURN
	END


   slow down but continue