home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / UPLOAD.EPC < prev    next >
Text File  |  1989-04-01  |  4KB  |  188 lines
  1. ;LANS  10-18-88  07:04  UPLOAD.EPC
  2. ;
  3. SEND '^M'
  4. WHEN
  5. WHEN 'keep upload inside' '$YorN^M'
  6. WHEN 'over-write' 'N^M~^M'
  7. WHEN 'duplicate' file2
  8. COLOR 3
  9. IF '$1' =  '' go_back
  10. WAITFOR '?) -->'
  11. SEND 'u^M'
  12. WAITFOR '(ENTER to quit) -->'
  13. SEND '$1;$prtcol^M'
  14. WHEN 'RETURN for main menu.' file2
  15. WAITFOR '^^^^^^^^<'
  16. SEND '$desc1^M'
  17. WAITFOR 'FLAG>>'
  18. WINDOW 1 1 80 24
  19. ATWRITE 4 3 138 ' File 1 >'
  20. UPLD $prtcol $dirpath\$1
  21. ATWRITE 4 3 13 ' File 1 >'
  22. COLOR 12
  23. BOX 1,14,80,$last_row
  24. CLRSCR
  25. file2:
  26. SEND '^M'
  27. WHEN
  28. WHEN 'keep upload inside' '$YorN^M'
  29. WHEN 'over-write' 'N^M~^M'
  30. WHEN 'duplicate' file3
  31. COLOR 3
  32. IF '$2' =  '' go_back
  33. WAITFOR '?) -->'
  34. SEND 'u^M'
  35. WAITFOR '(ENTER to quit) -->'
  36. SEND '$2;$prtcol^M'
  37. WHEN 'RETURN for main menu.' file3
  38. WAITFOR '^^^^^^^^<'
  39. SEND '$desc2^M'
  40. WAITFOR 'FLAG>>'
  41. WINDOW 1 1 80 24
  42. ATWRITE 4 4 13 ' File 2 >'
  43. UPLD $prtcol $dirpath\$2
  44. ATWRITE 4 4 13 ' File 2 >'
  45. COLOR 12
  46. BOX 1,14,80,$last_row
  47. CLRSCR
  48. file3:
  49. SEND '^M'
  50. WHEN
  51. WHEN 'keep upload inside' '$YorN^M'
  52. WHEN 'over-write' 'N^M~^M'
  53. WHEN 'duplicate' file4
  54. COLOR 3
  55. IF '$3' =  '' go_back
  56. WAITFOR '?) -->'
  57. SEND 'u^M'
  58. WAITFOR '(ENTER to quit) -->'
  59. SEND '$3;$prtcol^M'
  60. WHEN 'RETURN for main menu.' file4
  61. WAITFOR '^^^^^^^^<'
  62. SEND '$desc3^M'
  63. WAITFOR 'FLAG>>'
  64. WINDOW 1 1 80 24
  65. ATWRITE 4 5 138 ' File 3 >'
  66. UPLD $prtcol $dirpath\$3
  67. ATWRITE 4 5 13 ' File 3 >'
  68. COLOR 12
  69. BOX 1,14,80,$last_row
  70. CLRSCR
  71. file4:
  72. SEND '^M'
  73. WHEN
  74. WHEN 'keep upload inside' '$YorN^M'
  75. WHEN 'over-write' 'N^M~^M'
  76. WHEN 'duplicate' file5
  77. COLOR 3
  78. IF '$4' =  '' go_back
  79. WAITFOR '?) -->'
  80. SEND 'u^M'
  81. WAITFOR '(ENTER to quit) -->'
  82. SEND '$4;$prtcol^M'
  83. WHEN 'RETURN for main menu.' file5
  84. WAITFOR '^^^^^^^^<'
  85. SEND '$desc4^M'
  86. WAITFOR 'FLAG>>'
  87. WINDOW 1 1 80 24
  88. ATWRITE 4 6 138 ' File 4 >'
  89. UPLD $prtcol $dirpath\$4
  90. ATWRITE 4 6 13 ' File 4 >'
  91. COLOR 12
  92. BOX 1,14,80,$last_row
  93. CLRSCR
  94. file5:
  95. SEND '^M'
  96. WHEN
  97. WHEN 'keep upload inside' '$YorN^M'
  98. WHEN 'over-write' 'N^M~^M'
  99. WHEN 'duplicate' file6
  100. COLOR 3
  101. IF '$5' =  '' go_back
  102. WAITFOR '?) -->'
  103. SEND 'u^M'
  104. WAITFOR '(ENTER to quit) -->'
  105. SEND '$5;$prtcol^M'
  106. WHEN 'RETURN for main menu.' file6
  107. WAITFOR '^^^^^^^^<'
  108. SEND '$desc5^M'
  109. WAITFOR 'FLAG>>'
  110. WINDOW 1 1 80 24
  111. ATWRITE 4 7 138 ' File 5 >'
  112. UPLD $prtcol $dirpath\$5
  113. ATWRITE 4 7 13 ' File 5 >'
  114. COLOR 12
  115. BOX 1,14,80,$last_row
  116. CLRSCR
  117. file6:
  118. SEND '^M'
  119. WHEN
  120. WHEN 'keep upload inside' '$YorN^M'
  121. WHEN 'over-write' 'N^M~^M'
  122. WHEN 'duplicate' file7
  123. COLOR 3
  124. IF '$6' =  '' go_back
  125. WAITFOR '?) -->'
  126. SEND 'u^M'
  127. WAITFOR '(ENTER to quit) -->'
  128. SEND '$6;$prtcol^M'
  129. WHEN 'RETURN for main menu.' file7
  130. WAITFOR '^^^^^^^^<'
  131. SEND '$desc6^M'
  132. WAITFOR 'FLAG>>'
  133. WINDOW 1 1 80 24
  134. ATWRITE 4 8 138 ' File 6 >'
  135. UPLD $prtcol $dirpath\$6
  136. ATWRITE 4 8 13 ' File 6 >'
  137. COLOR 12
  138. BOX 1,14,80,$last_row
  139. CLRSCR
  140. file7:
  141. SEND '^M'
  142. WHEN
  143. WHEN 'keep upload inside' '$YorN^M'
  144. WHEN 'over-write' 'N^M~^M'
  145. WHEN 'duplicate' file8
  146. COLOR 3
  147. IF '$7' =  '' go_back
  148. WAITFOR '?) -->'
  149. SEND 'u^M'
  150. WAITFOR '(ENTER to quit) -->'
  151. SEND '$7;$prtcol^M'
  152. WHEN 'RETURN for main menu.' file8
  153. WAITFOR '^^^^^^^^<'
  154. SEND '$desc7^M'
  155. WAITFOR 'FLAG>>'
  156. WINDOW 1 1 80 24
  157. ATWRITE 4 9 138 ' File 7 >'
  158. UPLD $prtcol $dirpath\$7
  159. ATWRITE 4 9 13 ' File 7 >'
  160. COLOR 12
  161. BOX 1,14,80,$last_row
  162. CLRSCR
  163. file8:
  164. SEND '^M'
  165. WHEN
  166. WHEN 'keep upload inside' '$YorN^M'
  167. WHEN 'over-write' 'N^M~^M'
  168. WHEN 'duplicate' go_back
  169. COLOR 3
  170. IF '$8' =  '' go_back
  171. WAITFOR '?) -->'
  172. SEND 'u^M'
  173. WAITFOR '(ENTER to quit) -->'
  174. SEND '$8;$prtcol^M'
  175. WHEN 'RETURN for main menu.' go_back
  176. WAITFOR '^^^^^^^^<'
  177. SEND '$desc8^M'
  178. WAITFOR 'FLAG>>'
  179. WINDOW 1 1 80 24
  180. ATWRITE 4 10 138 ' File 8 >'
  181. UPLD $prtcol $dirpath\$8
  182. ATWRITE 4 10 13 ' File 8 >'
  183. COLOR 12
  184. BOX 1,14,80,$last_row
  185. CLRSCR
  186. go_back:
  187. RETURN
  188.