home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / DOWJONES.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  681 b   |  27 lines
  1. /*
  2.     Dow Jones News/Retrieval Login Script
  3.  
  4.     Copyright (C) 1989, 1990 Digital Communications Associates, Inc.
  5.     All rights reserved.
  6.  
  7.     Version 1.00 07-16-89 PJL (from DOWJONES.XTS)
  8.     Version 1.01 01-31-90 PJL
  9. */
  10.  
  11.  
  12. -- Logon through Telenet:
  13.         chain "TELENET DOWJONES(LOGIN)"
  14.  
  15.  
  16. label LOGIN
  17.         while online
  18.                 watch for 
  19.                         'SERVICE'       : wait 1 second : reply 'dj'
  20.                         'PASSWORD'      : wait 1 second : reply Password
  21.                         'COPYRIGHT'     : end
  22.                         'DISCONNECTED'  : wait 1 second : bye
  23.                 endwatch
  24.         wend
  25.  
  26.         end
  27.