home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / XTALK1.ZIP / TYMNET.XWS < prev    next >
Encoding:
Text File  |  1990-04-30  |  728 b   |  36 lines
  1. /*
  2.     Tymnet Network Login Script
  3.  
  4.     The Tymnet script is called by several of the online service
  5.     login scripts to log a user in through the TYMNET Network.
  6.  
  7.     Copyright (C) 1989, 1990 Digital Communications Associates, Inc.
  8.     All rights reserved.
  9.  
  10.     Version 1.0 07-16-89 PJL
  11. */
  12.  
  13.  
  14. -- Logon through Tymnet:
  15. LABEL TYMNET
  16.  
  17.         wait 3 seconds for 'id', 'x', 'p', '[', ']', '`|'
  18.         reply 'a';
  19.  
  20.         watch for
  21.                 'host'  :
  22.                 'in'    :
  23.                 'name'  :
  24.                 'error' : bye : end
  25.         endwatch
  26.  
  27.         wait 2 ticks
  28.         reply NetID
  29.  
  30. --      Chain back to parent script?
  31.         if length(arg) then chain arg
  32.  
  33.         end
  34.  
  35.  
  36.