setmacro scan 0 (scanf %[abcdefghijklmnopqrstuvwxyz_ABCDEFGHIJKLMNOPQRSTUVWXYZ])
setmacro getname 0 (wleft scan set subname \$scanf scanf +l)
setmacro addmenu 0 (menuadd ACE \$subname (top find `\$scanf'))
setmacro LW 0 (last wleft ifelse c="external" (left WHILE !ca left right) (last left))
setmacro paren 0 (if c=[~\\\)] (findstr \\\\\( prev ))
ignorecase on
menuoff
menudelhdr ACE
menuadd ACE DOC (execute (run multiview ACE:docs/ace.guide))
menuadd ACE REF (execute (run multiview ACE:docs/ref.guide))
menuadd ACE (Show SUBs ^AW) (source (ace:.edrc))
menuadd ACE ^B NOP
menuadd ACE (** Top of File **) TOP
PING 0
TOP
REPEAT -1 (FIND SUB if l (LW paren getname addmenu))
menuadd ACE (** Bottom of File **) BOTTOM
PONG 0
menuon