Menue sample (old)

declare sub Main

declare sub mShow

declare sub mTheme

'********************************

sub Main

 Create Menu "MyApp" as

         "Show" calling mShow,

         "Theme" calling mTheme

 Alter Menu bar add "MyApp"

end sub

'********************************

sub mShow

 note "Show"

end sub

'********************************

sub mTheme

 note "Theme"

end sub