;       L#1     10/18/83  BOILER v.3.07  pg
;
:on %0-5673 / /+10 /
:pr "#1/            ***  боилер мацрофеатуре  ***"
:pr "#13/#13/BOILER will extract stock text from a boiler"
:pr "#13/plate master file.  This text is inserted into the"
:pr "#13/document you wish to create.#13/#13/"
:pr "You will be asked for the filenames for the document"
:pr "#13/and for the boilerplate master file.  The files "
:pr "#13/'BOILER.TEM' and 'BOILER.MAS' can be used to demonstrate"
:pr "#13/the functions.#13/#13/
:in "Hit any key to continue"


:on %0-5673 / /+2 /
:PR "#1/#3/#3/#3/#6/"
:IN "Name of template (RET if already in memory): " %B
:SL %B %1
:on %1 / /+4 /
ro/%B/
:on $0 / /-6 /
rd

:on %0-5673 / /+2 /
:PR "#0/#3/#3/#3/#3/#6/
:IN "Filename of boilerplate master file:      " %C
ro/%C/
:on $0 / /-4 /
rd

:on %0-5673 / /+2 /
:pr "#0/#3/#3/#3/#3/#3/#6/"
:IN "Write filename (RET to save in memory):   " %D

:%7 = 0
:%0 = 0



:%9 = $4
:on -1 156
:on $0 / 133 /
:PR "#1/PROCESSING text with boiler file '%A'"
t/s//<#^</
t/f1
ri
:on $0 137 / 137




:SL %B %1
:on %1 / 63 /
ro/%B/
:%B = ""

:SL %D %1
:on %1 / 63 /
wo/%D/
:on $1 63 / 63
:in "#1/Cannot open output file '%D'"
:on -1  148



:on $0 / /+1 /
r200

t/f
:%8 = 0
s/\*/*/

:on ?-3 / 112
:on ?-39 / 79
:on ?-48 /+1 / /
:on ?-58 85 / /
b0/s/\*/&&/
:on -1 71

:MC $2+1
:%A = !'
:%A = "'%A'"
:on -1 87

:%A = !

:pr "#0/#3/#6/Processing item: %A"

t/s/*\#%A╕/
:on ?-3 95 / 95
t/s/\*%A/&&%A/
:%8 = %8+1

:on -1  71
b0
:on ?-35 / /+1 /
s/?/#/
f1/s/#/
b1/s/</^/
b1
:on ?-35 /-2 / /-2

:oe 137
f1/h0/h
s/^/</b1/u
t/f/s/\*%A╕/
s/\*%A//u
:oe 133
:on -1 71




:pr "#0/#3/%8 * items left unmerged in file"

t/f/f1/sa/^//
t/f/f1/sa/&&/*/
t/f/f1
:on $1 / /+1 /
w/d1000
:on $0 63 / 63

:on $1 / /+2 /
wd
:%B = "%D"
t/f/f1
:%3 = $3-1
t/d%3

:on %8 / / 38



:%A = "Job completed. "
:on -1 148


:%A = "BOILER file '%A' is too long. "
:on -1 148


:%A = "Error in boiler processing. "
:on -1 148


:%A = "Out of memory. "


:on $0 / /+1 /
rd
:on $1 / /+1 /
wd
:PR "#0/#6/%A  Hit any key to exit"
:IN
:on -1 1013

:on %0 %9 / 168
ro/%C/
r1
:%1 = ?
rd
d100
:on %1-38 / 168 /
ro/%C/
:%0 = -1
:%A = "%C"
:ON -1 %9


:%0 = %0+1
ro/%C/
r%0/d1000
e
:on $0 / /+1 /
r1
:on $0 / /+1 /
rd
:%A =  !
:SL %A %1
:ON %1 / %9 /
b0/d1
ro/%A/
:on -1 %9