DEFINE POPUP mypopup RELATIVE shortcut
DEFINE BAR 1 OF mypopup PROMPT "bar1"
DEFINE BAR 2 OF mypopup PROMPT "bar2"
ON KEY LABEL F5 MESSAGEBOX('PUT ACTION F5 ON '+STR(BAR()),0,1000)
ON KEY LABEL F6 MESSAGEBOX('PUT ACTION F6 ON '+STR(BAR()),0,1000)
WAIT WINDOWS "Press Esc to exit" NOCLEAR nowait
CLEAR TYPEAHEAD
DO WHILE LASTKEY()#27
	ACTIVATE POPUP mypopup
ENDDO  
WAIT CLEAR