home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / AmFTP ARexx.intro < prev    next >
Encoding:
Text File  |  1997-02-14  |  509 b   |  29 lines
  1. /* ARexx download script for AMFTP  */
  2. /*                                  */
  3. /* Script generated by RecentScript */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF ~SHOW('l', "rexxsupport.library") THEN DO
  8.   CALL ADDLIB('rexxsupport.library',0,-30,0)
  9. END
  10.  
  11. RXLIB "AMFTP.1"
  12. ADDRESS 'AMFTP.1'
  13.  
  14. CALL OPENPORT("AMFTP-RESULT.1")
  15.  
  16. SAY "Connecting %1..."
  17. CONNECTHOST "%1"
  18. WAITACTION "AMFTP-RESULT.1"
  19. CALL WAITPKT "AMFTP-RESULT.1"
  20.  
  21. ISCONNECTED
  22. connectstate = RESULT
  23. IF connectstate = 0 THEN DO
  24.   SAY "...failed."
  25.   EXIT
  26. END
  27.  
  28. SAY "...succeeded"
  29.