home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / telecomm / autoscan / auto_st.do < prev    next >
Text File  |  1989-05-06  |  3KB  |  227 lines
  1. >WA "Last" 45 AT|
  2. >MK TO|
  3. >WA "*" 30 AT|
  4. >WA "*" 5 AT|
  5. >WA "*" 5 AT|
  6. >WA "*" 5 AT|
  7. >WA "*" 1|
  8. >WA "*" 1|
  9. >WA "*" 1|
  10. >$M "NOMAIL"|
  11. >WA "WAITING." 3 NM|
  12. >$M "MAIL"|
  13. >L: NM|
  14. >IFI $T "MORE" JMP MC|
  15. >MK BOT|
  16. >SA BLK D:\FLASH\GE_NEWS.TXT|
  17. >CA CL|
  18. >WA "Conference" 45 AT|
  19. >MK TO|
  20. >WA "Members in Conference" 45 AT|
  21. >MK BO|
  22. >SA BLK D:\FLASH\ST_NEWS.TXT|
  23. >CA CL|
  24. >L: MC|
  25. >WA "HELp" 90 AT|
  26. >OP SETPERM.DO|
  27. >IF ~OP JMP RP|
  28. >DO SETPERM.DO|
  29. >KI SETPERM.DO|
  30. >L: RP|
  31. >OP ATARIST.LST|
  32. >IF ~OP JMP MS|
  33. >L: NT|
  34. >OP C99T2.???|
  35. >IF ~OP JMP NNT|
  36. >INP $L|
  37. >SE "SET $L|"|
  38. >WA "$L ?" 45 AT|
  39. >INP $L|
  40. >SE "$L|"|
  41. >INP $L|
  42. >WA "?" 45 AT|
  43. >SE "$L|"|
  44. >L: LNT|
  45. >WA ">" 45 AT|
  46. >INP $L|
  47. >IF EOF JMP ENT|
  48. >SE "$L|"|
  49. >JMP LNT|
  50. >L: ENT|
  51. >PA 1|
  52. >SE "*S|"|
  53. >WA "(Y/N)" 45 AT|
  54. >KI C99T2.???|
  55. >SE "N|"|
  56. >WA "?" 45 AT|
  57. >JMP NT|
  58. >L: NNT|
  59. >OP ATARIST.LST|
  60. >L: LP1|
  61. >INP $L|
  62. >IF EOF JMP OM|
  63. >DO $L|
  64. >IFI $C "99" JMP KI|
  65. >$Q "F"|
  66. >SE "SET $C|"|
  67. >WA "$C ?" 45 AT|
  68. >SE "REPLY $R|"|
  69. >WA ">" 45 AT|
  70. >UL AS $F|
  71. >IF ~UL JMP AT|
  72. >PA 1|
  73. >SE "*s|"|
  74. >WA "$C ?" 45 AT|
  75. >KI $F|
  76. >L: KI|
  77. >$Q "T"||
  78. >IFI $Q "T" KI $L.DO|
  79. >JMP LP1|
  80. >L: OM|
  81. >KI ATARIST.LST|
  82. >OP C99T1.???|
  83. >IF ~OP JMP EM|
  84. >INP $L|
  85. >SE "SET $L|"|
  86. >WA "$L ?" 45 AT|
  87. >KI $L.DO|
  88. >INP $L|
  89. >SE "REPLY $L|"|
  90. >KI $L.DO|
  91. >L: LP2|
  92. >INP $L|
  93. >WA ">" 45 AT|
  94. >SE "$L|"|
  95. >IF ~EOF JMP LP2|
  96. >PA 1|
  97. >SE "*S|"|
  98. >WA "HELp" 45 AT|
  99. >KI C99T1.???|
  100. >JMP OM|
  101. >L: EM|
  102. >OP C99T3.???|
  103. >IF ~OP JMP MS|
  104. >SEND "SEND|"|
  105. >WA "To:" 45 AT |
  106. >INP $L|
  107. >SEND "$L|"|
  108. >KI $L.DO|
  109. >WA "Copy:" 45 AT|
  110. >INP $L|
  111. >SEND "$L|"|
  112. >KI $L.DO|
  113. >WA "Sub:" 45 AT|
  114. >INP $L|
  115. >SEND "$L|"|
  116. >KI $L.DO|
  117. >L: LP3|
  118. >WA ">" 45 AT|
  119. >INP $L|
  120. >SEND "$L|"|
  121. >KI $L.DO|
  122. >IF ~EOF JMP LP3|
  123. >PA 1|
  124. >SE "*S|"|
  125. >WA "HELp" 45 AT|
  126. >KI C99T3.???|
  127. >JMP EM|
  128. >L: MS|
  129. >IFI $T "MORE" JMP NB|
  130. BRO NEW NOR|
  131. >MK TO|
  132. >WA HELp|
  133. >MK BO|
  134. >SA BLK ST_NEW$N.MSG|
  135. >CA CL|
  136. M 476:11|
  137. >WA "..." 45 AT|
  138. >MK TOP|
  139. >WA "End of Directory."|
  140. >MK BOT|
  141. >SA BLK ST_NEW$N.LST|
  142. >CA CL|
  143. >WA "<H>elp?" 60 AT|
  144. >L: NB|
  145. >OP DOWNLOAD.DO|
  146. >IF ~OP JMP FB|
  147. M 476:6|
  148. >DO DOWNLOAD.DO|
  149. >MK TO|
  150. >WA "<H>elp?" 45 AT|
  151. >SE "$F|"|
  152. >DP E:\ARCHIVE\|
  153. >L: SF|
  154. >WA "*" 2 MF|
  155. >WA "is a BINARY File." 8 SB|
  156. >WA "<Q>uit" 45 AT|
  157. D|
  158. >WA "skip?" 30 AT|
  159. 3|
  160. >JMP DL|
  161. >L: MF|
  162. >WA "(Y/N)?" 45 AT|
  163. Y|
  164. >L: DL|
  165. >WA "receive file." 45 AT|
  166. >DL YB|
  167. >WA "(Y/N)?" 45 AT|
  168. N|
  169. >JMP ED|
  170. >L: SB|
  171. D|
  172. >WA "RETURN" 45 AT|
  173. >SE "|"|
  174. >WA "(Y/N)?"|
  175. >MK BO|
  176. >SA BLK GE_7BIT.TXT|
  177. >CA CL|
  178. N|
  179. >WA "..." 45 AT|
  180. >L: ED|
  181. >MK BO|
  182. >SA BLK D:\FLASH\GE_LOG.TXT|
  183. >CA CL|
  184. >WA "<H>elp?" 45 AT|
  185. >DPATH D:\FLASH\PUBLIC.BBS\GENIE|
  186. >KI DOWNLOAD.DO|
  187. >L: FB|
  188. >OP C99T4.???|
  189. >IF ~OP JMP NFB|
  190. M 475:7|
  191. >WA "RETURN" 75 AT|
  192. >WA "1>" 45 AT|
  193. >UL AS C99T4.???|
  194. >IF ~UL JMP AT|
  195. >PA 1|
  196. >SE "*S|"|
  197. >WA "<H>elp?" 45 AT|
  198. >KI C99T4.???|
  199. >JMP FB|
  200. >L: NFB|
  201. >IFI $M "NOMAIL" JMP END|
  202. M 200:2|
  203. >WA "Item" 60 AT|
  204. >MK TO|
  205. >WA "GEnie            MAIL         Page 200" 90 AT|
  206. >MK BOT|
  207. >SA BLK D:\FLASH\GE_MAIL.TXT|
  208. >CA CL|
  209. >WA "<H>elp?" 45 AT|
  210. >L: END|
  211. >END|
  212. >L: AT|
  213. ⇨|
  214. >WA "H" 30|
  215. >SA CA D:\FLASH\GE_ERROR.TXT|
  216. >$E "ERROR"|
  217. >END|
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225. ⇦◆n①s;LS zi
  226. NO CARRIER
  227.