<> <> <> <> <> <> <> <> <> <> DIRECTORY BasicTime USING [GMT, nullGMT, Unpacked]; Time: DEFINITIONS = BEGIN Packed: TYPE = BasicTime.GMT; <> Unpacked: TYPE = BasicTime.Unpacked; defaultTime: Packed = BasicTime.nullGMT; Current: PROCEDURE RETURNS [time: Packed]; Unpack: PROCEDURE [time: Packed _ defaultTime] RETURNS [unpacked: Unpacked]; Invalid: ERROR; Pack: PROCEDURE [unpacked: Unpacked] RETURNS [time: Packed]; Append: PROCEDURE [s: LONG STRING, unpacked: Unpacked, zone: BOOLEAN _ FALSE]; AppendCurrent: PROCEDURE [s: LONG STRING, zone: BOOLEAN _ FALSE]; END.