! 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 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 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-. !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 ! ! 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 !