$SAVE NOLIST

rq$s$create$directory:  PROCEDURE( path$ptr,
                                   except$ptr ) TOKEN EXTERNAL;

DECLARE path$ptr    POINTER,
        except$ptr  POINTER;

END rq$s$create$directory;

$RESTORE