home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / QSO.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  60 lines
  1. '       ┌──────────────────────────┐
  2. '       │ QSO script for 1stReader │
  3. '       │ May 15th, 1993           │
  4. '       └──────────────────────────┘
  5. '
  6. ' Note: This script is called by another script that first logs
  7. '       you into TBBS.  Since TBBS is highly configurable by the
  8. '       sysop, most TBBS systems will require a custom script to
  9. '       log you into the system and open the QSO mail system.
  10. '       Once QSO has been called this script will work for ALL
  11. '       QSO systems.
  12.  
  13. COMMENT "@DATE@ @TIME@  Opening QSO"
  14. TRANSMIT "@QMAIL@"
  15.  
  16. :UPLD
  17. IF NOT REPLIES GOTO DOWNLOAD
  18. COMMENT "@DATE@ @TIME@  Uploading replies"
  19. WAITFOR "Command? "
  20. TRANSMIT "U"
  21. UPLOAD @REPDIR@@BBSID@.REP
  22. WAITFOR "file complete|uploaded archive"
  23. IF FOUND=1 THEN GOTO UPKILL
  24. IF FOUND=2 THEN GOTO UPERROR
  25. GOTO DOWNLOAD
  26.  
  27. :UPKILL
  28. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  29. KILL @REPDIR@@BBSID@.REP
  30. TRANSMIT "^M"
  31.  
  32. :UPERROR
  33. TRANSMIT "^M"
  34.  
  35. :DOWNLOAD
  36. WAITFOR "Command? "
  37. IF SCR_REPLY THEN GOTO GOODBYE
  38. TRANSMIT "D"
  39. WAITFOR "messages (Y/N)?|no new mes"
  40. IF FOUND=1 THEN GOTO DLCONT
  41. TRANSMIT "^M"
  42. GOTO GOODBYE
  43.  
  44. :DLCONT
  45. TRANSMIT "Y"
  46. COMMENT "@DATE@ @TIME@  Downloading messages"
  47. WAITFOR "@BBSID@.Q"
  48. DOWNLOAD @FILEDIR@@BBSID@.QWK
  49. WAITFOR "Command?" 20
  50.  
  51. :GOODBYE
  52. TRANSMIT "G"
  53.  
  54. :EXIT
  55. PAUSE 5
  56. HANGUP
  57.  
  58. CAPTURE OFF
  59.  
  60.