$SAVE NOLIST

dq$get$time:  PROCEDURE( date$time$ptr,
                         except$ptr ) EXTERNAL;

DECLARE date$time$ptr    POINTER,
        except$ptr       POINTER;

END dq$get$time;

$RESTORE