home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / comm / first110.zip / 1ST_110B.ZIP / SCRIPTS.ZIP / PCB-DL.SCR < prev    next >
Text File  |  1993-05-15  |  1KB  |  50 lines
  1. '       ┌───────────────────────────────────────┐
  2. '       │ PCBoard download script for 1stReader │
  3. '       │ Written by Mark Herring               │
  4. '       │ May 15th, 1993                        │
  5. '       └───────────────────────────────────────┘
  6.  
  7. REQ_SETFILE @API$(14)@API$(10).REQ
  8. IF NOT REQ_EXIST GOTO DONE
  9.  
  10. KILL @API$(28)@API$(10).DL
  11. COMMENT "@DATE@ @TIME@  Scanning for downloads from @API$(10).REQ"
  12.  
  13. :LOOP
  14. REQ_NEXT
  15. IF REQ_DONE GOTO DONE
  16. IF NOT REQ_CONF GOTO DOWNLOAD
  17. COMMENT "@DATE@ @TIME@  Joining conference @REQ_CONF@"
  18. TRANSMIT "J @REQ_CONF@ Q^M"
  19. WAITFOR "=yes?" 3
  20. IF FOUND=1 TRANSMIT "N^M"
  21.  
  22. :DOWNLOAD
  23. COMMENT "@DATE@ @TIME@  Requesting @REQ_FILE@"
  24. TRANSMIT "D @REQ_FILE@ Z^M"
  25. WAITFOR "aborts transfer|not found on disk|insufficient|download bytes left available" 30
  26. IF FOUND=0 GOTO UNKNOWN
  27. IF FOUND=2 GOTO NOTFOUND
  28. IF FOUND=3 GOTO DONE
  29. IF FOUND=4 GOTO DONE
  30. DOWNLOAD @FILEDIR@@REQ_FILE@
  31. WAITFOR "Transfer Successful" 30
  32. IF FOUND=0 GOTO NEXTFILE
  33. COMMENT "@DATE@ @TIME@  Transfer successful"
  34. REQ_SET
  35. GOTO LOOP
  36.  
  37. :UNKNOWN
  38. REQ_SET "Could not locate file"
  39. TRANSMIT "^M"
  40. GOTO LOOP
  41.  
  42. :NOTFOUND
  43. REQ_SET "File not found"
  44. TRANSMIT "^M"
  45. GOTO LOOP
  46.  
  47. :DONE
  48. EXIT
  49.  
  50.