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