home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / batutl / timestmp.arc / TIMESTMP.FOR < prev   
Encoding:
Text File  |  1990-01-11  |  1.1 KB  |  34 lines
  1. C
  2. C This program writes the current date and time to the standard output
  3. C   device.
  4. C Written by Robert E. Zaret, who relinquishes all rights.
  5. C
  6.       CHARACTER*20 DATE, TIME
  7.       CALL DATIM (DATE, TIME)
  8.       WRITE (*, *) DATE, TIME
  9.       END
  10. $NOTSTRICT
  11.       SUBROUTINE DATIM (DATRUN, TIMRUN)
  12. C
  13. C This routine returns the date and time when it is called.
  14. C
  15. C This version is for Microsoft Fortran 5.0
  16. C
  17. C Written 15 Aug 1989 by Robert E. Zaret (SWEC, Boston)
  18. C
  19.       CHARACTER*(*) DATRUN, TIMRUN
  20.       CHARACTER*3  MONTHS(12)
  21.       INTEGER*2    IHR, IMIN, ISEC, I100TH, IYR, IMON, IDAY
  22.       DATA MONTHS / 'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN',
  23.      +              'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'   /
  24.       CALL GETDAT (IYR, IMON, IDAY)
  25.       CALL GETTIM (IHR, IMIN, ISEC, I100TH)
  26.       WRITE (DATRUN, 10) IDAY, MONTHS(IMON), IYR
  27.       WRITE (TIMRUN, 20) IHR, IMIN, ISEC
  28.       IF (TIMRUN(4 : 4) .EQ. ' ') TIMRUN(4 : 4) = '0'
  29.       IF (TIMRUN(7 : 7) .EQ. ' ') TIMRUN(7 : 7) = '0'
  30.       RETURN
  31.    10 FORMAT (I3, 1X, A3, 1X, I4)
  32.    20 FORMAT (I2, ':', I2, ':', I2)
  33.       END
  34.