window 1

void local fn DoIt
  CFArrayRef  array = @[@"Alpha",@"Bravo",@"Charlie",@"Delta",@"Echo",@"FutureBasic"]
  CFStringRef string

  for string in array
    print string
  next
end fn

fn DoIt

HandleEvents