Initial data commit

Task/Empty-directory/BBC-BASIC/empty-directory.basic

@@ -0,0 +1,17 @@
+      IF FNisdirectoryempty("C:\") PRINT "C:\ is empty" ELSE PRINT "C:\ is not empty"
+      IF FNisdirectoryempty("C:\temp") PRINT "C:\temp is empty" ELSE PRINT "C:\temp is not empty"
+      END
+
+      DEF FNisdirectoryempty(dir$)
+      LOCAL dir%, sh%, res%
+      DIM dir% LOCAL 317
+      IF RIGHT$(dir$)<>"\" dir$ += "\"
+      SYS "FindFirstFile", dir$+"*", dir% TO sh%
+      IF sh% = -1 ERROR 100, "Directory doesn't exist"
+      res% = 1
+      REPEAT
+        IF $$(dir%+44)<>"." IF $$(dir%+44)<>".." EXIT REPEAT
+        SYS "FindNextFile", sh%, dir% TO res%
+      UNTIL res% == 0
+      SYS "FindClose", sh%
+      = (res% == 0)