home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
cammail.scr
< prev
next >
Wrap
Text File
|
1995-07-19
|
1KB
|
66 lines
' ┌────────────────────────────────────┐
' │ Cam-Mail mail script for 1stReader │
' │ July 20, 1995 │
' └────────────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
KILL @API$(28)@API$(10).DL
NEWFILES ON
:SETUP
CALL $$PCB.SCR
IF NOT SCR_CALL THEN GOTO JOINCONF
TERMINAL
EXIT
:JOINCONF
COMMENT "@DATE@ @TIME@ Joining conference #@CONFERENCE@"
TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
WAITFOR "=yes?" 3
IF FOUND=1 THEN TRANSMIT "N^M"
:DOOR
COMMENT "@DATE@ @TIME@ Opening Cam-Mail Door"
DOORNAME "MAIL"
TRANSMIT "@QMAIL@^M"
PAUSE 2
:REPLIES
IF NOT REPLIES THEN GOTO DOWNLOAD
WAITFOR "Command?" 20
TRANSMIT "U^M"
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "@API$(10).REP Using"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "Successful|Failed"
IF FOUND=2 THEN GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
WAITFOR "Command?" 20
IF SCR_REPLY THEN GOTO GOODBYE
TRANSMIT "D;Y;G^M"
COMMENT "@DATE@ @TIME@ Scanning for new messages"
WAITFOR "@API$(10).QWK|Command?"
IF FOUND=2 THEN GOTO GOODBYE
DOWNLOAD @PACKETDIR@@BBSID@.QWK
COUNT QWK
GOTO EXIT
:GOODBYE
COMMENT "@DATE@ @TIME@ Transmitting GOODBYE command"
TRANSMIT "G^M"
:EXIT
IF SCR_TELNET THEN GOTO DONE
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
PAUSE 2
:DONE
CAPTURE OFF
EXIT