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