%
%	A general "driver" program for searching that does
%	no prompting.
%
%
include "types.t"
include "getfile.t"
include  "search.t"

var A:   namelist
var key: string
var n:   int
var foo: int

GetFile(A,n)

loop
%	put "Item to search for? " ..
	get key:*
	exit when key = "quit"
	foo := search(A,key,n)
end loop