|^r mode teco stuff

|char		function

|^A		go to beginning of a line
|^B		go to beginning or end of buffer depending on EXPT
|^E		go to end of a line
|^O		insert a newline and back over it
|^V		page and redisplay the buffer
|^S		search for string, terminate string with esc
|^W		en$$
|^X		ex$$

:ia0l@t
:@ib/
(fv^REXPT)-1"Ej@t'
(fv^REXPT)-1"Nzj@t'
1fv^REXPT/
:iel
r1a-10"nc'@t
:@io/
i
r.@t@t/

:@iv/
fv^REXPTp
1fv^REXPT
0fvWINDOW
0@t
0fv^RVPOS
0fv^RHPOS/

:@is/
[0[1[S
:iS
<
23fv^RVPOS
0fv^RHPOS
search:
:tS
@t
u1
q1-27"e0;'
q1i
.-1,.x1.-1,.k
:aS1
qS-1r
:SS;
@t
>
23fv^RVPOS
0fv^RHPOS


@t
]S]1]0
/

:@iw/
en
0fvWINDOW
0@t
0fv^RVPOS
0fv^RHPOS/

:@ix/
fvHEIGHT<
>
0fv^RVPOS
ex/

^^s,^^fv^RCMAC
^^a,1fv^RCMAC
^^b,2fv^RCMAC
^^e,5fv^RCMAC
^^o,15fv^RCMAC
^^v,22fv^RCMAC
^^w,23fv^RCMAC
^^x,24fv^RCMAC