	.ENABLE SUBSTITUTION
	; LOCATE ALL OCCURRANCES OF A SPECIFIED STRING IN ANY DESIRED FILES.
	; (PUT "/F" AT END OF FILESPEC TO HAVE ALL FILENAMES PRINTED OUT.)
	;
.DOIT:	.ASKS	FILES ENTER UIC AND FILES TO BE SEARCHED
.GETF:	.IF	FILES = ""	.SETS	FILES "*.*"
.DOTEC:	MUNGE LB:[201,5]REPALL,'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:
