$SAVE NOLIST

dq$exit:  PROCEDURE( completion$code ) EXTERNAL;

DECLARE completion$code      WORD;

END dq$exit;

$RESTORE