! This TECO macro indents TECO code to help make it readable

It does NOT handle @-modified commands correctly or caret-preceeded commands.

Q-REGISTERS USED:

       q-register      usage

          .a           true if @-sign modified
          .c  (text)   insert carriage return/line feed
          .d           true if numeric argument
          .i  (text)   insert indenting spaces
          i            indenting level
!

[i

@^U.c/i
/27:^U.c

@^U.i/qi<i    >/27:^U.i

27u.e
0ui
<
    z-."e1;'
    0u.a
    0u.d
    0u.s
!c!
    0a"ecf<'
    0a-^^^A"ecs^Am.cm.if<'
    0a-^^^B"ec-1u.doc'
    0a-^^^C"ecm.cm.if<'
    0a-^^^D"ecm.cm.if<'
    0a-^^^E"ec-1u.doc'
    0a-^^^G"e2cm.cm.if<'
    0a-8"ec-1u.doc'
    0a-9"es^Eu.em.cm.if<'
    0a-^^^N"ec-1u.doc'
    0a-^^^O"ecm.cm.if<'
    0a-^^^Q"ec-1u.doc'
    0a-^^^R"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^^S"ec-1u.doc'
    0a-^^^T"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^^U"es^Eu.em.cm.if<'
    0a-^^^V"ecm.cm.if<'
    0a-^^^W"ecm.cm.if<'
    0a-^^^X"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^^Z"ec-1u.doc'
    0a-27"ecm.cm.if<'
    0a-^^!"ecs!m.cm.if<'
    0a-^^""e2cm.c%im.if<'
    0a-^^%"e2c-1u.doc'
    0a-^^'"e-4dc-1%im.cm.if<'
    0a-^^@"ec-1q.aoc'
    0a-^^|"e-4dcm.cm.if<'
    0a-^^."ec-1u.doc'
    0a-^^;"ecm.cm.if<'
    0a-^^<"e2cm.c%im.if<'
    0a-^^>"ec-1%im.cm.if<'
    0a-^^["e2cm.cm.if<'
    0a-^^]"e2cm.cm.if<'
    0a-47"g0a-58"lc-1u.doc'
    0a-^^a"ecm.cm.if<'
    0a-^^A"ecm.cm.if<'
    0a-^^b"ec-1u.doc'
    0a-^^B"ec-1u.doc'
    0a-^^c"ecm.cm.if<'
    0a-^^C"ecm.cm.if<'
    0a-^^d"ecm.cm.if<'
    0a-^^D"ecm.cm.if<'
    0a-^^e"eoe'
    0a-^^E"eoe'
    0a-^^f"eof'
    0a-^^F"eof'
    0a-^^g"e2cm.cm.if<'
    0a-^^G"e2cm.cm.if<'
    0a-^^h"ecf<'
    0a-^^H"ecf<'
    0a-^^i"es^Eu.em.cm.if<'
    0a-^^I"es^Eu.em.cm.if<'
    0a-^^j"ecm.cm.if<'
    0a-^^J"ecm.cm.if<'
    0a-^^k"ecm.cm.if<'
    0a-^^K"ecm.cm.if<'
    0a-^^l"ecm.cm.if<'
    0a-^^L"ecm.cm.if<'
    0a-^^m"e2cm.cm.if<'
    0a-^^M"e2cm.cm.if<'
    0a-^^n"es^Eu.em.cm.if<'
    0a-^^N"es^Eu.em.cm.if<'
    0a-^^o"es^Eu.em.cm.if<'
    0a-^^O"es^Eu.em.cm.if<'
    0a-^^q"e2c-1u.doc'
    0a-^^Q"e2c-1u.doc'
    0a-^^r"ecm.cm.if<'
    0a-^^R"ecm.cm.if<'
    0a-^^s"es^Eu.em.cm.if<'
    0a-^^S"es^Eu.em.cm.if<'
    0a-^^t"ecm.cm.if<'
    0a-^^T"ecm.cm.if<'
    0a-^^u"e2cm.cm.if<'
    0a-^^U"e2cm.cm.if<'
    0a-^^v"ecm.cm.if<'
    0a-^^V"ecm.cm.if<'
    0a-^^w"ecm.cm.if<'
    0a-^^W"ecm.cm.if<'
    0a-^^x"e2cm.cm.if<'
    0a-^^X"e2cm.cm.if<'
    0a-^^y"ecm.cm.if<'
    0a-^^Y"ecm.cm.if<'
    0a-^^z"ec-1u.doc'
    0a-^^Z"ec-1u.doc'
    c
    f<
!e!
    c
    0a-^^a"ecm.cm.if<'
    0A-^^a"ecm.cm.if<'
    0a-^^b"es^Eu.em.cm.if<'
    0a-^^B"es^Eu.em.cm.if<'
    0a-^^c"ecm.cm.if<'
    0a-^^C"ecm.cm.if<'
    0a-^^d"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^D"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^f"ecm.cm.if<'
    0a-^^F"ecm.cm.if<'
    0a-^^g"es^Eu.em.cm.if<'
    0a-^^G"es^Eu.em.cm.if<'
    0a-^^h"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^H"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^i"es^Eu.em.cm.if<'
    0a-^^I"es^Eu.em.cm.if<'
    0a-^^j"ec-1u.doc''
    0a-^^J"ec-1u.doc''
    0a-^^k"ecm.cm.if<'
    0a-^^K"ecm.cm.if<'
    0a-^^n"es^Eu.em.cm.if<'
    0a-^^N"es^Eu.em.cm.if<'
    0a-^^o"ec-1u.doc''
    0a-^^O"ec-1u.doc''
    0a-^^p"ecm.cm.if<'
    0a-^^P"ecm.cm.if<'
    0a-^^q"ecm.cm.if<'
    0a-^^Q"ecm.cm.if<'
    0a-^^r"es^Eu.em.cm.if<'
    0a-^^R"es^Eu.em.cm.if<'
    0a-^^s"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^S"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^t"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^T"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^u"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^U"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^v"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^V"ecq.d"tm.cm.if<|-1u.doc''
    0a-^^w"es^Eu.em.cm.if<'
    0a-^^W"es^Eu.em.cm.if<'
    0a-^^x"ecm.cm.if<'
    0a-^^X"ecm.cm.if<'
    c
    f<
!f!
    c
    0a-^^'"ecm.cm.if<'
    0a-^^<"ecm.cm.if<'
    0a-^^>"ecm.cm.if<'
    0a-^^|"ecm.cm.if<'
    0a-^^b"es^Eu.em.cm.if<'
    0a-^^B"es^Eu.em.cm.if<'
    0a-^^c"es^Eu.es^Eu.em.cm.if<'
    0a-^^C"es^Eu.es^Eu.em.cm.if<'
    0a-^^d"es^Eu.em.cm.if<'
    0a-^^D"es^Eu.em.cm.if<'
    0a-^^n"es^Eu.es^Eu.em.cm.if<'
    0a-^^N"es^Eu.es^Eu.em.cm.if<'
    0a-^^r"es^Eu.em.cm.if<'
    0a-^^R"es^Eu.em.cm.if<'
    0a-^^s"es^Eu.es^Eu.em.cm.if<'
    0a-^^S"es^Eu.es^Eu.em.cm.if<'
    0a-^^_"es^Eu.es^Eu.em.cm.if<'
    c
>

[i