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 / DOWNPCB1.SCR < prev    next >
Text File  |  1988-01-01  |  5KB  |  274 lines
  1.                                 ; JTL 9-17-87 23:55pm
  2. GetScr                          ; save current screen
  3. ClrScr                          ; clear it
  4. ColorFG 15                      ; set colors to white
  5. Box 6 1 75 16                   ; draw a box
  6. ColorFG 14                      ; set color to yellow
  7.  
  8. Note
  9. Display ' ****-'
  10. ColorFG 13
  11. ColorBG 1
  12. Display 'Multiple'
  13. ColorFG 14
  14. ColorBG 0
  15. Display '-File DnLoad/Logoff PCBoard V11/12.x  Qmodem 3.1-****'
  16. ColorFG 15
  17. Note
  18. Note Instructions:
  19. ColorFG 6
  20. Note     Enter a filename to be downloaded after each prompt.
  21. Note     Maximum of TWENTY (20) filenames can be entered.
  22. Note     A blank <CR> entry starts the transfers.
  23. ColorFG 7
  24. Note     An Incorrect Filename is Automatically bypassed.
  25. Note     Re-enter the correct Filename on the next File #.
  26. Note
  27. ColorFG 6
  28. String login transfer logend dirpath correct cnt file cownt count cwnt kount
  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          ; check answer
  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 Download Protocol [X,C,Y,B,I,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' =  'B'   selpath
  57. If  '$9' =  'G'   selpath
  58. If  '$9' =  'Z'   selpath
  59. If  '$9' =  'Q'   done
  60. Goto home
  61.  
  62. selpath:
  63. ColorFG 3
  64. Note     Enter Download Drive:\Path  DO NOT use a "\" to end the Path.
  65. ColorFG 6
  66. Display '    Drive:\Path > '
  67. ColorFG 15
  68. Get dirpath 45
  69. If '$dirpath' = '' selpath
  70. Chdir $dirpath\
  71. If $Success valid
  72. Chdir $dirpath
  73. If $Success valid
  74. ColorFG 12
  75. DisplayLN "    Path is Invalid, Re-enter."
  76. ColorFG 6
  77. Goto selpath
  78.  
  79. valid:
  80. ColorFG 2
  81. Display "    Path is Valid."
  82. ColorFG 6
  83. Display  ' Is Path Correct [Y]es or [N]o ? <CR>=Yes > '
  84. ColorFG 15
  85. Inkey correct
  86. Displayln '$correct'
  87. If '$correct' = 'Y' Getone
  88. If '$correct' = 'N' selpath
  89. If '$correct' <> '^M' selpath
  90.  
  91. Getone:
  92. ColorFG 2
  93. Assign cwnt  0   ;actual file counter
  94. Assign cnt   1   ;visual file counter
  95. Assign count 4   ;xy position counter
  96. Goto gfiles
  97.  
  98. column:
  99. Gotoxy 28 $count
  100. ColorFG 2
  101. Display '    File # $cnt > '
  102. Incr count
  103. Goto  files2
  104.  
  105. gfiles:
  106. ColorFG 2
  107. Display '    File # $cnt > '
  108. ColorFG 3
  109.  
  110. files2:
  111. ColorFG 3
  112. Get file 12
  113. If '$file' = '' go
  114. Push '$file'
  115. Incr cnt
  116. Incr cwnt
  117. If  '$cnt' = '11' column
  118. If  '$cnt' = '12' column
  119. If  '$cnt' = '13' column
  120. If  '$cnt' = '14' column
  121. If  '$cnt' = '15' column
  122. If  '$cnt' = '16' column
  123. If  '$cnt' = '17' column
  124. If  '$cnt' = '18' column
  125. If  '$cnt' = '19' column
  126. If  '$cnt' = '20' column
  127. If  '$cnt' = '21' go
  128. Goto gfiles
  129.  
  130. go:
  131. ColorFG 7
  132. Gotoxy 1 13
  133. Note
  134. Display '    Online with: '
  135. ColorBG 2
  136. ColorFG 15
  137. Display ' $board '
  138. ColorBG 0
  139. ColorFG 7
  140. Display ' '
  141. ColorBG 4
  142. ColorFG 15
  143. Display '[$9]'
  144. ColorBG 0
  145. ColorFG 7
  146. Displayln ' Protocol '
  147. ColorFG 10
  148. Display '    $cwnt'
  149. ColorFG 7
  150. If '$cwnt' = '1' one
  151. Display ' Files will be Downloaded in Reverse order from: '
  152. Goto skip
  153.  
  154. one:
  155. Display ' File will be Downloaded '
  156. Goto cont
  157.  
  158. skip:
  159. ColorBG 2
  160. ColorFG 15
  161. Display ' $cwnt to 1 '
  162. ColorBG 0
  163. ColorFG 7
  164.  
  165. cont:
  166. ColorBG 0
  167. Displayln ' '
  168. Display  ' '
  169. ColorFG 0
  170. ColorBG 6
  171. Display "===================[ Online Text Area Below ]====================="
  172. ColorBG 0
  173. ColorFG 12
  174. Box 1,17,80,$last_row
  175. ClrScr
  176. ColorFG 3
  177. Timeout 60 $logend
  178. Assign cownt $cnt
  179.  
  180. start:
  181. Send "{"  ;maybe two <CRs>
  182. ColorFG 3
  183. Waitfor "Command?"
  184. Send "d{"
  185. Waitfor "none?"
  186. Assign kount $cnt ;file counter in window
  187.  
  188. next:
  189. Decr kount
  190. When
  191. Pop file
  192. If '$file' = '' $logend
  193. Send "$file $9{"
  194. When "none?" next
  195. When "Aborts Transfer" load
  196. Waitfor "Abort"
  197.  
  198. load:
  199. Pause 1000
  200. Gotoxy 1 40
  201. Display '                                                                    '
  202. ColorBG 2
  203. ColorFG 15
  204. Display 'File # $kount'
  205. ColorBG 0
  206. ColorFG 3
  207. Downld $dirpath\$file $9
  208. Decr cownt
  209. If '$cownt' < "1"  $logend
  210. If '$9' = 'z' tones
  211. Goto start
  212.  
  213. tones:
  214. Beep 400
  215. Beep 600
  216. Beep 800
  217. Goto start
  218.  
  219. done:
  220. Send "{"
  221. ColorFG 10
  222. Putscr
  223. Exit
  224.  
  225. logoff:
  226. PutScr
  227. ClrScr
  228. When
  229. When "Command?" logout
  230. Send "{"
  231. Waitfor "Command?"
  232.  
  233. logout:
  234. Pause 4500
  235. ClrScr
  236. ColorFG 6
  237. Note
  238. Note            Auto Logoff was Previously Selected.
  239. ColorFG 15
  240. Note
  241. Note            PRESS [Esc] then [Y] to Abort the Logoff.
  242. ColorFG 10
  243. Assign 0 $wherex
  244. Assign 1 $wherey
  245. Assign cnt 9
  246.  
  247. tmout:
  248. Gotoxy $0 $1
  249. Display '           $cnt  Seconds to Auto Logoff.
  250. Pause 200
  251. If '$cnt' = '2' bye
  252. Decr cnt
  253. Goto tmout
  254.  
  255. bye:
  256. Gotoxy $0 $1
  257. Display '           1  Second  to Auto Logoff.
  258. Pause 200
  259. ColorFG 15
  260. Note            Auto-Logoff Completed.
  261. ColorFG 10
  262. Send "g{"
  263. Pause 5000
  264. Hangup
  265. Exit
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.