@:aH%
mH		Help (type this summary)

|^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$$
|^R		Remove char to save buffer (ie, qS)
|^T		Transfer line to save buffer
|^G		Get text from save buffer
|^C		Clear save buffer
%

: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

| Delete a char in save mode:

@:iD/
[0
.,.+1x0
.,.+1k
:aS0
]0
.@T @T/

D,fv^RCMAC

| Get back the saved text:
:@iG/
[0
.u0
gS
q0@t @t]0/

G,fv^RCMAC

| Clear the save buffer:
:@iC/
0,0xS
/
0,0xS

C,fv^RCMAC

| Kill to end of line, in save mode:

@:iT/
[0[1
.u0
l
q0,.x1
q0,.k
:aS1
.@t @t]1]0/


T,fv^RCMAC