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

 
Output of file : [email protected] contained in archive : RING11.ZIP

* 
* ----------------------------------------------------------------------
* @(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 )