! DK:SRCH.TEC DATE: 21-MAY-83 TIME: 19:17:50 ! Z"GMZHKp-SRCH-W- TEXT IN BUFFER - OK to discard (Y)?<-Y"E0;'OXIT>' HK MZ HJqI -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! - RE-ENTER (Y) or QUIT (Q) ?<UT QT-Y"E0;' QT-Q"EHKOXIT'7> !GET! Q1J.,ZK HKq1^_&ETET 8#2#ETET < -1W UT QT-13 "E 0;' QT-127"E .-Q1"G-D'F<'QT-21 "E Q1,ZKF<' QT"R QTIF<' QT-*"E QTIF<'QT-^^ "E QTIF<'QT-^^?"E QTIF<'QT-."E QTI'> Q1-Z"E MZ HKp-SRCH-W- NO FILE NAME SUPPLIED ORPT' Z-Q1-10"G MZ HKp-SRCH-W- PATTERN TOO LONG ORPT' Q1J:S."F Z-Q1-6"G MZ HKp-SRCH-W- NAME FIELD TOO LONG ORPT' ZJ Q1+6-Z OQM' :S."S MZ HKp-SRCH-W- TOO MANY <.> ORPT' Q1J S. Z-.-3"G MZ HKp-SRCH-W- TYPE FIELD TOO LONG ORPT' R Q1+6-. !QM! ! pattern approved, change ? to ^ER, * to  and save in A for search ! B,Q1K J<:FS?R;>J<:FS*;>HXAHK MZHJp-SRCH-I- STARTING SEARCH OF :GFq ERQF0,0XB ! open input, clear collection buffer ! ! collect any matching lines ! HK QC"G GC13I10I:HXB'>! if any matching lines, append to B ! GB0,0XB!XIT!HKq1^_&ETET ! move all to workspace + exit !