home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / RANKING.370 < prev    next >
Encoding:
Text File  |  1986-12-15  |  2.5 KB  |  31 lines
  1.  
  2.       DOUBLE PRECISION RANKS(2,14),MNAME,MOLDNM                         00010000
  3.       DIMENSION RANKPT(14)                                              00020000
  4.       DATA RANKS/'        ','INDUCTEE','        ',                      00030000
  5.      1  ' RECRUIT','        ','   CADET','      MI','DSHIPMAN',         00040000
  6.      1  '        ','  ENSIGN',' LIEUTEN','ANT J.G.','      LI',         00050000
  7.      1  'EUTENANT','   LT. C','OMMANDER','       C','OMMANDER',         00060000
  8.      1  '        ',' CAPTAIN','    REAR',' ADMIRAL','    VICE',         00070000
  9.      1  ' ADMIRAL','        ',' ADMIRAL','   FLEET',' ADMIRAL'/         00080000
  10.       DATA RANKPT/0.,1.,10.,20.,30.,40.,50.,60.,70.,80.,95.,110.,125.,  00090000
  11.      1  140./                                                           00100000
  12.       CALL CPAGE                                                        00110000
  13.       WRITE(6,30341)                                                    00120000
  14.       DEFINE FILE 3(50,2400,L,IV)                                       00130000
  15. 30341 FORMAT(' COMMUNIQUE FROM STARFLEET COMMAND! '/'  THE CURRENT RANKS00140000
  16.      1 HAVE BEEN OBTAINED BY THE FOLLOWING OFFICERS:')                  00150000
  17.       IIKK=0                                                            00160000
  18. 30342 IRNK=14                                                           00170000
  19.       IIKK=IIKK+1                                                       00180000
  20.       READ(3'IIKK,ERR=30347)MNAME,POINTS                                00190000
  21.       IF(MNAME.EQ.MOLDNM)GO TO 30347                                    00200000
  22.       MOLDNM=MNAME                                                      00210000
  23. 30344 IF(POINTS.GE.RANKPT(IRNK))GO TO 30345                             00220000
  24.       IRNK=IRNK-1                                                       00230000
  25.       GO TO 30344                                                       00240000
  26. 30345 WRITE(6,30346)RANKS(1,IRNK),RANKS(2,IRNK),MNAME,POINTS            00250000
  27. 30346 FORMAT(2A8,' ',A8,' CURRENTLY HAS POINTS = ',F6.2)                00260000
  28.       GO TO 30342                                                       00270000
  29. 30347 STOP                                                              00280000
  30.       END                                                               00290000
  31. >