home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / TYMNET.XTS < prev    next >
Text File  |  1990-03-06  |  698b  |  44 lines
  1.  
  2. genlines OFF
  3. genlabels OFF
  4.  
  5. /*
  6.  
  7.     TYMNET - A navigatioon script for use by other scripts.
  8.  
  9.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  10.     All rights reserved
  11.     For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
  12.  
  13. */
  14.  
  15. assume device    "XPC"
  16. assume terminal "DEC"
  17.  
  18. ScriptDesc = "Login to Tymnet with host name contained in NetID"
  19.  
  20. sp = chr(32)
  21.  
  22. if device = "XPC" then do "TYMXPC"
  23.  
  24. w = freewin
  25. window w, zone 11, color blue
  26. title #w, " Logging into TYMNET ... "
  27. print #w
  28. print #w, sp; speed; sp;
  29.  
  30. wait 3 seconds for '~?'
  31. reply "a";
  32.  
  33. watch for
  34.     "host" :
  35.     "in"   :
  36.     "name" :
  37.     "error" : bye : end
  38. endwatch
  39.  
  40. wait 2 ticks
  41. reply NetID
  42. end
  43.  
  44.