/* */
parse upper arg server device type file
/* say in here */

if type = "MULTI" then numfiles = words(file) / 2
else do
  file = file type
  numfiles = 1
end

filesandtypes = file

call setclip("AVMAbortMulti", "NO")

do i = 1 to numfiles
  file = word(filesandtypes, 1 + (i - 1) * 2)
  type = word(filesandtypes, 2 + (i - 1) * 2)

  call setclip("AVMPlayMultiType", type)
  if type = 'VOICE' then do
	if device = 'TELEPHONELINE' | device = 'INTERNALSPEAKER' | device = 'LOCALHANDSET' then
		address rexx 'useBracket' server 'playzyxel' server device file
	else if device = 'AMIGA' then
		address rexx 'playamiga' file
        else if device = 'AMIGADIRECT' then
                address rexx 'playamigadirect' file
        else if device = 'IFF' then
		address rexx 'saveiff' file 'avmtemp:save.iff'
  end; else if type = 'FAX' then do
    faxprogram = getclip('AVMFaxProgram')
    if upper(faxprogram) = 'GPFAX' then
	address rexx_gpfax 'viewfax' file
    else if upper(faxprogram) = 'TRAPFAX' then
        address command 'trapfax:tfaxview' file
    else if upper(faxprogram) = 'EFAX' then
        address rexx 'efaxview' file
  end

  if getclip("AVMAbortMulti") = "YES" then exit
end

exit