This is an ARexx script that I wrote to cut articles from my NewsAgent
batch file and save each article individually with different names so
I could read them later.

Requirements:
~~~~~~~~~~~~
 * Cygnus ED Pro 3.5
 * ARexx
 * NewsAgent batch file
 * Directory Opus 4.12 (optional)


Installation:
~~~~~~~~~~~~
1. Simply copy the script to your REXX: path (or anywhere else!)
2. Load your favourite text editor (CED!) and make a couple of changes:

   batchfile = 'AmiTCP:marksor/Spool/NABATCH'
    - Change this line to point to where your NABatch file is.

   namesize  = 18
    - This sets the maximum length of the filename to be saved as BEFORE
      the extension (the article number) is added.

   savepath  = 'Ram:T/'
    - Change this to point where you want the new articles saved. If you
      have heaps of ram, then save them here. If you change this to a
      directory on your hard drive, don't forget the : or / at the end.

   stripnews = 1
    - This should be either 1 or 0. This option will, if equal to 1, will
      cut the number of newsgroups listed in the Newsgroups: field to the
      first newsgroup shown. If equal to 0, then it will show ALL of the
      newsgroups this article was posted to.

These are the ONLY things you will need to change in the whole script.


Usage:
~~~~~
Simply open a shell and type:  RX REXX:NAbatch.ced

You don't need to include any options or filenames because it you should
have already configured the options (listed above) in the actual script.

I have created a button in Directory Opus 4.12 which runs the script
automatically once I've downloaded all my news articles.

Here's my setup:

  Button:  NABatch
  Type:    ARexx
  Command: REXX:NABatch.ced
  Flags:   Run Asynch.


History:
~~~~~~~
  V1.0  -  My first attempt at Arexx writing. No known bugs. :)


Credits:
~~~~~~~
 Stefan Winterstein - author of the Arexx script "formatnewsheader"


Author:
~~~~~~
 This is my first attempt at writing any sort or "Real" ARexx script
thats of any use. If you have any comments (constructive or otherwise)
or bug reports or improvements, then you can contact me at:

  Email:  marksor@netspace.net.au (Mark Sorensen)

  Snail Mail:  Mark Sorensen
               28 Juniper road
               Wantirna, Victoria
               Australia, 3152.

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                 1651    4369  37.8% -lh5- 590b Aug 13  1996 NABatch.ced
[generic]                 1234    2495  49.5% -lh5- 09fc Aug 13  1996 NABatch.readme
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total         2 files    2885    6864  42.0%            Aug 14  1996