home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / LEXIS.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  708 b   |  31 lines
  1. /*
  2.     LEXIS/NEXIS 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 LEXIS.XTS)
  8.     Version 1.01 01-31-90 PJL
  9. */
  10.  
  11.         if NetID = 'LEXIS' then chain 'TYMNET LEXIS(LOGIN)'
  12.         if not null(NetID) then chain 'TELENET LEXIS(LOGIN)'
  13.  
  14.  
  15. label LOGIN
  16. -- send UserID:
  17.         wait for 'for assistance)'
  18.         wait 1 second
  19.         reply destore(UserID)
  20.  
  21. -- send Password:
  22.         echo off
  23.         wait for 'personal identification'
  24.         wait 1 second
  25.         reply destore(Password)
  26.         echo on
  27.  
  28.     wait 3 seconds for 'does not appear'
  29.     if not timeout then bye : end
  30.         end
  31.