Initial data commit

Task/Unix-ls/FreeBASIC/unix-ls.basic

@@ -0,0 +1,13 @@
+#include "dir.bi"
+
+Sub ls(Byref filespec As String, Byval attrib As Integer)
+    Dim As String filename = Dir(filespec, attrib)
+    Do While Len(filename) > 0
+        Print filename
+        filename = Dir()
+    Loop
+End Sub
+
+Dim As String directory = ""     ' Current directory
+ls(directory & "*", fbDirectory)
+Sleep