home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / startall.avm < prev    next >
Encoding:
Text File  |  1995-08-21  |  623 b   |  31 lines
  1. /* starts everything */
  2.  
  3. /* this may be needed for the delay function */
  4. call addlib("rexxsupport.library", 0, -30, 0)
  5.  
  6. faxprogram = upper(getclip('AVMFaxProgram'))
  7. bbsprogram = upper(getclip('AVMBBSProgram'))
  8.  
  9. if faxprogram = 'TRAPFAX' then 'settfaxvars.avm'
  10. else if faxprogram = 'GPFAX' then 'startgpfax.avm'
  11.  
  12. 'setSerVars.avm'
  13.  
  14. if upper(getclip('AVMStartAVMUI')) ~= 'NO' then do
  15.   address command 'run >nil: <nil: avm:avmui'
  16.   call delayUntilPortOpened('AVMUSERINTERFACE')
  17. end
  18.  
  19. exit
  20.  
  21. delayUntilPortOpened:
  22.   procedure
  23.   parse arg portName
  24.  
  25.   do 10
  26.     if show('p', portName) then break
  27.     call delay(60)
  28.   end
  29.  
  30.   return
  31.