Data commit

Task/Unix-ls/BaCon/unix-ls.bacon

@@ -0,0 +1,18 @@
+' Emulate ls
+cnt% = 0
+files$ = ""
+OPEN CURDIR$ FOR DIRECTORY AS mydir
+GETFILE myfile$ FROM mydir
+WHILE ISTRUE(LEN(myfile$))
+    IF LEFT$(myfile$, 1) != "." THEN
+        INCR cnt%
+        files$ = APPEND$(files$, cnt%, UNFLATTEN$(myfile$))
+    ENDIF
+    GETFILE myfile$ FROM mydir
+WEND
+CLOSE DIRECTORY mydir
+IF cnt% > 0 THEN
+    FOR f$ IN SORT$(files$)
+        PRINT FLATTEN$(f$)
+    NEXT
+ENDIF