DECLARE SUB menuSV0 (cen%, vid%, a$(), yp1%, xp1%, lpol%, otst%, l%, t$, ten%, cSimPol%, cFonPol%, cSimm%, cFonm%, cSimK%, cFonK%, cod%)
'
Подпрограмма формирования вертикального меню выбора:
cen% - центрировать =1, иначе не центрировать
vid% - 0 - статичное меню, 1 - исчезающее меню
a$(0) - заголовок пунктов меню
a$() - массив пунктов меню
xp1% - координата левого
yp1% - верхнего угла меню
lpol% - отступ поля до рамки 0,1,2,...
otst% - отступ от верха раmки до первого пункта меню
l% - отступ слева и справа от рамки до поля меню
t$ - тип рамки
cFonPol% - цвет фона поля меню
cSimPol% - цвет рамки и шапки меню
cFonm% - первоначальный цвет фона пункта меню
cSimm% - первоначальный цвет букв пункта меню
cFonk% - цвет фона курсора меню
cSimk% - цвет букв курсора меню
ten% - вид тени 0,1,2,3,4
cod% - входной параметр : номер пункта меню установки курсора
cod% - выходной параметр : номер выбранного пункта меню (0 -<Esc>)