* (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 . * @(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 . * 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 . 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" . All pertinent files will be * loaded in the "Ring" for viewing, and FILE26.MAC is read. * Alternatively, type "START FILE 0" 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] * * 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 to execute command and return to file * you editing. Modify DOS.LIST as you need. * * Run Syntax: [command] @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 to execute command. Press 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 * . 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 * @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 . 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 . 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 * * * * *