1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* DOT_PAGEs
9 .srv BLANK
10 .* ENTRY VECTOR
11 .ur .go %InputFileName%
12 .*
13 .la dot_page
14 .ts "%ParamPresent%"
15 .go start
16 .*
17 .err dot_page has been called without a revision/addumdum number.
18 .rt
19
20 .la start
21 .srv ADD_LETTER "%DotAddLetter%"
22 .ur .srv DotAddLetter "%%before "%Parameter%" ""%% "11
23 .ur .srv BLANK "%%after "%Parameter%" ""%%"
24 .brb
25 .srv DOT_PAGE "%PageNo%"
26 .srv THIS_FRONT %FrontPage%
27 .ts "%BLANK%" ^= ""
28 .brs o "This page intentionally left blank." "" "|%draft%%add_date%||%draft_date% %ORDER_NUMBER%%DotAddLetter%|"
29 .ur .brp %DOT_PAGE%.1
30 .rt
31 .*
32 .la dot_page_off
33 .ts "%DOT_PAGE%" ^= ""
34 .go check_blank
35 .err Not in dot page mode.
36 .rt
37
38 .la check_blank
39 .brp ;.* flush output
40 .ts %FrontPage% = %THIS_FRONT% ;.* did we end where we started?
41 .brs 1 "This page intentionally left blank." "" "|%draft%%add_date%||%draft_date% %ORDER_NUMBER%%DotAddLetter%|"
42 .srv DotAddLetter "^?" ;.* value is PAD
43 .ur .brp %DOT_PAGE% ;.* restore main sequence
44 .brp +1 ;.* and advance
45 .srv DOT_PAGE ""
46 .srv DotAddLetter "%ADD_LETTER%"
47 .rt