1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* LEVEL 0 HEADS
9 .srv LEFT_SLUG "" ;.* clean up leftovers
10 .srv RIGHT_SLUG ""
11 .inb ;.ls ;.* go back to defaults
12 .srv ENTRY "%InputFileName%"3 ;.* set local variables
13 .ts "%ENTRY%" = "index"
14 .go l0index
15 .*
16 .ts "%ParamPresent%" = "T" & "%Parameter%" ^= ""
17 .ur .go %InputFileName%
18 .*
19 .ur .err %InputFileName% has been called with no parameter or with a null string.
20 .exc signal comp_abort
21 .rt
22 .* H, EXACT, SETUP, INDEX, NEW
23 .la l0h
24 .la l0exact
25 .la l0x
26 .la l0setup
27 .la l0index
28 .la l0new
29 .indctl on
30 .if "%ENTRY%" = "new"
31 .then .srv NEW_CBAR -1
32 .else .srv NEW_CBAR 0 ;.srv TOC_CBAR "off"
33 .endif
34 .indctl
35 .ur .ifi %DOCUMENT_TYPE%_prose_layout
36 .htf
37 .sr SECTION ""
38 .sr SECTION_IN_TOC ""
39 .ts "%ENTRY%" = "index"
40 .srv section "i"
41 .ts "%section%" ^= ""
42 .srv SECTION_MARK "-"
43 .ur .brp %section%%SECTION_MARK%1
44 .srv PAGENO_SET -1
45 .chl
46 .ts "%ENTRY%" = "setup"
47 .rt
48 .*
49 .ur .spd %L0_DEPTH%
50 .ts "%section%" = ""
51 .go section_head
52 .*
53 .ur .ts %%length "%section%"%% > 1
54 .go section_no
55 .*
56 .ts "%section%" >= "0" & "%section%" <= "9"
57 .go section_no
58 .*
59 .sr SECTION "Appendix %section%"
60 .sr SECTION_IN_TOC "Appendix %section%"
61 .ts "%ENTRY%" = "index"
62 .srv SECTION "Index"
63 .go section_head
64 .*
65 .la section_no
66 .ts "%style%" = "roman"
67 .srm ru section
68 .sr SECTION "Section %section%"
69 .sr SECTION_IN_TOC "Section %section%"
70 .srm ar section
71 .*
72 .la section_head
73 .ur .ifi break_title "%Parameter%"
74 .ts "%ENTRY%" = "index"
75 ..break_title "Index"
76 .fif
77 .alc
78 .ts "%DeviceClass%" = "bitmap"
79 .alr
80 .fnt l0font 18
81 .ts "%ENTRY%" = "index"
82 .go SECTION_NAME
83 .ts "%section%" = ""
84 .go SECTION_NAME
85 .*
86 .ur %SECTION%
87 .spf 2
88 .ts "%DeviceClass%" = "bitmap"
89 .spf 0.5
90 .*
91 .la SECTION_NAME
92 .ts "%InputFileName%" = "l0exact"
93 .fnt
94 .ts "%DeviceClass%" = "bitmap"
95 .ls 1.667
96 .srv TITLEI 1
97 .la TITLE_LOOP
98 .ur .ur %PAD%%%TITLE%TITLEI%%%
99 .srv TITLEI %TITLEI% + 1
100 .ts %TITLEI% <= %TITLEN%
101 .go TITLE_LOOP
102 .ts "%ENTRY%" ^= "exact"
103 .fnt
104 .ls 1
105 .fin
106 .alb
107 .spd +2
108 .ts "%DeviceClass%" ^= "bitmap"
109 .spd +2
110 .*
111 .ts "%TOCING%" ^= "" & "%ENTRY%" = "h" | "%ENTRY%" = "new"
112 .ur .ifi l0toc "%TITLE%"
113 .ts "%ENTRY%" ^= "index"
114 .rt
115 .*
116 ..twocol
117 .inl 8
118 .fnt CSR 8
119 .ls 0.833
120 .all
121 .ur .srv INDEXSPACE %LABELSPACE%
122 .rt