home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / X4XVI / VUTEXT.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  749 b   |  51 lines
  1. ;    VU/TEXT    at 300 or 1200 baud, via TELENET
  2. ;    revised 05-02-89 for 2400+ baud  --MKK
  3.  
  4.  
  5. WHen "TELENET" JUmp WE_ARE_IN
  6. JUmp @SP
  7.  
  8.  
  9. LAbel SP_300   ; Send TELENET a CR every second until it wakes up.
  10. LAbel SP_1200 
  11. WAit Delay 10
  12. REply |
  13. JUmp SP_1200
  14.  
  15. LAbel SP_2400  ; Send TELENET a CR and @ every second until it wakes up.
  16. LAbel SP_4800
  17. LAbel SP_9600
  18. LAbel SP_19200
  19. WAit Delay 10
  20. REply "@"
  21. WAit Delay 10
  22. REply |
  23. JUmp SP_19200
  24.  
  25.  
  26. ;    Once it wakes up, get on with the show.
  27.  
  28. LAbel WE_ARE_IN
  29.  
  30. WAit String "TERMINAL"
  31. REply D1|
  32.  
  33. WAit Char "@"
  34. REply C 21540|
  35.  
  36. WAit String "CONNECTED"
  37. WAit Delay 10
  38. REply |
  39.  
  40. WAit String "SIGN ON:"
  41. WAit Delay 10
  42. REply @C8
  43. REply |
  44.  
  45. WAit String "RETURN"
  46. WAit Delay 10
  47. REply |
  48.  
  49. ENd
  50.  
  51.