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 >
Wrap
Text File
|
1995-07-19
|
2KB
|
64 lines
' ┌───────────────────────────┐
' │ TBBS script for 1stReader │
' │ July 20, 1995 │
' └───────────────────────────┘
'
' Note: This script logs 1stReader into a generic TBBS system and
' takes you to the "Command" prompt where QSO is selected.
' Since TBBS is highly configurable by the sysop these prompts
' may not work correctly for a given TBBS system. Most TBBS
' systems will require a customized script to handle the login
' process and then RUN "QSO.SCR" to actually handle the QSO
' message transfers.
TIMEOUT 30
IF SCR_CALL THEN GOTO SETUP
KILL @API$(28)@API$(10).DL
:SETUP
LOOKFOR "Esc" "X'1BX'1B"
LOOKFOR "NO CARRIER" "(HANGUP)"
LOOKFOR "-Press Any Key-" "^M"
LOOKFOR "Read Now(Y/N)?" "N"
LOOKFOR "correct?" "Y^M"
LOOKFOR "(S=Stop)-" "S"
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to TBBS"
WAITFOR "FULL N|Name? " 50
LOOKFOR "Esc" ""
IF FOUND=0 THEN EXIT
IF FOUND=2 THEN GOTO FIRSTLAST
TRANSMIT; "@USER@^M"
GOTO PASSWORD
:FIRSTLAST
TRANSMIT "@FIRST@^M"
WAITFOR "name? " 50
TRANSMIT "@LAST@^M"
:PASSWORD
WAITFOR "Password: " 30
COMMENT "@DATE@ @TIME@ Transmitting password"
TRANSMIT "@PASSWORD@^M"
IF NOT SCR_CALL THEN GOTO MAIL
TERMINAL
EXIT
:MAIL
WAITFOR "Command: " 120
IF FOUND=1 THEN RUN "QSO.SCR"
:EXIT
PAUSE 5
HANGUP
CAPTURE OFF