1 .* ***********************************************************
 2 .* *                                                         *
 3 .* *                                                         *
 4 .* * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5 .* *                                                         *
 6 .* *                                                         *
 7 .* ***********************************************************
 8 .*                                                CONDITONAL WHITE SPACE
 9 .srv LENGTH "%InputFileName%"(19)
10 .ts %HeadSpace% > 0
11 .go ADD_WS
12 .ur .spb %LENGTH%
13 .rt
14 .la ADD_WS
15 .ts %LENGTH% > %HeadSpace%
16 .ur .ur .tlh %%{%LENGTH% - %HeadSpace%}%%