home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol047 / vmstim.for < prev    next >
Encoding:
Text File  |  1984-04-29  |  393 b   |  19 lines
  1. C ITIME - RETURN SYSTEM TIME IN COMPONENT FORM
  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.     SUBROUTINE ITIME (H, M, S)
  8.  
  9.     IMPLICIT INTEGER*2 (A-Z)
  10.     INTEGER*2 TIME (7)
  11.  
  12.     CALL SYS$NUMTIM (TIME, %VAL(0))
  13.     H = TIME(4)
  14.     M = TIME(5)
  15.     S = TIME(6)
  16.     RETURN
  17.  
  18.     END
  19.