set talk off
clear
define menu meniu
define pad file of meniu prompt '\<afisare'
define pad open of meniu prompt '\<adaugare'
define pad exit of meniu prompt'\<exit'
on selection pad file of meniu do proc1
on selection pad open of meniu do proc2
on selection pad exit of meniu do proc3
activate menu meniu
clear menus
procedure proc1
@20,10 say 's-a ales optiunea 1'
use elevi
disp all
wait ' '
clear
use
return
procedure proc2
@20,10 say 's-a ales optiunea 2'
use elevi
append
wait ' '
clear
use
return
procedure proc3
@20,10 say 's-a ales optiunea 3'
deactivate menu meniu
return