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