esc v1 (without case)

; esc v1 (without case)
If OpenWindow(0, 200, 200, 200, 120, "Esc")
  If CreatePopupMenu(0)      ; creation of the pop-up menu begins...
    MenuItem(1, "Quit")
  EndIf
  Repeat
    Event = WaitWindowEvent()     ; check for window events
    If Event = #PB_Event_Menu And EventMenu() = 1
      Event = #PB_Event_CloseWindow
      EndIf
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)
  Until Event = #PB_Event_CloseWindow
EndIf