/* Grapevine Paste from clipboard -- paste.rexx -- Requires CLIP: to be mounted (clip-handler) */
options results

call open(1,'clip:0',r)

do while eof(1)=0
	text=readln(1)
	if eof(1)=0 then address gv_rexx.01 'say 'text
end

call close(1)
exit