THIS.CAPTION = pname THIS.ICON = "uasc.ico" CLEAR SET SYSMENU SAVE SET SYSMENU TO ON KEY LABEL ESC KEYBOARD CHR(13) DEFINE MENU example BAR IN WINDOW FORM1 DEFINE PAD convpad OF example PROMPT '\<File' COLOR SCHEME 3; KEY ALT+F, '' ON PAD convpad OF example ACTIVATE POPUP conversion DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF conversion PROMPT '\<View Requests' KEY CTRL+V, 'Ctrl+V' DEFINE BAR 2 OF conversion PROMPT '\<Input Request' KEY CTRL+I, 'Ctrl+I' DEFINE BAR 3 OF conversion PROMPT 'View \<Rates' KEY CTRL+R, 'Ctrl+R' DEFINE BAR 4 OF conversion PROMPT '\<Edit Recipients' KEY CTRL+E, 'Ctrl+E' DEFINE BAR 5 OF conversion PROMPT 'E\<xit' KEY CTRL+X, 'Ctrl+X' ON SELECTION BAR 1 OF conversion mnufrmMain(1) ON SELECTION BAR 2 OF conversion mnufrmMain(2) ON SELECTION BAR 3 OF conversion mnufrmMain(3) ON SELECTION BAR 4 OF conversion mnufrmMain(4) ON SELECTION BAR 5 OF conversion quit DEFINE PAD convpad1 OF example PROMPT '\<Help' COLOR SCHEME 3; KEY ALT+H, '' ON PAD convpad1 OF example ACTIVATE POPUP conversion1 DEFINE POPUP conversion1 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF conversion1 PROMPT '\<Help' KEY CTRL+H, 'Ctrl+H' DEFINE BAR 2 OF conversion1 PROMPT '\<About' KEY CTRL+A, 'Ctrl+A' ON SELECTION BAR 1 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&Help ON SELECTION BAR 2 OF conversion1 wait window "Sorry, this option is not yet available." timeout .5 &&About ACTIVATE MENU example NOWAIT this.refresh() ACTIVATE MENU example