;
; Script for grabbing new messages from Paragon systems
; Must be executed from phonebook, or 'DIAL' command
; line must be inserted as well as password.
;
; Paragon message download utility must have been configured
; with Xmodem-1K protocol and ZOO archiving format.
; (perform one download / grab before using script)
;
        when "More? [Y/n/c] " send "N"
        when "No messages taken.  Aborting..." goto Scan
        when "[D]ownload  [Q]uit  [V]iew: " send "\n"
        when "waiting messages now?" send "N\w^C"
        when "Press return..." send "\n"
        when "bulletin number (Q to Quit): " send "Q\n"

	converse "to enter the BBS" "!^C\w^C"
        converse "if no account): " "Firstname Lastname\n"
	converse "Password: " "\p\n\w^C\w^C"

	;Get the messages...
	converse "(? for menu): " "M;D\n^C"
        converse "Reconfigue? [y/N] " "N"
        converse "counters? [Y/n] " "Y\w\w\w\w^C"
        converse "Base to grab messages from: " "A\n"
        converse "Grab more? [y/N] " "N"
        converse "[S]tart: " "S\n"
        download "ram:messages.zoo", Y

Scan:	;Scan for new files
        converse "" "^C"
        converse "New message area: " "Q\n^C"
        converse "(? for menu): " "F;N\n"
	capture  "ram:files" ;Save in file
        wait "File library: "
	capture off
        send "Q\n^C"

	;Log off!
	converse "(? for menu): " "G\n"
        converse "Logoff? [Y/n] " "Y"
        converse "Leave feedback? [y/N] " "N"
	wait "NO CARRIER"
        cd "ram:"
        cli "zoo -e ram:messages.zoo"
	message "\nEnd of script.\n"