search data and files

[everett]

Code:

cls
input "drive"; d$
input "dir"; s$
input "file type"; f$
input "name"; n$
if s$ = "\" then
goto sub1
else
if s$ = "" then
goto sub1
else
if s$ = " " then
goto sub1
else
shell "dir "+d$+":\"+s$+"\"+n$+"."+f$+"/b/a-d>search.txt
end
sub1:
shell "dir "+d$+":\"+n$+"."+f$+"/b/a-d>search.txt
return

i have a challenge to make a search prog that will search
files for spicifec strings ,lines,and data in a file
and search for files.
i alredy have the file search code here all entres must have this code somewhere
2 entres per person
can be in freebasic,qbasic,quickbasic,and can have libareys for commands but you must include the libarey too
with the code

"this code has been made more beter than my orignal vershen
by Moneo ,whitetiger0990,and tannervp"