home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 5 / CONNECTIONS.iso / content / software / internet / sprynet / scripts.z / DATAPAC.SCP < prev    next >
Encoding:
Text File  |  1996-09-18  |  715 b   |  34 lines
  1. ;
  2. ;  Copyright (c) 1995
  3. ;  by CompuServe Incorporated, Columbus, Ohio
  4. ;
  5. ;  The information in this software is subject to change without
  6. ;  notice and should not be construed as a commitment by CompuServe.
  7. ;  
  8. ;  DATAPAC for WIN95:
  9. ;    Connect to DataPac
  10. ;    Success:  returns %Success
  11. ;    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. ;
  13. ;+V
  14. ; "1.0.0"
  15. ;-V
  16.  
  17. proc main    
  18.     set port databits 7    
  19.     set port parity even    
  20.     transmit "..."
  21.     transmit "^M"
  22.     waitfor "DataPac"    
  23.     transmit "29400138"
  24.     transmit "^M"
  25.     waitfor "Host Name:"    
  26.     transmit $USERID
  27.     transmit "^M"
  28.     waitfor "Password: "
  29.        transmit $PASSWORD
  30.        transmit "^M"    
  31.     set port databits 8    
  32.     set port parity none
  33.  
  34. endproc