Add tasks for all the new languages

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

@@ -0,0 +1,27 @@
+include "ConsoleWindow"
+
+local fn ReadTextFile
+dim as CFURLRef      fileRef
+dim as Handle        h
+dim as CFStringRef   cfStr : cfStr = NULL
+dim as long          fileLen
+
+if ( files$( _CFURLRefOpen, "TEXT", "Select text file...", @fileRef ) )
+   open "i", 2, fileRef
+   fileLen = lof( 2, 1 )
+   h = fn NewHandleClear( fileLen )
+      if ( h )
+         read file 2, [h], fileLen
+         close #2
+         cfStr = fn CFStringCreateWithBytes( _kCFAllocatorDefault, #[h], fn GetHandleSize(h), _kCFStringEncodingMacRoman, _false )
+         fn DisposeH( h )
+      end if
+else
+// User canceled
+end if
+
+fn HIViewSetText( sConsoleHITextView, cfStr )
+CFRelease( cfStr )
+end fn
+
+fn ReadTextFile