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