! DK:FIND.TEC   DATE: 8-SEP-83   TIME: 19:47:40 !

! Searches through multi-volume directory file, loads SRCH.TEC !
^UZ1#32#ETET<^T"S0;'>32^_&ETET$27:^UZ$27:^UZ$$ !MZ sets image mode, drains KB!
! damage prevention first !
Z"G MZ ^A$H$K$p-FIND-W- TEXT IN BUFFER - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HK''
EW$G*Z"G HK MZ ^A$H$K^G$p-FIND-W- OUTPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$|HKEK''
ER$G*Z"G HK MZ ^A$H$K^G$p-FIND-W- INPUT FILE OPEN - OK to discard? (Y) ^A
^T-^^Y"NOXIT$''
! ready to go to work - ask for file name !
!GET! MZ ^A$H$J$q^AI



			-TECO- -FIND-  MULTI-VOLUME
			      DIRECTORY SEARCHER
			        REV 8-SEP-83

			COPYRIGHT 1983  M. VAN SWAAY

	  PLEASE MOUNT VOLUME HOLDING SEARCH DIRECTORY ON DEVICE DK:

			AND ENTER DIRECTORY FILE NAME:

				DK:$ .U1 ZJ
8#2#ETET < -1W ^TUT
QT-13 "E^T$ 0,(Q1-3)K 0;'
QT-127"E .-Q1"G-D'F<'QT-21 "E Q1,ZKF<'
QT"R QTI$F<'QT-^^."E QTI$F<'7^T>
Z-4"L
   MZ ^A$H$K$p^A
   ^A-FIND-W- NO FILE NAME SUPPLIED - STRIKE ANY KEY TO EXIT ^A
   ^THKOXIT$'
! save filespec in F, verify existence of supplied file name !
J:S[$"S1R.,ZK'HXF:ER^EQF$"F
   MZ
   ^A$H$K^G$p-FIND-W- ^A:GF
   ^A DOES NOT EXIST - RE-ENTER (Y) or QUIT (Q) ? ^A
   <^TUTQT-^^Y"EHK0;'QT-^^Q"EHKOXIT$'7^T>OGET$'
! file found, install searcher, exit on keystroke !
ERSY:SRCH.TEC$HKYHXYHK MZ^A$H$K$p^A
^A-FIND-M- USE ESC W TO SUBMIT SEARCH PATTERN - strike any key to proceed^A ^T
!XIT!^A$H$J$q^A1^_&ETET^UTEI$27:^UT$:^UTMI$27:^UT$27:^UT$MT$$
                           