home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / tbbs.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  64 lines
  1. '       ┌───────────────────────────┐
  2. '       │ TBBS script for 1stReader │
  3. '       │ July 20, 1995             │
  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. KILL @API$(28)@API$(10).DL
  18.  
  19. :SETUP
  20. LOOKFOR "Esc" "X'1BX'1B"
  21. LOOKFOR "NO CARRIER" "(HANGUP)"
  22. LOOKFOR "-Press Any Key-" "^M"
  23. LOOKFOR "Read Now(Y/N)?" "N"
  24. LOOKFOR "correct?" "Y^M"
  25. LOOKFOR "(S=Stop)-" "S"
  26.  
  27. LOCKLINE 20 30
  28. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  29. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  30. COMMENT "@DATE@ @TIME@  Logging in to TBBS"
  31.  
  32. WAITFOR "FULL N|Name? " 50
  33. LOOKFOR "Esc" ""
  34. IF FOUND=0 THEN EXIT
  35. IF FOUND=2 THEN GOTO FIRSTLAST
  36. TRANSMIT; "@USER@^M"
  37. GOTO PASSWORD
  38.  
  39. :FIRSTLAST
  40. TRANSMIT "@FIRST@^M"
  41. WAITFOR "name? " 50
  42. TRANSMIT "@LAST@^M"
  43.  
  44. :PASSWORD
  45. WAITFOR "Password: " 30
  46. COMMENT "@DATE@ @TIME@  Transmitting password"
  47. TRANSMIT "@PASSWORD@^M"
  48.  
  49. IF NOT SCR_CALL THEN GOTO MAIL
  50. TERMINAL
  51. EXIT
  52.  
  53. :MAIL
  54. WAITFOR "Command: " 120
  55. IF FOUND=1 THEN RUN "QSO.SCR"
  56.  
  57. :EXIT
  58. PAUSE 5
  59. HANGUP
  60.  
  61. CAPTURE OFF
  62.  
  63.  
  64.