Data commit

Task/Create-a-file/Modula-3/create-a-file.mod3

@@ -0,0 +1,18 @@
+MODULE FileCreation EXPORTS Main;
+
+IMPORT FS, File, OSError, IO, Stdio;
+
+VAR file: File.T;
+
+BEGIN
+  TRY
+    file := FS.OpenFile("output.txt");
+    file.close();
+    FS.CreateDirectory("docs");
+    file := FS.OpenFile("/output.txt");
+    file.close();
+    FS.CreateDirectory("/docs");
+  EXCEPT
+  | OSError.E => IO.Put("Error creating file or directory.\n", Stdio.stderr);
+  END;
+END FileCreation.