;**************PAGER MACRO - pg/cl - (1-11-84)***************

:ss 40 35 35 35 35 4

:on -1 555
:%Y=0
:%W=0
:cp
:%1 = 2
:pr "#1/#13/  0: find a page#13/  1: manual paging#13/  2: automatic paging"
:pr "#13/  3: auto paging (orphan-widow check)#13/  4: exit without changes"
:in "#0/Äïãõíåîô Ðáçéîç Ðòïçòáí   Select the type of PAGING job: " %1
:%M=%1
:on %1-4 / 550

:on %1   36 / 36
:on 0-%W 25 / 25
:pr "#0/#3/#3/#3/#3/#3/#3/#6/"
:in "Name of document to be searched:  " %A
:%9=$4
:on -1 830
:on 0-%W / /-5 /
:on 1-%X / / 800

:pr "#0/#3/#3/#3/#3/#3/#3/#3/Document begins with page %7.  "
:in "Enter page number to find: " %1
:%P=%1
:on %7-%P / / /+3
:on $1 / / 162
:on 1-%Y 68  162 68

:pr "#0/#3/#3/#3/#3/#3/#3/#3/#6/You are on page %7. "
:in "Select a page beyond this point: "%1
:on -1 /-8


:on 0-%W 44 / 44
:pr "#0/#3/#3/#3/#3/#3/#3/#6/
:in "Name of document to be paged: "%A
:%9=$4
:on -1 830
:on 0-%W / /-5 /

:on 1-%X / 48 /
:pr "#0/#3/#3/#3/#3/#3/#3/#3/"
:in "Document is unpaged.  Please enter the starting page number: "%7
:on -1 62

:%8 = 0
:pr "#0/#3/#3/#3/#3/#3/#3/#3/Document begins with page %7.  "
:in "#13/Type a new number if you wish to change (RET if correct): "%8
:on %8 / /+1 /
:%7 = %8









:%V = 0


:on 1-%Y / 162 /

:%A=""
:%1=0

:pr "#0/#13/#3/#3/#3/#3/#3/#3/#3/#3/#3/"
:in "Type name for paged output (RET for none): "%A
:sl %A %1
:on %1 /+1 /+1 /
wo/%A/
:%E=".DCE"
:%1=0



t
s/*%E/?/
:on ?-3 /+10 / /+10
t/h100
s//\.Y 1 90 110 0 0 2 0 65 2 2 0 0 35 5</
s//\.YS 1 90 110 0 0 1 0 65 2 2 1 0 35 5</
s//\.YS</
s//\.YT 0 0 0 0 0 0 1 10 10 0</
s//\.FN PAGE<\.DCE</
:CP
:PR "#0/#6/Default Document Header.  "
:on -1 102


f1/h100
t
:%Y=1
:on +%M / 110 /

:CP
:PR "#0/#6/Document Header found.  "
:pr "Press ESC to modify, RETURN to accept."
:RK %1
:on %1-16 110 / 110
:PR "#0/#3/#3/#6/Edit the document header.  When you are finished,"
:PR "#13/Press CONTINUE or ^A to continue processing."
:pr "#13/Warning: you should not disturb the hold buffer"
:EE 110


:cp
:pr "#0/#6/Processing document header."
t/j
:%E=".Y "
t/s/*%E/?/
:on ?-3 / 810 /
:%C = !<
:%D ="%C"
t/s/*.YS /?/
:on ?-3 / /+1 /
:%D = !<
YS %D
YS %C
:%V = 0
t/s/*.FN/
:on ?-3 / /+1 /
b0/sl/*END/
:on ?-16 /+2
:%V = 1
:pr "#13/Place footnotes at END of document"
:on $1 / /+1 /
t/w
t/d/u/h0
:%Q = "1"

:on ?-3 /+2 / /+2

:on $0 / 540
:on 0-%Q / /+2 /
:%9 = $4
:on -1 785
:%Q = "0"
:on -1 162



t/s/<.PE/?/
:%2=$3
:on $1 /+1 /+1 /
t/w%2
t/d%2
:on ?-3 / 168 /
:%7=%7+1









:ON $0 / 168 /
e
:%8=100-$3
:on %8 /+1 /+1 /
r%8
t
:CP
:PR "#0/#6/Now processing page %7 "
:on 0-%M / 191 /


:on ?-3 / 532 /
:%9=$4
:on -1 685
t/s2/&<.PE<//
e/s//</b1/h0/h/t/u
t/s//.PH-----------------------------------</



s//.Page %7 %L xx</
S//.Y %C<.YS %D<.YS</
YT //////%7
FT
YS %D
YS %C
f1/s//.PT-----------------------------------/
:on -1 233


:on %7-%P 227 / 227


t
:CP
:PR "#0/#6/Page %7 Found.  Hit ESC to examine this page."
:RK %1
:on %1-16 207 / 207
:pr "#0/#3/#3/#6/"
:pr "When you wish to continue processing, hit ^A or CONTINUE."
:on $1 /+1 / /+1
:PR "#0/#3/#3/#3/#6/Warning: Changes to this file will not be saved."
:EE 207


:PR "#1/Continue PAGER operation with page %7"
:on $1 /+2 / /+1
:PR "#13/Warning: Changes to this file will not be saved.#13/"
:PR "#0/#13/"
:pr "#13/  0: find a page#13/  1: manual paging#13/  2: automatic paging"
:pr "#13/  3: auto paging (orphan-widow check)#13/  4: exit without changes"
:in "#13/Select the type of PAGING job: " %1
:on %1-4 /+4 / /+4
:on $1 / 550 /
:in "#1/Do you wish to abandon any changes made to this file? (Y/N)" %M
:%B = "Y"
:on %B%M /-9 550 /-9
:%M=%1
:on +%M 135 / 135
:pr "#0/#3/#3/#3/#3/#3/#3/#3/#3/#6/"
:PR "Enter page number to find: (must be after page %7) "
:in %1
:%P=%1
:on %7-%P 135 /-5 /-5

:on ?-3 145 / 145
:pr "#0/#6/End of Document. Page %P was not found."
:in
:on -1 550


:on 0-%V / 242 /
:%9=$4
:on -1 730






b4
:%9 = $4
:on -1 715
:%J = "%1"
f1
:%9 = $4
:on -1 715
:%K = "%1"
:%8=%L
t/s/.PT/?/f1
:%O = "2"

:pr "*"
:on ?-38 /+2 / /+2
:on $2 /+1 / /+1
f1
:on ?-46 / 270 /

:on %8 470 470 /
:%2 = $2
:%3 = ?
:%8 = %8-%J

:on ?-3 / 505
j1
:on -1  254


:MC $2+1
:%S = !
:%B = "FTC"
:ON %S%B / 338 /
:%R=%S
:sf %R 2
:%B = "FT"
:ON %R%B / 340 /
:%B = "Y"
:on %S%B / 314 /
:%B = "YS"
:ON %S%B / 326 /
:%B="YT"
:on %S%B / 305 /
:SG %S %1
:on %1-96 /+1 /+1 /
:%1 = %1-32
:on %1-82 / 292
:on %1-69 / 296
b0
:on -1 260

f1
:on -1 254


:%8 = 0
f1
:on -1 254






f1
:%5=$5
s//</b2/j1
b1/d1
:on %5 /+2 /+2 /
:si %5

:on -1 254

:%9 = $4
:on -1 715
:on %1 /+1 /+1
:%J = "%1"
sl/ /
:%C = !<
Y %C
f1
:%Q = "1"
:on -1 254


:%9 = $4
:on -1 715
:on %1 /+1 /+1
:%K = "%1"
sl/ /
:%D = !<
YS %D
ys
:%Q = "1"
f1
:on -1  254
:%5 = -$3
:on -1 354
:%5 = $3
f1/sl/\*/?/
:on ?-42 / /+1 /
b0/s//     **/
B1
:MC 3
:%B = !
:SL %B %1
:%1 = %1-2
:ON %1 /+4 /+4 /
:%B = "&&&&&&&&&&"
:SF %B %1
B1/SL/\**/\*%B*/
F2/SL/\**/\*%B*/
:%E=".FE"
s/%E/?/
:on ?-3 / 810 /
:%4 = 0
:on 0-%V / 365 /
t/f%5-2
s/<.FT/ FT/

s/.FE</.FE/
t/f%5-2
:on -1 406

:on ?-67 /+1 / /+1
:%4 = -1
:on %5 /+2 / /
t/f%5-1
:on -1 /+1
t/f-%5-1
ys
:on %8-%O-2 430 / /
f1
:%8 = %8-%O
:%O = "0"
:on -1+%K /+1 / /+1
:%8 = %8-1
:ON %8 413 413 /
j1
:%8 = %8-%K
:on ?-46 /-4 / /-4
:mc 1
:%E="Illegal dot "
:on ?-70 820 / 820
b0
:on %4 / 395 395
:on 3-%M / /+1 /
:on %8-0 395 395 /
b1/sl/</
:MC $2-1
:%9 = $4
:on -1 730
:on -1 380
b0/s/<//
ys
:on %5 / /+5 /+5
t/f-%5-2/
b0/s/<./ /

s///
:on -1 254
t/f%5-2/
b0/s/<./ /f1
b1
:MC %2
:on ?-%3 /-3 / /-3
j1
:on %4 / 254 254
:on ?-38 / /+1 /
b1/s/&</
:on -1 505

:on -1+%M 440 / 440
:on %5 440
:pr "#0/#3/#6/#2/#6/Split footnote? (Y/N) "
:CP
:RK %1
:ON %1-96 /+1 / /
:%1 = %1-32
:on %1-78 / 430 /
:on %1-89 / 440 /
:on -1 /-8







:%E="Illegal .FTC "
:on %5 820
t/f%5-1
b1
:MC %2
:on ?-%3 /-3
ys
:on -1 470


:%9 = $4
:on %4 730
:on 1-%M /+1 / /+1
:%A="Use cursor keys to locate footnote split. "
:%9 = $4
:on -1 570

s//&<.FEC<&<.FTC</
:on %5 / /+2 /+2
b2
:on -1 505

:%1 = $3-1
s/.FE/.FE/
:%1 = $3-%1+1
b%1/h0/h%1+1
b1/s/FEC</FEC/
t/f%5-2
s/<./ /
f1
b1
:MC %2
:on ?-%3 /-3
ys
j1
:%9 = $4
:on -1 755
u
:on -1 522


:cp



:on 1-%M /+1 / /+1
:%A="Use cursor keys to locate page break. "
:%9 = $4
:on -1 570




































:%9 = $4
:on -1 755
:cp




T
100S/\*&/\*/B0
t/sa/ FT/<.FT/
t/sa//</
t/s/.PE</?/
:%6 = $3-1
t/s/.Page/?/
s/xx/%6/

t
:on $1 / /+1 /
t/w%6
d%6
:%7 = %7+1
:on -1 135



:on $1 / /+1
wd
h0
:in "#1/   Paging job completed. Press any key to exit"
:pr "#1/"
:on -1 2050




gq
h0
:on -1 10020


t/h0
:on ?-3 /+2 / /+2
:on $1  /+1 / /+1
:on $0  / /+9 /
:pr "#0/#6/Program will delete current working files from disk and memory."
:pr "#13/#6/Do you wish to continue? (Y/N) "
:RK %1
:ON %1-96 /+1 / /
:%1 = %1-32
:on %1-89 10020 / 10020
e/s//</gq
t
:on ?-3 10020 / 10020
:on -1 6

:%T = %9
:%8 = $3
:%6 = $2
:on -2+%M 638 %9 /

:%R = %2
:%S = %3

:cm

:on %6 /+5 / /+5
b1/sl/</</
:on ?-13 /+2 / /+2
f1
:on -1 631
f1
j1
:on $2 /+3 / /+3
:on ?-46 /+1 / /+1
:mc $2+1
:on ?-70 / 628 /
b1/sl/</</
:on ?-13 /+1 / /+1
:%1 = -1
t/f%8-1
:mc %6

:%9=$4
:on -1 661













b1
sl/</</
:on ?-13 /-3 / /-3
f1
:%2 = $2
:%3 = $3
j1
:on %8-$3 /+1 / /-4
:on %6-$2 /  / /-5
:on %1 /+3
:on $2 628 / 628
b1/sl/</</
:on ?-13 628 / 628
:%6 = %2
:%8 = %3
t/f%8-1
:mc %6

:on 1-%M /+1 / /+1

:cm
:%2 =+%R
:%3 =+%S
:%9=+%T
:on -1 %9
:pr "#0/#3/#6/#2/#6/%A Press RETURN to accept."
:cm
:rk %1
:on %1-13 / +%T
:on %1-12 / 650 /
:on %1-11 / /+2 /
:on -1 /-7

:on %8-$3 / / /+1
:on %6-$2 656 656 /     
j1
:on -1 638
B0/SL/.FE/?/F1
B1
:%9=$4
:on -1 661
:on %0-1 / 638 /
f1
:pr "#0/#3/#6/#2/#6/"
:in "Unable to break page beyond this point. Press a key to continue."
t/f%8-1
:mc %6
:on -1 638

b1
sl/</</
:on ?-13 /-3 / /-3
f1
:ON ?-46 683 / 683
:mc $2+1
:ON ?-80 / 681 /
:on ?-70 679 / 679
:MC $2+1
:on ?-69 681 / 681

B1
:ON $3 / 683 /
sl//
:on ?-16 /-4 /-4 661


b0
:on -1 683
:%0=2
:on -1 /+1
:%0=1
:on -1 %9

t
s/.PH/?/

:on ?-3 / %9 /
:%1 = $3
s/.PT/?/

:on ?-3 /+2 / /+2
r1
:on -1 /-5
:%1 = $3-%1
b%1/d%1+1
:on -1 /-12



:%6=$3-1
:%1=$2
e/fy/s/.Y/?/
:%C=!<
b0/d1
ys
fy/s/.Y/?/
:%D=!<
b0/d1/t/f%6
:mc %1
:on -1 %9




b0/sl/ /
:%1 = !
:%1 = !
:%1 = !
:%1 = !
:%1 = !
:%1 = !
b0
:on -1 %9





s//^/
:on %5 /+15 / /
s/.FEC/?/
:on ?-3 / 753 /
:%4 = 0
:%4 = %4+1
f1
sl/</</
:mc $2-1
:on ?-38 /-5 / /-5
b%4-1/h0/h%4/s//&</
s/.FE</?/
:on ?-3 /+2 / /+2
r50
:on -1 /-4
u/s/&<//
t/f
100s/&<.FEC<&<.FTC<//
:%E=".FE"
t/f/s/%E</
:on ?-3 / 810 /
:%4 = 0
t/s/^//
:on -1 %9


:%6 = $2
:%1 = $5
:on 1-%M /+1 / /+1
:pr "#0/#3/#6/#2/Page break accepted.#6/"

:on %6 / /+5 /
b0/sl/</?/
:on ?-13 / /+3 /
f1
:%1 = $5
b1
:MC %6
s//&<.PE</
:%6=$3
b3/j4
t/f%6-4
s/&<.PE</?/
:on %1 /+2 /+2 /
b0
:si %1
:on -1 %9









y / / / / / 1
e/s//^/
100e/s//</
b/f1
:%1 = $3
j
:%1 = $3-%1 
y / / / / / %J
b/d1000
:%L = "%1"
:on -1 %9




:pr "#1/#13/Document must be paged âåæïòå requesting Locate-Page option."
:in

:on -1 550






:cp
:pr "#0/#6/Error in file format..%E command not found."
:in "  Press a key to exit. "

:on -1 550





:cp
:pr "#0/#6Error in file format..%E command found."
:in "Press a key to exit. "

:on -1 550





ro/%A/
:on $0 /+10 /+10 /
r50
s/<.Page /?/
:on ?-3 / /+3 /
:%7=!
:%2=1
:on -1 /+2
:%7=1
:%2=0
:%X=%2
:%W=1
:on -1 %9