<Eterm-0.8.10>
%preproc m4
define(STRING_ITEM, `begin menuitem
    text "$1"
    action string "$2"
  end')
define(ECHO_ITEM, `begin menuitem
    text "$1"
    action echo "$2"
  end')
define(SUBMENU_ITEM, `begin menuitem
    text "$1"
    action submenu "$1"
  end')
define(FONT_ITEM, `begin menuitem
    text "$1"
    action string "\e]50;#$2"
  end')
begin menu
  title Font
  font -*-times-bold-r-normal--14-*-*-*-*-*-iso8859-1
  STRING_ITEM(`Normal', `\e]50;#')
  STRING_ITEM(`Larger', `\e]50;#+')
  STRING_ITEM(`Smaller', `\e]50;#-')
  -
  STRING_ITEM(`Font 1', `\e]50;#1')
  STRING_ITEM(`Font 2', `\e]50;#2')
  STRING_ITEM(`Font 3', `\e]50;#3')
  STRING_ITEM(`Font 4', `\e]50;#4')
end
begin menu
  title Toggles
  font fixed
  begin menuitem
    text "Cursor Visible"
    action string "\e[?25t"
  end
  begin menuitem
    text "Home on Echo"
    action string "\e[?1010t"
  end
  begin menuitem
    text "Home on Refresh"
    action string "\e[?1011t"
  end
  begin menuitem
    text "Home on Input"
    action string "\e[?1012t"
  end
  begin menuitem
    text "Map Alert"
    action string "\e]6;21\a"
  end
  begin menuitem
    text "Primary/Secondary Screen"
    action string "\e[?47t"
  end
  begin menuitem
    text "Reverse Video"
    action string "\e[?5t"
  end
  begin menuitem
    text "Select Trailing Spaces"
    action string "\e]6;25\a"
  end
  begin menuitem
    text "Select Whole Line on Triple-click"
    action string "\e]6;23\a"
  end
  begin menuitem
    text "Visual Bell"
    action string "\e]6;20\a"
  end
  begin menuitem
    text "X11 Mouse Reporting"
    action string "\e[?1000t"
  end
  begin menuitem
    text "Xterm Selection Behavior"
    action string "\e]6;22\a"
  end
end
begin menu
  title Keys
  font fixed
  begin menuitem
    text "Application Arrow Keys"
    action string "\e[?1t"
  end
  begin menuitem
    text "Application Keypad"
    action string "\e[?66t"
  end
  begin menuitem
    text "Backspace/Delete"
    action string "\e[?67t"
  end
  begin menuitem
    text "Xterm Shift-Keys"
    action string "\e[?35t"
  end
end
begin menu
  title Scrollbar
  font fixed
  begin menuitem
    text "Toggle Visibility"
    rtext "Ctrl-Button2"
    action string "\e[?30t"
  end
  begin menuitem
    text "Swap Sides"
    action string "\e]6;11\a"
  end
  begin menuitem
    text "Toggle Floating"
    action string "\e]6;12\a"
  end
  begin menuitem
    text "Toggle Popup Mode"
    action string "\e]6;13\a"
  end
  -
  begin menuitem
    text "Motif (Traditional) Style"
    action string "\e]6;10;motif;;\a"
  end
  begin menuitem
    text "NeXT Style"
    action string "\e]6;10;next;;\a"
  end
  begin menuitem
    text "Xterm Style"
    action string "\e]6;10;xterm;;\a"
  end
end
begin menu
  title Width
  font fixed
  begin menuitem
    text "5"
    action string "\e]6;10;;5;\a"
  end
  begin menuitem
    text "6"
    action string "\e]6;10;;6;\a"
  end
  begin menuitem
    text "7"
    action string "\e]6;10;;7;\a"
  end
  begin menuitem
    text "8"
    action string "\e]6;10;;8;\a"
  end
  begin menuitem
    text "9"
    action string "\e]6;10;;9;\a"
  end
  begin menuitem
    text "10"
    action string "\e]6;10;;10;\a"
  end
  begin menuitem
    text "11"
    action string "\e]6;10;;11;\a"
  end
  begin menuitem
    text "12"
    action string "\e]6;10;;12;\a"
  end
  begin menuitem
    text "13"
    action string "\e]6;10;;13;\a"
  end
  begin menuitem
    text "14"
    action string "\e]6;10;;14;\a"
  end
  begin menuitem
    text "15"
    action string "\e]6;10;;15;\a"
  end
  begin menuitem
    text "16"
    action string "\e]6;10;;16;\a"
  end
  begin menuitem
    text "17"
    action string "\e]6;10;;17;\a"
  end
  begin menuitem
    text "18"
    action string "\e]6;10;;18;\a"
  end
  begin menuitem
    text "19"
    action string "\e]6;10;;19;\a"
  end
  begin menuitem
    text "20"
    action string "\e]6;10;;20;\a"
  end
end
begin menu
  title "Move to Desktop"
  font fixed
  begin menuitem
    text "0"
    action string "\e]6;50;0;\a"
  end
  begin menuitem
    text "1"
    action string "\e]6;50;1;\a"
  end
  begin menuitem
    text "2"
    action string "\e]6;50;2;\a"
  end
  begin menuitem
    text "3"
    action string "\e]6;50;3;\a"
  end
  begin menuitem
    text "4"
    action string "\e]6;50;4;\a"
  end
  begin menuitem
    text "5"
    action string "\e]6;50;5;\a"
  end
  begin menuitem
    text "6"
    action string "\e]6;50;6;\a"
  end
  begin menuitem
    text "7"
    action string "\e]6;50;7;\a"
  end
end
begin menu
  title Terminal
  font fixed
  begin menuitem
    text "Toggles"
    action submenu "Toggles"
  end
  begin menuitem
    text "Keys"
    action submenu "Keys"
  end
  begin menuitem
    text "Scrollbar"
    action submenu "Scrollbar"
  end
  begin menuitem
    text "Move to Desktop..."
    action submenu "Move to Desktop"
  end
  -
  begin menuitem
    text "Steal Focus"
    rtext "Ctrl-Button1"
    action string "\e]5;\a"
  end
  begin menuitem
    text "Full Reset"
    action string "\ec"
  end
end

begin menu
  title Transparency
  font fixed
  begin menuitem
    text "Force Update"
    action string "\e]6;3\a"
  end
  begin menuitem
    text "Toggle Desktop Watching"
    action string "\e]6;4\a"
  end
  begin menuitem
    text "Toggle Transparency"
    action string "\e]6;0\a"
  end
end
begin menu
  title Tiled
  font fixed
  begin menuitem
    text "70's Marble"
    action string "\e]20;70s_marble.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "7m"
    action string "\e]20;7m.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Alabama Clay"
    action string "\e]20;dirt.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Anomaly"
    action string "\e]20;a8.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Black Stone"
    action string "\e]20;blackstone.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Ether"
    action string "\e]20;ether_blue.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Marble"
    action string "\e]20;blue_marble.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Maze"
    action string "\e]20;blue_maze.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Blue Puzzle"
    action string "\e]20;026.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Circuit"
    action string "\e]20;circuit.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Cyber Playground"
    action string "\e]20;cyber_bg.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Dark Marble"
    action string "\e]20;dark_marble.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Dimples"
    action string "\e]20;014.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Ether"
    action string "\e]20;ether.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Giger 1"
    action string "\e]20;giger1.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Giger 2"
    action string "\e]20;giger2.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Gray Matter"
    action string "\e]20;22.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Gray Waves"
    action string "\e]20;gray_waves.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Jungle"
    action string "\e]20;43.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Lava"
    action string "\e]20;4.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Light B1"
    action string "\e]20;lightb1.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Maple Leaves"
    action string "\e]20;maple1.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Marble"
    action string "\e]20;marbled.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Pebbles"
    action string "\e]20;pebble1.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Rain"
    action string "\e]20;024.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Purple Clouds"
    action string "\e]20;7.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Rainstorm"
    action string "\e]20;15.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Red Whisper"
    action string "\e]20;40.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Soft Marble"
    action string "\e]20;soft.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Space 1"
    action string "\e]20;space.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Space 2"
    action string "\e]20;starry.png;0x0+0+0:tile\a"
  end
  begin menuitem
    text "Whirlpool"
    action string "\e]20;015.png;0x0+0+0:tile\a"
  end
end
begin menu
  title Scaled
  font fixed
  begin menuitem
    text "Alien Spheres"
    action string "\e]20;alien_spheres.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Atlantis"
    action string "\e]20;atlantis.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Before the Storm"
    action string "\e]20;before_the_storm.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Bladerunner"
    action string "\e]20;Bladerunner-bg.png;100x100+50+50\a"
  end
  begin menuitem
    text "Canyon"
    action string "\e]20;Canyon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "CaveFire"
    action string "\e]20;Cavefire-bg.png;100x100+50+50\a"
  end
  begin menuitem
    text "Crater Lake"
    action string "\e]20;crater_lake.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Daughter"
    action string "\e]20;Daughter.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Dragon"
    action string "\e]20;Dragon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "DVXVB"
    action string "\e]20;dvxvb.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Elysium"
    action string "\e]20;elysium.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Evocation"
    action string "\e]20;Evocation.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Hourglass"
    action string "\e]20;hour.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Ice Moon"
    action string "\e]20;icemoon.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Iron Temple"
    action string "\e]20;iron_temple.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Lake of Fire"
    action string "\e]20;lake_of_fire.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Lighthouse"
    action string "\e]20;lighthouse.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Monolith"
    action string "\e]20;monolith.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Nebula"
    action string "\e]20;nebula.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Neopolis"
    action string "\e]20;neopolis.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Neopolis Horizon"
    action string "\e]20;Neopolis-horizon.png;100x100+50+50\a"
  end
  begin menuitem
    text "Planet A"
    action string "\e]20;planeta.png;100x100+50+50\a"
  end
  begin menuitem
    text "Pond"
    action string "\e]20;pond.png;100x100+50+50\a"
  end
  begin menuitem
    text "Poseidon"
    action string "\e]20;poseidon.png;100x100+50+50\a"
  end
  begin menuitem
    text "Return to Giza"
    action string "\e]20;return_to_giza.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Ripple"
    action string "\e]20;ripple.png;100x100+50+50\a"
  end
  begin menuitem
    text "River of Lead"
    action string "\e]20;river_of_lead.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Silence"
    action string "\e]20;silence.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Sun"
    action string "\e]20;sun.png;100x100+50+50\a"
  end
  begin menuitem
    text "Tunnel"
    action string "\e]20;tunnel.jpg;100x100+50+50\a"
  end
  begin menuitem
    text "Wasteland"
    action string "\e]20;wasteland.jpg;100x100+50+50\a"
  end
end
begin menu
  title Attrib
  font fixed
  begin menuitem
    text "Full Size"
    action string "\e]20;;100x100"
  end
  begin menuitem
    text "Normal Size"
    action string "\e]20;;0x0"
  end
  -
  begin menuitem
    text "Tiled"
    action string "\e]20;;:tile"
  end
  begin menuitem
    text "Scaled"
    action string "\e]20;;:scale"
  end
  begin menuitem
    text "Proportional Scale"
    action string "\e]20;;:propscale"
  end
  -
  begin menuitem
    text "Center"
    action string "\e]20;;=+50+50"
  end
  begin menuitem
    text "Top Left Corner"
    action string "\e]20;;=+0+0"
  end
  begin menuitem
    text "Bottom Right Corner"
    action string "\e]20;;=+100+100"
  end
end
begin menu
  title Pixmap
  font fixed
  begin menuitem
    text "None"
    action string "\e[m\e]20;;\a"
  end
  begin menuitem
    text "Toggle Viewport Mode"
    action string "\e]6;24\a"
  end
  begin menuitem
    text "Tiled"
    action submenu "Tiled"
  end
  begin menuitem
    text "Scaled"
    action submenu "Scaled"
  end
  -
  begin menuitem
    text "Attrib"
    action submenu "Attrib"
  end
end
begin menu
  title Brightness
  font fixed
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;brightness;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;brightness;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;brightness;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;brightness;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;brightness;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;brightness;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;brightness;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;brightness;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;brightness;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;brightness;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;brightness;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;brightness;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;brightness;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;brightness;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;brightness;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;brightness;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;brightness;0\a"
  end
end
begin menu
  title Contrast
  font fixed
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;contrast;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;contrast;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;contrast;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;contrast;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;contrast;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;contrast;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;contrast;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;contrast;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;contrast;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;contrast;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;contrast;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;contrast;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;contrast;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;contrast;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;contrast;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;contrast;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;contrast;0\a"
  end
end
begin menu
  title Gamma
  font fixed
  begin menuitem
    text "512 (200%)"
    action string "\e]6;1;image;gamma;512\a"
  end
  begin menuitem
    text "480 (188%)"
    action string "\e]6;1;image;gamma;480\a"
  end
  begin menuitem
    text "448 (175%)"
    action string "\e]6;1;image;gamma;448\a"
  end
  begin menuitem
    text "416 (163%)"
    action string "\e]6;1;image;gamma;416\a"
  end
  begin menuitem
    text "384 (150%)"
    action string "\e]6;1;image;gamma;384\a"
  end
  begin menuitem
    text "352 (138%)"
    action string "\e]6;1;image;gamma;352\a"
  end
  begin menuitem
    text "320 (125%)"
    action string "\e]6;1;image;gamma;320\a"
  end
  begin menuitem
    text "288 (113%)"
    action string "\e]6;1;image;gamma;288\a"
  end
  begin menuitem
    text "256 (100%)"
    action string "\e]6;1;image;gamma;256\a"
  end
  begin menuitem
    text "224 (88%)"
    action string "\e]6;1;image;gamma;224\a"
  end
  begin menuitem
    text "192 (75%)"
    action string "\e]6;1;image;gamma;192\a"
  end
  begin menuitem
    text "160 (63%)"
    action string "\e]6;1;image;gamma;160\a"
  end
  begin menuitem
    text "128 (50%)"
    action string "\e]6;1;image;gamma;128\a"
  end
  begin menuitem
    text "96 (38%)"
    action string "\e]6;1;image;gamma;96\a"
  end
  begin menuitem
    text "64 (25%)"
    action string "\e]6;1;image;gamma;64\a"
  end
  begin menuitem
    text "32 (13%)"
    action string "\e]6;1;image;gamma;32\a"
  end
  begin menuitem
    text "0 (0%)"
    action string "\e]6;1;image;gamma;0\a"
  end
end
begin menu
  title Background
  font fixed
  begin menuitem
    text "Transparency"
    action submenu "Transparency"
  end
  begin menuitem
    text "Pixmap"
    action submenu "Pixmap"
  end
  begin menuitem
    text "Brightness"
    action submenu "Brightness"
  end
  begin menuitem
    text "Contrast"
    action submenu "Contrast"
  end
  begin menuitem
    text "Gamma"
    action submenu "Gamma"
  end
end

# HOST_ITEM(protocol, hostname [, ip])
define(HOST_ITEM, `begin menuitem
    text "$2"
    action string "\e]0;$2 $1\a\e]7;echo:$1 '`ifelse($3, `', `$2', `$3')'`\r\a"
  end')
# ALIEN_MENU(protocol)
define(ALIEN_MENU, `begin menu
  title "Alien Cluster $1"
  font fixed
  HOST_ITEM(`$1', `apone')
  HOST_ITEM(`$1', `ash')
  HOST_ITEM(`$1', `bishop')
  HOST_ITEM(`$1', `burke')
  HOST_ITEM(`$1', `dallas')
  HOST_ITEM(`$1', `drake')
  HOST_ITEM(`$1', `ripley')
  HOST_ITEM(`$1', `view1-mp')
  HOST_ITEM(`$1', `vob1-mp')
  HOST_ITEM(`$1', `vob2-mp')
end')
define(IT_MENU, `begin menu
  title "IT Hosts $1"
  font fixed
  HOST_ITEM(`$1', `allen')
  HOST_ITEM(`$1', `babylon4')
  HOST_ITEM(`$1', `icarus')
  HOST_ITEM(`$1', `orwell')
  HOST_ITEM(`$1', `phantom')
  HOST_ITEM(`$1', `starfury')
  HOST_ITEM(`$1', `viper')
  HOST_ITEM(`$1', `whitestar')
end')
define(COM_MENU, `begin menu
  title "3Com $1"
  font fixed
  HOST_ITEM(`$1', `bkup-u2')
  HOST_ITEM(`$1', `bkup-us')
  HOST_ITEM(`$1', `corsys1')
  HOST_ITEM(`$1', `dmc-mp')
  HOST_ITEM(`$1', `dw-dev')
  HOST_ITEM(`$1', `dw1-uw')
  HOST_ITEM(`$1', `dw2-mp')
  HOST_ITEM(`$1', `firegate')
  HOST_ITEM(`$1', `hicks')
  HOST_ITEM(`$1', `hp-carp')
  HOST_ITEM(`$1', `hp-sales')
  HOST_ITEM(`$1', `hp9000')
  HOST_ITEM(`$1', `hprpc1', `149.112.166.42')
  HOST_ITEM(`$1', `hprpc2', `149.112.166.43')
  HOST_ITEM(`$1', `intergate')
  HOST_ITEM(`$1', `lnnsdintra1')
  HOST_ITEM(`$1', `mailgate')
  HOST_ITEM(`$1', `mwdev1')
  HOST_ITEM(`$1', `mwdev2')
  HOST_ITEM(`$1', `mwdev3')
  HOST_ITEM(`$1', `mwdocs1')
  HOST_ITEM(`$1', `mwprod1')
  HOST_ITEM(`$1', `mwprod2')
  HOST_ITEM(`$1', `mwprod3')
  HOST_ITEM(`$1', `netscop')
  HOST_ITEM(`$1', `notes-mp')
  HOST_ITEM(`$1', `oraweb1')
  HOST_ITEM(`$1', `pcdprod')
  HOST_ITEM(`$1', `prod-mp')
  HOST_ITEM(`$1', `rdpvcs')
  HOST_ITEM(`$1', `rdsgi1-mp')
  HOST_ITEM(`$1', `recov-mp')
  HOST_ITEM(`$1', `ren')
  HOST_ITEM(`$1', `scop-us')
  HOST_ITEM(`$1', `ship-eg')
  HOST_ITEM(`$1', `ship-mp')
  HOST_ITEM(`$1', `stimpy')
  HOST_ITEM(`$1', `test-mp')
  HOST_ITEM(`$1', `townesquare')
  HOST_ITEM(`$1', `ussk1rdu1')
  HOST_ITEM(`$1', `uw-inet')
  HOST_ITEM(`$1', `webmw')
end')
define(EXT_MENU, `begin menu
  title "External $1"
  font fixed
  HOST_ITEM(`$1', `foobar.com')
end')

define(PROTOCOL_MENU, `begin menu
  title "$1"
  font fixed
  begin menuitem
    text "Alien Cluster"
    action submenu "Alien Cluster $1"
  end
  begin menuitem
    text "IT Hosts"
    action submenu "IT Hosts $1"
  end
  begin menuitem
    text "3Com"
    action submenu "3Com $1"
  end
  begin menuitem
    text "External"
    action submenu "External $1"
  end
end')
define(DO_PROTOCOL, `ALIEN_MENU($1)
IT_MENU($1)
COM_MENU($1)
EXT_MENU($1)
PROTOCOL_MENU($1)')

DO_PROTOCOL(ssh)
DO_PROTOCOL(rlogin)
DO_PROTOCOL(telnet)
DO_PROTOCOL(ftp)

begin menu
  title Chooser
  font fixed
  ECHO_ITEM(`New Eterm Window', `Eterm &\r')
  -
  SUBMENU_ITEM(`ssh')
  SUBMENU_ITEM(`rlogin')
  SUBMENU_ITEM(`telnet')
  SUBMENU_ITEM(`ftp')
end

# This is the menu that gets called by Ctrl-Button3
begin menu
  title Eterm
  font fixed
  SUBMENU_ITEM(Chooser)
  -
  SUBMENU_ITEM(Font)
  SUBMENU_ITEM(Background)
  SUBMENU_ITEM(Terminal)
  -
  STRING_ITEM(`Version', `\e[8n')
  STRING_ITEM(`Status', `\e[9n')
  separator
  STRING_ITEM(`Save Settings...', `\e]6;71\a')
  STRING_ITEM(`Exit', `\e]6;70\a')
end