EI
!EDIT FROM TEMPLATE!

  !q-register usage:                                       !
  !  2: characters read from terminal                      !
  !  3: temporary                                          !
  !  4: number of *-repetitions for line                   !
  !  5: number of lines in template                        !
  !  6: number of characters entered from term on curr line!
  !  7: field width string/value                           !
  !  8: temporary                                          !
  !  9: total number of lines of file absorbed by template !
  !  0: number of lines of file absorbed by curr templ line!
@^ue#
  
  [l [t [2 [3 [4 [5 [6 [7 [8 [9 [0
  0l gt 0u5 .u3
  et+8et
  <
    (q3-.)+^s;
    %5  -l
  >
  qm<i >
  .-qm,.x7
  -qmd
  q5<g7 l>
  -q5l %5  0u9
  <
    -1%5"e0;'
    :^q,s!"f t l oend1'
    0l 1u4
    <
      ^q,s!;
      0a-^^*"e
        -dd
        32000u4
        0a-^^:"e
          d .u3
          s! -c
          q3,.x4 m4u4
          q3,.k
        '
        d
        oend5
      '
      ^q,s!
      !end5!
    >
    0l
    q4<
      !top1!
      0u0
      x3 g3 -l 0u2 0u6
      <
        .u3
        ^q,s!;
        q3,.-1t
        0a-^^t"e
          -dd
          32000u7
          0a-^^:"e
            d .u3
            s! -c
            q3,.x7 m7+q6u7
            q3,.k
          '
          d 0u3
          q2-27"n
            <
              u2
              q2-27"e
                q6"n 0;'
                13
                -(0^q)<32>
                13
                0l 2k
                oend1
              '
              q2-13"e   0;'
              q2-127"e
                q3"n
                  -1%3  -1%6 
                  8 32 8
                  -d
                '
                oend4
              '
              q2-21"e
                q6"n
                  13
                  -(0^q)<32>
                  13
                  0lk
                  ogotop1
                '
                oend4
              '
              q6-q7"e et+1et 7 et-1et'
              q6-q7"l %3  %6  q2i q2'
              !end4!
            >
          '
          q3ut
          oend3
        '
        0a-^^n"e
          -dd .u3
          <
            @s//
            0a-^^!"e 0;'
            0a-^^:"e 0;'
          >
          -d
          q3,.x3 q3,.k
          .u3
          m3\
          owidth
        '
        0a-^^l"e
          q2-27"n
            -dd .u3
            1+q0+q5+q9l
            z-."e
              q3j
              q0"e
                13
                -(0^q)<32>
                13
                0l 2k
                oend1
              '
              27u2
              ^q,s! q3,.k
              0ul
              oend3
            '
            x8 q3j
            g8 -2d
            %0 
            .-q3u7
            0a-^^:"e
              d .u8
              s! -c
              q8,.x7 m7u7
              q8,.k
            '
            d
            .-q3-q7"g q7+q3-.d'
            q3,.t
            .-q3ul
            oend3
          '
        '
        0a-^^s"e
          -dd .u3
          <
            @s//
            0a-^^!"e 0;'
            0a-^^:"e 0;'
          >
          -d
          !width!
          .-q3u7
          0a-^^:"e
            d .u8
            s! -c
            q8,.x7 m7u7
            q8,.k
          '
          d
          .-q3-q7"g
            q3,q3+q7t
            q7+q3-.d
            oend3
          '
          q3,.t
          q7-.+q3u3
          q3<i >
          .-q3,.t
          oend3
        '
        0a-^^!"e
          -d
          0a
          c
          oend3
        '
        -d .u3 ^q,s! q3,.d
        !end3!
      >
      t l
      q0%9 
      q2-27"e 0;'
      0"n !gotop1! otop1'
    >
    k
    !end1!
  >
  q9k
  et-8et
  ]0 ]9 ]8 ]7 ]6 ]5 ]4 ]3 ]2 ]t ]l
#
me