Initial data commit

Task/Make-directory-path/FreeBASIC/make-directory-path.basic

@@ -0,0 +1,17 @@
+#ifdef __FB_WIN32__
+    Dim pathname As String = "Ring\docs"
+#else
+    Dim pathname As String = "Ring/docs"
+#endif
+
+Dim As String mkpathname = "mkdir " & pathname
+Dim result As Long = Shell (mkpathname)
+
+If result = 0 Then
+    Print "Created the directory..."
+    Chdir(pathname)
+    Print Curdir
+Else
+    Print "error: unable to create folder " & pathname & " in the current path."
+End If
+Sleep