1 .* ***********************************************************
 2 .* *                                                         *
 3 .* *                                                         *
 4 .* * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5 .* *                                                         *
 6 .* *                                                         *
 7 .* ***********************************************************
 8 .*                                      PARAGRAPH definitions
 9 .*                                      finish paragraph and add
10 .ur .ur .spt %%{%MPM_SPACE% + %LABELSPACE%}%% ;.* appropriate lead
11 .*
12 .srv HANG_COUNT 1
13 .ts "%InputFileName%"(1,3) = "par"
14 .go LONG_FORM
15 .*
16 .ts "%InputFileName%" = "pfl" | "%InputFileName%" = "phg"
17 .ur .go %InputFileName%
18 .*
19 .srv WHICH_INDENT "%InputFileName%"(2,1)
20 .srv WHICH_INDENT %WHICH_INDENT% * %PAR_INDENT%
21 .ur .inl %WHICH_INDENT%
22 .ts %ParamPresent%
23 .srv HANG_COUNT %Parameter%
24 .ur .go %InputFileName%
25 .*
26 .la LONG_FORM
27 .ts %ArgCount% = 0                      ;.* if no indent change
28 .go NO_INDENT_CHANGE
29 .ts "%Arg1%" = ""                       ;.* if no value given
30 .go NO_INDENT_CHANGE
31 .ur .srv WHICH_INDENT %Arg1% * %PAR_INDENT%
32 .ur .inl %WHICH_INDENT%
33 .la NO_INDENT_CHANGE
34 .ts %ArgCount% > 1
35 .srv HANG_COUNT %Arg2%
36 .ur .go %InputFileName%
37 .*
38 .la par_hanging;.la phg;.la p9h;.la p8h;.la p7h;.la p6h
39 .la p5h;.la p4h;.la p3h;.la p2h;.la p1h
40 .ts %WHICH_INDENT% > 0
41 .ur .ur .unh %%{%HANG_COUNT% * %PAR_INDENT%}%%
42 .rt
43 .*
44 .la par;.la p9;.la p8;.la p7;.la p6;.la p5;.la p4
45 .la p3;.la p2;.la p1;.la p0
46 .ur .un -%PAR_INDENT%
47 .rt
48 .*
49 .la par_flush;.la pfl;.la p9f;.la p8f;.la p7f;.la p6f;.la p5f
50 .la p4f;.la p3f;.la p2f;.la p1f;.la p0f
51 .rt
52 ^@^@