EXTERNALROUTINE  LL(STRING (255)USER)
EXTERNALINTEGERFNSPEC  DSFI(STRING (6)USER, INTEGER  FSYS,TYPE,SET,ADR)
!
!
STRINGFN  S2(INTEGER  N)
INTEGER  T, U
      T = N//10
      U = N - 10*T
      RESULT  = TOSTRING(T+'0').TOSTRING(U+'0')
END 
!
!
STRINGFN  UNPACKDT(INTEGER  DT)
INTEGER  Y, MON, D, H, MIN, S
CONSTSTRING (5)ARRAY  MONTH(1:12) = " JAN "," FEB "," MAR "," APR ", C 
      " MAY "," JUN "," JUL "," AUG "," SEP "," OCT "," NOV "," DEC "
!
      Y   = (DT >> 26) & 63 + 70
      MON = (DT >> 22) & 15
      D   = (DT >> 17) & 31
      H   = (DT >> 12) & 31
      MIN = (DT >> 6) & 63
      S   = DT & 63
!
      RESULT  = S2(D).MONTH(MON).S2(Y)." ".S2(H).".".S2(MIN). C 
            ".".S2(S)
END 
!
!
!
INTEGER  DT, J
      J = DSFI(USER, -1, 6, 0, ADDR(DT))
!
      IF  J = 0 C 
      THEN  PRINTSTRING(UNPACKDT(DT)) C 
      ELSE  WRITE(J, 1)
      NEWLINE
END 
ENDOFFILE