home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / MCI.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  1.1 KB  |  42 lines
  1. /*
  2.     MCI Mail Logon 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 MCI.XTS)
  8.     Version 1.01 01-31-90 PJL
  9. */
  10.  
  11.  
  12. -- wake up MCI:
  13.         i = 1
  14.         while i <= 10
  15.                 reply
  16.                 wait 2 seconds for 'port:'
  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. label LOGIN
  29.         trys = 1
  30.         while online and trys < 5
  31.                 watch 10 seconds for
  32.                         'name:'       : wait 5 ticks : ...
  33.                                         reply UserID
  34.                         'password:'   : wait 5 ticks : ...
  35.                                         reply Password
  36.                         'sorry, inc'  : wait 5 ticks : reply : bye : bye
  37.                         'nection ini' : end
  38.                 endwatch
  39.                 trys = trys + 1
  40.         wend
  41.         end
  42.