*                              QLST0.QM                     May 6, 1991
*
* Loads disk copy of all files in "Ring". See QLSTxx.QM for other
* information. Must be first macro in file.
*
@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*                       |
* Added lines below to load disk copy of all files in "Ring" from FileList
       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
*
* 48 bytes Wed  10-31-1990  15:13:21 load all files in Ring
* 52 bytes Mon  05-06-1991  20:43:41 chnanged file ! to NUL - faster

*.. Tom Hogshead