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