_window = 1

void local fn BuildWindow
  subclass window _window, @"Keyboard input/Keypress check"
  text,24
  print %(180,190)@"Press any key"
end fn

void local fn DoDialog( ev as long, tag as long )
  select ( ev )
    case _windowKeyDown
      select ( tag )
        case _window
          cls : printf %(180,190)@"\"%@\" key pressed",fn EventCharacters
          DialogEventSetBool( YES )// we handled
      end select
  end select
end fn

fn BuildWindow

on dialog fn DoDialog

HandleEvents