home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / startgpfax.avm < prev    next >
Encoding:
Text File  |  1994-12-08  |  412 b   |  21 lines
  1. /* needed for some of the functions we use */
  2. call addlib("rexxsupport.library", 0, -30, 0)
  3.  
  4. gpfaxrunning = show('p', 'REXX_GPFAX')
  5.  
  6. call pragma('d', 'gpfax:')
  7.  
  8. if ~gpfaxrunning then do
  9.   address command "run >nil: <nil: gpfax:gpfax -W -NP -Q -z -S"
  10. end
  11.  
  12. do 5
  13.   call delay(100)
  14.   gpfaxrunning = show('p', 'REXX_GPFAX')
  15.   if gpfaxrunning then break
  16. end
  17.  
  18. address rexx_gpfax openserial
  19. address rexx_gpfax unlisten
  20.  
  21.