Source position: menus.inc line 313
function NewSubMenu(
Name: TMenuStr;
AHelpCtx: Word;
SubMenu: PMenu;
Next: PMenuItem
):PMenuItem;