home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / pcboard.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  58 lines
  1. '       ┌───────────────────────────────────┐
  2. '       │ PCBoard QWK script for 1stReader  │
  3. '       │ Written by Mark Herring           │
  4. '       │ July 20, 1995                     │
  5. '       └───────────────────────────────────┘
  6.  
  7. IF SCR_CALL THEN GOTO SETUP
  8. KILL @API$(28)@API$(10).DL
  9. NEWFILES ON
  10.  
  11. :SETUP
  12. CALL $$PCB.SCR
  13.  
  14. IF NOT SCR_CALL THEN GOTO REPLIES
  15. TERMINAL
  16. EXIT
  17.  
  18. :REPLIES
  19. IF NOT REPLIES THEN GOTO DOWNLOAD
  20. COMMENT "@DATE@ @TIME@  Uploading replies to PCBoard"
  21. TRANSMIT "QWK U Z^M"
  22. WAITFOR "(Ctrl-X) Aborts" 20
  23. IF FOUND=0 THEN GOTO DOWNLOAD
  24. UPLOAD @REPDIR@@BBSID@.REP
  25. WAITFOR "Message(s) success|Command?"
  26. IF FOUND=2 THEN GOTO DOWNLOAD
  27. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  28. KILL @REPDIR@@BBSID@.REP
  29. COUNT REP
  30. WAITFOR "Command?" 3
  31.  
  32. :DOWNLOAD
  33. IF SCR_REPLY THEN GOTO GOODBYE1
  34. COMMENT "@DATE@ @TIME@  Requesting QWK packet from PCBoard"
  35. TRANSMIT "QWK D Z^M"
  36. WAITFOR "Creating QWK|Nothing to download"
  37. IF FOUND=2 THEN GOTO GOODBYE
  38. WAITFOR "(Ctrl-X) Aborts"
  39. DOWNLOAD @FILEDIR@@BBSID@.QWK
  40. WAITFOR "Successful" 10
  41. IF FOUND=1 THEN COUNT QWK
  42.  
  43. :GOODBYE
  44. WAITFOR "Command?" 10
  45. :GOODBYE1
  46. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  47. TRANSMIT "G;Y^M"
  48.  
  49. :EXIT
  50. IF SCR_TELNET THEN GOTO DONE
  51. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  52. WAITFOR "NO CARRIER" 20
  53.  
  54. :DONE
  55. CAPTURE OFF
  56. EXIT
  57.  
  58.