SUBROUTINE ASCCLK(TMSTMP,CLUNK) C C Routine to convert a time/date ascii string to an 8 byte C CLUNK value. The string is null terminated and always 18 C bytes long in the following format: hh:mm:ss dd-mmm-yy C IMPLICIT INTEGER(A-Z) BYTE CLUNK(8),TMSTMP(20),TEMP(14) C CALL SCOPY(TMSTMP(10),TEMP(1),2) ! The dd CALL SCOPY(TMSTMP(13),TEMP(3),3) ! The mmm CALL SCOPY(TMSTMP(17),TEMP(6),2) ! The yy CALL SCOPY(TMSTMP(1),TEMP(8),2) ! The hh CALL SCOPY(TMSTMP(4),TEMP(10),2) ! The mm CALL SCOPY(TMSTMP(7),TEMP(12),2) ! Finally the ss CALL CATDT(TEMP,CLUNK) RETURN END