@:aH%
mH		Help (type this summary)
|^r mode teco stuff
|char		function
|^S	qS,qQ	search for string, terminate string with esc
|^Z	qZ	search again for same string as last time
|^W	qW	en$$
|^X	qX	ex$$
|^R	qR	Remove char to save buffer (ie, qF)
|^T	qT	Transfer line to save buffer
|^G	qG	Get text from save buffer
|^C	qC	Clear save buffer
|$?	qY,q0-9	numeric keypad macro characters
%

:@iS/
[0[1
:iQ
<
23fv^RVPOS
0fv^RHPOS
search:
:tQ
@t
u1
q1-13"e0;'
q1i
.-1,.x1.-1,.k
:aQ1
qQ-1r
:SQ"E 0j‡'
@t
>
23fv^RVPOS
0fv^RHPOS


@t
]1]0
/

:@iZ/
:SQ"E0j' @T
/

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

:@iX/
0fvRHPOS
0fvRVPOS
fvHEIGHT<
>
0fvRVPOS
ex/

^^S,^^fv^RCMAC
^^W,23fv^RCMAC
^^X,24fv^RCMAC
^^Z,26fv^RCMAC


| Delete a char in save mode:

@:iD/
[0
.,.+(fv^REXPT)x0
.,.+(fv^REXPT)k
:aF0
1fv^REXPT
]0
.@T @T/

D,fv^RCMAC

| Get back the saved text:
:@iG/
[0
.u0
fv^REXPT<gF>
1fv^REXPT
q0@t @t]0/

G,fv^RCMAC

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

C,fv^RCMAC

| Kill to end of line, in save mode:

@:iT/
[0[1
fv^REXPT< .u0
l
q0,.x1
q0,.k
:aF1>
1fv^REXPT
.@t @t]1]0/


^^T,fv^RCMAC
@:iY~
[x[y .uy ux
1< qx-A"E fv^RCMACfv^REXEC 0;'
   qx-B"E fv^RCMACfv^REXEC 0;'
   qx-C"E fv^RCMACfv^REXEC 0;'
   qx-D"E fv^RCMACfv^REXEC 0;'
   qx-P"E fv^RCMACfv^REXEC 0;'
   qx-Q"E fv^RCMACfv^REXEC 0;'
   qx-R"E fv^RCMACfv^REXEC 0;'

   1<qx-?"E -pux
    qx-0"Eg00;' qx-1"Eg10;' qx-2"Eg20;' qx-3"Eg30;' qx-4"Eg40;' qx-5"Eg50;'
    qx-6"Eg60;' qx-7"Eg70;' qx-8"Eg80;' qx-9"Eg90;'
    qx"L›= -27"E-?"Ei:i -64i 15i @i/F/ .-6,.xx .-6,.k mx 0;'''
    0fv^REXEC >qy@T @T 0;
    0fv^REXEC> ]y]x
~
Y,fv^RCMAC
.,.x0 .,.x1 .,.x2 .,.x3 .,.x4 .,.x5 .,.x6 .,.x7 .,.x8 .,.x9
›=