home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / VUTEXT.XWS < prev   
Encoding:
Text File  |  1990-04-30  |  595 b   |  29 lines
  1. /*
  2.     VUTEXT/VUQUOTE 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 VUTEXT.XTS)
  8.     Version 1.01 01-32-90 PJL
  9. */
  10.  
  11.         if NetID = 'VUTEXT' then chain 'TYMNET VUTEXT(LOGIN)'
  12.         if not null(NetID) then chain 'TELENET VUTEXT(LOGIN)'
  13.  
  14.  
  15. label LOGIN
  16.         wait 2 seconds
  17.         reply chr(13);
  18.  
  19.     wait for 'SIGN ON:'
  20.     wait 1 second
  21.     display off
  22.     reply Password
  23.  
  24.     wait 3 seconds for 'WELCOME.'
  25.     if timeout then alert 'Invalid VUTEXT Password', OK
  26.  
  27.     display on
  28.     end
  29.