Initial data commit

Task/Input-loop/FutureBasic/input-loop.basic

@@ -0,0 +1,20 @@
+include "NSLog.incl"
+
+local fn ReadTextFile
+  CFURLRef    url
+  CFStringRef string
+
+  url = openpanel 1, @"Select text file..."
+  if ( url )
+    string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL )
+    if ( string )
+      NSLog(@"%@",string)
+    end if
+  else
+    // user cancelled
+  end if
+end fn
+
+fn ReadTextFile
+
+HandleEvents