home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
FILE26.QM
< prev
next >
Wrap
Text File
|
1991-08-26
|
48KB
|
1,081 lines
* (FILE26).QM
* Written by Tom Hogshead
* With Macro Contributions By Richard Blackburn
* 8/25/91
* ^(w_) Scroll UP cursor bar stays fixed |chg
* ^(z_) Scroll DOWN cursor bar stays fixed |chg
*
* @(w) Scroll UP two windows in sync (by Richard Blackburn) |chg
* @(z) Scroll DOWN two windows in sync (by Richard Blackburn) |chg
*
* @(F9) Execute DOS command without full path name |chg
*
* @(1) LOAD file from sorted list
* @(4) LOAD file from "PickList", wild cards OK
* @(5) LOAD file whose name is at the cursor
*
* @(6) re-LOAD current file from disk copy
*
* @(3) DELETE file from sorted list
* @(2) READ macfile & LOAD it's txtfile from sorted list
* @(F7) READ macfile & LOAD it's txtfile from txtfile list
* @(F8) READ macfile from macfile list, txtfile is not loaded
* @(8) READ macfile of txtfile that is loaded
*
* @(F1) SAVE file with name "Mos_Day_Hour_Min.Ext"
* @(F2) SAVE file with name "CurrentFileName.Mos_Day"
* @(F3) SAVE Read-Only files
*
* @(F4) EXECUTE Dos command from List
* @(F5) EXECUTE Dos command from List/ with CurrentFileName
*
* @(F6) Makes a DIR list of filenames in conventional "8.3" format,
* NO SPACES, with date and time, like this:
* FILE25.QM 64795 6-23-91 4:12a
* (See RINGxx.QM for this macro)
*
* ^(F1__) Position cursor in column at top of paragraph (R. Blackburn)
* ^(F2__) Position cursor in column at top of paragraph
* ^(F3__) Position cursor in column at bottom of paragraph
*
* #(F3_) Spell Check WITH backup, qconfig.dat backups ON or OFF
* #(F4_) Spell Check WITHOUT backup, qconfig.dat backups ON or OFF
*
* #(F5_) SAVE file WITHOUT backup, qconfig.dat backups ON
* #(F6_) SAVE file WITHOUT backup, qconfig.dat backups ON or OFF
*
* #(F7_) DELETE CurrentFileName backup
* #(F8_) EDIT CurrentFileName backup
*
* @(PgUp) Page Up by paragraphs, modified "Page Up"
* @(PgDn) Page Down by paragraphs, modified "Page Dn"
*
* @(o) Alternate ChangeFileName, current name in prompt box for edit
* @(h) Select Index item with cursor line, then <enter>.
* @(q) QUIT all files in "Ring"
*
* (Index) How to locate macro or item below from Index using @h
* (Description)
* (Startup)
* (Macros)
* (Other) Macros
* (REQUIRED) PROGRAM FILES
* (Version) history
*
*--- eoi
* (Index) Use;
*
* To locate a macro or item in this file, press @h, place the cursor
* line on the desired item in the Index above, and press <enter>.
* See BOOKxx.QM for more details.
* (Description):
* (FILE26).QM QEdit macros allow the user to select files from a list
* to: either load a file, read a macfile, delete a file, read a macfile
* of loaded txtfile, save a read-only file, or save files with the name
* either 09141025.EXT or file NAME.914. File sorting is done using DX
* Directory Extender, not included with these files. Spell check macros
* with ShareSpell. Cursor position and scroll macros.
* File sorting is done using DX Directory Extender, v2.11. If the newer
* version 2.60 is used and it is NOT registered, the DX heading will
* show in the file selection window of @1 to @5 and the initial cursor
* line will not be positioned on the first files in the selection list.
* The file selection can be still be made by moving the cursor line to
* the desired file and pressing <enter>. Alternatively, you can either
* register DX or change the macros. I suggest registration. DX is the
* most powerful DOS file and directory manager available.
* For (other) macros, see ALLMACRO.INF
* These macros require "QEdit and QMAC v2.1, February, 1990" or later.
* (Startup): See also FILE.DOC for requirements.
*
* To BEGIN, just type "START FILE" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and FILE26.MAC is read.
* Alternatively, type "START FILE 0" <Enter> and the disk copies of all
* files in the "Ring" will be loaded ready for editing, saving time.
* (REQUIRED) PROGRAM FILES
*
* You──MUST──have the exectable program files in AMAC-PRG.ZIP to run
* some of these macros. AMAC-PRG.ZIP can be found on the following BBS's:
*
* SemWare
* Exec-PC
*
* It can not be found on CompuServe since many of the programs are
* Copyrighted. All program files are ShareWare, and inclusion in
* AMAC-PRG.ZIP is not prohibited in their documentation.
*
* I thank the authors for these excellent programs.
*------------------(Macros):-------------------
*
* In response to a request by Stephan Donelian, Richard Blackburn of
* SemWare wrote ^1, which prompted me to modify it slightly to ^2.
*
* ╒══>Quoting STEPHAN from Date: 03-19-91 (23:10)
* │
* │I would like to be able to go to the beginning line
* │of the paragraph and at the *same* column as the
* │current column. Any ideas?
* ╘══════════════════════════════════════════════════
*
* ------------------------------------------------------------------
* ^(F1__) Position cursor in column at top of paragraph (R. Blackburn)
* ------------------------------------------------------------------
*
^F1 macrobegin
MarkCharacter * save our place
PrevPara * goto start of paragraph
MarkCharacter * make it a block
GotoBlockEnd * go back to our place
MarkLine * and convert to line block
* this is because
GotoBlockBeg * block begin on a line block is
* just the top of the block
* at whatever block you are in
UnMarkBlock * un mark the block
*
* 11 bytes Thu 03-21-1991 19:23:29
* Here's an alternate version. I was not aware that the block begin on
* a line block is just the top of the block, but now knowing that
* Richard Blackburn's ^1 can be shortened one byte. Except for screen
* position, both do the same thing. Richard had the neat idea that got
* me thinking!
*
* ------------------------------------------------------------------
*^(F2__) Position cursor in column at top of paragraph
* ------------------------------------------------------------------
*
^F2 Macrobegin
MarkLine * save our place
PrevPara * goto start of paragraph
MarkLine * make it a block
PrevPosition * go back to where we started
GotoBlockBeg * block begin on a line block is
* just the top of the block
* at whatever block you are in
UnMarkBlock * un mark the block
*
* 10 bytes Thu 03-21-1991 19:23:40
*
* ------------------------------------------------------------------
*^(F3__) Position cursor in column at bottom of paragraph
* ------------------------------------------------------------------
*
^F3 Macrobegin
MarkLine * save our place
EndPara * goto end of paragraph
MarkLine * make it a block
PrevPosition * go back to where we started
GotoBlockEnd * block end on a line block is
* just the bottom of the block
* at whatever block you are in
UnMarkBlock * un mark the block
*
* 10 bytes Sun 03-24-1991 22:51:35
*
* ---------------------------------------------------------------------
* ^(F4__) Put colon in front of rem line for faster batch file operation
* ---------------------------------------------------------------------
*
* "Rem" lines in batch files make batch files run slower. Lines which
* are labels (colon as first character) do not. This macro simply puts
* a colon in column 1 for each line containing "rem ". Each rem line
* for my system takes about 0.2 seconds with disk cache, and 0.5 seconds
* per line with no disk cache. I found one batch file with 30 plus
* rem lines - 6 to 15 seconds less running time by labelling rem lines!
*
* NOTE: At least a space and one character of text must follow "rem"
* to be labelled, eg the following would not be labeled:
* rem
* echo remember
* The following would be labeled:
* rem this is a test
* echo harem holiday!
*
*
^F4 MacroBegin *
Begfile InsertLine * Insert blank line in case
* rem in col/line 1/1
Editfile "c:\!" Return * Load temp file
KillFile Quit * To kill/quit it
EditFile Return * Load empty temp file and
SaveFile * save it for append later
Quit * Quit it for now
START: *
Unmarkblock *
Find "rem " Return "I " Return * Find "rem "
Jfalse END: * No rem lines, end macro
BegLine *ELSE line has rem, go to bol
Dropanchor Wordright Dropanchor * Mark space up to "rem"
Shiftright * Shift line rt one space
Begline * Bak to bol
Find ":" Return "L" Return * See if line has colon at beg
Jtrue NEXT: *
Cursorright ":" *ELSE line has no colon, add it!
NEXT: *
Shiftleft * Shift line back lft one space
Markline *
WriteBlock Return "A" * Append line to c:\!
Endline Cursordown * Move off rem and chk for last
Jfalse END: * line
Cursorup *ELSE Line is not last, cur up
Jump START: * Loop again
END: *
Begfile * Begin of batch file
DelLine * Delete top blank line
Editfile Return * Load c:\!, look at rem lines
DelLine KillFile * with added colon, kill file
UnMarkBlock * Un mark batch file
*
* 82 bytes Mon 03-25-1991 16:49:26
*
* ----------------------------------------------------------------------
* ^(F6__) Directory sizes sorted by size
* ----------------------------------------------------------------------
*
* This macro must ONLY be run as autoexecute macro with dsiz.bat.
* See dsiz.qm for macro, and dsiz.bat for other instructions.
*
* Here's the output of dsiz.bat on my E: drive . . .
*
* Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24;
*
* Directory of [e:\up\] 1,443,775 bytes in 263 files
* Directory of [e:\com\] 840,087 bytes in 111 files
* Directory of [e:\disk\] 671,114 bytes in 9 files
* . .
* . .
* . .
* Directory of [e:\new-ware\] 1,562 bytes in 4 files
* Directory of [e:\bat\legal\] 735 bytes in 1 file
* 5,891,643 bytes in 969 files. 7,157,760 bytes allocated (18% slack).
*
*┌──────────────────────────────────────────────────────────────────┐
*│@(1) Selects file to LOAD from sorted list of files in directory │
*└──────────────────────────────────────────────────────────────────┘
*
@1 Macrobegin
altwordset * For all file names
EditFile "file.srt" return * Load sort list
pause * Select sort type
copy * Copy line to scrap
quit * Quit file.srt
DOS "file-DX " * Make/sort file list
paste return return *
EditFile "c:!" return * Load sorted file list
cursordown insertline *
cursordown * Get to first file name line
pause * Pause to select file
begline wordright * Put cursor on file name
markword copy * Mark/copy file name
killfile quit * Kill/quit c:!
EditFile paste return * Load file
defaultwordset * Reset default
*
* 68 bytes Sun 09-09-1990 14:38:25
*
*┌─────────────────────────────────────────────────────────────────────┐
*│@(2) LOAD txtfile/READ macfile from sorted list of files in directory│
*└─────────────────────────────────────────────────────────────────────┘
*
@2 Macrobegin
altwordset * For all file names
DOS "file-DX mac d-" * Sort macfiles by date
return return *
EditFile "c:!" return * Load sorted file list
cursordown insertline *
cursordown * Get to first file name line
pause * Pause to select
begline * Re-position cursor if moved
find "." return return * Select it and get to dot
CursorRight delrtword CursorLeft* Delete extension
markword copy * Mark/copy file name - no ext
killfile quit * Kill/quit c:!
EditFile paste "qm" return * Load txtfile
defaultwordset * Reset default
macroread paste "mac" return * Read macfile
*
* 78 bytes Sun 09-09-1990 14:38:29
*
*┌──────────────────────────────────────────────────────────────────┐
*│@(3) Selects file to DELETE from sorted list of files in directory│
*└──────────────────────────────────────────────────────────────────┘
*
* Be careful to select ONLY the file you want deleted.
*
@3 Macrobegin
altwordset * For all file names
EditFile "file.srt" return * Load sort list
pause * Pause to select sort
markline copy paste * Paste selected line
begline markword * Mark file ext
quit * Quit file.srt
DOS "file-DX " * Make/sort file list
paste return return *
EditFile "c:!" return * Load sorted file list
cursordown insertline *
cursordown * Get to first file name line
pause * Pause to select file
begline wordright * Put cursor on file name
markword copy * Select it
insertline * Insert line in c:!
paste * Paste file name
copy * Copy file name to scrap
DOS "del " paste return return * Delete select file
killfile quit * Kill/quit c:!
defaultwordset * Reset default
*
* 84 bytes Sun 09-09-1990 14:38:34
*
*┌─────────────────────────────┐
*│@(4) Load Files From PickList│
*└─────────────────────────────┘
*
* To run, just press Alt and 4 at the same time. At the prompt "File=",
* enter a [file name(s)] and [file sort option] to make a PickList
* using the following syntax:
*
* [file name(s)] [file sort option] <enter>
*
* where [file sort option] is either "esda".
*
* For example, when entering:
*
* c*.* s- (space must be included between name/sort option!)
*
* a file to load can be selected from a PickList of all files in
* the current directory beginning with the letter "c" sorted by size,
* largest first. Entering file name(s) WITHOUT a sort option, makes
* a PickList sorted by name an then extension.
*
* This macro can sort files in any order. The following information is
* from the file DX.DOC for Directory Extender. Please read this
* document for more information on using the excellent program DX.
*
* Sorting is by name by default. The /SOrt switch without a value sorts
* by name and then extension in ascending order. The sorting
* criteria consists of: "N" for name, "E" for extension, "S" for size,
* "D" for date/time, "A" for attribute. Specifying a letter by itself
* or with a '+' suffix indicates ascending order; specifying a '-'
* suffix indicates descending order.
*
* Examples of the sort options are:
*
* [filename(s)] ne => sort by name and extension
*
* [filename(s)] e-n- => sort files descending by
* extension first and then by
* descending name
*
* [filename(s)] snd- => sort files by ascending size,
* ascending name, and then
* descending date
*
@4 Macrobegin
unmarkblock altwordset * For all file names
begline insertline * Insert temp line
"File=" *
endline markcolumn * Start mark
pause * File name?, wild cards OK
markcolumn copy * Mark/copy file name to scrap
delline * Delete temp line
DOS "PICK " paste * Make PickList
return return *
EditFile "c:!" return * Load list
cursordown insertline *
cursordown * Get to first file name line
pause * Pause to select file
begline wordright * Put cursor on file name
markword copy * Mark/copy selection to scrap
killfile quit * Kill/quit c:!
EditFile paste return * Load file selected
defaultwordset * Reset default
*
* 60 bytes Sun 09-09-1990 14:38:38
*
* ┌──────────────────────────────────────────────┐
* │@(5) LOADS a file whose name is at the cursor│
* └──────────────────────────────────────────────┘
* This picks up a file name that is sitting at the cursor position in the
* editor, and loads it into another buffer (From SemWare BBS).
*
@5 Macrobegin *
altwordset * For all file names
markword * Mark file name
copy * Copy to scrap
EditFile * Load it
paste return *
defaultwordset *
*
* 11 bytes Sun 09-09-1990 14:38:43
*
* ┌───────────────────────────────────────┐
* │@(6) Reloads current file from disk │
* └───────────────────────────────────────┘
*
@6 Macrobegin
SplitLine EditFile CurrentFileName Return NewFile "N" Return
*
* 12 bytes Fri 08-10-1990 15:24:13
*
*┌─────────────────────────────────────────────┐
*│@(8) Reads macfile of txtfile that is loaded │
*└─────────────────────────────────────────────┘
*
* From MACRxx.QM
*
@8 Macrobegin
macroread CurrentFileName backspace backspace "mac" return
*
* 15 bytes Sun 09-09-1990 14:38:55
*
* ┌─────────────────────────────────────────────────┐
* │@(F1) Saves file with name "Mos_Day_Hour_Min.Ext"│
* └─────────────────────────────────────────────────┘
*
* This macro saves the current file with the name as
* "Mos_Day_Hour_Min.Ext". For example, @F1 saves this file as
* 08191025.QM when date and time are Sun 08-19-1990 10:25:00.
*
* Insert must be ON.
*
* Thanks to Jim Wright for the neat idea how to condense date and time
* with his macro in QE-MEM.ZIP. Like many other macro ideas from
* others, they often seem so simple once we see and understand them
* that we say "why didn't I think of that" - but I didn't !
@F1 Macrobegin
*************************************** TOGGLE INSERT ON*************
insertline * Insert test line
"a" CursorLeft "a" * Insert "aa"
endline * If not at endline-insert is on
Jtrue FIN: * If at endline -insert is off
toggleinsert * Toggle ON if off
FIN: *
delline * Delete test line
*************************************** CONDENSE DATE & TIME *******
unmarkblock * Begin no marked block
insertline begline * Insert line
insertdate inserttime * Get date & time to condense
markline
delltword delltword * Delete seconds
backspace * Delete :
CursorLeft CursorLeft * Keep minutes
backspace * Delete :
CursorLeft CursorLeft * Keep hour
delltword delltword * Delete spaces and year
backspace * Delete -
CursorLeft CursorLeft * Keep day
backspace * Delete -
CursorLeft CursorLeft * Keep month
delltword delltword * Delete spaces & day name
endline * Go to end of condensed number
CurrentFileName * Get CurrentFileName
find "." return "LB" return * Move to begin of extension
jtrue HASEXT: * If dot found, file has extn.
* and go to HASEXT
*ELSE
Endline "." CursorLeft * Add ".", file has NO extn.
HASEXT: *
unmarkblock * unmark line
CursorLeft markcolumn * Move off dot and mark it
find ":" return "b" return * Move to :
CursorLeft deleteblock * Del all but .ext of file name
cut * Get number.ext to scrap
writeblock paste return * Save number.ext
*
* 74 bytes Wed 02-13-1991 23:16:45
*
* ┌────────────────────────────────────────────────────────┐
* │@(F2) Saves file with name "CurrentFileName.Mos_Day" │
* └────────────────────────────────────────────────────────┘
*
* Macro saves the current file with name "CurrentFileName.Mos_Day".
* For example, @F2 saves it as FILE26.214 when date and time are
* Thu 02-14-1991 10:25:00. Use this macro Jan-Sept.
*
@F2 Macrobegin
unmarkblock * Begin no marked block
insertline begline * Insert line
insertdate * Get date & time to condense
delltword delltword * Delete spaces and year
backspace * Delete -
CursorLeft CursorLeft * Keep day
backspace * Delete -
CursorLeft * Keep last digit of month,
backspace * Delete first digit of month
backspace * Delete -
delltword delltword * Delete spaces & day name
begline *
CurrentFileName * Get CurrentFileName
delltword * Delete extension
cut * Get file name.num to scrap
writeblock paste return * Save file name.num
*
* 26 bytes Wed 10-03-1990 19:24:02
* * Macro saves the current file with name "CurrentFileName.Mos_Day".
* * For example, @F2 saves it as FILE26.119 when date and time are
* * Sun 10-19-1990 10:25:00. Use this macro Oct-Dec.
* *
* @F2 Macrobegin
* unmarkblock * Begin no marked block
* insertline begline * Insert line
* insertdate * Get date & time to condense
* delltword delltword * Delete spaces and year
* backspace * Delete -
* CursorLeft CursorLeft * Keep day
* backspace * Delete -
* backspace * Delete last digit of month
* CursorLeft * Keep first digit of month,
* delltword delltword * Delete spaces & day name
* begline *
* CurrentFileName * Get CurrentFileName
* delltword * Delete extension
* cut * Get file name.num to scrap
* writeblock paste return * Save file name.num
* *
* * 25 bytes Fri 10-19-1990 12:53:19
*
* ┌──────────────────────────────────────────────┐
* │@(F3) Saves Read-Only files │
* └──────────────────────────────────────────────┘
*
* This macro will save the currently loaded file if the file attribute
* on the disk copy is set to Read-Only. QEdit currently will not save
* files loaded as Read-Only.
*
* This macro is written to use either Dos ATTRIB, Gavin's ALTER, or
* Norton's FA. To change from using Dos ATTRIB change the respective
* lines in the macro and reconvert with QMAC.
*
* One word of caution: any file on the disk in the current directory
* with same prefix as the loaded file will have it's read attribute
* reset to read OFF regardless of the extension. Gavin's ALTER is the
* fastest way to reset attributes but it also resets ALL the attributes,
* including the archive bit, of ALL files in the directory with the same
* prefix.
*
* To save a file loaded as Read-Only just press @F3:
@F3 Macrobegin
unmarkblock * Unmark blocks
insertline * Insert blank line on top
markcolumn *
CurrentFileName markcolumn * Get CurrentFileName on line
storescrbuff "1" return * Store currentfilname to buf/1
find "." return "LB" return * Find dot back in block
jtrue IFEXT: * If dot found go to IFEXT:
endline ".*" * Add ".*" if name has NO ext
jump FULLEXT: * Go to FULLEXT
IFEXT: * If name has extension then..
CursorRight DelToEol "*" * Add "*" after dot
FULLEXT: *
copy * Copy "prefix.*" to scrap
delline * Delline
changefilename "$" return * Change CurrentFileName to $
dos "ATTRIB -R " * Clear Read Only attribute...
paste return return * w/ Dos ATTRIB
* dos "ALTER " *
* paste "/RE" return return * w/ Gavin ALTER (Fastest)
* dos "FA " *
* paste "/R-" return return * w/ Norton FA
insertline * Insert blank line in $
unmarkblock * Unmark all blocks
getscrbuff "1" return * Get origfilename on line
copy * Copy to scrap
delline * Delline
changefilename paste return * Change $ to origfilename
return * Gives OK to overlay origfile
savefile * Save origfile
*
* 80 bytes Wed 02-13-1991 16:14:00
*
*┌──────────────────────────────────────┐
*│ @(F4) Execute Dos Commands From List │
*└──────────────────────────────────────┘
* To run, just press @F4 and move cursor line to the desired command
* to execute. Then press <enter> to execute command and return to file
* you editing. Modify DOS.LIST as you need.
*
* Run Syntax: [command] <enter>
@F4 Macrobegin
unmarkblock *
EditFile "DOS.LST" return * Load command list
pause * Select command
copy * Get command to scrap
quit * Quit command list
DOS paste return * Execute Dos command
*
* 27 bytes Mon 02-11-1991 11:11:56
*
*┌──────────────────────────────────────────────────────────┐
*│ @(F5) Execute Dos Commands From List With CurrentFileName│
*└──────────────────────────────────────────────────────────┘
*
* To run, just press @F5 and move cursor line to the desired command
* to execute. Then press <enter> to execute command. Press <enter> again
* to return to file you were editing. Dos executes the command as if it
* were run at the command line followed by the CurrentFileName, then
* <enter>. Modify the DOS.LIST as you need.
* I recall getting this macro from the SemWare BBS but do not recall
* the author. If anyone knows, please let me know so I can give proper
* credit. It's quite a useful and simple macro.
*
* Run Syntax: [command] CurrentFileName <enter>
*
@F5 Macrobegin
unmarkblock *
EditFile "DOS.LST" return * Load command list
pause * Select command
copy * Get command to scrap
quit * Quit command list
DOS paste " " CurrentFileName * Execute command w/
* CurrentFileName
return *
*
* 30 bytes Sat 09-15-1990 09:24:37
*
* ----------------------------------------------------------------------
* @(F6) Makes a DIR List of Filenames in Conventional "8.3" Format,
* NO SPACES, with Date and Time, like this:
* FILE25.QM 64795 6-23-91 4:12a
* ----------------------------------------------------------------------
* See RINGxx.QM for this macro.
*
* ┌─────────────────────────────────────────────────────────┐
* │@(F7) READ macfile & LOAD it's txtfile from txtfile list │
* └─────────────────────────────────────────────────────────┘
*
* @F7 enables a file to be selected for editing and it's macfile read
* from a prepared list of txtfiles. The list of txtfiles (-qm.lst)
* included with FILE26 is a list of the latest macros in this series,
* but it can be altered to meet your needs by adding [drive:]\[path\]
* both in front of each file in the list and also in the second line of
* the macro, and adding or deleting any files you choose to/from this
* list. The modified macro can be put in your QCONFIG.DAT file and
* macros can be loaded and read while in any directory. To run, press
* @F7, cursor down to the desired file, and press <enter>. Remember,
* txtfiles must have the extension "QM" and the macfiles must have the
* extension "MAC".
*
@F7 Macrobegin
EditFile "-qm.lst" return * Edit txtfile list
pause * Pause to select macro to read
endline * Go to end of file name
backspace backspace * and remove it's extension
copy quit * Copy file name to scrap
EditFile paste "qm" return * Load selected macro txtfile
macroread paste "mac" return * and read it's macfile
*
* 42 bytes Thu 10-18-1990 12:23:41
*
*┌───────────────────────────────────────────────────────────┐
*│ @(F8) READ macfile from macfile list, txtfile not loaded │
*└───────────────────────────────────────────────────────────┘
*
* @F8 enables a macfile to be selected and read from a prepared list
* of macfiles. The list of macfiles (-mac.lst) included with FILE26 is
* a list of the latest macros in this series, but it can be altered to
* meet your needs by adding [drive:]\[path\] in front of each file in
* the list and also in the second line of the macro, and adding or
* deleting any files you choose to/from this list. The modified macro
* can be put in your QCONFIG.DAT file and macros can be read while in
* any directory. To run, press @F8, cursor down to the desired file,
* and press <enter>. Remember, macfiles must have the extension "MAC".
*
@F8 Macrobegin
EditFile "-mac.lst" return * Edit macfile list
pause * Pause to select macro to read
endline * Go to end of macfile name
backspace backspace backspace * and remove it's extension
copy quit * Copy macro name to scrap
macroread paste "mac" return * Read it's macfile only
*
* 38 bytes Thu 10-18-1990 12:23:50
*
*------------------------------------------------------------
* #(F3_) Spell check current file WITH backup with ShareSpell,
* QCONFIG.DAT backups ON or OFF, SS makes a backup file.
*------------------------------------------------------------
*
#F3 Macrobegin *
SaveFile * Save file
Dos "SS " CurrentFileName Return Return * Spell Check
EditFile CurrentFileName Return * Set EditFile prompt
NewFile Return * Load Spell checked file
*
* 20 bytes Wed 02-13-1991 12:32:29
*
*-----------------------------------------------------------------
* #(F4_) Spell check WITHOUT backup, QCONFIG.DAT backups ON or OFF
*-----------------------------------------------------------------
* This macro does not save a backup file no matter how QCONFIG.DAT is
* configured for backups. If a beep is heard, the file being spell
* checked does not have an extension (no dot was found).
*
#F4 Macrobegin
Unmarkblock Insertline Begline * Insert temp line with
Dropanchor CurrentFileName * CurrentFileName marked
Find "." Return "LB" Return * Find dot backwards in name
DelToEol ".bak" * Add .bak
Cut Savefile * Cut name.bak to scrap/save it
DOS "SS " CurrentFileName Return Return * ShareSpell spell check
DOS "DEL " Paste Return Return * Delete name.bak
EditFile CurrentFileName Return * Set EditFile prompt
NewFile Return * Load spell checked file
*
* 56 bytes Sun 02-17-1991 14:02:28
*
*---------------------------------------------------------
* #(F5_) Saves file WITHOUT backup, QCONFIG.DAT backups ON
*---------------------------------------------------------
* Saves files without making a backup file if QCONFIG.DAT
* is configured "Yes" to "Do you want backups saved?".
*
#F5 Macrobegin Togglebakups SaveFile Togglebakups
*
* 7 bytes Tue 02-12-1991 03:39:44
*
*----------------------------------------------------------------
* #(F6_) Saves file WITHOUT backup, QCONFIG.DAT backups ON or OFF
*----------------------------------------------------------------
* This is an alternate version of #F5 which does not save a backup
* file no matter how QCONFIG.DAT is configured for backups. If a
* beep is heard, the file being saved does not have an extension
* (no dot was found).
*
#F6 Macrobegin
Unmarkblock Insertline Begline * Insert temp line with
Dropanchor CurrentFileName * CurrentFileName marked
Find "." Return "LB" Return * Find dot backwards
DelToEol ".bak" * Add .bak
Cut Savefile * Cut name.bak to scrap/save file
DOS "del " Paste Return Return * Delete name.bak
*
* 41 bytes Sun 02-17-1991 14:30:32
* Here's an alternate version of #F6 that saves a file without a
* backup no matter how QCONFFIG.DAT is configured. Be careful that no
* line feed or carriage return characters are in the file or the saved
* file will be formatted with these characters removed.
*
* #F6 Macrobegin *
* unmarkblock killfile * Kill disk copy so writeblock
* * works without prompts
* writeblock currentfilename return * Save file as block
*
* 8 bytes Thu 02-14-1991 12:28:01
*
*--------------------------------------
* #(F7_) Deletes CurrentFileName Backup
*--------------------------------------
*
#F7 Macrobegin
Unmarkblock Insertline Begline * Insert temp line with
Dropanchor CurrentFileName * CurrentFileName marked
Find "." Return "LB" Return * Find dot backwards
DelToEol ".bak" * Add .bak
Cut * Cut name.bak to scrap
DOS "DEL " Paste Return Return * Delete name.bak
* DOS "DX " Paste "//DEL" * Alternate verify delete
* Return Return * with Directory Extender DX
*
* 40 bytes Sun 02-17-1991 14:10:19
*
*----------------------------------
* #(F8_) Edit CurrentFileName Backup
*----------------------------------
*
#F8 Macrobegin
Unmarkblock Insertline Begline * Insert temp line with
Dropanchor CurrentFileName * CurrentFileName marked
Find "." Return "LB" Return * Find dot backwards
DelToEol ".bak" * Add .bak
Cut * Cut name.bak to scrap
EditFile Paste Return * Load name.bak
*
* 31 bytes Sun 02-17-1991 14:10:06
*
*---------------------------------------------------
* @(PgUp), Page Up by paragraphs, modified "Page Up"
*---------------------------------------------------
*
* This macro does a modified page UP with the cursor at the top of the
* screen at the beginning of a paragraph, the first paragraph on the
* screen being the last parapgraph which might not have been fully
* visible on the top of previous screen. This is handy for getting to
* and from paragraphs during editing or viewing.
*
177 MacroBegin PageUp PrevPara BegLine Maketopofscreen
*
* 8 bytes Thu 02-21-1991 14:23:43
*-----------------------------------------------------
* @(PgDn), Page Down by paragraphs, modified "Page Dn"
*----------------------------------------------------
*
* This macro does a modified page DOWN with the cursor at the top of
* the screen on the end of the last paragraph which was not fully
* visible on the previous screen. This is handy for getting to and from
* paragraphs during editing or viewing.
*
176 MacroBegin PageDown EndPara BegLine Maketopofscreen
*
* 8 bytes Thu 02-21-1991 19:11:14
*
*┌───────────────────────────────────────────────────────────────────┐
*│@(h) Finds first word on cursor line marked in document below │
*└───────────────────────────────────────────────────────────────────┘
*
* @h macro has 2 steps:
*
* 1. Press @ and h at the same time. An ! shows at the
* end of the top line. Cursor down to desired line in Index.
*
* 2. Press Enter. The macro first erases the !, and
* then finds the first word on the cursor line in the document
* below marked with (...).
*
* See BOOKxx.QM for more details.
*
@h Macrobegin
unmarkblock * Unmark any marked blocks
begfile endline * Go to file begin endline
"!" * Put ! at endline
begline
find "!" return return begline * Highlight !
pause * Pause for Index selection
wordright markword * Mark first word on line
copy * Copy word to scrap buffer
begfile * Begfile
find "!" return return delch * Find & delete !
endpara * Go to end of Index
makectrofscreen * Cursor line center of window
find "(" paste ")"
return "I" return * Find first marked word in doc
jfalse NOMARK:
begline * If mark found go to begline
jump END:
NOMARK:
begfile * If no mark found go to begfile
END:
*
* 47 bytes Fri 09-14-1990 14:06:26
*
* ----------------------------------------------------------------------
* @(F9) Execute DOS command for programs not requring full path name
* ----------------------------------------------------------------------
*
@F9 Macrobegin
Unmarkblock Insertline * Insert temp line
CurrentFileName * with CurrentFileName
MarkCharacter * Begin mark
Find "\" Return "B" Return * Find \ backwards
CursorRight Cut * Cut filename to scrap
Delline * Delete temp line
Dos Pause " " Paste Return * Pause for DOS command
*
* 24 bytes Tue 04-23-1991 11:58:35
*
* ----------------------------------------------------------------------
* @(o) Alternate ChangeFileName, currentfilename in prompt box for edit
* ----------------------------------------------------------------------
*
* This macro puts the currentfilename in the prompt box for editing.
*
@o MacroBegin ChangeFilename DelLine CurrentFilename
*
* 7 bytes Wed 04-03-1991 16:25:01
*
*┌──────────────────────────────────┐
*│@(q) QUITs all Files in Ring │
*└──────────────────────────────────┘
*
@q Macrobegin
LOOP:
quit
jump LOOP:
*
* 8 bytes Sat 09-29-1990 00:03:46
*
* -----------------------------------------------
* ^(w_) Scroll UP, cursor bar stays fixed
* -----------------------------------------------
*
^w lineup
*
* 6 bytes Fri 02-22-1991 17:01:18
* 0 bytes Sat 08-24-1991 16:30:39 (TH ^w)
* -----------------------------------------------
* ^(z_) Scroll DOWN, cursor bar stays fixed
* -----------------------------------------------
*
^z linedown
*
* 6 bytes Fri 02-22-1991 17:01:18
* 0 bytes Sat 08-24-1991 16:31:11 (TH ^z)
*
* ------------------------------------------------
* @(w) Scroll two windows up in sync
* ------------------------------------------------
@w macrobegin Lineup nextwindow Lineup prevwindow
*
* 10 bytes Fri 02-22-1991 16:52:31
* 8 bytes Sat 08-24-1991 16:26:08 (TH @w, written by Richard BlackBurn)
*
* ------------------------------------------------
* @(z) Scroll two windows down in sync
* ------------------------------------------------
@z macrobegin Linedown nextwindow Linedown prevwindow
*
* 10 bytes Fri 02-22-1991 16:52:39
* 8 bytes Sat 08-24-1991 16:27:03 (TH @z, written by Richard BlackBurn)
* (Version) History:
*
* 1.0 - Initial version named SORT10.ZIP
* 1.1 - changed and shortened Alt-f3 to keep extraneous files
* from ring
* - Changed file names from SORTxx.xxx to FILExx.xxx.
* 1.2 - DX Directory Extended not included to save download time.
* 1.2a- Changed other file names in series, this is an update.
* 1.3 - Added @4 to load files from PickList, wild cards OK.
* - Changed j:$ to c:! in macros and batch file.
* - Changed .QL and .LST files.
* - Changed key assignments from alternate_functions
* to alternate_numbers.
* - All macros shortened.
* 1.4 - FILE-DX.BAT was not saving "echo .." initialization; corrected.
* - Modified macros @1-4 so Insert does NOT have to be ON.
* - Added AltWordSet to @1-4 to get all files.
* - Removed need to use scratch buffers in @3.
* - Added @5 to LOAD a file whose name is at the cursor.
* - Added @6 to execute Dos Commands From List.
* - Added @7 to EXECUTE DOS commands from List
* with CurrentFileName.
* - Added @8 to read macfile of txtfile that is loaded.
* - Added ^3 to save Read-Only files.
* - Added ^1 and ^2 to save files with date-time name.
* - Modified @1-4 and batch files to exclude directories in file
* list and PickList.
* - Removed check to quit c:! if already loaded in @1-4.
* - Changed @4 to use only PICK.BAT.
* 1.5 - Added @9 to select file to edit from RingList
* - Added @0 to select file to edit from RingList if new files have
* been loaded since making last RingList
* - Added @h to FIND items or macros in Index.
* - Added @q to QUIT all files in ring.
* 1.6 - Added @6 to re-LOAD current file from disk copy.
* - Modified @9 and @0 to be faster and shorter.
* - Modified @F2 for correct extension Oct-Dec.
* - Changed @F1 thru @F5 key assignments.
* 1.7 - Added @F6 to turn "DIR" command into a "8.3" list of filenames,
* written by T. Farley of SemWare.
* - Added @F7 and @F8 to read and load txtfiles and macfiles from
* a prepared list of active txtfiles and macfiles.
* - Modified @F2 for Oct-Dec and added alternate version
* for Jan-Sept.
* - DOS.LST was inadvertantly left out of versions since 1.4.
* It is now included.
* 1.8 - Modified @F6 for DOS Ver 3.3, other Dos versions not tested.
* - Modified documentation and added START.BAT.
* - Added @z to load all files in "Ring" buffer.
* - Modified @F2 for Jan-Sep and added alternate version
* for Oct-Dec.
* 1.9 - Added @F to execute programs requiring filename without full
* path name.
* - Corrected @h Index Use instructions.
* - Shortened @F3 2 bytes.
* 2.0 - Added #F3 & #F4 to spell check with ShareSpell.
* - Added #F5 & #F6 to save files without making backups.
* - Added #F7 & #F8 to delete and edit CurrentFileName Backup.
* - Modified @F1 to handle file names with no extension.
* - Changed @F3 in "B" to "LB" to search for dot only in block.
* - From @F4 removed second return to not pause after executing.
* DOS command.
* - Modified @F6 to handle multiple runs correctly.
* - Changed $$$.TMP to C:! in @F6, shortened 16 bytes.
* - Change @z key to @7.
* 2.1 - Added @PgUp and @PgDn for modified "Page Up and Page Down".
* - Added @w and @z to scroll two windows up/down in sync.
* - Added ^w and ^z to scroll up/down so cursor bar stays fixed.
* - Removed unnecessary lines and shortened #F4,6,7,8.
* 2.2 - Changed DelLine 6 ot 4 in @f6 to eliminate deletion of
* top 2 files in DIR list.
* 2.3 - Added ^1 and ^2 to position cursor in column at top of
* paragraph.
* - Added ^3 to position cursor in column at bottom of paragraph
* - Added ^4 to put colon in front of "rem" lines for faster
* batch file operation.
* 2.4 - Added @o Alternate ChangeFileName, CurrentFileName in prompt
* box.
* - Changed control_numeric keys to control_function keys.
* old new
* ^1 ^F1
* ^2 ^F2
* ^3 ^F3
* - Changed @F9 to pause for DOS command
* - Moved ^4 to COMTxx.
* 2.4a- Corrected description of @F7 and @F8.
* 2.5 - Changed file name in @7, @9 and @0 from ! to NUL - faster.
* - Made @F6 faster.
* - Moved @F6 DIR list macro to RINGxx.QM.
* 2.5a- Minor documentation changes.
* (Included in AMACxx.ZIP v4.0)
* 2.6 - Modified @w, @z, ^w, ans ^z. 8/24/91
* - Changed @f key to @F9. 8/24/91
* - Removed @7, @8 and @9. Same thing now in RINGxx.QM. 8/25/91
*
*
*
*
*