home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / X4XVI / DOWJONES.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  734 b   |  41 lines
  1. ; Dow - Jones script file (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. WHen -
  30. WAit String "TERMINAL"
  31. REply D1|
  32. WAit For "@"
  33. REply C 609 42|
  34. WAit String "connected"
  35. WAit String "PLEASE???"
  36. REply "DJNS|"
  37. WAit String "@@@@@@@@"
  38. REply @C8
  39. REply |
  40.  
  41.