home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / telecom / ncomm / paragon.script < prev    next >
Text File  |  1994-11-17  |  2KB  |  47 lines
  1. ;
  2. ; Script for grabbing new messages from Paragon systems
  3. ; Must be executed from phonebook, or 'DIAL' command
  4. ; line must be inserted as well as password.
  5. ;
  6. ; Paragon message download utility must have been configured
  7. ; with Xmodem-1K protocol and ZOO archiving format.
  8. ; (perform one download / grab before using script)
  9. ;
  10.         when "More? [Y/n/c] " send "N"
  11.         when "No messages taken.  Aborting..." goto Scan
  12.         when "[D]ownload  [Q]uit  [V]iew: " send "\n"
  13.         when "waiting messages now?" send "N\w^C"
  14.         when "Press return..." send "\n"
  15.         when "bulletin number (Q to Quit): " send "Q\n"
  16.  
  17.     converse "to enter the BBS" "!^C\w^C"
  18.         converse "if no account): " "Firstname Lastname\n"
  19.     converse "Password: " "\p\n\w^C\w^C"
  20.  
  21.     ;Get the messages...
  22.     converse "(? for menu): " "M;D\n^C"
  23.         converse "Reconfigue? [y/N] " "N"
  24.         converse "counters? [Y/n] " "Y\w\w\w\w^C"
  25.         converse "Base to grab messages from: " "A\n"
  26.         converse "Grab more? [y/N] " "N"
  27.         converse "[S]tart: " "S\n"
  28.         download "ram:messages.zoo", Y
  29.  
  30. Scan:    ;Scan for new files
  31.         converse "" "^C"
  32.         converse "New message area: " "Q\n^C"
  33.         converse "(? for menu): " "F;N\n"
  34.     capture  "ram:files" ;Save in file
  35.         wait "File library: "
  36.     capture off
  37.         send "Q\n^C"
  38.  
  39.     ;Log off!
  40.     converse "(? for menu): " "G\n"
  41.         converse "Logoff? [Y/n] " "Y"
  42.         converse "Leave feedback? [y/N] " "N"
  43.     wait "NO CARRIER"
  44.         cd "ram:"
  45.         cli "zoo -e ram:messages.zoo"
  46.     message "\nEnd of script.\n"
  47.