.ENABLE SUBSTITUTION
; LOCATE ALL OCCURRANCES OF A SPECIFIED STRING IN ANY DESIRED FILES.
; ENTER THE DEVICE, UIC, AND FILE SPECIFICATION TO BE SEARCHED.
; THIS MAY INCLUDE WILDCARD DEVICE, UIC, FILENAME, FILETYPE, AND
; VERSION NUMBER, E.G. DK?:[*,*]*.*;*
; <CR> WILL SEARCH THE LATEST VERSIONS OF ALL FILES IN THE CURRENT UIC.
;
; TECO WILL ENCLOSE THE SEARCH STRING FOUND IN UP-ARROWS ("^").
; THE SEARCH IN TECO CAN BE TERMINATED BY CTRL-C.
;
.DOIT:.ASKS FILES ENTER UIC AND FILES TO BE SEARCHED
.GETF:.IF FILES = "" .SETS FILES "*.*"
.DOTEC:MUNGE SY1:[1,1]TECREPALL%'FILES'
;
;SEARCH COMPLETE.
.ASK MORE ANY MORE SEARCHES
.IFF MORE .GOTO EXIT
.ENABLE ESCAPE
; ENTER <ESC> TO USE THE SAME FILES SPECIFIED ABOVE
.ASKS FILEX ENTER UIC AND FILES TO BE SEARCHED
.DISABLE ESCAPE
.IFT <ESCAPE> .GOTO DOTEC
.SETS FILES FILEX
.GOTO GETF
.EXIT: