Category : Word Processors
Archive   : PAGE21.ZIP
Filename : PAGE21.QM
*
* The following QEdit macros in PAGE v2.1 Paginate so page break
* locations can be seen and moved for better readability:
*
* MACRO PAGE BREAKS PAGE NUMBERS
* ÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Alt-6 Auto No
* Alt-7 Yes No
* Alt-8 " Yes, query
* Alt-9 " Yes, query bar
* Alt-0 Removes Removes
*
* VERSION HISTORY:
* v1.1 to 8 - misc changes, NO page #'s
* v1.9 -page #'s, NO page # query bar
* v2.0 -page #'s with page # query bar
* v2.1 -summary of all latest macros (this version)
*
* PAGE21.ZIP INCLUDES:
* PAGExx.QM this text file of macros
* PAGExx.MAC macros converted to binary with QMAC
* PAGE.TST 200 line document with line numbers to set parameters
* PAGE.INF description of macros
*
* CHANGE SETTINGS:
* For different settings change ** below with the following formulae:
* (PL-TM-BM-1)= 53, (TM-2)= 4, (TM-1)= 5 where TM= 6, BM= 6, PL= 66
* These macros paginate to 54 lines/page. Remember INSERT must be ON.
*
*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*³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
*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*³Alt-7 PAGE BREAKS ONLY, NO Page #'s ³
*ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
@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 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 jump lab6: **set "5"=(TM-1)*
lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*³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
*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*³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
*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
*³Alt-0 Removes Pagination Only ³
*ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
@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
*... Tom Hogshead Sat 07-07-1990 10:09:30
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/