try the @ get and read version of using popups
the only problem is you have to remember to clear the lines
on the screen that the popup occupied.
an example follows:
CLEAR
SET TALK OFF
DEFINE POPUP TESTING FROM 10,10 TITLE 'TESTING THIS POPUP'
DEFINE BAR 1 OF TESTING PROMPT 'One'
DEFINE BAR 2 OF TESTING PROMPT 'Two'
DEFINE BAR 3 OF TESTING PROMPT 'Three'
DEFINE BAR 4 OF TESTING PROMPT 'Four'
DEFINE BAR 5 OF TESTING PROMPT 'Five'
DEFINE BAR 6 OF TESTING PROMPT 'Six'
WKEY=2
@ 10,10 GET WKEY POPUP TESTING
READ TIMEOUT 10
@ 10,10 CLEA TO 10+CNTBAR('TESTING')+1,78
@ 20,10 SAY BAR()
@ 21,10 SAY WKEY
@ 22,10 SAY PRMBAR('TESTING',WKEY)
RELEASE POPUP TESTING