home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / DNLOAD.RBB < prev    next >
Text File  |  1989-04-01  |  5KB  |  306 lines
  1. ;LANS  10-18-88  03:36  DNLOAD.RBB
  2. ;
  3. IF '$1' = '' go_back
  4. COLOR 3
  5. SEND '^M'
  6. WAITFOR ',X>?'
  7. SEND 'd;$1;$prtcol^M'
  8. WHEN 'quits)?' next2
  9. WAITFOR 'ready!'
  10. PAUSE 1500
  11. WINDOW 1 1 80 24
  12. ATWRITE 11 3 138 'File # 1 >'
  13. DOWNLD $prtcol $dirpath\$1
  14. ATWRITE 11 3 13 'File # 1 >'
  15. COLOR 12
  16. BOX 1,14,80,$last_row
  17. CLRSCR
  18. IF '$2' = '' go_back
  19. COLOR 3
  20. WAITFOR ',X>?'
  21. SEND 'd^M'
  22. WAITFOR 'download?'
  23. next2:
  24. WHEN
  25. IF '$2' = '' go_back
  26. SEND '$2;$prtcol^M'
  27. WHEN 'quits)?' next3
  28. WAITFOR 'ready!'
  29. PAUSE 1500
  30. WINDOW 1 1 80 24
  31. ATWRITE 45 3 138 'File # 2 >'
  32. DOWNLD $prtcol $dirpath\$2
  33. ATWRITE 45 3 13 'File # 2 >'
  34. COLOR 12
  35. BOX 1,14,80,$last_row
  36. CLRSCR
  37. IF '$3' = '' go_back
  38. COLOR 3
  39. WAITFOR ',X>?'
  40. SEND 'd^M'
  41. WAITFOR 'download?'
  42. next3:
  43. WHEN
  44. IF '$3' = '' go_back
  45. SEND '$3;$prtcol^M'
  46. WHEN 'quits)?' next4
  47. WAITFOR 'ready!'
  48. PAUSE 1500
  49. WINDOW 1 1 80 24
  50. ATWRITE 11 4 138 'File # 3 >'
  51. DOWNLD $prtcol $dirpath\$3
  52. ATWRITE 11 4 13 'File # 3 >'
  53. COLOR 12
  54. BOX 1,14,80,$last_row
  55. CLRSCR
  56. IF '$4' = '' go_back
  57. COLOR 3
  58. WAITFOR ',X>?'
  59. SEND 'd^M'
  60. WAITFOR 'download?'
  61. next4:
  62. WHEN
  63. IF '$4' = '' go_back
  64. SEND '$4;$prtcol^M'
  65. WHEN 'quits)?' next5
  66. WAITFOR 'ready!'
  67. PAUSE 1500
  68. WINDOW 1 1 80 24
  69. ATWRITE 45 4 138 'File # 4 >'
  70. DOWNLD $prtcol $dirpath\$4
  71. ATWRITE 45 4 13 'File # 4 >'
  72. COLOR 12
  73. BOX 1,14,80,$last_row
  74. CLRSCR
  75. IF '$5' = '' go_back
  76. COLOR 3
  77. WAITFOR ',X>?'
  78. SEND 'd^M'
  79. WAITFOR 'download?'
  80. next5:
  81. WHEN
  82. IF '$5' = '' go_back
  83. SEND '$5;$prtcol^M'
  84. WHEN 'quits)?' next6
  85. WAITFOR 'ready!'
  86. PAUSE 1500
  87. WINDOW 1 1 80 24
  88. ATWRITE 11 5 138 'File # 5 >'
  89. DOWNLD $prtcol $dirpath\$5
  90. ATWRITE 11 5 13 'File # 5 >'
  91. COLOR 12
  92. BOX 1,14,80,$last_row
  93. CLRSCR
  94. IF '$6' = '' go_back
  95. COLOR 3
  96. WAITFOR ',X>?'
  97. SEND 'd^M'
  98. WAITFOR 'download?'
  99. next6:
  100. WHEN
  101. IF '$6' = '' go_back
  102. SEND '$6;$prtcol^M'
  103. WHEN 'quits)?' next7
  104. WAITFOR 'ready!'
  105. PAUSE 1500
  106. WINDOW 1 1 80 24
  107. ATWRITE 45 5 138 'File # 6 >'
  108. DOWNLD $prtcol $dirpath\$6
  109. ATWRITE 45 5 13 'File # 6 >'
  110. COLOR 12
  111. BOX 1,14,80,$last_row
  112. CLRSCR
  113. IF '$7' = '' go_back
  114. COLOR 3
  115. WAITFOR ',X>?'
  116. SEND 'd^M'
  117. WAITFOR 'download?'
  118. next7:
  119. WHEN
  120. IF '$7' = '' go_back
  121. SEND '$7;$prtcol^M'
  122. WHEN 'quits)?' next8
  123. WAITFOR 'ready!'
  124. PAUSE 1500
  125. WINDOW 1 1 80 24
  126. ATWRITE 11 6 138 'File # 7 >'
  127. DOWNLD $prtcol $dirpath\$7
  128. ATWRITE 11 6 13 'File # 7 >'
  129. COLOR 12
  130. BOX 1,14,80,$last_row
  131. CLRSCR
  132. IF '$8' = '' go_back
  133. COLOR 3
  134. WAITFOR ',X>?'
  135. SEND 'd^M'
  136. WAITFOR 'download?'
  137. next8:
  138. WHEN
  139. IF '$8' = '' go_back
  140. SEND '$8;$prtcol^M'
  141. WHEN 'quits)?' next9
  142. WAITFOR 'ready!'
  143. PAUSE 1500
  144. WINDOW 1 1 80 24
  145. ATWRITE 45 6 138 'File # 8 >'
  146. DOWNLD $prtcol $dirpath\$8
  147. ATWRITE 45 6 13 'File # 8 >'
  148. COLOR 12
  149. BOX 1,14,80,$last_row
  150. CLRSCR
  151. IF '$9' = '' go_back
  152. COLOR 3
  153. WAITFOR ',X>?'
  154. SEND 'd^M'
  155. WAITFOR 'download?'
  156. next9:
  157. WHEN
  158. IF '$9' = '' go_back
  159. SEND '$9;$prtcol^M'
  160. WHEN 'quits)?' next10
  161. WAITFOR 'ready!'
  162. PAUSE 1500
  163. WINDOW 1 1 80 24
  164. ATWRITE 11 7 138 'File # 9 >'
  165. DOWNLD $prtcol $dirpath\$9
  166. ATWRITE 11 7 13 'File # 9 >'
  167. COLOR 12
  168. BOX 1,14,80,$last_row
  169. CLRSCR
  170. IF '$f10' = '' go_back
  171. COLOR 3
  172. WAITFOR ',X>?'
  173. SEND 'd^M'
  174. WAITFOR 'download?'
  175. next10:
  176. WHEN
  177. IF '$f10' = '' go_back
  178. SEND '$f10;$prtcol^M'
  179. WHEN 'quits)?' next11
  180. WAITFOR 'ready!'
  181. PAUSE 1500
  182. WINDOW 1 1 80 24
  183. ATWRITE 45 7 138 'File #10 >'
  184. DOWNLD $prtcol $dirpath\$f10
  185. ATWRITE 45 7 13 'File #10 >'
  186. COLOR 12
  187. BOX 1,14,80,$last_row
  188. CLRSCR
  189. IF '$f11' = '' go_back
  190. COLOR 3
  191. WAITFOR ',X>?'
  192. SEND 'd^M'
  193. WAITFOR 'download?'
  194. next11:
  195. WHEN
  196. IF '$f11' = '' go_back
  197. SEND '$f11;$prtcol^M'
  198. WHEN 'quits)?' next12
  199. WAITFOR 'ready!'
  200. PAUSE 1500
  201. WINDOW 1 1 80 24
  202. ATWRITE 11 8 138 'File #11 >'
  203. DOWNLD $prtcol $dirpath\$f11
  204. ATWRITE 11 8 13 'File #11 >'
  205. COLOR 12
  206. BOX 1,14,80,$last_row
  207. CLRSCR
  208. IF '$f12' = '' go_back
  209. COLOR 3
  210. WAITFOR ',X>?'
  211. SEND 'd^M'
  212. WAITFOR 'download?'
  213. next12:
  214. WHEN
  215. IF '$f12' = '' go_back
  216. SEND '$f12;$prtcol^M'
  217. WHEN 'quits)?' next13
  218. WAITFOR 'ready!'
  219. PAUSE 1500
  220. WINDOW 1 1 80 24
  221. ATWRITE 45 8 138 'File #12 >'
  222. DOWNLD $prtcol $dirpath\$f12
  223. ATWRITE 45 8 13 'File #12 >'
  224. COLOR 12
  225. BOX 1,14,80,$last_row
  226. CLRSCR
  227. IF '$f13' = '' go_back
  228. COLOR 3
  229. WAITFOR ',X>?'
  230. SEND 'd^M'
  231. WAITFOR 'download?'
  232. next13:
  233. WHEN
  234. IF '$f13' = '' go_back
  235. SEND '$f13;$prtcol^M'
  236. WHEN 'quits)?' next14
  237. WAITFOR 'ready!'
  238. PAUSE 1500
  239. WINDOW 1 1 80 24
  240. ATWRITE 11 9 138 'File #13 >'
  241. DOWNLD $prtcol $dirpath\$f13
  242. ATWRITE 11 9 13 'File #13 >'
  243. COLOR 12
  244. BOX 1,14,80,$last_row
  245. CLRSCR
  246. IF '$f14' = '' go_back
  247. COLOR 3
  248. WAITFOR ',X>?'
  249. SEND 'd^M'
  250. WAITFOR 'download?'
  251. next14:
  252. WHEN
  253. IF '$f14' = '' go_back
  254. SEND '$f14;$prtcol^M'
  255. WHEN 'quits)?' next15
  256. WAITFOR 'ready!'
  257. PAUSE 1500
  258. WINDOW 1 1 80 24
  259. ATWRITE 45 9 138 'File #14 >'
  260. DOWNLD $prtcol $dirpath\$f14
  261. ATWRITE 45 9 13 'File #14 >'
  262. COLOR 12
  263. BOX 1,14,80,$last_row
  264. CLRSCR
  265. IF '$f15' = '' go_back
  266. COLOR 3
  267. WAITFOR ',X>?'
  268. SEND 'd^M'
  269. WAITFOR 'download?'
  270. next15:
  271. WHEN
  272. IF '$f15' = '' go_back
  273. SEND '$f15;$prtcol^M'
  274. WHEN 'quits)?' next16
  275. WAITFOR 'ready!'
  276. PAUSE 1500
  277. WINDOW 1 1 80 24
  278. ATWRITE 11 10 138 'File #15 >'
  279. DOWNLD $prtcol $dirpath\$f15
  280. ATWRITE 11 10 13 'File #15 >'
  281. COLOR 12
  282. BOX 1,14,80,$last_row
  283. CLRSCR
  284. IF '$f16' = '' go_back
  285. COLOR 3
  286. WAITFOR ',X>?'
  287. SEND 'd^M'
  288. WAITFOR 'download?'
  289. next16:
  290. WHEN
  291. IF '$f16' = '' go_back
  292. SEND '$f16;$prtcol^M'
  293. WHEN 'quits)?' go_back
  294. WAITFOR 'ready!'
  295. PAUSE 1500
  296. WINDOW 1 1 80 24
  297. ATWRITE 45 10 138 'File #16 >'
  298. DOWNLD $prtcol $dirpath\$f16
  299. ATWRITE 45 10 13 'File #16 >'
  300. COLOR 12
  301. BOX 1,14,80,$last_row
  302. CLRSCR
  303. go_back:
  304. RETURN
  305. ;
  306.