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