1 .* ***********************************************************
 2 .* *                                                         *
 3 .* *                                                         *
 4 .* * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5 .* *                                                         *
 6 .* *                                                         *
 7 .* ***********************************************************
 8 .*        Begin new command/AF/subroutine description
 9 .*
10 .*        Generates a 14pt. bold flush outside index slug from Arg1.
11 .*        Emits a level 1 TOC entry with Arg1.
12 .*        Emits Arg1 in 12pt. bold flush left to the page.
13 .*
14 .*        ..module arg1
15 .*        ..slug_off                    Cancel index slug
16 .*
17 .indctl on
18 .ur .go %InputFileName%
19 .go ret
20 
21 .la module
22 .ts %ArgCount% > 0                      ;.* be sure theres an argument
23 .go ARG_OK
24 .err No module name given.
25 .go ret
26 
27 .la ARG_OK
28 .brp                                    ;.* eject pending page
29 .in 0                                   ;.* restore left margin
30 .*
31 .*                                      entry to cancel slugs/box headers
32 .la slug_off
33 .ifi set_page_header                    ;.* cancel existing slug/box header
34 .ts "%InputFileName%" = "slug_off"
35 .go ret
36 .*
37 .ts "%DeviceClass%" = "bitmap"
38 .go SET_SLUG
39 .*                                      Set box header
40 .srv TITLE1 "%Parameter%"
41 .srv TITLEN 1
42 .srv FORM 5                             ;.* form is exact
43 .*.srv COLON_INDEX 0
44 .ifi setbox
45 .hbb a                                  ;.* build the page head box
46 .all
47 .inl 0
48 .ur |%BOX_LINE%||%BOX_LINE%|
49 .spf
50 .srv TITLEI 1
51 .la TITLE_LOOP
52 .ur .ur |%PAD%%%BOX_WORD%TITLEI%%%||%PAD%%%BOX_WORD%TITLEI%%%|
53 .srv TITLEI %TITLEI% + 1
54 .ts %TITLEI% <= %TITLEN%
55 .go TITLE_LOOP
56 .ur |%BOX_LINE%||%BOX_LINE%|
57 .hbe
58 .go SET_NAME
59 
60 .la SET_SLUG
61 .ur .hlo |||%.fnt HBR 14%%Arg1%%.fnt%|  ;.* set new slug
62 .ur .hle |%.fnt HBR 14%%Arg1%%.fnt%|
63 .srv MODULE -1
64 .*
65 .la SET_NAME
66 .ur .tlh %LABELSPACE% 0 |%.fnt HBR 12%Name: %Arg1%%.fnt%|
67 .*                                      ;.* generate TOC entry
68 .if "%TOCING%" ^= ""
69 .then     .srv TOC_CBAR "%ChangeBar%"
70           .ur .ifi l1toc "%Arg1%"
71 .endif
72 .*
73 .la ret
74 .indctl