*                                 DSIZ.QM                   May 5, 1991
* ----------------------------------------------------------------------
* ^(F6_) Directory sizes sorted by size
* ----------------------------------------------------------------------

This macro must ONLY be run as autoexecute macro with dsiz.bat. See
dsiz.bat for other instructions. DX.EXE is required and can be found
in AMAC-PRG.ZIP. See AMAC-K.INF for more details.


*
* Here's the output of dsiz.bat on my E: drive . . .
*
* Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24;
*
* Directory of [e:\up\]                         1,443,775 bytes in 263 files
* Directory of [e:\com\]                          840,087 bytes in 111 files
* Directory of [e:\disk\]                         671,114 bytes in 9 files
*         .                                                  .
*         .                                                  .
*         .                                                  .
* Directory of [e:\new-ware\]                       1,562 bytes in 4 files
* Directory of [e:\bat\legal\]                        735 bytes in 1 file
*   5,891,643 bytes in 969 files.     7,157,760 bytes allocated (18% slack).
*
*
^F6 macrobegin
* ---------------------- erase all blanks lines ----------------------*
        begfile
 NOTBLANK:
        endpara
        cursordown
 jfalse DONE:
 BLANK:
        endline begline
 jtrue  NOTBLANK:
        delline
 jtrue BLANK:
 DONE:
        begfile
* --------------------------- join lines ----------------------------*
        Cursordown
 JOINLINE:
        UnmarkBlock
        CursorDown
        JFalse AT_EOF:
        markcolumn
        endline
        markcolumn
        cursorup
        gotocolumn "50" return
        moveblock
        endline
        delltword delltword delltword delltword
* ------------------- delete blank line after join -------------------*
        cursordown delline
 AT_EOF:
        begline                     * if we are at the last line of
                                    * file, test fails and begin sort
* ----------------- mark size block for reverse sort -----------------*
        Jtrue JOINLINE:
        begfile
        unmarkblock
        cursordown
        gotocolumn "51" return
        markcolumn
        endfile
        cursorup
        gotocolumn "70" return
        markcolumn
* ----------------------- reverse sort by size -----------------------*
*           ( this reverse sort was written by Tim Farley )
*
* NOTE:  Since this macro uses the Kill Buffer to reverse the
*        lines, it cannot sort more lines than will fit in your
*        Kill Buffer.  See (G)eneral options in the configuration
*        program for setting this value--it defaults to only 30
*        lines so BE CAREFUL! Set to the maximum number of
*        directories in volume. I use 100.
*
* Do NOTE the notation in the comment:  you are limited to the size
* of your Kill Buffer with this macro.
*
        GotoBlockBeg OneWindow
        Sort
        JFalse ENDSORT:
        GotoBlockEnd MarkLine
        EditFile "nul" Return
        MoveBlock
        DelLine
 DELALL:   DelLine
        JTrue DELALL:
        UnKill
 UNDELALL: CursorDown UnKill
        JTrue UNDELALL:
        DelLine CursorUp
        DelLine CursorUp
        MarkLine BegFile
        PrevFile
        CursorUp MoveBlock
        NextFile Quit
        GotoBlockBeg
        UnMarkBlock
 ENDSORT:
* --------------------- move volume name to top ---------------------*
        endfile cursorup
        markline markline
        begfile moveblock unmarkblock
        savefile
*
* 116 bytes Fri  04-05-1991  17:01:02

* Tom Hogshead