/* */
lib=0
if exists('libs:rexxreqtools.library') & exists('libs:reqtools.library') then
do
 lib=1
 call addlib("rexxreqtools.library", 0, -30, 0)
end

parse upper arg server device file type compression .


if type = 'VOICE' then
	if device = 'TELEPHONELINE' | device = 'EXTERNALMIC' | device = 'LOCALHANDSET' then
		address rexx 'useBracket' server 'recordzyxel' server device file
	else if device = 'AMIGA' then
		address rexx 'recordamiga' compression file
	else if device = 'IFF' then
	do
	 if lib=0 then address rexx 'loadiff' 'avmtemp:save.iff' compression file
     else
		do
		filename = rtfilerequest(, , "Pick a file" , , "" "rtfi_buffer = true")
			if rtresult == 0 then
			  call rtezrequest("You didn't pick a file.", "OK", ,)
			else
			  address rexx 'loadiff' filename compression file
		end
	end
else if type = 'FAX' then
	nop
exit