home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / TelcomTools / NT.SCR.NEW-FILES < prev    next >
Encoding:
Text File  |  2019-04-13  |  1.0 KB  |  36 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 "M625;3"            ; GOES TO ├OMMODORE ╥╘'S ╠IBRARY
  17. OUTPUT "^M"                ; MENU
  18. CHECK 4 "─IRECTORY OF ╬EW ╞ILES"
  19. WAIT
  20. PARAM "7E1"
  21. BUFFER OPEN "NEW FILES"
  22. OUTPUT "11"                   ; CAPTURE NEW LIST OF FILES
  23. OUTPUT "^M"                   ; BUFFER
  24. CHECK 5 "┼ND OF ─IRECTORY"
  25. WAIT
  26. PAUSE 1
  27. BUFFER CLOSE                 ; CLOSES BUFFER
  28. PAUSE 1
  29. OUTPUT "BYE"                 ; LOGS OF ╟┼NIE
  30. OUTPUT "^M"
  31. PAUSE 1
  32. CHECK 6 "╬╧ ├┴╥╥╔┼╥"
  33. WAIT
  34. BUFFER SAVE "NEW FILES"     ; SAVES BUFFER TO DISK WHEN GET
  35. END                         ; "NO CARRIER" MESSAGE
  36.