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

include "NSLog.incl"

void local fn Doit
  NSLog(@"")
  CFURLRef url = openpanel 1
  if ( url )
    open @"I", 1, url
    while ( !eof(1) )
      CFStringRef s = line input 1
      NSLog(@"%@",s)
    wend
    close 1
  end if
end fn

fn DoIt

HandleEvents