home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / AT&T.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  806 b   |  41 lines
  1. /*
  2.     AT&T Mail 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. -- Wake up system:
  13.         i = 1
  14.         while i <= 10
  15.                 reply
  16.                 wait 1 second for 'ORIG'
  17.                 if not timeout then goto LOGIN
  18.                 i = i + 1
  19.         wend
  20.  
  21. -- nothing happened, quit:
  22.         print
  23.         print 'System not responding - Login cancelled.'
  24.         print
  25.         bye : end
  26.  
  27.  
  28. -- send UserID & Password:
  29. LABEL LOGIN
  30.     while Online
  31.         watch for
  32.             'User Name:' :    wait 5 ticks : ...
  33.                     reply UserID
  34.             'Password:'  :    wait 5 ticks : ...
  35.                     reply Password : ...
  36.                     end
  37.         endwatch
  38.     wend
  39.  
  40.         end
  41.