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%" ","]%% "(1,1)
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