home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / X4XVI / OAG.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  943 b   |  63 lines
  1. ;   Official Airline Guide script file (via TELENET)
  2. ;   revised 05-02-89 to include via TYMNET and 2400+ baud  --MKK
  3.  
  4.  
  5. JUmp @C7    ; Go to the TYMNET or TELENET Label
  6.  
  7.  
  8. LAbel TELENET
  9.  
  10. WHen "TELENET" JUmp WE_ARE_IN
  11. JUmp @SP
  12.  
  13. LAbel SP_300   ; Send TELENET a CR every second until it wakes up.
  14. LAbel SP_1200
  15. WAit Delay 10
  16. REply |
  17. JUmp SP_1200
  18.  
  19. LAbel SP_2400  ; Send TELENET a CR and @ every second until it wakes up.
  20. LAbel SP_4800
  21. LAbel SP_9600 
  22. LAbel SP_19200
  23. WAit Delay 10
  24. REply "@"
  25. WAit Delay 10
  26. REply |
  27. JUmp SP_19200
  28.  
  29.  
  30. ;    Once it wakes up, get on with the show.
  31.  
  32. LAbel WE_ARE_IN
  33. WHen -
  34. WAit String "TERMINAL"
  35. REply "D1"|
  36. WAit For "@"
  37. REply C 312159|
  38. WAit String "password"
  39. WAit Delay 5
  40. REply @C8
  41. REply ";"
  42. REply @C9
  43. REply |
  44.  
  45. ENd
  46.  
  47.  
  48. LAbel TYMNET
  49.  
  50. WAit Delay 40
  51. REply a
  52. WAit String "please log in"
  53. REply "OAG"|
  54. WAit String "password"
  55. WA D 5
  56. REply @C8
  57. REply ";"
  58. REply @C9
  59. REply |
  60.  
  61. End
  62.  
  63.