*                              QLST14.QM, v1.4a                July 10, 1991
*                     Macro To Load Files From FileList
*                          Written by Tom Hogshead
*                   With Macro Contribution by Kyle Watkins
*
* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ (INDEX) ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
* ³
* ³  @(0) - Loads files from FileList, reads macfile of first file
* ³
* ³  @(1) - Loads files from FileList, does NOT read macfile,
* ³         (Kyle Watkins author)
* ³
* ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
*
* DESCRIPTION:
*
* QLST14.QM are macros that enables QEdit to load a list of files from
* a FileList file of unlimited length. These may be two of the broadly
* most useful macros so far.

* The @1 macro was written by Kyle Watkins of SemWare. @0 is a version
* slightly modified by me to read the macfile of the first files in the
* FileList.

* Following is the syntax:
*
*            Q.EXE [d:\][FileList].ql /E[d:\]QLST.mac
*
*
* For my setup and to load files pertaining to QLST.QM my command is:
*
*            Q  QLST.ql /Eg:\qe\QLST.mac
*
* I keep QLST.MAC in g:\qe.
*
* Any subsequent FileList I load can be loaded with the following command:
*
*            Q [d:][FileList].ql /Eg:\qe\QLST.mac
*
* Place the macro by Kyle Watkins, Alt_1, FIRST in this file if you do
* NOT wish to load the macro of the first files in the FileList or the
* first files in the FileList does not have a macro. Then convert this
* txtfile with QMAC. You will know this is necessary when you get a
* beep and the following error message when loading files:
*
*        "File Not Found. Press <Esc>"

* (Other) Macros available: See ALLMACRO.INF.

* These macros require "QEdit and QMAC v2.1, February, 1990" or later.
*
* To BEGIN, just type "START QLST" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and QLST14.MAC is read.
* Alternatively, type "START QLST 0" <Enter> and the disk copies of all
* files in the "Ring" will be loaded ready for editing, saving time.

* You will see the files being loaded and when the macro completes you
* should be editing this file. If you wish to load files from another
* file list while QLST.mac is loaded, just load that file list in
* another window and press Alt_0. Another option is to place this macro
* in QCONFIG.DAT on one line and it will be available to load other
* FileLists at all times while editing any file.

* You can also put the @z macro in FILExx.QM at the end of these macros
* to get the job of loading files with a FileList "completely" done,
* as shown at the end of the @0 macro, and also in QLST0.QM.

* See RINGxx.QM for other macros to load files from lists of files.

* 
* ----------------------------------------------------------------------
* @(0) Load Files From FileList, Read macfile of first file
* ----------------------------------------------------------------------

* Txtfile extensions must be only 2 letters. I use "QM". Add a
* "backspace" to last line of this macro if your txfile extensions
* have 3 letters.
*
@0 macrobegin
        endfile begline                 * Get to last file first
 REPEAT:                                *
        Unmarkblock Markline            * Mark it
        Copy                            * Copy file name to scrap
        Editfile Currentfilename " "    * Load current file plus
        Paste Return                    * last marked on list into ring
        Cursorup                        * If another file, move up
 JTrue REPEAT:                          * When no more files
        nextfile macroread              * read first file macro |
        currentfilename                 *                       |TH mod
        backspace backspace "mac" return*                       |
*
** Add lines below to load disk copy of all files in "Ring" from FileList
*               (see QLST0.QM for this revised macro)
*        Editfile 'NUL' Return    * Insert -or- GoTo NUL File
*        Begline Cursorright      * Put cursor in Col. 2 of NUL File
*        LOOP:                    * Main test loop
*            Nextfile             * Move to next file in Ring
*            Cursorleft           * Move cursor left (need for NUL test)
*            Jfalse LOOP:         * If couldn't move to left, it's not
*                                 * the NUL File AND cursor position
*                                 * has not changed -- LOOP again
*                                 *ELSE
*                                 * Check to see if in the NUL File
*            Cursorleft           * Move cursor left for NUL Test
*            Jfalse END:          * If couldn't move left -- We
*                                 * ARE in the NUL File and Need
*                                 * to END the Macro
*                                 *ELSE
*            Cursorright          * Move back to Col. 2 in NUL File
*        END:                     * Macro is DONE
*            Quit                 * Quit the NUL File
* *
*
* 31 bytes Tue  07-31-1990  18:30:10
* 31 bytes Thu  05-09-1991  16:25:46

* 
* ----------------------------------------------------------------------
* @(1) Load Files From FileList, Does NOT Read macfile of first file
* ----------------------------------------------------------------------
*
* Use this macro, Alt_1, if you do NOT want to load the macro of the
* first files in the FileList.
*
* In comparing this latest macro (as written by Kyle Watkins) to one
* Tim Farley wrote earlier, the following message was sent to me on the
* SemWare BBS by Tim, dated 7/31/90:
*
************************************************************************
* COMMENTS FROM TIM FARLEY - SemWare:
*
*
*         Here's Kyle's version (much improved over mine, I must admit) of the
*         file list loading macro.  Comments added by me.
*
* *
* * LOAD A LIST OF FILES
*
@1   MacroBegin
     EndFile BegLine              * start at last line
   REPEAT:
     UnmarkBlock MarkLine Copy    * grab this name
     EditFile                     * get ready to load
     CurrentFilename " "          * to force return *here*
     Paste Return                 * paste file name & do it!
     CursorUp                     * more lines above?
     JTrue REPEAT:                * if yes, repeat.
*
*
*        Not only is this macro far smaller than mine (by almost a factor of
*        2!), but it has the following advantages:
*
*             * faster!
*             * doesn't "change" the file list file
*             * still loads files in same order they are in the list
*             * returns to list file with no screen "flashing"
*             * takes advantage of QEdit's deferred loading of files
*
*        That last bit is the main advantage:  by specifying CurrentFilename
*        plus a space plus the desired file name on the EditFile prompt, we
*        load both the current file, plus the file we desire.  This takes
*        advantage of the fact that the EditFile, just like the QEdit command
*        line, can accept multiple file names together, separated by spaces.
*
*
*        But loading the current file just returns us to the buffer we are in
*        with no disk access.  So the end result is that the file from the
*        list is entered in QEdit's "ring" *without* actually loading it.  It
*        only loads when you try to Nextfiles into it, just as if you had
*        loaded the list via a wildcard.  Neat!
*
*        Kyle really came up with a far better solution here.
*
*        --Tim Farley
*
* ----------------------------------------------------------------------
*
* Version History:
*
*       1.0a - modified to include Alt_1, Changed documentation.
*            - added QLST.BAT for quick startup
*       1.0b - Changed name QLSTxx to QLSTxx
*            - Modified QLST.BAT
*       1.1  - QLST.QL was setup for my system. Correct version
*              requiring no changes is in v1.1.
*       1.2  - Modified documentation concerning error messages
*              when loading files.
*       1.2a - Modified documentation
*       1.3  - Modified documentation and added START.BAT.
*            - Changed QLIST file names to QLST.
*            - Added option to @0 to have all files loaded in ring.
*       1.4  - Changed file name ! to NUL in @0 in QLST0.QM.
*       1.4a - Minor documentation changes.
*
*
*