$SAVE NOLIST dq$overlay: PROCEDURE( name$ptr, except$ptr ) EXTERNAL; DECLARE name$ptr POINTER, except$ptr POINTER; END dq$overlay; $RESTORE