home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
TelcomTools
/
NT.SCP.GENIEMAIL-
< prev
next >
Wrap
Text File
|
2019-04-13
|
768b
|
30 lines
.OPT ANSI ; CALLING WITH ┴╬╙╔ MODE ON
PARAM "7E1"
CHECK 1 "├╧╬╬┼├╘" ; WAIT FOR THE "CONNECT" MESSAGE
WAIT
OUTPUT "╚╚╚" ; SEND IN THE "╚╚╚"
CHECK 2 "╒" ; AND WAIT FOR THE "╒#=" PROMPT
WAIT
OUTPUT "ABC12345,PASSWORD" ; SEND IN YOUR PASSWORD INFO.
OUTPUT "^M"
UNCHECK 1
UNCHECK 2
PAUSE 3
CHECK 3 "┼NTER "
WAIT
UNCHECK 3
OUTPUT "M200;2" ; READS NEW ╟┼NIE MAIL
OUTPUT "^M"
BUFFER OPEN "MAIL" ; OPEN BUFFER TO CAPTURE NEW MAIL
CHECK 4 "┼NTER "
WAIT
BUFFER CLOSE
PAUSE 1
OUTPUT "BYE"
OUTPUT "^M"
PAUSE 1
CHECK 6 "╘HANKS FOR"
WAIT
BUFFER SAVE "MAIL" ; SAVES BUFFER TO DISK
END