home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
RING@7.QM
< prev
next >
Wrap
Text File
|
1991-08-03
|
2KB
|
47 lines
* RING@7.QM
* [ See RINGxx.QM for discussion ]
* August 3, 1991
* ----------------------------------------------------------------------
* @(7)² Load At Command Line All Files From a Pre-Made List of Files,
* Modification of @1
* (Emulates PC Magazine's FILECTRL.COM After Loading)
* ----------------------------------------------------------------------
* > Must be first macro in file to autoexecute at start up <
@7 MacroBegin
changefilename "NUL" return * |
*-- This section written by Kyles Watkins of SemWare -----
EndFile BegLine * start at last line
REPEAT:
* UnmarkBlock * (line removed by TH, not needed) |
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.
*---------------------------------------------------------
* OneWindow * Close all windows (not necessary) |
HorizontalWindow * Open one window
EditFile Paste Return
PrevWindow * Window 1
SELECT: *
Pause * Pause to select file to edit
UnmarkBlock *
BegLine MarkLine *
Copy * Copy selected file name to scrap
NextWindow *
EditFile Paste Return * Edit selected file
ZoomWindow *
Pause *
EDIT: *
NextWindow * Return to PickList for another selection
MakeCtrofScreen *
jump SELECT: *
*
* 41 bytes Mon 06-24-1991 23:23:00 (TH @7)
* 47 bytes Wed 06-26-1991 10:12:41 (TH @7, added changefilename "NUL")
* ( removed unnecessary unmarkblock)
* ( removed unnecessary onewindow )