declare
       lid      integer;
       new_file integer;
begin
     LID := Z$LOG_CORE.OPEN('C:TMP');
     new_file := STDIO.MKDIR('C:TMP', 0);
     Z$LOG_CORE.CLOSE(LID);
end;