home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / WETDOR55.ZIP / WEATHER.SCR < prev    next >
Encoding:
Text File  |  1994-06-12  |  2.0 KB  |  121 lines
  1. ;
  2. ;  QuickLearn Script generated at 15:00:49 on 08-18-93
  3. ;  May require editing before use.
  4. ;
  5. Graphics ANSI
  6. TurnON   8_BIT
  7. TurnOFF  LINEFEED
  8. TurnON   XON/XOFF
  9. TurnON   NOISE
  10. TurnON   MUSIC
  11. TurnON   SCROLL
  12. TurnOFF  PRINT
  13. TurnOFF  ECHO
  14. TurnOFF  SPLIT
  15. TurnOFF  BS_DEL
  16. TurnON   STATUSLN
  17. TurnOFF  DOORWAY
  18.  
  19. again:
  20. TimeOut  30 out    ; Set Waitfor for 30 seconds
  21. delay 100
  22. Send     "atdt18002453828^M"
  23. WHEN "BUSY" again
  24.  
  25. Waitfor  ""
  26. Delay    100
  27. Send     "^M"
  28.  
  29. Waitfor  "Enter Access Code.....?"
  30. Delay    100
  31. Send     "^M"
  32.  
  33. Waitfor  "Characters per Line...? [80]"
  34. Delay    100
  35. Send     "^M"
  36.  
  37. Waitfor  "Lines per Page........? [24]"
  38. Delay    100
  39. Send     "^M"
  40.  
  41. Waitfor  "Selection...?"
  42. Delay    100
  43. Send     "1^M"
  44.  
  45. Waitfor  "Aircraft ID...........?"
  46. Delay    100
  47. Send     "bhm^M"
  48.  
  49. Waitfor  "Selection...?"
  50. Delay    100
  51. Send     "g^M"
  52.  
  53. Waitfor  "Selection...?"
  54. Delay    100
  55. Capture  C:\sbbs\data\text\weather\WEATHER1.ASC
  56. Send     "1^M"
  57.  
  58. Waitfor  "Enter Location, State...?"
  59. Delay    100
  60. Send     "bhm^M"
  61.  
  62. Waitfor  ":"
  63. Delay    100
  64. TurnOFF  Capture
  65. Send     "cm^M"
  66.  
  67. Waitfor  "Selection...?"
  68. Delay    100
  69. Send     "1^M"
  70.  
  71. Waitfor  "Selection...?"
  72. Delay    100
  73. Send     "c^M"
  74.  
  75. Waitfor  "Selection.....?"
  76. Delay    100
  77. Capture  C:\sbbs\data\text\weather\WEATHER3.ASC
  78. Send     "2^M"
  79.  
  80. Waitfor  "ess C to continue, R to return:"
  81. Delay    100
  82. TurnOFF  Capture
  83. Send     "r"
  84. Capture  C:\sbbs\data\text\weather\WEATHER4.ASC
  85. Send     "4^M"
  86.  
  87. Waitfor  "ess C to continue, R to return:"
  88. Delay    100
  89. TurnOFF  Capture
  90. Send     "r"
  91. Capture  C:\sbbs\data\text\weather\WEATHER2.ASC
  92. Send     "1^M"
  93.  
  94. Waitfor  "Station Identifier(s)? [BHM]"
  95. Delay    100
  96. Send     "ca^Hkl^M"
  97.  
  98. Waitfor  "Selection.....? [1]"
  99. Delay    100
  100. Send     "1^M"
  101.  
  102. Waitfor  "ess C to continue, R to return:"
  103. Delay    100
  104. TurnOFF  Capture
  105. Send     "rm^M"
  106.  
  107. Waitfor  "Selection...?"
  108. Delay    100
  109. Send     "x^M"
  110.  
  111. Waitfor  "you want a new Session (Y/N) ?"
  112. Delay    100
  113. Send     "n"
  114. System   Y
  115. Exit
  116.  
  117. out:
  118. TurnOff Capture
  119. System   Y
  120. Exit
  121.