home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / comm / ibrowsescripts / rexx / quitnet.ibrx < prev    next >
Encoding:
Text File  |  1980-02-05  |  803 b   |  26 lines
  1. /*  $VER: quitnet.ibrx 1.0     
  2.     Made by Sören Forsberg : sorenf@hem1.passagen.se
  3.   
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. say show('Ports')
  9.  
  10. IF show('Ports','AMIRC.1') THEN ADDRESS 'AMIRC.1' 'QUIT'
  11. IF show('Ports','AMIRC.2') THEN ADDRESS 'AMIRC.2' 'QUIT'
  12. IF show('Ports','AMIRC.3') THEN ADDRESS 'AMIRC.3' 'QUIT'
  13. IF show('Ports','AMIRC.4') THEN ADDRESS 'AMIRC.4' 'QUIT'
  14. IF show('Ports','AMIRC.5') THEN ADDRESS 'AMIRC.5' 'QUIT'
  15. IF show('Ports','AMIRC.6') THEN ADDRESS 'AMIRC.6' 'QUIT'
  16. IF show('Ports','AMIRC.7') THEN ADDRESS 'AMIRC.7' 'QUIT'
  17. IF show('Ports','AMIRC.8') THEN ADDRESS 'AMIRC.8' 'QUIT'
  18.  
  19.  
  20. IF show('Ports','MIAMI.1') THEN ADDRESS 'MIAMI.1' 'QUIT'
  21.  
  22. IF show('Ports','IBROWSE') THEN ADDRESS 'IBROWSE' 'QUIT'
  23.  
  24. IF show('Ports','YAM') THEN ADDRESS 'YAM' 'QUIT'
  25.  
  26. IF show('Ports','AMFTP.1') THEN ADDRESS 'AMFTP.1' 'QUIT'