Здравствуйте, помогите доделать прогу. Нужно разроботать иерархическое меню. Предусмотреть выход из меню.

Вот мой код, я не знаю как сделать так, что бы выходило из меню и удалялись поля. Подскажите кто знает.
SET DEFAULT TO 'E:\Vfp98'

OPEN DATABASE zkdata.dbc

DEFINE MENU zkmenu

DEFINE PAD insert1 OF zkmenu PROMPT " Table "
DEFINE PAD insert2 OF zkmenu PROMPT " Add "
DEFINE PAD insert3 OF zkmenu PROMPT " View "
DEFINE PAD insert4 OF zkmenu PROMPT " Edit "
DEFINE PAD insert5 OF zkmenu PROMPT " Find "
DEFINE PAD insert6 OF zkmenu PROMPT " Help "
ON PAD insert1 OF zkmenu ACTIVATE POPUP mtab
ON PAD insert2 OF zkmenu ACTIVATE POPUP madd
ON PAD insert3 OF zkmenu ACTIVATE POPUP mview
ON PAD insert4 OF zkmenu ACTIVATE POPUP mred
ON PAD insert5 OF zkmenu ACTIVATE POPUP mf
ON PAD insert6 OF zkmenu ACTIVATE POPUP mh

DEFINE POPUP mtab
DEFINE BAR 1 OF mtab PROMPT " Open "
DEFINE BAR 2 OF mtab PROMPT " Delete "
DEFINE BAR 3 OF mtab PROMPT " Exit "

DEFINE POPUP madd
DEFINE BAR 1 OF madd PROMPT " Student "
ON SELECTION BAR 1 OF madd do procaddstud
DEFINE BAR 2 OF madd PROMPT " Result "
ON SELECTION BAR 2 OF madd do procaddres
DEFINE BAR 3 OF madd PROMPT " KP "
ON SELECTION BAR 3 OF madd do procaddkp
DEFINE BAR 4 OF madd PROMPT " Subject "
ON SELECTION BAR 4 OF madd do procaddsubj

DEFINE POPUP mview
DEFINE BAR 1 OF mview PROMPT " Students "
ON SELECTION BAR 1 OF mview do procviewstud
DEFINE BAR 2 OF mview PROMPT " Out "
ON SELECTION BAR 2 OF mview do procviewout
DEFINE BAR 3 OF mview PROMPT " Results "
ON SELECTION BAR 3 OF mview do procviewex
DEFINE BAR 4 OF mview PROMPT " KPs "
ON SELECTION BAR 4 OF mview do procviewkp
DEFINE BAR 5 OF mview PROMPT " Subjects "
ON SELECTION BAR 5 OF mview do procviewsubj

ACTIVATE MENU zkmenu
SET SYSMENU TO DEFAULT

* добавление новой записи о студенте
procedure procaddstud
DO FORM zkStudForm
return

* добавление предмета
procedure procaddsubj
DO FORM zkSubjForm
return

* добавление новой записи о результате
procedure procaddres
DO FORM zkExForm
return

* добавление новой записи о КП
procedure procaddkp
DO FORM zkKPForm
return

* просмотр таблицы студентов
procedure procviewstud
SELECT zkstud.zkn, zkstud.fio, zkstud.dr, zkstud.faculty, zkstud.grp, zkstud.di, zkstud.com;
FROM zkstud;
WHERE zkstud.grp NOT IN ('out')
endproc

* просмотр списка отчисленных
procedure procviewout
SELECT zkstud.zkn, zkstud.fio, zkstud.dr, zkstud.faculty, zkstud.grp, zkstud.di, zkstud.com;
FROM zkstud;
WHERE zkstud.grp IN ('out')
return

* просмотр таблицы результатов
procedure procviewex
SELECT zkstud.zkn, zkstud.fio, zkex.dcode, zkex.fsd, zkex.prep, zkex.ozenka;
FROM zkstud, zkex;
WHERE zkstud.zkn=zkex.zkn
endproc

* просмотр таблицы курсовых проектов
procedure procviewkp
SELECT zkstud.zkn, zkstud.fio, zkkp.namekp, zkkp.ruc, zkkp.ozenca;
FROM zkstud, zkkp;
WHERE zkstud.zkn=zkkp.zkn
endproc

* просмотр таблицы предметов
procedure procviewsubj
SELECT zksubject.dcode, zksubject.dname;
FROM zksubject
endproc