esc v1 case

; esc v1 case
If OpenWindow(0, 200, 200, 200, 120, "Esc")
  If CreatePopupMenu(0)      ; creation of the pop-up menu begins...
    MenuItem(4, "Quit")
  EndIf
  Repeat
    Event = WaitWindowEvent()     ; check for window events
    Select Event
      Case #PB_Event_Menu        ; an item of the popup-menu was clicked
        Select EventMenu()       ; get the clicked menu item...
          Case 4 : End
        EndSelect
    EndSelect
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 4)
  Until Event = #PB_Event_CloseWindow
EndIf