home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / TBBS.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.5 KB  |  65 lines
  1. '       ┌───────────────────────────┐
  2. '       │ TBBS script for 1stReader │
  3. '       │ May 15th, 1993            │
  4. '       └───────────────────────────┘
  5. '
  6. ' Note: This script logs 1stReader into a generic TBBS system and
  7. '       takes you to the "Command" prompt where QSO is selected.
  8. '       Since TBBS is highly configurable by the sysop these prompts
  9. '       may not work correctly for a given TBBS system.  Most TBBS
  10. '       systems will require a customized script to handle the login
  11. '       process and then RUN "QSO.SCR" to actually handle the QSO
  12. '       message transfers.
  13.  
  14. TIMEOUT 30
  15.  
  16. IF SCR_CALL THEN GOTO SETUP
  17. CAPTURE ON
  18. KILL @API$(28)@API$(10).DL
  19.  
  20. :SETUP
  21. LOOKFOR "Esc" "X'1BX'1B"
  22. LOOKFOR "NO CARRIER" "(HANGUP)"
  23. LOOKFOR "-Press Any Key-" "^M"
  24. LOOKFOR "Read Now(Y/N)?" "N"
  25. LOOKFOR "correct?" "Y^M"
  26. LOOKFOR "(S=Stop)-" "S"
  27.  
  28. LOCKLINE 20 30
  29. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  30. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  31. COMMENT "@DATE@ @TIME@  Logging in to TBBS"
  32.  
  33. WAITFOR "FULL N|Name? " 50
  34. LOOKFOR "Esc" ""
  35. IF FOUND=0 THEN EXIT
  36. IF FOUND=2 THEN GOTO FIRSTLAST
  37. TRANSMIT; "@USER@^M"
  38. GOTO PASSWORD
  39.  
  40. :FIRSTLAST
  41. TRANSMIT "@FIRST@^M"
  42. WAITFOR "name? " 50
  43. TRANSMIT "@LAST@^M"
  44.  
  45. :PASSWORD
  46. WAITFOR "Password: " 30
  47. COMMENT "@DATE@ @TIME@  Transmitting password"
  48. TRANSMIT "@PASSWORD@^M"
  49.  
  50. IF NOT SCR_CALL THEN GOTO MAIL
  51. TERMINAL
  52. EXIT
  53.  
  54. :MAIL
  55. WAITFOR "Command: " 120
  56. IF FOUND=1 THEN RUN "QSO.SCR"
  57.  
  58. :EXIT
  59. PAUSE 5
  60. HANGUP
  61.  
  62. CAPTURE OFF
  63.  
  64.  
  65.