/* High-speed Aminet search, requires a local Aminet index and 'ssearch=
=2E' */

maxout =3D 5

parse arg srch sendto=20
if srch~=3D"" then do
=09address command "ssearch >t:ircsrchtmp data:index "||srch||" nonum"
=09if open( fdate, "t:ircsrchtmp", 'R' ) then do
=09lineit=3D0
=09matches=3D-1
=09do while ~eof(fdate)
=09     matches=3Dmatches+1
=09     temp=3Dreadln(fdate)
=09end
=09if seek(fdate,0,'B') then nop
=09if sendto=3D"" then "say" "Results of Aminet search for '"srch"' -- =
"||matches||" matches found"
=09if sendto~=3D"" then "notice "||sendto||" Results of Aminet search f=
or '"srch"' -- "||matches||" matches found"

=09do while (~eof(fdate)) & (lineit < maxout )=20
=09     lineit=3Dlineit+1
=09     temp =3D readln( fdate )
=09     if temp~=3D"" then do
=09             if sendto=3D"" then "say" temp
=09             if sendto~=3D"" then "notice "||sendto||" "||temp
=09     end
=09end
=09if matches > maxout then do=20
=09     if sendto=3D"" then "say *** Search results truncated"
=09     if sendto~=3D"" then "notice "||sendto||" *** Search results trunca=
ted"
=09end

end