fio := sys->file2chan(DIR, "file.tmp");
        if(fio == nil)
                raise;
        
        dir := Sys->nulldir;
        dir.name = "file";
        dir.mode = Sys->DMEXCL | 8r400;
        if(sys->wstat(DIR+"/file.tmp", dir) == -1)
                raise;