void local fn DoIt
  window 1, @"User/input Text"
  CFStringRef string = input @"Enter a string:"
  print string
  CFStringRef number = @""
  while ( intval(number) != 75000 )
    number = input @"Enter the integer 75000", @"0123456789", YES, 5
  wend
  print number
end fn

fn DoIt

HandleEvents