[INHERIT('sys$library:starlet')]
PROGRAM Use_Asctim_and_Gettim(OUTPUT);

VAR
    Datestring : VARYING [32] OF CHAR;
    Binarytime : RECORD
                  L1,L2 : INTEGER;
                 END;

    BEGIN

    { Get the current binary time }
    $gettim(Binarytime);

    { Convert the binary time into a varying string by letting }
    { $asctim write into the .Length and .Body parts.          }
    $asctim(Datestring.Length, Datestring.Body, Binarytime);

    { Print it out }
    WRITELN(Datestring);

    END.