search program

[everett]

[/code]
cls

print "the results will be in search.txt"
print "made by everett gillert"
print "email everett.gillert@gmail.com"
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

[/code]