
MENU "Project"
  ITEM "Open file..."       "o" "(openfile (freq `r' `file...' (info `fullname')))"
  ITEM "Open new file..."   "/" "(newfile (freq `r' `new file...' (info `dirname')))"
  ITEM "Open new view"      "d" "(newview)"
  ITEM "Include file..."    "O" "(insert `f' (freq `r' `include file...' (info `dirname')))"
  BAR
  ITEM "Save"               "w" "(savefile)"
  ITEM "Save as..."         "W" "(savefileas (freq `w' `save file as...' (info `fullname')))"
  ITEM "Clear text"         "C" "(clear)"
  ITEM "Rename file..."     ""  "(rename (getstr `newname> '))"
  ITEM "Print file..."      "P" "(savesection `f' `prt:')"
  BAR
  ITEM "Sleep window"       ""  "(sleep)"
  ITEM "Quit window"        "q" "(close)"

MENU "Edit"
  ITEM "Mark block"         "b" "(block `t')"
  BAR
  ITEM "Copy block"         "c" "(copy `b' 0)"
  ITEM "Cut block"          "x" "(cut `b' 0)"
  ITEM "Insert clip"        "v" "(insert `cb' 0)"
  ITEM "Erase block"        "z" "(delete `b')"
  ITEM "Insert block"       "i" "(insert `b')"
  ITEM "Save block..."      "n" "(savesection `b' (freq `w' `save block as...' (info `dirname')))"
  ITEM "Print block..."     "p" "(savesection `b' `prt:')"
  BAR
  ITEM "Delete line"        ""  "(cut `l' -1)"
  ITEM "Delete to EOL"      ""  "(cut `el' -1)"
  ITEM "Undelete line"      ""  "(insert `cb' -1)"

MENU "Find"
  ITEM "Search for..."      "S" "(if (find `s' (getstr `find> ')) `(find `n')')"
  ITEM "Repeat search"      "s" "(find `n')"
  ITEM "Replace..."         "R" "(if (replace `s' (getstr `replace> ')) `(if (replace `r') `(find `n')')')"
  ITEM "Repeat replace"     "r" "(if (replace `r') `(find `n')')"
  ITEM "Global replace"     ""  "(dlock 1)(move `sm' 0)(move `sf')(move `sl')(while `(find `n')' `(replace `r')')(move `bm' 0)(dlock 0)"
  ITEM "Regular Expressions" "" ""
    SUB	 "on"               ""  "(find `r' 1)"
    SUB	 "off"              ""  "(find `r' 0)"
  ITEM "Case significant"   ""  ""
    SUB	 "on"               ""  "(find `c' 1)"
    SUB	 "off"              ""  "(find `c' 0)"
  ITEM "Use wildcards"      ""  ""
    SUB	 "on"               ""  "(find `w' 1)"
    SUB	 "off"              ""  "(find `w' 0)"
  BAR
  ITEM "Line..."            "j" "(move `ln' (getnum `line> '))"
  ITEM "Matching bracket"   "h" "(move `mb')"
  ITEM "Reference"          ""  "(getref)"
  BAR
  ITEM "Auto-mark"          "#" "(move `am')"
  ITEM "Bookmark"           ""  ""
    SUB	 "Mark 1"           ""  "(move `bm' 1)"
    SUB	 "Mark 2"           ""  "(move `bm' 2)"
    SUB	 "Mark 3"           ""  "(move `bm' 3)"
  ITEM "Set bookmark"       ""  ""
    SUB	 "Mark 1"           ""  "(move `sm' 1)"
    SUB	 "Mark 2"           ""  "(move `sm' 2)"
    SUB	 "Mark 3"           ""  "(move `sm' 3)"

MENU "Other"
  ITEM "Cycle windows"      "." "(nextwind `a')"
  ITEM "Expand window"      "[" "(position 0 0 (info `screenx') (info `screeny'))"
  BAR
  ITEM "Enter command"      ""  "(cli)"
  ITEM "AmigaDOS command"   ""  "(system (getstr `system> '))"
  ITEM "Insert date"        ""  "(insert `s' (info `date'))"
  BAR
  ITEM "Undo line"          "l" "(undo `l')"
  ITEM "Undo any line"      "L" "(undo `L')"
  ITEM "Store file"         "U" "(global (format `%s_chg' (info `filename')) (info `changes'))(savesection `f' (format `t:%s' (info `filename')))"
  ITEM "Restore file"       "u" "(changes 0)(openfile (format `t:%s' (info `filename')))(changes (script `s' (format `(%s_chg)' (info `filename'))))"

MENU "Settings"
  ITEM "Set screen tab..."  ""  "(setpref `tabsize' (getnum `tabs> '))"
  ITEM "Set disk tab..."    ""  "(setpref `disktab' (getnum `dtabs> '))"
  ITEM "Set left margin..." ""  "(setpref `leftmargin' (getnum `lmargin> '))"
  ITEM "Set right margin..." "" "(setpref `rightmargin' (getnum `rmargin> '))"
  ITEM "Set backup dir..."  ""  "(setpref `bakdir' (getstr `backup dir> '))"
  ITEM "Set max backups..." ""  "(setpref `baknum' (getnum `backups> '))"
  ITEM "Set font..."        ""  "(setpref `font' (getstr `font> ') (getnum `size> '))"
  ITEM "Set screen..."      ""  "(setpref `pubscreen' (getstr `public screen> '))"
  ITEM "Auto indent"        ""  ""
    SUB	 "on"               ""  "(setpref `autoindent' 1)"
    SUB	 "off"              ""  "(setpref `autoindent' 0)"
  ITEM "Word wrap"          ""  ""
    SUB	 "on"               ""  "(setpref `wordwrap' 1)"
    SUB	 "off"              ""  "(setpref `wordwrap' 0)"
  ITEM "Save tabs"          ""  ""
    SUB	 "none"             ""  "(setpref `savetabs' 0)"
    SUB	 "leading"          ""  "(setpref `savetabs' 1)"
    SUB	 "all"              ""  "(setpref `savetabs' 2)"
  ITEM "Snapshot window"    ""  ""
    SUB	 "on exit"          ""  "(setpref `nosnapshot' 0)"
    SUB	 "never"            ""  "(setpref `nosnapshot' 1)"
    SUB	 "now"              ""  "(setpref `nosnapshot' 2)"
  BAR
  ITEM "Save settings on exit" "" ""
    SUB	 "yes"              ""  "(saveprefs 1)"
    SUB	 "no"               ""  "(saveprefs 0)"
END

