Interlisp.medley/lispusers/tmax/TMAX-NGROUP.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

(FILECREATED "16-May-2026 09:27:30" ("compiled on " |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;58|) 
"15-May-2026 14:49:15" |brecompiled| |exprs:| WRITE.TOC.ENTRY |in| "FULL 15-May-2026 ..." |dated| 
"15-May-2026 14:49:24")
(FILECREATED "16-May-2026 09:27:29" |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;58| 51129 :EDIT-BY |rmk| 
:CHANGES-TO (FNS WRITE.TOC.ENTRY CREATE.TOC.FILE WRITE.TOC.FILE) :PREVIOUS-DATE "28-Feb-2025 23:58:44"
 |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;54|)
INSERT.NGROUP :D8
(P 5 NEWOBJ P 4 NEWLOOKS P 3 OLDLOOKS P 1 LABEL P 0 TSTREAM I 1 GRAPHW I 0 NODE) ¶@´‚±®Ag
!@
¹H	
IH
Igð’±€IH	

ºgJ
oIoILIH
J

]HL
MIHMH
HK
H	›Hg
¿HM
h(177 VERIFY.NGROUP.ORDER 169 UPDATE.NUMBEROBJS 157 UPDATE? 151 TEDIT.CARETLOOKS 144 TEDIT.INSERT.OBJECT 137 GET.NGROUP.TEXTSTRING 129 TEDIT.CARETLOOKS 121 NUMBEROBJ 103 GET.FROMNODES 94 CONCAT 65 GETHASH 60 TSP.GET.NGROUP.ARRAY 39 NGROUP.GETFONT 29 TEDIT.CARETLOOKS 17 GETWINDOWUSERPROP)
(164 NGROUPP 72 NGROUP 48 NEW.NGROUP 12 TSTREAM)
( 89 "]" 83 "[")
VERIFY.NGROUP.ORDER :D8
(P 3 PREV.NGROUP P 1 CH# P 0 MOTHER I 1 NGROUP.OBJ I 0 TSTREAM) ŠAÉ

@g


Hgð³I²:@gIJµ
h²#@	
»HK
É
ð•Kµæi°ãJZ°Ú@oAÉ
oHo
id(135 TEDIT.PROMPTPRINT 128 CONCAT 69 TEDIT.PROMPTCLEAR 52 TSP.LIST.OF.OBJECTS 25 TEDIT.SELPROP)
(108 IMAGEOBJ 80 IMAGEOBJ 46 GET.PREVIOUS.NGROUPS 34 NEW.NGROUP 20 CH# 5 IMAGEOBJ)
( 122 "\" NGroup." 116 "\" is not preceded by \"" 102 "Warning: \"")
GET.PREVIOUS.NGROUPS :D8
(I 2 CHARPOS I 1 CH# I 0 NGROUP.OBJ) 
@	´BAñ(5 NGROUPP)
NIL
()
ADD.NUMBER.GROUP :D8
(P 6 NEW.NODE P 5 DEPENDENT.CLASS P 4 TEMPLATE P 3 NEW.GROUPID P 0 PREV.ITEMS I 0 TSTREAM) 

@	³1gh@g
i@g
¿@	¿@	!gH@
	1K´‚±ªH´J`do¿Hg
¹dI¿dg ¿dg¿jdnÿdhºdJ
¿		µg]L³gokihddddd¼KdhdMh
^KLM`N@
N@g
@(258 ADD.NODE.TO.GRAPH 252 STREAMPROP 240 ADD.NGROUP.TO.DBASE 223 NODECREATE 171 MKATOM 166 MENU 120 SORT 81 MKATOM 76 TSP.LEGALID 60 COLLECT.NGROUPS 53 GRAPHMENU 46 FM.CHANGESTATE 41 STREAMPROP 29 FM.GETITEM 24 STREAMPROP 5 NGROUPMENU.ENABLED?)
(247 NGROUP.GRAPH 232 |GP.DefaultFont| 187 |Number| 178 NEW.NGROUP 141 DEFAULTMENUHELDFN 132 CLRPROMPT 115 UALPHORDER 99 |MENUTYPE#| 68 NEW.NGROUP 36 IMAGEOBJ.MENUW 19 IMAGEOBJ.MENUW 12 NGROUP.MENU)
( 192 "." 106 "Parent Group?")
ADD.NGROUP.TO.DBASE :D8
(P 0 NGROUP.ARRAY I 5 TSTREAM I 4 NGROUP.NODE I 3 FONT I 2 DEPENDENT.CLASS I 1 TEMPLATE I 0 NEW.GROUPID) D
E	
@H
µ2Egi@dhdBAhddChddDhHh(65 PUTHASH 29 STREAMPROP 15 GETHASH 5 TSP.GET.NGROUP.ARRAY)
(23 REBUILD.GRAPHFLG)
()
COLLECT.NGROUPS :D8
(I 0 TSTREAM) 5
@g

1HµI
d
gð©
»Jµ
KhZY¿HX°ãK&Z°÷(10 STREAMPROP)
(28 NEW.NGROUP 5 NGROUP.GRAPH)
()
LIST.FONT.PROPS :D8
(I 0 FONTDES) /
@	´'@g
@g
@g
h(40 FONTPROP 29 FONTPROP 18 FONTPROP 5 FONTP)
(35 FACE 24 SIZE 13 FAMILY)
()
MAP.NGROUP.LOOKSA0001 :D8
(I 2 LABEL I 1 CH# I 0 OBJ) 	@B
(6 NGROUPP)
NIL
()
MAP.NGROUP.LOOKS :D8
(P 3 DATUM P 2 OBJ P 1 NCOUNT I 3 NEW.TEMPLATE I 2 TSTREAM I 1 NEW.FONT I 0 LABEL) œA¢C´dBoC•o„oo@o
iB	Bg@gC•C
µk"HµBo
g
ZÉ»CŸKC¿JI
¿A›KA¿H¸IkÔ¹°¹(130 NUMBER.NUMSTRING 97 TEDIT.PROMPTPRINT 69 TSP.LIST.OF.OBJECTS 52 TEDIT.DEFER.UPDATES 46 TEDIT.PROMPTPRINT 40 CONCAT)
(110 IMAGEOBJ 102 CHANGED 64 OBJECT 58 MAP.NGROUP.LOOKSA0001)
( 92 "Done." 34 "\" Ngroups..." 28 " for \"" 23 "FONT" 17 "FORMAT" 10 "Updating ")
NGROUP.GETFONTA0001 :D8
(I 2 LABEL I 1 CH# I 0 OBJ) 	@B
(6 NGROUPP)
NIL
()
NGROUP.GETFONT :D8
(I 2 NGROUP.OBJ I 1 TSTREAM I 0 LABEL) \B²BÉ
µF@A	



µ)Ag@g
bdŸÉ
(67 TSP.LIST.OF.OBJECTS 33 GETHASH 28 TSP.GET.NGROUP.ARRAY)
(78 IMAGEOBJ 62 FIRST 56 NGROUP.GETFONTA0001 8 IMAGEOBJ)
()
CHANGE.NGROUPA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 LABEL F 3 NGROUP.GRAPH.MENU.ITEMS) X
Rgð‘h`dR¿di¿S	
HdI¿dg ¿dg¿jdnÿdh
HdI
¿	(85 MENU 31 EVAL)
(56 DEFAULTMENUHELDFN 47 CLRPROMPT 14 |MENUTYPE#| 5 NEW.NGROUP)
()
CHANGE.NGROUP :D8
(P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 TSTREAM P 0 LABEL I 1 GRAPHW I 0 NODE F 5 LISPXHIST) 1
@d²-
A		
U!g		¿$
(42 SI::RESETUNWIND 37 \\MVLIST 32 CHANGE.NGROUPA0001 15 TEXTSTREAM 10 MAINWINDOW)
(27 SI::RESETUNWIND)
()
CHANGE.NGROUP.FONT :D8
(P 3 NEWFONT P 2 OLDFONT P 1 TEMPLATE P 0 NUMBEROBJ I 3 NGROUP.OBJ I 2 FONT.FIELD I 1 TSTREAM I 0 LABEL) àCµG@A	


H
¹@ACµA	@ACABdgð²¿o°,É°Ágð–o°Bgð•o„o
JµA	B
	[dJð³NC²*Ao@oH
i¿HK°IK¿@hA@A
gh(214 MAP.NGROUP.LOOKS 209 GET.NGROUP.TEMPLATE 173 TEDIT.PROMPTPRINT 167 CONCAT 138 FONTCREATE 133 GET.TSP.FONT 127 FONTCREATE 118 TEDIT.PROMPTPRINT 52 SHOW.NGROUP.FONT 41 FONTCREATE 33 NGROUP.GETFONT 14 GETHASH 9 TSP.GET.NGROUP.ARRAY)
(219 CHANGED 100 FACE 85 SIZE 76 IMAGEOBJ 60 FAMILY)
( 159 " " 153 "Updated font for " 113 ", change to..." 107 ", change Face to..." 92 ", change Size to..."
 69 ", change Family to...")
SHOW.NGROUP.FONT :D8
(I 2 NGROUP.OBJ I 1 TSTREAM I 0 LABEL) $A@AB		lmþi(33 TEDIT.PROMPTPRINT 27 SUBSTRING 18 CONCAT 13 ABBREVIATE.FONT 8 NGROUP.GETFONT)
NIL
()
CHANGE.NGROUP.FORMAT :D8
(P 5 LABEL P 4 OBJCHANGED P 3 FIELD P 1 TEMPLATE P 0 OLDTEMPLATE I 3 NGROUP.OBJ I 2 FORMAT.FIELD I 1 TSTREAM I 0 LABEL) 
a@A
	
Cµ$@A	




BµC²o°g
°áo1Jµ$HMA
ô’±ÿMhAMA
g£J»h„J
»JºKdgð›¿MAI¿°¼gðšMAI¿°ªKdgð›¿MAI¿°•gðžMAC²„i¼±ÿ€Kdgðœ¿MAI¿±ÿjgð›MAI¿±ÿWKdgðœ¿MAC¿±ÿAgð²ACg¢±ÿ)i¼±ÿ$Kgð²ACg¢±ÿi¼±ÿoK
¿±þ÷C´
L´g(335 ERROR 315 CHANGE.NGROUP.FORMAT.#TEXT 285 CHANGE.NGROUP.FORMAT.#TEXT 261 CHANGE.NGROUP.FORMAT.MANINDEX 239 CHANGE.NGROUP.FORMAT.TOC 220 CHANGE.NGROUP.FORMAT.START 195 CHANGE.NGROUP.FORMAT.ABBREV 177 CHANGE.NGROUP.FORMAT.DELIMAFTER 156 CHANGE.NGROUP.FORMAT.DISPLAY 138 CHANGE.NGROUP.FORMAT.DELIMBEFORE 102 MAP.NGROUP.LOOKS 97 GET.NGROUP.TEMPLATE 82 GET.NGROUP.TEMPLATE 61 IMAGEOBJPROP 29 GETHASH 24 TSP.GET.NGROUP.ARRAY 11 COPY 6 GET.NGROUP.TEMPLATE)
(350 CHANGED 310 AFTER 300 AFTER#TXT 280 BEFORE 270 BEFORE#TXT 250 MANINDEX 229 TOC 209 START 185 ABBREVVAL 166 DELIMAFTER 146 DISPLAY 127 DELIMBEFORE 107 CHANGED 56 DATUM)
( 329 "Unknown NGroup Format field" 68 (DELIMBEFORE DELIMAFTER DISPLAY ABBREVVAL START TOC MANINDEX) 49
 (DELIMBEFORE DELIMAFTER DISPLAY ABBREVVAL AFTER#TXT BEFORE#TXT))
SHOW.NGROUP.FORMAT :D8
(P 0 TEMPLATESTRING I 1 TSTREAM I 0 LABEL) 
@AiXAHiH(19 TEDIT.PROMPTPRINT 10 GET.NGROUP.TEMPLATE)
NIL
()
GET.NGROUP.TEMPLATE :D8
(P 1 TEMPLATE P 0 NUMOBJ I 2 STRING I 1 TSTREAM I 0 LABEL) ™@A	


H
¹B²~@ooI
µooI
oI
µoooI
oI
•o„oA	²I
•oŠo„o
I(148 CONCAT 115 MANUALINDEX.ENABLED? 11 GETHASH 6 TSP.GET.NGROUP.ARRAY)
NIL
( 142 "" 136 " ManIndex=No" 130 " ManIndex=Yes" 109 "No" 103 "Yes" 92 " TOC=" 83 " Start=" 78 "\"" 73 ""
 63 "]" 56 "[" 51 "" 36 "\"" 31 ": Display=")
CHANGE.NGROUP.FORMAT.DELIMBEFORE :D8
(P 0 NEW.DELIMITER I 2 TEMPLATE I 1 TSTREAM I 0 LABEL) 7
A@B
gXd²B

ªBH
h(39 STREQUAL 22 GET.NGROUP.DELIMITER)
(17 BEFORE)
()
CHANGE.NGROUP.FORMAT.DISPLAY :D8
(P 2 NEW.DISPLAY I 2 TEMPLATE I 1 TSTREAM I 0 LABEL) „Ao@oB
o
i`do¿di¿do¿dg ¿dg¿jdnÿdh
HdI
¿	
A	Jd<4A>B
ð¨BJgh(112 TEDIT.PROMPTCLEAR 103 MENU 30 TEDIT.PROMPTPRINT 24 CONCAT)
(127 CHANGED 74 DEFAULTMENUHELDFN 65 CLRPROMPT 35 |MENUTYPE#|)
( 56 (|Number| |Null String| UPPERCASE\ LETTER |lowercase letter| UPPERCASE\ ROMAN |lowercase roman|) 42
 "NGroup Displays" 18 ", change to..." 11 "\" displayed as " 5 "\"")
CHANGE.NGROUP.FORMAT.DELIMAFTER :D8
(P 0 NEW.DELIMITER I 2 TEMPLATE I 1 TSTREAM I 0 LABEL) '
A@B
gXdŸB

¥BH
h(28 STREQUAL 17 GET.NGROUP.DELIMITER)
(12 AFTER)
()
GET.NGROUP.DELIMITER :D8
(I 3 BEFORE/AFTER I 2 DELIMITER I 1 LABEL I 0 TSTREAM) ›@oCgð•o„oAoB²oBo„go
i`do¿di¿do¿dg ¿dg¿jdnÿdh
HdI
¿	@	¿(151 TEDIT.PROMPTCLEAR 145 MENU 72 TEDIT.PROMPTPRINT 66 CONCAT 49 CONCAT)
(116 DEFAULTMENUHELDFN 107 CLRPROMPT 77 |MENUTYPE#| 55 |Unspecified| 11 BEFORE)
( 98 ((|Period| ".") (|Colon| ":") (|Dash| "-") (|Null String| "") (|Other| (TEDIT.GETINPUT TSTREAM (CONCAT "Specify delimiter " (SELECTQ BEFORE/AFTER (BEFORE "preceding ") "following ") LABEL ":"))))
 84 "NGroup Delimiters" 60 ", change to..." 44 "\"" 38 "\"" 30 "\" is " 24 "following " 18 "preceding "
 5 "Delimiter ")
CHANGE.NGROUP.FORMAT.ABBREV :D8
(P 5 NEW.ABREV P 4 PARENTS I 2 NGROUP.OBJ I 1 TSTREAM I 0 LABEL) ãBÉ1@hAL¢±±A@H
²oH

„ooi`@o
¹dI¿L@h
ºdJ¿di¿dg ¿dg¿jdnÿdh»dK
¿	d´dH
ð¤dL
ð‘hgAo@oih(223 TEDIT.PROMPTPRINT 217 CONCAT 169 MENU 118 \\APPEND2 103 CONCAT 86 TEDIT.PROMPTPRINT 80 CONCAT 64 CONCAT 18 LIST.ANCESTORS)
(199 CHANGED 144 DEFAULTMENUHELDFN 135 CLRPROMPT 91 |MENUTYPE#| 5 IMAGEOBJ)
( 212 "\"" 206 "Cannot abbreviate top level NGroup \"" 98 " Levels" 75 ". Select starting level." 70 " not abbreviated"
 47 " abbreviation starts at ")
CHANGE.NGROUP.FORMAT.START :D8
(P 0 NEWSTART I 2 TSTREAM I 1 TEMPLATE I 0 LABEL) 
@ABXd<58>A
ð¦AH
h(10 GET.NGROUP.START)
NIL
()
GET.NGROUP.START :D8
(P 0 NEWSTART I 2 TSTREAM I 1 TEMPLATE I 0 LABEL) }
Bo@oA
o

	
Hd3 ²:gð§Hgð‘ikHñ¡HBoHoA
o
ih´BHo
ih(121 TEDIT.PROMPTPRINT 115 CONCAT 99 TEDIT.PROMPTPRINT 93 CONCAT 36 MKATOM 31 TEDIT.GETINPUT 26 CONCAT)
(58 |Null String| 50 |Number|)
( 110 " is not an integer" 87 "\"" 80 ") must be > 0 for \"" 74 "Start (=" 20 ".  New starting value:"
 11 " is " 5 "Starting value of ")
CHANGE.NGROUP.FORMAT.TOCA0004 :D8
(L (0 ITEM)) 
@NIL
NIL
()
CHANGE.NGROUP.FORMAT.TOC :D8
(P 0 NEW.ADDTOTOC I 2 TEMPLATE I 1 TSTREAM I 0 LABEL)   
Ao@oB
•o„oo
i`do¿di¿do¿dg¿dg ¿dg¿jdnÿdh¹dI
¿	XA	Hd²
B
ð©BH
ih(133 TEDIT.PROMPTCLEAR 126 MENU 48 TEDIT.PROMPTPRINT 42 CONCAT)
(101 DEFAULTMENUHELDFN 92 CLRPROMPT 83 CHANGE.NGROUP.FORMAT.TOCA0004 53 |MENUTYPE#|)
( 74 ((YES T) (NO NIL)) 60 "In TOC?" 36 "included in the TOC. Do you want it included?" 31 "NOT " 25 ""
 14 "\" is " 8 "\"")
CHANGE.NGROUP.FORMAT.MANINDEXA0004 :D8
(L (0 ITEM)) 
@NIL
NIL
()
CHANGE.NGROUP.FORMAT.MANINDEX :D8
(P 0 NEW.MANUALINDEX I 2 TEMPLATE I 1 TSTREAM I 0 LABEL) × 
A	´‚±ÉAo@oB
•o„oo
i`do¿di¿do¿dg¿dg ¿dg¿jdnÿdh¹dI
¿	XA	Hd²?
B
ð³2H
<01>Ag@°Ag@Ag

ih(209 STREAMPROP 204 REMOVE 199 STREAMPROP 179 STREAMADDPROP 147 TEDIT.PROMPTCLEAR 140 MENU 62 TEDIT.PROMPTPRINT 56 CONCAT 8 MANUALINDEX.ENABLED?)
(194 MANUALGROUPS 187 MANUALGROUPS 173 MANUALGROUPS 115 DEFAULTMENUHELDFN 106 CLRPROMPT 97 CHANGE.NGROUP.FORMAT.MANINDEXA0004 67 |MENUTYPE#|)
( 88 ((YES T) (NO NIL)) 74 "Manual Index?" 50 " included in the Manual Index. Do you want it included?"
 45 "NOT" 39 "" 26 "\" is " 20 "\"")
UPDATE.NGROUP.MANINDEX :D8
(P 4 TEMPLATE.SUBLIST P 3 MAN.TEMPLATES P 2 LABEL.OFFSET P 1 LABEL.GROUPS P 0 MAN.GROUPS I 1 TSTREAM I 0 NUMBEROBJ) mA	´YAg

@
H
Y´@H	I	ÙkØ
Ag

KJ

LµAg@
@
dh¿(94 STREAMADDPROP 71 NTH 61 STREAMPROP 44 LENGTH 38 LENGTH 29 MEMB 18 STREAMPROP 5 MANUALINDEX.ENABLED?)
(83 MANUALTEMPLATES 56 MANUALTEMPLATES 13 MANUALGROUPS)
()
NGROUP.FIXUP.RECORDS :D8
(P 0 TEMPLATE I 1 COPYFLG I 0 NGROUP.RECORD) É@

@
A²1@
dgð²¿o@
o°gð´o‚@
@
@
H
H
H
H
H
¹A‘h…H
H
IhddA‘h†@
@
@
@
@
@
h(44 CONCAT)
(51 NOTE 23 NGROUP)
( 59 "Note#" 39 "]" 32 "[")
GET.NGROUP.TEXTSTRING :D8
(P 0 TOC.STRING I 2 TSTREAM I 1 LABEL I 0 NBROBJ) ”
B	²HBoAoA	
H²%@ÉH	o
¿B	´>BoAo

H´"@ÉoH	

(143 CONCAT 138 CONVERT.TABS.TO.SPACES 107 TEDIT.GETINPUT 102 CONCAT 83 TEXTAFTER.ENABLED? 74 CONCAT 64 CONVERT.TABS.TO.SPACES 35 TEDIT.GETINPUT 30 MKSTRING 24 CONCAT 5 TEXTBEFORE.ENABLED?)
(119 IMAGEOBJ 47 IMAGEOBJ)
( 132 " " 97 ":" 91 "Text after " 69 " " 19 ":" 13 "Text before ")
CONVERT.TABS.TO.SPACES :D8
(P 3 CHAR I 0 STRING) J
@	´B0@	°-d

Kl
ð«Kl	ð¦Kdl
ð’¿l 	¸IµHhZ<>H&¹µÔJ	(71 CONCATLIST 47 CHARACTER 16 CHCON 5 STRINGP)
NIL
()
CREATE.TOC.FILE :D8
(P 3 TOC.STREAM P 2 TOC.TABSTOP P 1 TOC.LIST P 0 DUMMYSTREAM I 1 TOC.FILE I 0 TSTREAM) 

Aµ@g
		µoA
	b@oAoigg
g
@g
ggooÖ	ghhh@H
H	I²RA²?hdddJ
[dI@KAhddi
bd	A	b@o
AI<>@oih@oih(253 TEDIT.PROMPTPRINT 239 TEDIT.PROMPTPRINT 223 TEDIT.PROMPTPRINT 210 FULLNAME 204 CLOSEF? 196 TEDIT.PUT 184 WRITE.TOC.FILE 175 OPENTEXTSTREAM 158 DELFILE 152 TEDIT.TO.IMAGEFILE 128 FIXR 102 TSP.LIST.OF.OBJECTS 91 OPENIMAGESTREAM 81 UNIX-TMP-FILE-NAME 66 TEDIT.PROMPTPRINT 60 CONCAT 41 ERROR 36 CONCAT 23 OUTFILEP 18 GET.TOC.FILE 13 STREAMPROP)
(133 DOTTEDLEFT 112 TABS 107 PARALOOKS 97 NGROUP.TOC.ENTRIES 86 PDF 76 |pdf| 71 |tmax-toc| 8 IMAGEOBJ.MENUW)
( 247 "There are no NGroups included in the Table-Of-Contents." 233 "Please specify a file name for the table of contents"
 218 "done" 122 6.125 117 72.27 55 "..." 49 "Writing contents on " 30 "Can't open table of contents file ")
NGROUP.TOC.ENTRIES :D8
(I 0 NBROBJ) 
@	´@É

(5 NGROUPP)
(13 IMAGEOBJ)
()
VIEW.TOC.FILE :D8
(P 0 TOC.FILE I 0 TSTREAM) :

@	
H´.@gH@g

			H(54 STREAMPROP 49 WINDOWREGION 44 WFROMDS 39 TEXTSTREAM 34 TEDIT 29 STREAMPROP 5 CREATE.TOC.FILE)
(24 TOC.REGION 17 TOC.REGION)
()
GET.TOC.FILE :D8
(P 0 FILENAME I 0 MENUW) `
gh@Ã<00>gh@°ogh@
É
H	Yjð³I–I	¦H	h(91 MKATOM 84 \\FZEROP 69 NCHARS 53 ERROR 48 FM.GETITEM 29 FM.GETITEM 11 FM.GETITEM)
(58 FREEMENUITEM 41 TOC.FILE 22 TOC.FILE 16 FREEMENUITEM 4 TOC.FILE)
( 36 "Arg must be FreeMenuItem")
WRITE.TOC.FILE :D8
(P 2 TOC.ITEM P 0 TOC.MOTHER I 2 TSTREAM I 1 TOC.LIST I 0 TOC.STREAM) to	@
o@
¿@	B	°%d

`@
¿@	¿AIµ
µÜh
ZÉ
B
Hð˜J@B¿IY°Ö(108 WRITE.TOC.ENTRY 97 GET.NGROUP.MOTHER 64 TERPRI 57 DSPFONT 39 TOPLEVEL.SISTERS 33 TERPRI 26 PRIN1 15 DSPFONT 9 FONTCREATE)
(88 IMAGEOBJ 51 |GP.DefaultFont|)
( 20 "Table of Contents" 4 (HELVETICA 14 BRR))
WRITE.TOC.ENTRY :D8
(P 2 ITEM.LEVEL P 0 DATUM I 2 TSTREAM I 1 TOC.STREAM I 0 TOC.ITEM) Ò@É
H
hB	
`A
Jjð³Jd¢±Š	¢±€A	¿H
A
H
µoA
¿H
A
¿H
µoA
`A
l		A
H
A
A	JYjñ²†oA
¿IkÙ°ì(202 PRIN1 184 TERPRI 178 PRIN1 163 PRIN1 157 CHARACTER 150 DSPFONT 139 PRIN1 117 PRIN1 107 PRIN1 83 DSPFONT 66 TERPRI 56 \\FZEROP 38 DSPFONT 24 LENGTH 19 LIST.ANCESTORS)
(144 |GP.DefaultFont| 32 |GP.DefaultFont| 5 IMAGEOBJ)
( 196 "   " 133 "" 101 "")
(PRETTYCOMPRINT TMAX-NGROUPCOMS)
(RPAQQ TMAX-NGROUPCOMS ((* |;;| "Developed under support from NIH grant RR-00785.") (* |;;| 
"Written by Frank Gilmurray and Sami Shaio.") (* |;;;| "Other unsorted functions") (FNS INSERT.NGROUP 
VERIFY.NGROUP.ORDER GET.PREVIOUS.NGROUPS ADD.NUMBER.GROUP ADD.NGROUP.TO.DBASE COLLECT.NGROUPS 
LIST.FONT.PROPS MAP.NGROUP.LOOKS NGROUP.GETFONT CHANGE.NGROUP CHANGE.NGROUP.FONT SHOW.NGROUP.FONT 
CHANGE.NGROUP.FORMAT SHOW.NGROUP.FORMAT GET.NGROUP.TEMPLATE CHANGE.NGROUP.FORMAT.DELIMBEFORE 
CHANGE.NGROUP.FORMAT.DISPLAY CHANGE.NGROUP.FORMAT.DELIMAFTER GET.NGROUP.DELIMITER 
CHANGE.NGROUP.FORMAT.ABBREV CHANGE.NGROUP.FORMAT.START GET.NGROUP.START CHANGE.NGROUP.FORMAT.TOC 
CHANGE.NGROUP.FORMAT.MANINDEX UPDATE.NGROUP.MANINDEX NGROUP.FIXUP.RECORDS) (* |;;;| 
"Table-of-Contents functions") (FNS GET.NGROUP.TEXTSTRING CONVERT.TABS.TO.SPACES CREATE.TOC.FILE 
NGROUP.TOC.ENTRIES VIEW.TOC.FILE GET.TOC.FILE WRITE.TOC.FILE WRITE.TOC.ENTRY)))
NIL