home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol047 / rttim.for < prev    next >
Encoding:
Text File  |  1984-04-29  |  414 b   |  17 lines
  1. C ITIME-    RETURN TIME IN HOURS, MINUTES, AND SECONDS
  2. C
  3. C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
  4. C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
  5. C WRITTEN BY R. M. SUPNIK
  6. C
  7. C DECLARATIONS
  8. C
  9.     SUBROUTINE ITIME(H,M,S)
  10.     IMPLICIT INTEGER(A-Z)
  11.     INTEGER*4 T
  12. C
  13.     CALL GTIM(T)            !GET TIME IN TICKS.
  14.     CALL CVTTIM(T,H,M,S,TK)        !CONVERT TO H,M,S,TICKS.
  15.     RETURN
  16.     END
  17.