home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / qso.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  61 lines
  1. '       ┌──────────────────────────┐
  2. '       │ QSO script for 1stReader │
  3. '       │ July 20, 1995            │
  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. DOORNAME "Q"
  15. TRANSMIT "@QMAIL@"
  16.  
  17. :UPLD
  18. IF NOT REPLIES GOTO DOWNLOAD
  19. COMMENT "@DATE@ @TIME@  Uploading replies"
  20. WAITFOR "Command? "
  21. TRANSMIT "U"
  22. UPLOAD @REPDIR@@BBSID@.REP
  23. WAITFOR "file complete|uploaded archive"
  24. IF FOUND=1 THEN GOTO UPKILL
  25. IF FOUND=2 THEN GOTO UPERROR
  26. GOTO DOWNLOAD
  27.  
  28. :UPKILL
  29. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  30. KILL @REPDIR@@BBSID@.REP
  31. TRANSMIT "^M"
  32.  
  33. :UPERROR
  34. TRANSMIT "^M"
  35.  
  36. :DOWNLOAD
  37. WAITFOR "Command? "
  38. IF SCR_REPLY THEN GOTO GOODBYE
  39. TRANSMIT "D"
  40. WAITFOR "messages (Y/N)?|no new mes"
  41. IF FOUND=1 THEN GOTO DLCONT
  42. TRANSMIT "^M"
  43. GOTO GOODBYE
  44.  
  45. :DLCONT
  46. TRANSMIT "Y"
  47. COMMENT "@DATE@ @TIME@  Downloading messages"
  48. WAITFOR "@BBSID@.Q"
  49. DOWNLOAD @FILEDIR@@BBSID@.QWK
  50. WAITFOR "Command?" 20
  51.  
  52. :GOODBYE
  53. TRANSMIT "G"
  54.  
  55. :EXIT
  56. PAUSE 5
  57. HANGUP
  58.  
  59. CAPTURE OFF
  60.  
  61.