! DK:SRCH.TXT   DATE: 21-MAY-83   TIME: 19:17:50 !

Z"GMZ^A$H$K$p-SRCH-W- TEXT IN BUFFER - OK to discard (Y)?^A<^T-^^Y"E0;'OXIT$>'
HK MZ ^A$H$J$q^AI



			-TECO- -SRCH- SEARCH PATTERN
				  ACCEPTOR
			        REV 21-MAY-83


			RETURN TO THIS FRAME WITH ESC W

			<*> MATCHES ANY SINGLE POSITION
			    <?>  MATCHES A-Z, 0-9
			    <SPACE> MATCHES SPACE

	   SHORT NAME FIELDS WILL BE PADDED WITH BLANKS TO 6 CHAR.
	    PATTERN WITHOUT <.> WILL BE INTERPRETED AS ------.***

			     PATTERN: $ ZJ .U1 OGET$
!RPT!^A - RE-ENTER (Y) or QUIT (Q) ?^A<^TUT QT-^^Y"E0;$' QT-^^Q"EHKOXIT$'7^T>
!GET! Q1J.,ZK
^A$H$K$q^A1^_&ETET
8#2#ETET < -1W ^TUT
QT-13 "E^T$ 0;'
QT-127"E .-Q1"G-D'F<'QT-21 "E Q1,ZKF<' QT"R QTI$F<'
QT-^^*"E QTI$F<'QT-^^ "E QTI$F<'QT-^^?"E QTI$F<'QT-^^."E QTI$'>
Q1-Z"E MZ ^A$H$K$p-SRCH-W- NO FILE NAME SUPPLIED^A ORPT$'
Z-Q1-10"G MZ ^A$H$K$p-SRCH-W- PATTERN TOO LONG^A ORPT$'
Q1J:S.$"F
   Z-Q1-6"G MZ ^A$H$K$p-SRCH-W- NAME FIELD TOO LONG^A ORPT$'
   ZJ Q1+6-Z<I $> OQM$'
:S.$"S MZ ^A$H$K$p-SRCH-W- TOO MANY <.>^A ORPT$'
Q1J S.$ Z-.-3"G
   MZ ^A$H$K$p-SRCH-W- TYPE FIELD TOO LONG^A ORPT$'
R Q1+6-.<I $>
!QM!
! pattern approved, change ? to ^ER, * to ^X  and save in A for search !
B,Q1K J<:FS?$^ER$;>J<:FS*$^X$;>HXAHK
MZ^A$H$J$p-SRCH-I- STARTING SEARCH OF ^A:GF^A$q^A
ER^EQF$0,0XB            ! open input, clear collection buffer !
<HKY -Z; BJ XC 0UC L    ! read page, clear page collection buffer + flag !
<::S^EQA$"S 0L:XC 1UC' L.-Z;> ! collect any matching lines !
HK QC"G GC13I$10I$:HXB'>! if any matching lines, append to B !
GB0,0XB!XIT!^A$H$K$q^A1^_&ETET$$ ! move all to workspace + exit !
                                                                                                                                                                                                                                                                                                                                                                                                            