home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / CSERVE.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  1.2 KB  |  45 lines
  1. /*
  2.     Compuserve Login Script
  3.  
  4.     Copyright (C) 1989,1990 Digital Communications Associates, Inc.
  5.     All Rights Reserved.
  6.  
  7.     Version 1.00 07-15-89 PJL (from AT&T.XTS)
  8.     Version 1.01 01-31-90 PJL
  9. */
  10.  
  11.  
  12.         if NetID = 'CIS02' then chain 'TYMNET CSERVE(LOGIN)'
  13.         if NetID = '202202' then chain 'TELENET CSERVE(LOGIN)'
  14.  
  15.  
  16. -- send ^C to wake up compuserve
  17.         wait 3 seconds
  18.         reply chr(3);
  19.  
  20. -- wait for ^C echo; resend if we don't get it back
  21.         wait 7 seconds for '`^C'
  22.         if timeout then reply chr(3);
  23.  
  24.  
  25. -- send UserID & Password:
  26. label LOGIN
  27.         while online
  28.                 watch for
  29.                         case 'ID:'       : wait 2 ticks : reply UserID
  30.                         case 'Password'  : wait 2 ticks : reply Password
  31.                         case 'Copyright' : end
  32.                         '? L', 
  33.                         'not allowed', 
  34.                         'call cleared'   : bye : goto NO_ACCESS
  35.                         key 27           : halt
  36.                         quiet 30 seconds : bye
  37.                 endwatch
  38.         wend
  39.         end
  40.  
  41. label NO_ACCESS
  42.         alert 'You cannot access CompuServe through this network.', OK
  43.         end
  44.  
  45.