* RFR003.QM * Written By Tom Hogshead * [ See RFRMxx.QM For Use ] * 8/9/91 * Key Subfile Description * ===== =============== ==================================================== * @(1) Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * * @(2) Formats Commented or Uncommented Paragraph, * Leaves: Paragraph Commenting 'As Is' * * @(3) < best > Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * Replaces "period space" with "period two spaces" * * @(4) Formats Commented or Uncommented Paragraph, * Leaves: Paragraph Commenting 'as is' * Replaces "period space" with "period two spaces" * * @(5) Removes "period two spaces" from Paragraph * * ^(F3__) Formats PARAGRAPH (Fast And Small) * ^(F4__) Formats PARAGRAPH (Slow) * ^(F5__) Formats DOCUMENT * ^(F6__) Formats BLOCK. Must Position Cursor At Block Begin * ^(F7__) Formats Message Reader Paragraph (Tim Farley) * ^(F8__) Formats QMAC Txtfile BLOCK With Asterisks In Col 1 * * {e:\up\RFRM*}--Return To RFRMxx.QM * *-- eoi *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �^(F3__) Formats a paragraph. (Macro has been around a long time) � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * ^F3 Macrobegin Cursordown * move down one line Prevpara * get to beginning of paragraph Wrappara * reformat Nextpara * go to begin next paragraph * * 8 bytes Wed 08-01-1990 10:47:36 * 8 bytes Thu 08-08-1991 14:02:17 (TH ^F3, in rfr003.qm) *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �^(F4__) Formats Paragraph Only. Keeps in original indented position � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * To run, place cursor line anywhere in a paragraph, and press ^F4. * This macro yields the same formatted paragraph as does ^F3 if * the right margin is set to 69 in the QEdit menu or in QCONFIG.DAT. * If there are asterisks in column 1 they are also formatted as part of * the paragraph. ^F4 Macrobegin Unmarkblock * Get ready Cursordown * Get into paragraph Prevpara * Get to paragraph begin Markcolumn * Mark column Endpara * Get to paragraph end Gotocolumn "512" Return * Get all paragraph in block Markcolumn * Mark paragraph Gotoblockbeg * Get to paragraph begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Set rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark end block Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Paste * Put back formatted, marked Begline Makectrofscreen * Better view END: * * 60 bytes Tue 09-11-1990 19:12:08 ***************************** (TEST1) PARAGRAPH ****************************** * (remove * in column 1 before testing) * * This is a (test) paragraph. * Place the cursor line anywhere in this paragraph to run. * Press ^F4 at the same time. * Be sure AutoIndent is ON. (Long line for test )==>>>>>>>>>>>> ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �^(F5__) Formats complete document with blank lines forming paragraphs� * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * ^F5 MacroBegin Unmarkblock * Unmark Begfile * Get to file begin Setrmargin "69" Return * Set new right margin FORMAT: * Jfalse FINISH: * No more para? go to FINISH WrapPara * Reformat NextPara * Get to begin next paragraph Jump FORMAT: * FINISH: * No more paragraphs Setrmargin "80" Return * Reset right margin * * 26 bytes Wed 09-12-1990 16:47: *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �^(F6__) Formats Block. Must position cursor at beginning of block � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * To run, position the 'cursor' at the beginning of the block to * reformat. Press ^F6, then cursor down to bottom of block to * reformat. Press 'Enter' when the block is marked. This macro differs * from ^F8 in that the starting position of the block to be * reformatted is selected by the starting position of the cursor; in * ^F8 the block starting POSITION is selected by the starting * position of the cursor line. * ^F6 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Prevposition * Begline * Prevposition * Makectrofscreen * See better Cursordown * Position to cursor down Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 62 bytes Tue 09-11-1990 19:09:31 ***************************** (TEST2) PARAGRAPH *************************** * This is a test block. To format, place the "cursor" on "T" in * in "this" on line 1. Then press ^F6 and cursor down to * block end. When the block has been marked press * 'Enter'. * Asterisks need not be removed. *  *旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� *�^(F7__) Format Message Reader Paragraph� *읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * Here's a handy macro from Tim Farley of SemWare to reformat a message * reader paragraph. Remember, paragraphs are reformatted to the width * of the right margin setting, so set as needed. * * ========================================================================= * Date: 10-01-90 (19:09) Number: 3041 SemWare Support BBS * To: DAN SNAPPER Refer#: 3028 * From: TIM FARLEY Read: YES * Subj: Message reformat macro Conf: (21) ILink * ------------------------------------------------------------------------ * DS> Does anyone have a macro to reformat a quoted 'off-line' * DS> message paragraph and then reinsert the quotes back? * DS> * DS> * DS> * * Here it is: * * * Reader Paragraph Reform * Mark a line block, hit this key, and it will reform the text, leaving * all "II>" quoting on the left alone. * * Assumes that ">" is the last character of the "quoting" mark. * Also assumes that WordWrap is currently on when you hit it, * and that there is a currently marked block. * ^F7 MacroBegin OneWindow GotoBlockBeg GotoBlockEnd JTrue doit: MarkLine GotoBlockEnd doit: ToggleWordWrap EndLine #254 ToggleWordWrap GotoBlockBeg GotoColumn "16" Return Find ">" Return "BL" Return JTrue foundit: BegLine foundit: CursorRight UnmarkBlock MarkColumn Find #254 Return "N" Return GotoColumn "512" Return MarkColumn BegLine GotoBlockBeg Cut MarkLine CopyBlock CopyBlock CopyBlock UnmarkBlock HorizontalWindow EditFile "$$$$$$$$.tmp" Return BegFile BegLine * Top of files in case it was already here InsertLine InsertLine * ?? Paste UnMarkBlock * put block in place EndFile AddLine BegFile * mandatory blank line on end more: WrapPara * wrap each para JTrue more: * until none left DelLine BegFile BegLine Find Return Return * find our goofy char again DelCh * and delete it GotoColumn "512" Return MarkColumn BegFile BegLine MarkColumn Cut Quit PrevWindow OneWindow Paste GotoBlockEnd CursorDown BegLine UnMarkBlock * * 132 bytes Tue 10-02-1990 16:51:06 (added TH) * This macro is too long for QCONFIG, you'll have to use QMAC to * compile it. Then put the compiled macro files in some directory, * and add the following option to the command line your reader runs * QEdit with: * * /Ld:\dir\filename.ext * * where D:\DIR\FILENAME.EXT is the full drive, path, and name of * the compiled binary macro file. * * I've used this macro myself to reformat quotes, for over a year * now. * * --Tim Farley * SemWare Technical Support *  * 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * �^(F8__) Formats QMAC txtfile block with asterisk in column 1 � * 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� * This macro is included for technique only, since @1 does the same * thing, and is smaller and faster. * To run, position the 'cursor line' on the first line of the block to * reformat. Press ^F8, then cursor down to bottom of block to * reformat. To reformat, press 'Enter' when the block is marked. This * macro differs from ^F6 in that the block does not include the * asterisk and blank space; in ^F6 the block starting position is * selected by the starting position of the cursor line. This macro * also differs from ^F4 which formats a paragraph from first blank line * which has no text or asterisk on line to last blank line. ^F8 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Begline * Start at line begin Wordright * Get to first word on line Cursordown * Position to cursor down Makectrofscreen * See better Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "65" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 61 bytes Tue 09-11-1990 19:21:48 *  * ---------------------------------------------------------------------- * @(1) Formats Commented or Uncommented Paragraph, * Leaves Commented Paragraph Uncommented, * Leaves Uncommented Paragraph Commented, * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1, or uncommented, to a column width of * 69. If the paragraph is already commented, it is formatted and * uncommented: if the paragraph is *not* already commented, it is * formatted and commented. Invoking this macro twice will return the * paragraph to it's original commented or uncommented state, but * formatted. This macro will not work correctly if blank lines are * commented. * To run, invoke @1 with the cursor located anywhere in a paragraph. If * the cursor is located between paragraphs, the previous paragraph is * formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat. @1 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jfalse COMMENT: * If no star in col 1, must comment * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: *ELSE para is commented ShiftLeft ShiftLeft * Col 1 has star, un-comment para wrappara * Format uncommented paragraph prevpara * Return to begin of formatted para Jump END: * End macro * ------------------- Comment And Format Paragraph -------------------* COMMENT: * wrappara * Format uncommented paragraph gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 * MarkColumn * Mark 1st character column |a FillBlock '*' Return * Fill col 1 with '*' END: * makectrofscreen * Position para begin on screen center |a * maketopofscreen * Position para begin on screen top | UnmarkBlock * Unmark * scrollup * scrollup 2 lines |a * scrollup * | * nextpara * Position at start of next paragraph * * 56 bytes Thu 08-15-1991 19:35:22 (TH @1 |a) * 53 bytes Thu 08-08-1991 13:50:57 (TH @1, in rfr003.qm) * Uncomment and format to one line for QCconfig.dat: * -------------------------------------------------- * @1 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JFalse Label0: * ShiftLeft ShiftLeft WrapPara PrevPara Jump Label1: Label0: * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return Label1: MakeCtrOfScreen UnmarkBlock * * * * 53 bytes Thu 08-08-1991 13:50:57 (TH @1, in rfr003.qm) *  * ---------------------------------------------------------------------- * @(2) Formats Commented or Uncommented Paragraph, * Leaves Paragraph In Original Commented Or Uncommented State * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1 or uncommented, to a column width of * 69. This macro differs from @1 in that @2 does not change the * commented state of the paragraph, i.e. it leaves a commented * paragraph commented after reformatting and an uncommented paragraph * uncommented, but formatted. This macro will not work correctly if * blank lines are commented. * To run, invoke @2 with the cursor located anywhere in the paragraph. * If the cursor is located between paragraphs, the previous paragraph * is formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat. @2 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jtrue UNCOMMENT: * If star in col 1, must uncomment * ------------------- Format Uncommented Paragraph -------------------* wrappara * Format uncommented paragraph Prevpara * Go to beginning of paragraph Jump END: * End macro * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: * ShiftLeft ShiftLeft * Col 1 has star, un-comment block wrappara * Format uncommented paragraph * ----------------------- Re-comment Paragraph -----------------------* gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' END: * makectrofscreen * Position para begin on screen center UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 53 bytes Thu 08-08-1991 13:38:59 (TH @2, in rfr003.qm) * Uncomment and format to one line for QCconfig.dat: * -------------------------------------------------- * @2 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JTrue Label0: * WrapPara PrevPara Jump Label1: Label0: ShiftLeft ShiftLeft * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return Label1: MakeCtrOfScreen UnmarkBlock * * * * 53 bytes Thu 08-08-1991 13:38:59 (TH @2, in rfr003.qm) *  * ---------------------------------------------------------------------- * @(3) Formats Commented or Uncommented Paragraph, * Leaves: Commented Paragraph Uncommented, or * Uncommented Paragraph Commented, * Replaces "period space" with "period two spaces" * ---------------------------------------------------------------------- * This macro formats a paragraph to a column width of 69. Before macro * execution the paragraph may either be commented with an asterisk and * space in column 1 or uncommented. All occurrences in the paragraph * of "period space" are replaced with "period two spaces". If the * paragraph is already commented before macro execution, it is * formatted and uncommented. If the paragraph is not already * commented, it is formatted and commented. Invoking this macro twice * will return the paragraph to it's original commented or uncommented * state, but formatted. This macro will not work correctly if blank * lines are commented. * To run, invoke @3 with the cursor located anywhere in a paragraph. If * the cursor is located between paragraphs, the previous paragraph is * formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat by removing 'Label' from the QMAC compiled macro * as shown below. Period spacing routine was written by Tim Farley. @3 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jfalse COMMENT: * If no star in col 1, must comment * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: *ELSE para is commented ShiftLeft ShiftLeft * Col 1 has star, un-comment para wrappara * Format uncommented paragraph prevpara * Return to begin of formatted para Jump END: * End macro * ------------------- Comment And Format Paragraph -------------------* COMMENT: * wrappara * Format uncommented paragraph gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' markline * Make paragraph a line block END: * * -------- Replaces "Period Space" With "Period two spaces" --------* makectrofscreen * Position para begin on screen center FindReplace * ". " Return * Change period with single space ". " Return * to one with double space. "LN" Return * JFalse DONE: * None? We're done... FindReplace * ". " Return * Now fix any that ended up with 3 ". " Return * to have just two again. "LN" Return * DONE: * UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 97 bytes Thu 08-08-1991 14:03:38 (TH @3, in rfr003.qm) * QMAC compiled @3 with "Label" removed to fit on one line of QConfig.dat * ----------------------------------------------------------------------- * @3 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JFalse 0: * ShiftLeft ShiftLeft WrapPara PrevPara Jump 1: 0: * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return MarkLine 1: MakeCtrOfScreen FindReplace ". " * Return ". " Return "LN" Return JFalse 2: FindReplace "" * ". " Return ". " Return "LN" Return 2: UnmarkBlock * * * * 97 bytes Thu 08-08-1991 14:03:38 (TH @3, in rfr003.qm) *  * ---------------------------------------------------------------------- * @(4) Formats Commented or Uncommented Paragraph, * Leaves Paragraph In Original Commented Or Uncommented State * Replaces "period space" With "period two spaces" * ---------------------------------------------------------------------- * This macro formats a paragraph that is either commented with an * asterisk and space in column 1 or uncommented, to a column width of * 69, and replaces "period space" with "period two spaces". This * macro differs from @3 in that @4 does not change the commented state * of the paragraph, i.e. it leaves a commented paragraph commented * after reformatting and an uncommented paragraph uncommented, but * formatted. This macro will not work correctly if blank lines are * commented. * To run, invoke @4 with the cursor located anywhere in the paragraph. * If the cursor is located between paragraphs, the previous paragraph * is formatted. After this macro ends, the cursor is returned to the * beginning of the formatted paragraph. The user may insert 'nextpara' * at the end of the macro to return the cursor to the beginning of the * next paragraph after macro execution. This macro will fit on one * line of QConfig.dat by removing 'Label' from the QMAC compiled macro * as shown below. Period spacing routine was written by Tim Farley. @4 macrobegin unmarkblock * setrmargin "69" return * Set right margin to 69 Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close para as character block PrevPosition * Return to paragraph begin * --------------- Check if paragraph already commented --------------* CursorRight * Move to col 2 Find "*" Return * See if line is already commented "LB" Return *(assumes all para commented or not) Jtrue UNCOMMENT: * If star in col 1, must uncomment * ------------------- Format Uncommented Paragraph -------------------* wrappara * Format uncommented paragraph Prevpara * Go to beginning of paragraph Jump END: * End macro * ------------------ Uncomment And Format Paragraph ------------------* UNCOMMENT: * ShiftLeft ShiftLeft * Col 1 has star, un-comment block wrappara * Format uncommented paragraph * ----------------------- Re-comment Paragraph -----------------------* gotoblockend * Go to paragraph end ShiftRight ShiftRight * Shift all lines to right twice BegLine * Move cursor to col 1 unmarkblock * Unmark MarkColumn * Mark 1st character column cursordown * Needed for single line case prevpara * Move to begin of shftd/frmtd para begline * Move cursor to col 1 FillBlock '*' Return * Fill col 1 with '*' markline * Make paragraph a line block END: * * -------- Replaces "Period Space" With "Period two spaces" --------* makectrofscreen * Position para begin on screen center FindReplace * ". " Return * Change period with single space ". " Return * to one with double space. "LN" Return * JFalse DONE: * None? We're done... FindReplace * ". " Return * Now fix any that ended up with 3 ". " Return * to have just two again. "LN" Return * DONE: * UnmarkBlock * Unmark * nextpara * Position at start of next paragraph * * 97 bytes Thu 08-08-1991 14:24:28 (TH @4, in rfr003.qm) * QMAC compiled @4 with "Label" removed to fit on one line of QConfig.dat * ----------------------------------------------------------------------- * @4 Macro_Begin UnmarkBlock SetRmargin "69" Return CursorDown * PrevPara MarkCharacter EndPara MarkCharacter PrevPosition * CursorRight Find "*" Return "LB" Return JTrue 0: * WrapPara PrevPara Jump 1: 0: ShiftLeft ShiftLeft * WrapPara GotoBlockEnd ShiftRight ShiftRight BegLine * UnmarkBlock MarkColumn CursorDown PrevPara BegLine FillBlock * "*" Return MarkLine 1: MakeCtrOfScreen FindReplace ". " * Return ". " Return "LN" Return JFalse 2: FindReplace "" * ". " Return ". " Return "LN" Return 2: UnmarkBlock * * * * 97 bytes Thu 08-08-1991 14:24:28 (TH @4, in rfr003.qm) *  * ---------------------------------------------------------------------- * @(5) Removes "period two spaces" From Paragraph * ---------------------------------------------------------------------- * This macro removes all occurrences of "period two spaces" in a * paragraph and returns to normal "period space". Invoke @5 with the * cursor anywhere in a paragraph. @5 Macrobegin unmarkblock * Cursordown * Move down one line Prevpara * Go to beginning of paragraph markcharacter * Start character block endpara * markcharacter * Close paragraph as character block PrevPosition * Return to paragraph begin FindReplace * Replace ". " Return * period space ". " Return * with period two spaces "LN" Return * only in paragraph Unmarkblock * Makectrofscreen * * * 31 bytes Thu 08-08-1991 16:13:16 (TH @5, in rfr003.qm)