define menu main
define pad one of main prompt "one" at 0,1
define pad two of main prompt "two" at 0,20
do mendef with 0
activate menu main

PROCEDURE MENDEF
parameter mskip
if mskip#1
   define popup one from 1,1
   define bar 1 of one prompt "one"
   define bar 2 of one prompt "two"
   on pad one of main activate popup one
   on selection popup one do proc1
endif
if mskip#2
   define popup two from 1,20
   define bar 1 of two prompt "one"
   define bar 2 of two prompt "two"
   on pad two of main activate popup two
   on selection popup two do proc2
endif

PROCEDURE PROC1
release popup two
wait window
do mendef with 1

PROCEDURE PROC2
release popup one
wait window
do mendef with 2

*The following should be substituted for dBASE IV:

*PROCEDURE PROC1
*save screen to mvar
*release popup two
*clear
*wait
*restore screen from mvar
*do mendef with 1

*PROCEDURE PROC2
*save screen to mvar
*release popup one
*clear
*wait
*restore screen from mvar
*do mendef with 2

