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