$SAVE NOLIST

dq$change$extension:  PROCEDURE( path$ptr,
                                 extension$ptr,
                                 except$ptr ) EXTERNAL;

DECLARE path$ptr        POINTER,
        extension$ptr   POINTER,
        except$ptr      POINTER;

END dq$change$extension;

$RESTORE