home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
amac41.arj
/
PAGE23.QM
< prev
next >
Wrap
Text File
|
1991-08-26
|
16KB
|
404 lines
* (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" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and PAGE23.MAC is read.
* Alternatively, type "START PAGE 0" <Enter> 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 <enter>.
* 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
*
*
*