MAIN
  CALL ui.Interface.loadStartMenu("StartMenu1")
  -- By default the SCREEN window gets the STYLE attribute 'main'...
  -- Since the default.4st file defines this style with a startmenu as
  -- pull-down menu, you can see the startmenu in the SCREEN window.
  MENU "StartMenu"
    COMMAND "menu" "Window with startmenu as pull-down menu"
      OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm1")
      MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
      CLOSE WINDOW w1
    COMMAND "tree" "Window with startmenu as tree view"
      OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm2")
      MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
      CLOSE WINDOW w1
    COMMAND "poptree" "Window with startmenu as popup-tree view"
      OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm3")
      MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
      CLOSE WINDOW w1
    COMMAND KEY(INTERRUPT) "Exit" EXIT MENU
  END MENU
END MAIN