SUBROUTINE ITIME(HR,MIN,SEC) C C Routine to return the time of day in integer form C IMPLICIT INTEGER (A-Z) BYTE ATIME(8) C CALL TIME(ATIME) ! Get ascii form DECODE (8,1,ATIME) HR,MIN,SEC ! Into integer form 1 FORMAT (I2,1X,I2,1X,I2) RETURN END