home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / SUPRTREK.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  525 b   |  12 lines
  1.     program suprtrek
  2.       OPEN(3,FILE='KEYFILE.TRK',ACCESS='DIRECT',
  3.      1form='UNFORMATTED',RECL=2400)
  4.       OPEN(9,FILE='DATAFILE.TRK',ACCESS='DIRECT',RECL=24)
  5. C    CALL MBDATA
  6.       CALL STAR79                                                       2413
  7.       CALL TRY1                                                         2414
  8.       CLOSE(3)
  9.       CLOSE(9)
  10.       STOP                                                              2415
  11.       END                                                               2416
  12.