home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 5 / CONNECTIONS.iso / content / software / internet / sprynet / scripts.z / TYMNET.SCP < prev   
Encoding:
Text File  |  1996-09-20  |  876 b   |  41 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. ;  TYMNET:
  9. ;    Connect to Tymnet
  10. ;    Success:  returns %Success
  11. ;    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. ;
  13. ;    Which_Tymnet:  Tymnet = 1, AlaskaNet = 2, PacNet = 3
  14. ;
  15. ;+V
  16. ; "3.8.1"
  17. ;-V
  18.  
  19. proc main    
  20.     set port databits 7    
  21.     set port parity odd    
  22.     transmit "^M"
  23.     waitfor "Please "    
  24.     transmit "A"
  25.     waitfor "log in:"
  26.     transmit "CPS"
  27.     transmit "^M"
  28.     waitfor "User ID:"
  29.     transmit "/HOST^M"
  30.     set port databits 7    
  31.     set port parity even    
  32.     transmit "^M"    
  33.     waitfor "Host Name:"    
  34.     transmit $USERID
  35.     transmit "^M"
  36.     waitfor "Password: "
  37.        transmit $PASSWORD
  38.        transmit "^M"    
  39.     set port databits 8    
  40.     set port parity none
  41. endproc