home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / record.avm < prev    next >
Encoding:
Text File  |  1995-12-14  |  852 b   |  33 lines
  1. /* */
  2. lib=0
  3. if exists('libs:rexxreqtools.library') & exists('libs:reqtools.library') then
  4. do
  5.  lib=1
  6.  call addlib("rexxreqtools.library", 0, -30, 0)
  7. end
  8.  
  9. parse upper arg server device file type compression .
  10.  
  11.  
  12. if type = 'VOICE' then
  13.     if device = 'TELEPHONELINE' | device = 'EXTERNALMIC' | device = 'LOCALHANDSET' then
  14.         address rexx 'useBracket' server 'recordzyxel' server device file
  15.     else if device = 'AMIGA' then
  16.         address rexx 'recordamiga' compression file
  17.     else if device = 'IFF' then
  18.     do
  19.      if lib=0 then address rexx 'loadiff' 'avmtemp:save.iff' compression file
  20.      else
  21.         do
  22.         filename = rtfilerequest(, , "Pick a file" , , "" "rtfi_buffer = true")
  23.             if rtresult == 0 then
  24.               call rtezrequest("You didn't pick a file.", "OK", ,)
  25.             else
  26.               address rexx 'loadiff' filename compression file
  27.         end
  28.     end
  29. else if type = 'FAX' then
  30.     nop
  31. exit
  32.  
  33.