home *** CD-ROM | disk | FTP | other *** search
/ Shareware Gold 1 / The_Golden_ROM_Series_-_Shareware_Gold_Volume_1_Number_11_-_SK_89-301_-_1989.iso / LIB022 / UPPCB1.SCR < prev    next >
Text File  |  1988-01-01  |  5KB  |  284 lines
  1.                                ; JTL     09-17-87 23:45
  2.                                ; Forbin  01-09-88 13:40
  3. GetScr
  4. ClrScr
  5. ColorFG 15
  6. Box 6 1 75 13
  7. ColorFG 14
  8. Note
  9. Display ' ****-'
  10. ColorFG 13
  11. ColorBG 1
  12. Display 'Multiple'
  13. ColorFG 14
  14. ColorBG 0
  15. Display '-File Upload/Logoff  PCBoard V11/12.x  Qmodem3.1-****'
  16. ColorFG 15
  17. Note
  18. Note Instructions:
  19. ColorFG 6
  20. Note     Enter a filename to be uploaded after each prompt.
  21. Note     Maximum of TEN (10) filenames can be entered.
  22. Note     A blank <CR> entry starts the transfers.
  23. ColorFG 7
  24. Note     Invalid or Existing Filenames will be Automatically bypassed.
  25. Note
  26. String login transfer logend dirpath correct cnt file cownt count cwnt kount
  27. String desc
  28.  
  29. getlog:
  30. ColorFG 6
  31. Display "    Select Auto-Logoff after File Transfers [Y]es or [N]o ? > "
  32. ColorFG 15
  33. Inkey login
  34. DisplayLN '$login'
  35. If '$login' =  'N'  nlog
  36. If '$login' =  'Y'  ylog
  37. Goto getlog
  38.  
  39. nlog:
  40. Assign logend "done"
  41. Goto home
  42.  
  43. ylog:
  44. Assign logend "logoff"
  45.  
  46. home:
  47. ColorFG 6
  48. Display '    Select Upload Protocol [X,C,I,Y,G,Z <Q>=Quit] > '
  49. ColorFG 15
  50. Inkey 9
  51. DisplayLN '$9'
  52. If '$9' =  'X'  selpath
  53. If '$9' =  'C'  selpath
  54. If '$9' =  'I'  selpath
  55. If '$9' =  'Y'  selpath
  56. If '$9' =  'G'  selpath
  57. If '$9' =  'Z'  selpath
  58. If '$9' =  'Q'  done
  59. Goto home
  60.  
  61. selpath:
  62. ColorFG 3
  63. Note     Enter Upload Drive:\Path   DO NOT use a "\" to end the Path.
  64. ColorFG 6
  65. Display '    Drive:\Path > '
  66. ColorFG 15
  67. Get dirpath 45
  68. If '$dirpath' = '' selpath
  69. Chdir $dirpath\
  70. If $SUCCESS valid
  71. Chdir $dirpath
  72. If $SUCCESS valid
  73. ColorFG 12
  74. DisplayLN "    Path is Invalid, Re-enter."
  75. ColorFG 6
  76. Goto selpath
  77.  
  78. valid:
  79. ColorFG 2
  80. Display "    Path is Valid."
  81. ColorFG 6
  82. Display ' Is Path Correct [Y]es or [N]o ? <CR>=Yes] > '
  83. ColorFG 15
  84. Inkey correct
  85. DisplayLN '$correct'
  86. If '$correct' = 'Y'  getone
  87. If '$correct' = 'N'  selpath
  88.  
  89. getone:
  90. ColorFG 2
  91. Assign cwnt 0  ;actual file counter
  92. Assign cnt 1   ;visual file counter
  93. ColorFG 2
  94. Display '          File # $cnt > '
  95. ColorFG 3
  96. Get file 12
  97. If  '$file' =  ''  $logend
  98. Goto okfile
  99.  
  100. nextone:
  101. ColorFG 2
  102. Display '          File # $cnt > '
  103. ColorFG 3
  104. Get file 12
  105.  
  106. okfile:
  107. Exist $dirpath\$file desc1
  108. ColorFG 4
  109. If '$file' = '' go
  110. Note           File Not Found, enter another name or <CR> to Abort.
  111. Goto nextone
  112.  
  113. desc1:
  114. ColorFG 4
  115. Display 'Desc. 45 Char Max. > '
  116. ColorFG 5
  117. Get desc 45
  118. If '$desc' =  '' desc1
  119. push '$file'
  120. push '$desc'
  121. Incr cnt
  122. Incr cwnt
  123. If '$cnt' = '11' go
  124. Goto nextone
  125.  
  126. go:
  127. ColorFG 7
  128. GotoXY 1 13
  129. Note
  130. Display '    Online with: '
  131. ColorBG 2
  132. ColorFG 15
  133. Display ' $board '
  134. ColorBG 0
  135. ColorFG 7
  136. Display ' '
  137. ColorBG 4
  138. ColorFG 15
  139. Display '[$9]'
  140. ColorBG 0
  141. ColorFG 7
  142. DisplayLN ' Protocol '
  143. ColorFG 10
  144. Display '    $cwnt'
  145. ColorFG 7
  146. If '$cwnt' = '0' alldone
  147. If '$cwnt' = '1' one
  148. Display ' Files will be Uploaded in Reverse order from: '
  149. Goto skip
  150.  
  151. one:
  152. Display ' File will be Uploaded '
  153. Goto cont
  154.  
  155. skip:
  156. ColorBG 2
  157. ColorFG 15
  158. Display ' $cwnt to 1 '
  159. ColorBG 0
  160. ColorFG 7
  161.  
  162. cont:
  163. ColorBG 0
  164. DisplayLN ' '
  165. Display ' '
  166. ColorFG 0
  167. ColorBG 6
  168. Display "====================[ Online Text Area Below ]===================="
  169. ColorBG 0
  170. ColorFG 12
  171. Box 1,14,80,$last_row   ;window can be used instead
  172. ClrScr
  173. ColorFG 3
  174. Timeout 60 $logend
  175. Assign cownt $cnt
  176.  
  177. start:
  178. Assign kount $cnt ;upload file counter in window
  179.  
  180. next:
  181. Send "{"
  182. ColorFG 3
  183. Waitfor "Command?"
  184.  
  185. next1:
  186. Pause 1000
  187. Decr kount
  188. When
  189. Pop desc
  190. Pop file
  191. If '$file' = '' $logend
  192. When "board file" next1
  193. When "Not Accepted" start
  194. Send  "u $file $9{"
  195. Waitfor  "description"
  196. Pause 1000
  197. Send  "$desc{"
  198. Pause 5500
  199. ColorFG 6
  200. Note     Wait Several Seconds for Upload to Begin
  201. ColorFG 3
  202. Pause 500
  203. GotoXY 1 40
  204. DisplayLN ' '
  205. Display '                                                                    '
  206. ColorBG 2
  207. ColorFG 15
  208. Display 'File # $kount'
  209. ColorBG 0
  210. ColorFG 3
  211. DisplayLN ' '
  212. If $offline discon   ;use semicolon in front for offline testing
  213. Upld $dirpath\$file $9
  214. If $offline discon   ;use semicolon in front for offline testing
  215. Pause 5000    ;for zmodem only so 00 is not accepted
  216. Decr cownt
  217. When
  218. If '$9' = 'z' tones
  219. Goto next
  220.  
  221. tones:
  222. Beep 800
  223. Beep 600
  224. Beep 400
  225. Goto next
  226.  
  227. discon:
  228. ColorFG 10
  229. PutScr
  230. GotoXY 25 12
  231. DisplayLN 'Line Disconnect has Occurred......'
  232. Exit
  233.  
  234. done:
  235. Send "{"
  236. ColorFG 10
  237. PutScr
  238. Exit
  239.  
  240. logoff:
  241. PutScr
  242. ClrScr
  243. When
  244. When "Command?" logout
  245. Send "{"
  246. Waitfor "Command?"
  247.  
  248. logout:
  249. Pause 4500
  250. ClrScr
  251. ColorFG 6
  252. Note
  253. Note            Auto Logoff was Previously Selected.
  254. ColorFG 15
  255. Note
  256. Note            PRESS [Esc] then [Y] to Abort the Logoff.
  257. ColorFG 10
  258. Assign 0 $wherex
  259. Assign 1 $wherey
  260. Assign cnt 9
  261.  
  262. tmout:
  263. GotoXY $0 $1
  264. Display '           $cnt  Seconds to Auto Logoff.
  265. Pause 200
  266. If '$cnt' = '2' bye
  267. Decr cnt
  268. Goto tmout
  269.  
  270. bye:
  271. Gotoxy $0 $1
  272. Display '           1  Second  to Auto Logoff.
  273. Pause 200
  274. ColorFG 15
  275. Note            Auto-Logoff Completed.
  276. ColorFG 10
  277. Send "g{"
  278. Pause 5000
  279. Hangup
  280. Exit
  281.  
  282. AllDone:
  283. Exit
  284.