home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / phonebook.avm < prev    next >
Encoding:
Text File  |  1994-12-08  |  510 b   |  27 lines
  1. /* */
  2. parse arg schedulerviewport .
  3.  
  4. /* this may be needed for the delay function */
  5. call addlib("rexxsupport.library", 0, -30, 0)
  6.  
  7. address command 'run >nil: <nil: avm:phonebook'
  8. opened = delayUntilPortOpened('AVMPHONEBOOK')
  9. if opened then do
  10.   address avmphonebook select schedulerviewport
  11. end; else do
  12.   address avmlogger add "Couldn't open phonebook!"
  13. end;
  14.  
  15. exit
  16.  
  17. delayUntilPortOpened:
  18.   procedure
  19.   parse arg portName
  20.  
  21.   do 10
  22.     if show('p', portName) then return 1
  23.     call delay(60)
  24.   end
  25.  
  26.   return 0
  27.