Лабораторная работа Средства создания меню

Файл menushka.prg:
clear
deactivate menu menu
define menu menu bar at line 1 key alt+2 mark chr(254)
define pad open of menu prompt \’\\<Open\’
define pad browse of menu prompt \’\\<Browse\’
define pad append of menu prompt \’\\<Append\’
define pad delete of menu prompt \’\\<Delete\’
define pad sort_by_fa of menu prompt \’\\<by Family\’
define pad sort_by_da of menu prompt \’\\<by Date\’
define pad hide of menu prompt \’\\<Hide\’
define pad activ of menu prompt \’\\<Activate\’
define pad quit of menu prompt \’\\<Exit\’

on selection menu menu;
do tmenu in menushka with menu(),pad()
activate menu menu nowait

procedure tmenu
parameter mmenu,mpad
wait window \’Выбрана опция \’+mpad nowait
set mark of pad(pad()) of menu to;
!mrkpad(\’menu\’,pad())&&

if mpad=\’OPEN\’
select a
use c:\\first in a
endif

if mpad=\’BROWSE\’
browse
endif

if mpad=\’APPEND\’
go bottom
append blank
browse
endif

if mpad=\’DELETE\’
go bottom
delete
pack
endif

if mpad=\’SORT_BY_FA\’
index on family to c:\\first_f.idx
use c:\\first index c:\\first_f.idx
browse
endif

if mpad=\’SORT_BY_DA\’
use c:\\first
index on date to c:\\first_d.idx
use c:\\first index c:\\first_d.idx
browse
endif

if mpad=\’HIDE\’
hide menu all
endif

if mpad=\’ACTIV\’
activate menu menu
endif

if mpad=\’QUIT\’
deactivate menu menu
release menu menu
endif
return