!VTEDIT - V00.01-8!

@0/<U7Q7"G0;'>/
128,0ETETU00,2048+32+8ET
@5/U9283Q9/!Hack!
@6/.U8ZU4-3U6HM513KM510KM513:G4
<M0!F!Q7ZJQ7IQ7-13"E10I10U7Q7'
Q7-10"E13KM5-1%6'
Q7-21"EQ6W0U70;'
Q7-127"E-DZ-Q4"N-1AU9-DQ9-27"E32U9'
Q9-31"GDM5KM51+'0"E13-Q6-2<KM5AM5>1013:G4Q4,ZT'''
Q7-27"EM0Q7-27"E!F0!27IQ4,ZX4HM513-1U70;'
Q7-?"EM0OF0'OF'
>Q4,ZKQ8JQ7/
0,0X70,0X9
0U2
HM513=M5
<!A!0U40U6!B!1U5
U7Q7"L-1WM0'
!V!
Q7-127"E.-Q5"L.U5'-Q5DOA'
Q7-31"GQ7I0U2OA'
Q7-26"E0U30;'
Q7-23"E:S "F0J'OA'
Q7-21"E0KOA'
Q7-14"EIFile Search: .-13,.X4-13DM6"FOA'.U3I@:NOS1'
Q7-11"EQ5KOA'
Q7-8"EQ5L.-1"G2R'OA'
Q7-4"EQ5K13I10I2ROA'
Q7-3"E0U30;'
Q7-27"NQ7IQ7-13"E10I'OA'
M0
Q7-C"EZ-.-Q5"LZ-.U5'Q5COA'
Q7-D"E.-Q5"L.U5'Q5ROA'
Q7-26"E1U3@1\EX\0;'
Q7-7"E1U3@1\!MT!"EPOMT'@
%Executing...
%EG\0;'
Q7-?"EM0
Q7-p"EQ5LOA'
Q7-q"EQ5-1"E0U5'Q5JOA'
Q7-r"EZJOA'
Q7-s"E0LOA'
Q7-t"E-Q5LOA'
Q7-u"EZ-.-Q5"LZ-.U5'Q5DOA'
Q7-v"E.-Q2"L0,.X30,.KOA'.-Q2,.X3.-Q2,.KOA'
Q7-w"EQ5<13I10I2R>OA'
Q7-x"EQ5POA'
Q7-y"EQ5-1"EM0Q7U5'Q5IOA'
Q7-M"EISearch: .-8,.X4-8DM6"FOA'.U3I@:S!S1!0I.U2
G4-2D.-Q2U10IQ3,.X8Q3,.KOS'
Q7-n"E0U6!S!Q1U2Q5M8"F0U2'Q6"NQ6W'OA'
OA'
Q7"D0U5<!X!Q5*10+Q7-48U5M0Q7"DOX'0;>OV'
0U8
Q7-A"E-1U8'
Q7-B"E1U8'
Q8"NQ8"L-Q5U5'Q6"E0U7.U80L
Q8-.%6<0A-32"L0A-27"N0A-9"E6-(Q7&7)%6-2U7'%71%6''C%7>'
Q5L-Q6U90U7Q6<.-Z;0A-32"L0A-13"E0;'
0A-27"N0A-9"E6-(Q7&7)%9-2U7'%71%9''C%71%9"GR'Q9;>
0U4OB'
Q7-Q"EICommand: .-9,.X4-9DM6"FOA'.U3G4Q3,.X9Q3,.K
Working...
OC'
Q7-27"E0U6!C!M9-1EU
Q6"NQ6W'OA'
Q7-R"E.U4G7.-Q4U2OA'
Q7-P"EQ4"E.+1U4'Q5LQ4-1,.X7.-Q4+1U20U6OB'
>
>M5YM523+320+32KM513Q0ET
!Z!Q3"N@
/Exiting.../M1'
!Q-reg	Text		Numeric
0	read char	holds initial ET setting
1			length of last search string
2			length of last string gotten
3	deleted string	temp
4	arg to M6	cut buffer start
5	prints esc seq	repeat count
6	mini editor	# of lines destroyed at top
7	cut buffer	current char
8	search command	temp
9			arg to M5

Hacks:

ESCAPE is sent literally to the terminal via the 27+256^T command
which fakes out TECO into sending the character literally.
This avoids the necessity of doing a 0,1ET command which will swap
in an overlay on 16K machines.

Macro M0 is used to read a character and wait until it is available
even though read with no wait is enabled.
To temporarily turn off read with no wait via the 32,0ET command
would require swapping in an overlay on 16K machines.  Note that
the current algorithm is terribly inefficient on systems where
OS/8 is running under timesharing.  In such a case, OS/8 should be
run in a 20K partition and macro 0 should be initialized to
	32,0ET ^TU7 0,32ET
!