home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DATATERM / DL.KEY.B < prev    next >
Encoding:
Text File  |  1988-10-18  |  5.1 KB  |  269 lines  |  [04] ASCII Text (0x0000)
  1. # start
  2.  
  3. # - Main macro for DataTerm v2.0
  4. # - written  4/20/88
  5. # - updated 11/18/88 (disk v2.2)
  6. # - by Dale Therio
  7.  
  8. set duplex full
  9.  
  10. # - change this 1200 to 2400 to call these boards at 2400 bps
  11. set baud 1200
  12.  
  13. xmit ATV1QS0=0S7=55^M 
  14. set timer 3
  15. waitfor string "ok"
  16.  
  17. # main
  18. display ^L
  19. gotoxy 24,4
  20. display "  A - N.A.U.G.^J^M^I^I^I"
  21. display "  B - Pro-Beagle^J^M^I^I^I"
  22. display "  C - Pro-Carolina^J^M^I^I^I"
  23. display "  D - Pro-Sol^J^M^I^I^I"
  24. display "  E - Apple Cider^J^M^I^I^I"
  25. display "  F - GEnie^J^M^I^I^I"
  26. display "  G - Pro-Colony^J^M^"
  27.  
  28. # prompt
  29. gotoxy 24,14
  30. display "Make your selection: ^G"
  31. set timer 30
  32. waitfor keyboard
  33. if keyboard A goto naug
  34. if keyboard B goto beagle
  35. if keyboard C goto carolina
  36. if keyboard D goto sol
  37. if keyboard E goto cider
  38. if keyboard F goto genie
  39. if keyboard G goto colony
  40. if keyboard ^[ goto exit
  41. if failed goto prompt 
  42. goto prompt
  43.  
  44. # abort
  45. display "^L^J^J^M^I^I   No answer or Busy^G^J^M"
  46. display "^I^I      Press a key^J^M"
  47. set timer 30
  48. waitfor keyboard
  49. goto main
  50.  
  51. # connect
  52. waitfor string "connect"
  53. if failed goto abort
  54. display "^L^J^MNow Connected"
  55. stop
  56.  
  57. # naug
  58. display "^L^Y^J^J^I^INational AppleWorks User's Group^J^J^M"
  59. display "^I^ITo dial Pulse type `P`, or ^J^M"
  60. display "^I^IAny other key to dial Touch-Tone^J^M"
  61. display "^J^I^IEnter --> "
  62. # await
  63. display ^G
  64. set timer 30
  65. waitfor keyboard
  66. if keyboard p goto apulse
  67. if keyboard ^[ goto main
  68. if failed goto await
  69. goto atone
  70. stop
  71. # apulse
  72. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  73. xmit "ATDP 1 313 482 8090 ^M"
  74. set timer 55
  75. goto connect
  76. # atone
  77. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  78. xmit "ATDT 1 313 482 8090 ^M"
  79. set timer 45
  80. goto connect
  81. stop
  82.  
  83.  
  84. # beagle
  85. display "^L^Y^J^J^I^IPro-Beagle^J^J^M"
  86. display "^I^ITo dial Pulse type `P`, or ^J^M"
  87. display "^I^IAny other key to dial Touch-Tone^J^M"
  88. display "^J^I^IEnter --> "
  89. # bwait
  90. display ^G
  91. set timer 30
  92. waitfor keyboard
  93. if keyboard p goto bpulse
  94. if keyboard ^[ goto main
  95. if failed goto bwait
  96. goto btone
  97. stop
  98. # bpulse
  99. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  100. xmit "ATDP 1 619 558 6151 ^M"
  101. set timer 55
  102. goto connect
  103. # btone
  104. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  105. xmit "ATDT 1 619 558 6151 ^M"
  106. set timer 45
  107. goto connect
  108. stop
  109.  
  110.  
  111. # carolina
  112. display "^L^Y^J^J^I^IPro-Carolina^J^J^M"
  113. display "^I^ITo dial Pulse type `P`, or ^J^M"
  114. display "^I^IAny other key to dial Touch-Tone^J^M"
  115. display "^J^I^IEnter --> "
  116. # cwait
  117. display ^G
  118. set timer 30
  119. waitfor keyboard
  120. if keyboard p goto cpulse
  121. if keyboard ^[ goto main
  122. if failed goto cwait
  123. goto ctone
  124. stop
  125. # cpulse
  126. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  127. xmit "ATDP 1 803 776 3936 ^M"
  128. set timer 55
  129. goto connect
  130. # ctone
  131. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  132. xmit "ATDT 1 803 776 3936 ^M"
  133. set timer 45
  134. goto connect
  135. stop
  136.  
  137.  
  138. # sol
  139. display "^L^Y^J^J^I^IPro-Sol^J^J^M"
  140. display "^I^ITo dial Pulse type `P`, or ^J^M"
  141. display "^I^IAny other key to dial Touch-Tone^J^M"
  142. display "^J^I^IEnter --> "
  143. # ewait
  144. display ^G
  145. set timer 30
  146. waitfor keyboard
  147. if keyboard p goto epulse
  148. if keyboard ^[ goto main
  149. if failed goto ewait
  150. goto etone
  151. stop
  152. # epulse
  153. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  154. xmit "ATDP 1 619 670 5379 ^M"
  155. set timer 55
  156. goto connect
  157. # etone
  158. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  159. xmit "ATDT 1 619 670 5379 ^M"
  160. set timer 45
  161. goto connect
  162. stop
  163.  
  164.  
  165.  
  166. # cider
  167. display "^L^Y^J^J^I^IApple Cider^J^J^M"
  168. display "^I^ITo dial Pulse type `P`, or ^J^M"
  169. display "^I^IAny other key to dial Touch-Tone^J^M"
  170. display "^J^I^IEnter --> "
  171. # fwait
  172. display ^G
  173. set timer 30
  174. waitfor keyboard
  175. if keyboard p goto fpulse
  176. if keyboard ^[ goto main
  177. if failed goto fwait
  178. goto ftone
  179. stop
  180. # fpulse
  181. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  182. xmit "ATDP 1 718 482 0089 ^M"
  183. set timer 55
  184. goto applecider
  185. # ftone
  186. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  187. xmit "ATDT 1 718 482 0089 ^M"
  188. set timer 45
  189. goto applecider
  190. stop
  191. # applecider
  192. waitfor string "connect"
  193. if failed goto
  194. waitfor string "new!:"
  195. xmit "34^M"
  196. waitfor string "word:"
  197. xmit "applied^M"
  198. stop
  199.  
  200.  
  201. # genie
  202. display "^L^Y^J^J^I^IGEnie Signup Macro^J^J^M"
  203. display "^I^ITo dial Pulse type `P`, or ^J^M"
  204. display "^I^IAny other key to dial Touch-Tone^J^M"
  205. display "^J^I^IEnter --> "
  206. # gwait
  207. display ^G
  208. set timer 30
  209. waitfor keyboard
  210. if keyboard p goto gpulse
  211. if keyboard ^[ goto main
  212. if failed goto gwait
  213. goto gtone
  214. stop
  215. # gpulse
  216. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  217. xmit "ATDP 1 800 638 8369 ^M"
  218. set timer 55
  219. goto connectgenie
  220. # gtone
  221. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  222. xmit "ATDT 1 800 638 8369 ^M"
  223. set timer 45
  224. goto connectgenie
  225. stop
  226. # connectgenie
  227. waitfor string "connect"
  228. if failed goto abort
  229. set duplex half
  230. buffer on
  231. # - wait for user no.
  232. pause 3
  233. xmit "HHH^M"
  234. # - wait for pswd
  235. waitfor string "U#"
  236. xmit "XJM11848,DATALINK^M"
  237. stop
  238.  
  239.  
  240. # colony
  241. display "^L^Y^J^J^I^IPro-Colony^J^J^M"
  242. display "^I^ITo dial Pulse type `P`, or ^J^M"
  243. display "^I^IAny other key to dial Touch-Tone^J^M"
  244. display "^J^I^IEnter --> "
  245. # hwait
  246. display ^G
  247. set timer 30
  248. waitfor keyboard
  249. if keyboard p goto hpulse
  250. if keyboard ^[ goto main
  251. if failed goto hwait
  252. goto htone
  253. stop
  254. # hpulse
  255. display "^Y^J^J^J^J^J^J^J^I^IPulse Dialing: "
  256. xmit "ATDP 1 214 370 7056 ^M"
  257. set timer 55
  258. goto connect
  259. # htone
  260. display "^Y^J^J^J^J^J^J^J^I^ITone Dialing: "
  261. xmit "ATDT 1 214 370 7056 ^M"
  262. set timer 45
  263. goto connect
  264. stop
  265.  
  266. # exit
  267. display ^L
  268. stop
  269.