%
%	A general "driver" program for searching
%
%
include "types.t"
include "getfile.t"
include  "search.t"

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

GetFile(A,n)

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