\START92\
\COMMENT=Program file dated 10/18/98, 14:10      
\NAME=qfilter
\FILE=QFILTER.92P
()
Prgm
Local i,t,s,t1,l,c,fn,o
Dialog
Title "QuickFilter 2.0 by Rick Coogle"
Request "Database",db
DropDown "Filter by\...\",{"Name","City","State"},t
Text "Enter a Search-String"
Request "Name or Letter",s
EndDlog
If ok=0
Stop
Disp "WORKING\...\"
#db[1]\->\l
If t=1
1\->\t1
If t=2
3\->\t1
If t=3
4\->\t1
0\->\c
{""}\->\t
For i,1,dim(l)
If inString((#db[t1])[i],s)\!=\0 Then
1+c\->\c
l[i]\->\t[c]
EndIf
EndFor
"FILTER1"\->\fn
0\->\i
0\->\t1
Dialog
Title "RESULTS"
Text "String: "&s
Text "# of Names: "&string(dim(l))
Text "# of Matches: "&string(c)
DropDown "Names in Database",#db[1],t1
DropDown "Results",t,o
DropDown "Save\...\",{"None","1 Result","All Results","Name"},i
Request "Filename",fn
EndDlog
If i=2 Then
t[s]\->\#fn
ElseIf i=3 Then
t\->\#fn
ElseIf i=4 Then
(#db[1])[t1]\->\#fn
EndIf
EndPrgm

\STOP92\