home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 5 / AACD05.ISO / CDTools / S / NewsFlash.awebrx < prev    next >
Text File  |  1999-12-14  |  494b  |  22 lines
  1. /*
  2.     $VER: NewsFlash.awebrx 1.0 (24.11.99) (c) Neil Bothwick, Wirenet
  3.     Loads the NewsFlash page into AWeb then resets the environment variables
  4. */
  5.  
  6. /* Wait for AWeb to load Welcome page */
  7. options results
  8. address command
  9. do i = 1 to 15
  10.     'AACD05:System/Rexxc/WaitForPort AWEB.1'
  11.     if RC = 0 then leave
  12.     end
  13. if RC > 0 then exit
  14.  
  15. address 'AWEB.1'
  16. 'WAIT ALL'
  17. 'OPEN URL "file://localhost/AACD:html/NewsFlash.html" TARGET "main"'
  18.  
  19. /* Remove environment variable */
  20. call delete('ENVARC:AACDNewsFlash')
  21.  
  22.