routine dir_unlink (
    directory: file_t;
    RPT
    name: string_t);

Remove non-directory.