MAIN IF aclfgl_sendfile_to_ui("menu.4st") THEN END IF OPEN WINDOW menu AT 2,2 WITH FORM "form" ATTRIBUTES(STYLE = "right") MENU "Menu Position" COMMAND "Top" CALL open_window_top() COMMAND "Bottom" CALL open_window_bottom() COMMAND "Left" CALL open_window_left() COMMAND "Right" CALL open_window_right() COMMAND "Exit" EXIT MENU END MENU END MAIN FUNCTION open_window_left() OPEN WINDOW w1 AT 2,2 WITH FORM "form" ATTRIBUTES(STYLE = "left") MENU "EXIT" COMMAND "Command 1" EXIT MENU COMMAND "Command 2" EXIT MENU COMMAND "EXIT" EXIT MENU END MENU CLOSE WINDOW w1 END FUNCTION FUNCTION open_window_right() OPEN WINDOW w1 AT 2,2 WITH FORM "form" ATTRIBUTES(STYLE = "right") MENU "EXIT" COMMAND "Command 1" EXIT MENU COMMAND "Command 2" EXIT MENU COMMAND "EXIT" EXIT MENU END MENU CLOSE WINDOW w1 END FUNCTION FUNCTION open_window_top() OPEN WINDOW w1 AT 2,2 WITH FORM "form" ATTRIBUTES(STYLE = "top") MENU "EXIT" COMMAND "Command 1" EXIT MENU COMMAND "Command 2" EXIT MENU COMMAND "EXIT" EXIT MENU END MENU CLOSE WINDOW w1 END FUNCTION FUNCTION open_window_bottom() OPEN WINDOW w1 AT 2,2 WITH FORM "form" ATTRIBUTES(STYLE = "bottom") MENU "EXIT" COMMAND "Command 1" EXIT MENU COMMAND "Command 2" EXIT MENU COMMAND "EXIT" EXIT MENU END MENU CLOSE WINDOW w1 END FUNCTION