home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / DELPHI.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  592 b   |  32 lines
  1. /*
  2.     Delphi Login Script
  3.  
  4.     Copyright (C) 1989, 1990 Digital Communications Associates, Inc.
  5.     All rights reserved.
  6.  
  7.     Version 1.0 07-15-89 PJL (from DELPHI.XTS)
  8. */
  9.  
  10.  
  11. -- Logon through either Tymnet or Telenet:
  12.     Network = slice(Description,3)
  13.         chain Network+' DELPHI(LOGIN)'
  14.  
  15.  
  16. label LOGIN
  17. -- send UserID:
  18.         watch 10 seconds for
  19.                 'name' : 
  20.                 'uic'  :
  21.         endwatch
  22.         wait 1 second
  23.         reply UserID
  24.  
  25.  
  26. -- send Password:
  27.         wait for 'pass'
  28.         wait 1 second
  29.         reply Password
  30.  
  31.         end
  32.