* (PageMaker) v2.3g 8/9/91 * Written by Tom Hogshead * * ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄ[ (INDEX) ]ﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ * ｳ * ｳ Macro Page Breaks Inserts Page Numbers ? * ｳﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄ * ｳ (Alt_4) Yes No ) * ｳ ) for QMAC txtfiles only * ｳ (Alt_5) Removes Removes ) * ｳ * ｳ (Alt_6) Auto No * ｳ * ｳ (Alt_7) Yes No * ｳ * ｳ (Alt_8) " Yes, query * ｳ * ｳ (Alt_9) " Yes, query bar * ｳ * ｳ (Alt_0) Removes Removes * ｳ * ｳ @(h) Jump From Index Line To (Locate) Macro or Item In Document Below * ｳ * ｳ(Description) - PageMaker * ｳ(Files) - Included * ｳ(Change) - Settings and Running * ｳ(Macros) - in PageMaker PAGE23.ZIP * ｳ(Version) - History * ｳ(Other) - Macros not included * ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ * (Description) of (PageMaker): * The QEdit macros in PageMaker PAGE23.ZIP paginate documents and * QMAC txtfiles so page break locations can be seen and moved * for better readability. * (Files) Included in PAGE23.ZIP: * PAGExx.QM this txtfile of macros * PAGExx.MAC macfile converted from this txtfile with QMAC * PAGE.TST 200 line document with line numbers to set parameters * PAGE-QM.TST 200 line document with line numbers and asterisk in column 1 * PAGE.INF description of macros * (Change) Settings and Running: * For different settings change ** below with the following * formulae: (PL-TM-BM-1)= 53, (TM-2)= 4, .... etc where TM= 6, * BM= 6, PL= 66 These macros paginate to 54 lines/page. Remember * INSERT must be ON. * Depending on whether a document is reloaded or re paginated, * there may be an extraneous carriage return and/or line feed * present that cannot be removed when paginating. You may also * see the top margin vary +- 1. Just be aware. Some printers may * also handle documents paginated with these macros differently. * It is important that no lines in a document or a QMAC txtfile * contain "page[space]-" or that and the subsequent line will be * deleted when using some of the macros. * These macros require "QEdit and QMAC v2.1, February, 1990" or later. * To BEGIN, just type "START PAGE" . All pertinent files will be * loaded in the "Ring" for viewing, and PAGE23.MAC is read. * Alternatively, type "START PAGE 0" and the disk copies of all * files in the "Ring" will be loaded ready for editing, saving time. * (Macros) * --------- * *ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ *ｳ(Alt_4) AUTOMATIC Page Breaks Only, NO Page #'s , for QMAC txtfiles only ｳ *ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ * Be careful not to place page breaks within a macro. QMAC sometimes gets * confused when page break lines are within macros, especially with labels. * Place page breaks only between macros. @4 macrobegin setprintpagesize "0" return * cut off QEdit pagination LABEL1: * & top/bottom margins find #12 #27 return "n" return jfalse LABEL2: delline * delline if FF Esc found jump LABEL1: LABEL2: begfile find #10 return "n" return jfalse LABEL3: delline * delline if LF found jump LABEL2: LABEL3: begfile #10 repeatcmd "3" return * insert 4 LF's on top splitline cursordown ** set "3"=(TM-3) ** begline LABEL4: cursordown repeatcmd "52" return ** set "52"=(PL-TM-BM-2) ** jfalse LABEL5: "Cursor only to between macros, ENTER to set" return cursorup markline markline pause deleteblock begline #42 #12 #27 repeatcmd "71" return * insert asterisk FF 72 Esc's #10 repeatcmd "4" return ** set "4"=(TM-2) ** return jump LABEL4: LABEL5: endfile return #42 #12 #27 repeatcmd "77" return begfile * * 193 bytes Sat 07-28-1990 15:20:09 * *ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ *ｳ(Alt_5) Removes Pagination Only, for QMAC txtfiles only ｳ *ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ @5 macrobegin LABEL1: begfile find #12 #27 return "n" return jfalse LABEL2: delline * delline if FF Esc found jump LABEL1: LABEL2: begfile find #10 return "n" return jfalse LABEL3: delline * delline if LF found jump LABEL2: LABEL3: begfile * * 37 bytes Sat 07-28-1990 15:20:29 * *ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ *ｳ(Alt_6) AUTOMATIC Page Breaks Only, NO Page #'s ｳ *ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ @6 macrobegin setprintpagesize "0" return lab1: begfile find #12 #27 return "n" return jfalse lab2: delline jump lab1: lab2: begfile find #10 return "n" return jfalse lab3: delline jump lab2: lab3: begfile find #12 return "n" return jfalse lab4: delch jump lab3: lab4: begfile find "page " "-" return "n" return jfalse lab5: delline delline jump lab4: lab5: begfile #10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) ** lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) ** jfalse lab7: begline #12 #27 repeatcmd "72" return #10 repeatcmd "5" return return jump lab6: ** set "5"=(TM-1) ** lab7: endfile return begline #12 #27 repeatcmd "78" return begfile * 136 bytes Sat 07-28-1990 15:20:38 * * ---------------------------------------------------------------------- * @(7) Add Page Breaks To Document Without Page Numbers And (Alt_7) * Remove Previous Pagination Before Pagination * 66 Lines/Page, Top And Bottom Margins 6 * ---------------------------------------------------------------------- * This macro adds page breaks and top and bottom margins to * documents by inserting ASCII formfeed character #12 and linefeed | * character #10. Escape character #27 is used to make page break |g * locations more visible. The macro is written to print 54 * lines/page with a top and bottom margin of 6. The user may * change these settings by changing '**' below using the following * formulae and recompiling with QMAC: * (PL - TM - BM -1) = 53 * (TM - 2) = 4 * (TM - 1) = 5 * where TM = 6 * BM = 6 * PL = 66 * To run, press @7 with the cursor positioned anywhere in the * document. At each prompt, move the cursor up only to select the * preferred location for each page break, and press . * Insert must be ON. @7 macrobegin setprintpagesize "0" return lab1: begfile find #12 #27 return "n" return jfalse lab2: delline jump lab1: lab2: begfile find #10 return "n" return jfalse lab3: delline jump lab2: lab3: begfile find #12 return "n" return jfalse lab4: delch jump lab3: lab4: begfile find "page " "-" return "n" return jfalse lab5: delline delline jump lab4: lab5: begfile #10 repeatcmd "4" return ** set "4"=(TM-2) splitline cursordown lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) jfalse lab7: "UP arrow key only, ENTER to set" return cursorup markline markline pause deleteblock begline #12 #27 repeatcmd "72" return #10 repeatcmd "5" return ** set "5"=(TM-1) return jump lab6: lab7: endfile return begline #12 #27 repeatcmd "78" return begfile * * 204 bytes Sat 07-28-1990 15:20:55 (TH @7) * 204 bytes Sun 08-04-1991 12:15:44 (TH @7, opened up for clarity) * *ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ *ｳ(Alt_8) PAGINATE, Add Page #'s, NO Query Bar ｳ *ﾀﾄ[Add page # at prompt, then ENTER for next page]ﾄﾄﾄﾙ * @8 macrobegin setprintpagesize "0" return lab1: begfile find #12 #27 return "n" return jfalse lab2: delline jump lab1: lab2: begfile find #10 return "n" return jfalse lab3: delline jump lab2: lab3: begfile find #12 return "n" return jfalse lab4: delch jump lab3: lab4: begfile find "page " "-" return "n" return jfalse lab5: delline delline jump lab4: lab5: begfile #10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) ** lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) ** jfalse lab7: "UP arrow key only, ENTER to set" return cursorup markline markline pause deleteblock begline #12 #27 repeatcmd "72" return #10 repeatcmd "5" return return ** set "5"=(TM-1) ** "page " "--" return return cursorup cursorup centerline jump lab6: lab7: endfile return begline #12 #27 repeatcmd "78" return begfile lab8: find "page " "-" return "n" return jfalse lab9: makectrofscreen cursorright repeatcmd "5" return pause jump lab8: lab9: begfile * * 254 bytes Sat 07-28-1990 15:21:11 * *ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ *ｳ(Alt_9) PAGINATE, Add Page #'s With Query Bar ｳ *ﾀﾄ[Add page # at prompt, then ENTER for next page]ﾄﾙ * @9 macrobegin setprintpagesize "0" return lab1: begfile find #12 #27 return "n" return jfalse lab2: delline jump lab1: lab2: begfile find #10 return "n" return jfalse lab3: delline jump lab2: lab3: begfile find #12 return "n" return jfalse lab4: delch jump lab3: lab4: begfile find "page " "-" return "n" return jfalse lab5: delline delline jump lab4: lab5: begfile #10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) ** lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) ** jfalse lab7: "UP arrow key only, ENTER to set" return cursorup markline markline pause deleteblock begline #12 #27 repeatcmd "72" return #10 repeatcmd "5" return return ** set "5"=(TM-1) ** "page " "--" return return cursorup cursorup centerline jump lab6: lab7: endfile return begline #12 #27 repeatcmd "78" return begfile lab8: find "page " "-" return "n" return jfalse lab9: makectrofscreen begline "Enter page # (start p2) " " " repeatcmd "17" return #25 #25 return cursorup begline markblockbegin endline markblockend cursordown begline wordright cursorright repeatcmd "5" return pause cursorup delline cursordown jump lab8: lab9: begfile * * 327 bytes Sat 07-28-1990 15:21:27 * * ---------------------------------------------------------------------- * @0 Removes Pagination (Alt_0) * ---------------------------------------------------------------------- * This macro removes page breaks, top and bottom margins, and line * numbers from a document paginated with any of the macros in * PAGExx.QM. To run, press @0 with the cursor positioned anywhere * in the document. The cursor returns to the file beginning after * completion. @0 macrobegin lab1: begfile find #12 #27 return "n" return jfalse lab2: delline jump lab1: lab2: begfile find #10 return "n" return jfalse lab3: delline jump lab2: lab3: begfile find #12 return "n" return jfalse lab4: delch jump lab3: lab4: begfile find "page " "-" return "n" return jfalse lab5: delline delline jump lab4: lab5: begfile * * 78 bytes Sat 07-28-1990 15:21:44 (TH @0) * 78 bytes Sun 08-04-1991 12:15:29 (TH @0, opened up for clarity) * * ---------------------------------------------------------------------- * @(h) Jump From Index Line To (Locate) Macro or Item In Document Below * ---------------------------------------------------------------------- * Alt_h can be used to quickly jump from Index Line to the desired * item or macro in the document below: * 1. Press Alt and h at the same time. Line 1 is marked to * highlight. Cursor down to desired line in Index. * 2. Press Enter. The macro then locates and jumps to the item * selected on the cursor line in the document below. * See BOOKxx.Qm and JMPPOSxx.QM in AMACxx.ZIP for more discussion about * using bookmarks and positions markers ( ) to jump to positions in * files. @h macrobegin unmarkblock * Unmark any marked blocks defaultwordset * In case altwordset on begfile * Go to file begin markline markline * And highlight line 1 pause * Pause for Index selection wordright markword * Mark first word on line copy * Copy word to scrap 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: * * 33 bytes Wed 07-10-1991 10:11:24 (TH) * (Other) Macros: See ALLMACRO.INF * * (Index) is at top of file * * (Version) History: * * v1.1-8 misc changes, NO page #'s * v1.9 - added page #'s, NO page # query bar * v2.0 - added page #'s with page # query bar * v2.1 - summary of latest macros * v2.2 - added Alt_4 & 5 to paginate QMAC txtfiles only * - added Alt_1 from BookMarker Macros BOOK12.ZIP * v2.2a- modified Alt_4 to not place asterisk in column 1 at begfile * v2.2b- corrected Alt_4, label2: was on wrong line * v2.3 - wrong version of PAGE.TST was in v2.2b, corrected * - modified Alt_8,9 & 0 so no lines contain "page[space]-" and * therefore necessary lines will not be deleted when paginating * - changed Alt_1 to Ctl_1 * 2.3a - Changed other file names in series, this is an update. * 2.3b - Changed documentation. * 2.3c - PAGE23.MAC was wrong file. Corrected. * 2.3d - Modified documentation and added START.BAT. * 2.3e - Minor documentation changes. * - Changed ^1 key to @h. * 2.3f - Changed @7 and @0 documentation. * (ver 2.3f in AMACxx.ZIP, v4.0) * 2.3g - Corrected definitions of #10 and #12 on @7. 8/9/91 * - Opened up @7 and @0 for clarity, no macro change. 8/9/91 * * *