home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
QLST0.QM
< prev
next >
Wrap
Text File
|
1991-05-06
|
2KB
|
42 lines
* 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