home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / pcb-dl.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  55 lines
  1. '       ┌───────────────────────────────────────┐
  2. '       │ PCBoard download script for 1stReader │
  3. '       │ Written by Mark Herring               │
  4. '       │ July 20, 1995                         │
  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 "^M"
  25. WAITFOR "Command?" 10
  26. TRANSMIT "D @REQ_FILE@ Z^M"
  27. WAITFOR "aborts transfer|not found on disk|insufficient|download bytes left available" 30
  28. IF FOUND=0 GOTO UNKNOWN
  29. IF FOUND=2 GOTO NOTFOUND
  30. IF FOUND=3 GOTO DONE
  31. IF FOUND=4 GOTO DONE
  32. RESET
  33. LOOKFOR ") to continue?" ""
  34. DOWNLOAD @FILEDIR@@REQ_FILE@
  35. WAITFOR "Transfer Successful" 30
  36. LOOKFOR ") to continue?" "^M"
  37. IF FOUND=0 GOTO LOOP
  38. COMMENT "@DATE@ @TIME@  Transfer successful"
  39. REQ_SET
  40. GOTO LOOP
  41.  
  42. :UNKNOWN
  43. REQ_SET "Could not locate file"
  44. TRANSMIT "^M"
  45. GOTO LOOP
  46.  
  47. :NOTFOUND
  48. REQ_SET "File not found"
  49. TRANSMIT "^M"
  50. GOTO LOOP
  51.  
  52. :DONE
  53. EXIT
  54.  
  55.