1 .* ***********************************************************
 2 .* *                                                         *
 3 .* *                                                         *
 4 .* * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5 .* *                                                         *
 6 .* *                                                         *
 7 .* ***********************************************************
 8 .*                                      CONDITIONAL ENTRY SEPARATOR BARS
 9 .brb                                    ;.* finish block
10 .ts (%TextDepth% = 0) & ("%Galley%" = "T")        ;.* at top of page?
11 .rt                                     ;.* no bars there
12 .*
13 .indctl on
14 .srv LENGTH "%InputFileName%"(-1)       ;.* how much space?
15 .ur .ur .srv HALF "%%%%[before "%%{%LENGTH% / 2}%%" "."]%%%%"
16 .*
17 .if %LinesLeft% > %HALF%
18 .then     .ur .spt %HALF%
19           .brb
20           .bbt 1
21           .bba 1
22 ||"^H-                                       *^H-|
23 .endif
24 .ur .ur .spb %%{%LENGTH% - %HALF%}%%
25 .indctl
26 .rt