;*********************FORMAT.WPM MACRO - cl**********************************
;                       01-10-84



:ss 40 40 40 40 15 15 4
:%F=0

t
:on ?-3 /+2 / /+2
:on $0  /+1 / /+1
:on $1 / /+8 /
:pr "#0/#6/Program will clear memory and delete current open files from disk."
:pr "#13/#6/Do you wish to continue? (Y/N) "
:rk %1
:on %1-90 /+1 /+1 / 
:%1=%1-32
:on %1-89 2031 / 2031
e/s//</gq







:%9=$4
:on -1 498
:%K=0
:%W=0
:%O=0


t/d500
:in "#1/#13/Name of document to be formatted: " %A
ro/%A/
:on $0 / /-3 /
:%L=1
:pr "#3/#3/Screen verify or print? (V/P): "
:rk %1

:on %1-90 /+1 /+1 /
:%1=%1-32
:on %1-80 /+1 / /+1
:%L=0

:%F="DCE"
:%1=0
R1
:on $0 / 518 /
sl/*%F/
:on ?-13 / / /+2
:%1=%1+1
:on 50-%1 518 518 /-6

:%2=$3+2
:%F=".Y"
t
s/*%F /?/
:on ?-3 / 524 /



:cp
:pr "#0/#13/Processing document header."


t/s/*.Y /?/
:%B=!<

t/s/*.YS /?/
:on ?-3 /+3 / /+3
:%C="%B"
t/f1/s//.YS %C</
:on -1 /+1
:%C=!<

t/s/*.YT /?/
:on ?-3 /+1 / /+1
ft
:%9=$4
:on -1 531


t/j
:%2=$3
:%U=0
t/s/*.FN/?/
:on ?-3 / 129 /
sl/*END/
:on ?-13 / 129 /
:%U=1

:%1=0
:in "#1/#13/Identifying title for footnotes (RET for no title): "%D
:in "#13/Type filename for footnotes: "%E
t/d100/rd
ro/%E/
:on $0 117 117 /

:pr "#0/#3/#3/#3/#3/#3/#6/File exists. Add or replace footnotes (A/R): "
:rk %1

:on %1-90 /+1 /+1 /
:%1=%1-32
:on %1-82 / 116 /



r
:on $1 /+1 / /+1
wo/foot.tmp/
w1000/d1000
:on $0 /-5 / /-5
:on -1 /+2
rd
wo/foot.tmp/
:sl %D %1
:on %1 /+2 /+2 /
s//<.C%D</
t/w/d
ro/%A/
r%2-1
:%A="%E"




t/d100
:%F=1
r2/f1
:on $0 469 469 /
sl/.Page /?/

:on ?-13 / 518 /
:%M=!
:%6=!
:%3=!
:%3=%3-2

:on 0-%O 150 / 150
:%1=0
:%R=0
:%O=1
:pr "#1/#13/Starting page number is %M (RET to keep, enter number to change):"
:in %1
:on %1 150 150 /
:%1=%1-%M
:%R=%1
:%1=+%M+%R
:%M=%1
YT / / / / / / %M
r%3/e/b1
s/.PE/?/
:on ?-3 / 524 /

t
:cp
:pr "#0/#13/Now processing page %M #6/"
d1
s/.Page/.R Page/

f1/j1
t/s/*.Y /?/
:%B=!<
Y /  /  / 0
b0/d1/fy
t/s/*.YT /?/
:%9=$4
:on -1 531
YT / / / / / / %M
b0/d1/ft
YT / / 0 0
f1/d1
s/<.FTC/<<.FTC/
t/s/.PE<//
t/s/*.E<//
:%2=0
:%G=0
:%V=0
:%S=0


t/f
:%1=$3-1
t/f%2/s/<.?
:%2=$3-1
:on %1-$3 / / 423
:%2=0


t/s2/<&</</

t/s/&<
:on ?-3 / /+2 /
s2/&</&xxxxxxxxxxxxxxx</
:on -1 212
:on 1-%G / 212 /


:%9=$4
:on -1 449
:on %4-1 /+2 /+2 /

:%2=-%4+1
:on -1 215





t/s/<_________________</
:on ?-3 / /+1 /
f1/s//^/
:%D="YT"
:%H="Y"
:%F="YS"
t
:%3=0
:on ?-94 / 287 /
:on ?-38 /+2 / /+2
:on %2 356 290 356

:on ?-3 236 356 236











:on ?-46 264 / 264
:on $2 / / 264

b0/sl/*.Y /?/
:on ?-13 / / 334
b0/sl/*.YT /?/
:on ?-13 / /+5 /
:%9=$4
:on -1 531
YT / / 0 0 / / %M
ft/f1/d1
:on -1 220
b0/sl/*YS/
:on ?-13 / /+3 /
:%W=1
:on -1 334

:mc 1
:%1=?
:on %1-90 /+1 /+1 /
:%1=%1-32
:on %1-67 / 260 /
:on %1-72 / 262 /
:on %1-82 / 262 /
:%3=%3+%4

f1
:on -1 220
:%3=%3+%4
j1
:on $2 /+8 / /+8
b1
:on ?-13 / /+3 /
sl/<
:on ?-13 /+7 / /+7

s//!Ý/f1
:on -1 220

s//!Ý/
:on -1 220

f1/s//!Ý/
:on -1 220







:on %2 264 / 264


:%1=%4
:on %1-1 /+3 /+3 / 
:%3=%3-1
:%1=%1-1
:on -1 /-4
:on %3-10 / /+2 /+2
:on 1-%L / /+1 /
pt
t


:%9=$4
:on -1 431

t




:on 0-%L /  /+3 /+3

v%3
:on -1 /+3
:cp
:pr "#0/#13/Waiting on printer . . ."
p%3
h0/h250
t/d500/u/h0/

:on ?-38 /+1 / /+1
d1
:on 1-%G /+3 / /+3
Y %C
:%9=$4
:on -1 449
Y / / / 0
fy/f1
YT 0 0 0 0
:%V=%3
:%2=%3
f1
:%3=0
:on ?-3 / 356 /
:on 0-%U 381 218 381
f1
:%5=$5
s//</b2/j1/b2
:%9=$4
:on -1 449
Y / / / 0
:on 1-%W / /+2 /
fy
:on -1 350

:%W=0
sl/£/
:on ?-13 /+2 / /+2
f1/d1
:on -1 /+2
b0/fy/s/.Y /.YS /
f1/d2

:on %5 /+1 /+1 /
:si  %5
:on -1 220




:%8=%2
:%2=%6-%3-%2
:on %2 369 369 /

:%9=$4
:on -1 551

:on 0-%V / /+2 /
:%8=%6-%V
:on 1-%U /+3 399 /+3
:%8=%6
:on 1-%U /+1 / /+1
:on 1-%G / 381 /
:on 0-%L /  401 401
Y %C
:on %8 415 415 /
:%9=$4
:on -1 431

t/v%8
t
:on -1 415
t
:%1=%S
%1s/@£//s/ //
t/s/<^_________________</?/
w/t/d500
:on 0-%L 415 / /
:on 0-%V / 394 /
:%2=%6-%V
:on %2 415 415 /
:%9=$4
:on -1  551
:%8=%6-%V
:on -1 399
:%2=%6-%3
:on %2 /+2 /+2 /
:%9=$4
:on -1 551
:%8=%6
:on 1-%L / 415 /
:on %8 415 415 /
t
:%9=$4
:on -1 431

t
:cp
:pr "#0/#13/Waiting on printer . . ."
p%8






Y %B
YT %E / / %M
:on 0-%L /+2 / /+2
pb/t/d500
:on -1 130
vb/t/d500
:pr "#1/"
:on -1 130
f1/b0
sl/*FT/
:on ?-13 / / 443
:%2=%2+1
:on -1 184




:%1=+%S
:on %1 /+6 /+6 /
s/@£/
:mc $2+1
:on ?-49 /+1 / /+1
s/ //s/\!Ý/ /
:%1=%1-1
:on -1 433
t/sa/\!Ý//
t/s+%S/@£//
:on -1 %9

:%9=$4
:on -1 576
:on 1-%Q / 566 /
:on -1 184

:%7=$3-1
:%1=$2
e/fy/s/*.Y /?/


:%4=!
:%4=!
:%4=!
:%4=!
:%4=!
:%4=!




b0/d1/t/f%7
:mc %1

:on -1 %9


:on 0-%U / 494 /
:pr "#1/#13/Processing %A #6/"
wd
ro/foot.tmp/
wo/%A/
r
:on ?-3 /+2 /+2 /
w/d10000
:on $0 / / /-4
wd

:on 1-%L /+5 / /+5
ro/%A/
wo/%A
Y %C
vg








:%F=1




h0
:on $0 / /+1 /
rd
:on $1 / /+1 /
wd

:on 1-%F 514 / %9




:pr "#1/FORMAT job completed"
:pr "#13/"



:in "Press RETURN to exit."
:on -1 2031


:pr "#1/#3/#6/Document must be paged before using FORMAT macro."
:pr "#13/#6/Please run PAGER macro first. "
:%F=2
t/d500
:on -1 498

:pr "#1/#3/#6/Error in paged format of document. Please run PAGER again."
:pr "#13/"
:%F=2
t/d500
:on -1 498


b0/s/*.YT /?/
:%1=!
:%5=!
:%I=!
:%E=!



:%E="%1 %5 %I %E"
f1
:%5=$5
s//</
b2/j1/b1/d1

:on %5 /+1 /+1 /
:si   %5
b1
:on -1 %9


:on %4-1 /+9 /+9 /



:%1=0
:%2=%2-%4
:%1=%1+1
:on %2 / / /-3
:%2=%1
:on %1 /+1 /+1 /
t/f

s%2//</
:on -1 %9

:pr "#0/#3/#6/#2/#6/%D#13/"

:%F=2
:on -1 498























:on 0-%K 624 / 624
:%K=1



:%J=1
:pr "#1/#6/#13/All footnote references superscripted (Y/N):"
:rk %1
:on %1-13 / /+5 /
:on %1-90 /+1 /+1 /
:%1=%1-32
:on %1-78 /+1 / /+1
:%J=0



:%N=0
:on 1-%U / 621 /

:pr "#0/#3/#3/#3/Reset footnote number on every page (Y/N):#6/"
:rk %1
:on %1-13 / 621 /
:on %1-90 /+1 /+1 /
:%1=%1-32
:on %1-89 /+1 / /+1
:%N=1

t
:cp


t/f%2/s/*.FT/.FT^/
f1/s//^/s/*<.FE
s//<^/



t/f/s/^/?/

:on 0-%G /+2 / /+2
:on 1-%N /+1 / /+1
:%0=0
:on ?-13 642 / 642
:%0=%0+1
:%D=%0
:on -1 656


:on ?-48 649 /+1 /
:on ?-57 / / 649
:%0=!
:on -1 638



:%D=!
:%F="C"
:on %D%F 656 / 656
f1
:on -1 689



:pr "#0/#13/#6/Now processing footnote %D"

:%1=+%S+1
:%S=%1
:sl %D %1


:%D="@%1%D"






b1
:%8=$4
:on -1 703
:on 1-%Q / 702 /

f/f
:%8=$4
:on -1 703
:on 1-%Q / 702 /









b0/h0/s/^//h
t/s/*<.FT^/^<.FT/
f/s/*^<.FE/<.FE/f1/s//^/
t/f/d

:on 1-%G / /+3 /
t/f
s//_________________</
:%G=1
t/f/s//</u/h0



:on -1 %9

sl/\*\*/
:on ?-42 %8 / %8
:mc $2+2
:on ?-13 713 713 /
:on ?-125 / 712 713
:on ?-93 / 712 713
:on ?-62 / 712 713
:on ?-41 713  /  713
:mc $2+1
:on 1-%J /+1 / /+1
s//}/
:on %1-1 /+2 / /+2
s// /

b0/sl/\*\*
:on ?-13 /+3 /+1 /
:on ?-14 / / /+3
:%D="Error - '**' missing on footnote."
:%Q=1
:on -1 735

:mc $2-1
:on ?-123 / 732 731
:on ?-91 / 732 731
:on ?-60 / 732 731
:on ?-40 / 732 /

:mc $2+1
:on 1-%J /+1 / /+1
s//{/
s/\*\*/%D/
:on -1 %8