/* Read Prefs */

parse arg fname,KEYWORD

if ~(open(prefs,fname,'r')) then do
	exit ''
end


keyword= upper(strip(keyword))

do until (eof(prefs) | strip(upper(word(line,1))=keyword) | substr(line,1,3)="---")
	line=strip(readln(prefs))
end


if (eof(prefs)|substr(line,1,3)="---") then do
	exit ''
end

call close(prefs)

info=substr(line,pos(keyword,line)+length(keyword)+1)

exit info