Category : Word Processors
Archive   : AMAC43B.ZIP
Filename : [email protected]

* [email protected]
* Macro To Load a File List of Files In Ring
* 5/18/92

* 
* -----------------------------------------------------------------------
* @(2) Load File List In Ring,
* Read First File In Filelist Macro If It Exists,
* User Selects File To Load From ListFiles Prompt
* ----------------------------------------------------------------------
* See QLSTnn.QM for this macro's description.


@2 macrobegin
setscreenoff * Turn off screen, less flicker *|
endfile markline begfile * Mark file list *|
* ---------------------- Copy File List To Nul ----------------------* *|b
editfile "Nul" return * Load Nul for faster loading *|
copyblock unmarkblock * Copy file list to Nul *|
endfile * Load last file first
* ---------------------- Load File List In Ring ----------------------*
LOAD:
setscreenon setscreenoff * Turn screen on/off to see loading |a
markline * Mark file name at cursor
copy * Copy file name to scrap
editfile currentfilename " " * Load current file plus
paste return * last marked on list into ring
cursorup * Move up to next file in list
jtrue LOAD * Continue loading until top of list
quit * Quit formatted Nul file list *|b
* ------------------- Load First File in Window 2 -------------------*
nextfile * Load first file in list
* -------------- Read Macros of First File If It Exists --------------*
macroread * Read first file's macros if exist
currentfilename * Insert currentfilename
backspace backspace * Remove 2 letter extension
"mac" return * Replace with "mac" extension
escape escape * Removes error prompt if first *|a
* file does not have a macro file *|a
setscreenon * Turn on to see ListFiles' prompt *|a
* ------------------- Select Another File To Load -------------------*
listfiles * Select file to load from list *|a
*
* 31 bytes Tue 07-31-1990 18:30:10
* 31 bytes Thu 05-09-1991 16:25:46
* 29 bytes Fri 11-22-1991 01:01:51 (TH @0, mod to KW @1, from QLST14.QM)
* 35 bytes Tue 05-05-1992 17:49:37 (TH @2, added v.2.15 and ListFiles *|a)
* 50 bytes Thu 05-07-1992 09:56:47 (TH @2, added Nul *|b)