include "NSlog.incl"

local fn Sleep
  printf @"\nReady to sleep...\n"
  CFStringRef secondsToSleep = input %(100,100), @"Enter seconds to sleep: ", @"0123456789", YES, 3, _formatUnsignedFloat
  fn ThreadSleepForTimeInterval( fn StringFloatValue( secondsToSleep ) )
  printf @"Waking from %@ seconds of sleep...", secondsToSleep
end fn

window 1

fn Sleep

HandleEvents