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