RosettaCodeData/Task/Create-a-file/Seed7/create-a-file.seed7

$ include "seed7_05.s7i";
  include "osfiles.s7i";

const proc: main is func
  local
    var file: aFile is STD_NULL;
  begin
    aFile := open("output.txt", "w");
    close(aFile);
    makeDir("docs");
    aFile := open("/output.txt", "w");
    close(aFile);
    makeDir("/docs");
  end func;