ABKOUT function to wblock all blocks within a drawing

Intended to be used with RUN LISP to wblock all blocks
within multiple drawings AUTOMATICALLY (See RUNLISP.TXT)

You could use a script (yuck! is anyone still doing that?).
Save yourself alot of time and order RUN LISP today.

YOU must create a subdirectory off of the directory containing
the drawing named BLOCKS  The wblocks will be written to that
subdirectory

If the same block name is found in multiple drawings, only
the first will be wblocked.  Block names longer that eight
characters will be truncated.

Can be used with ASLDLIB.LSP and RUN LISP to automatically
create a slide of each drawing and build the slide list
file required as an argument by SLIDELIB.EXE to create
a slide library (see ASLDLIB.TXT).