EnableExplicit

Procedure win()
  Protected ev, TimOn=#False
  OpenWindow(1234, 870, 640, 400, 300, "text")
  
  Repeat
    ev=WaitWindowEvent(100)
    
    If TimOn=#False And GetAsyncKeyState_(#VK_ESCAPE)=32768
      TimOn=#True
      AddWindowTimer(1234, 123, 1000)
    EndIf
    
    If ev = #PB_Event_Timer And EventTimer() = 123
      RemoveWindowTimer(1234, 123)
      TimOn=#False
      Debug "Таймер"
    EndIf
    
  Until ev=#PB_Event_CloseWindow
EndProcedure

win()

    Repeat 
      ev=WaitWindowEvent()
      If GetAsyncKeyState_(#VK_ESCAPE)&32768;=-32767
        Break
      EndIf
      Select ev
        Case #PB_Event_Menu
          Select EventMenu()
            Case 1:
              I$ = UCase( InputRequester("insert char", "enter number($ for hex)", "") )
              While GetAsyncKeyState_(#VK_ESCAPE)&32768
              Wend

  If OpenWindow(0, 0, 0, 300, 50, "Position of the mouse on the desktop", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 0, 0, 200, 20, "OK")
    If CreateMenu(0, WindowID(0))
     MenuTitle("Menu")
     MenuItem(1, "quit Esc")
AddKeyboardShortcut(0,#VK_ESCAPE,1)
   EndIf
   
    Repeat
      Event = WaitWindowEvent()
        Select Event
;      Case #WM_KEYUP
; If GetAsyncKeyState_(#VK_ESCAPE)&1
; Break
; EndIf/
       Case #PB_Event_Menu
         Select EventMenu()
           Case 1 : Break

         EndSelect

       Case #PB_Event_Gadget
         Select EventGadget()
           Case 0
  StandardFile$ = "D:\"   ; set initial file+path to display
  ; With next string we will set the search patterns ("|" as separator) for file displaying:
  ;  1st: "Text (*.txt)" as name, ".txt" and ".bat" as allowed extension
  ;  2nd: "PureBasic (*.pb)" as name, ".pb" as allowed extension
  ;  3rd: "All files (*.*) as name, "*.*" as allowed extension, valid for all files
  Pattern$ = "Text (*.txt)|*.txt;*.bat|PureBasic (*.pb)|*.pb|All files (*.*)|*.*"
  Pattern = 0    ; use the first of the three possible patterns as standard
  File$ = OpenFileRequester("Please choose file to load", StandardFile$, Pattern$, Pattern)
;   If File$
;     MessageRequester("Information", "You have selected following file:" + Chr(10) + File$, 0)
;   Else
;     MessageRequester("Information", "The requester was canceled.", 0) 
;   EndIf
         EndSelect
     EndSelect
   
     
    Until Event = #PB_Event_CloseWindow
  EndIf