home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / NEWSNET.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  578 b   |  28 lines
  1. /*
  2.     NewsNet 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 NEWSNET.XTS)
  8.     Version 1.02 01-31-90 PJL
  9. */
  10.  
  11.  
  12. -- Login through either Tymnet or Telenet:
  13.         Network = slice(Description,3)
  14.     chain Network+' NEWSNET(LOGIN)'
  15.  
  16.  
  17. label LOGIN
  18. -- send UserID & Password:
  19.     while online
  20.         watch for
  21.             'sign on'  : wait 1 second : reply UserID
  22.                 'Password' : wait 1 second : reply Password : end
  23.             'invalid'  : bye : end
  24.         endwatch
  25.     wend
  26.  
  27.         end
  28.