(FILECREATED "18-Feb-87 15:50:38" ("compiled on " {SUMEX-AIM}PS:TMAX.;6 {SUMEX-AIM}PS:DATE.;4 {SUMEX-AIM}PS:ENDNOTE.;4 {SUMEX-AIM}PS:INDEX.;4 {SUMEX-AIM}PS:NGROUP.;3 {SUMEX-AIM}PS:XREF.;6) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 10-Jul-86 ..." dated "10-Jul-86 14:58:00") (FILECREATED "18-Feb-87 15:47:56" {SUMEX-AIM}PS:TMAX.;6 13415 changes to: (VARS TSP.FM.DESC IMAGEOBJ.MENU.ITEMS) previous date: "18-Feb-87 10:00:09" {SUMEX-AIM}PS:TMAX.;6) (FILECREATED "18-Feb-87 15:42:27" {SUMEX-AIM}PS:DATE.;4 19668 previous date: "17-Feb-87 14:29:37" {SUMEX-AIM}DATE.;7) (FILECREATED "18-Feb-87 15:43:31" {SUMEX-AIM}PS:ENDNOTE.;4 15652 changes to: (FNS NOTE.BUTTONEVENTINFN) previous date: "18-Feb-87 10:11:49" {SUMEX-AIM}PS:ENDNOTE.;6) (FILECREATED "18-Feb-87 15:44:37" {SUMEX-AIM}PS:INDEX.;4 23471 changes to: (FNS INSERT.KNOWN.INDEX NOTE.BUTTONEVENTINFN) previous date: "17-Feb-87 14:27:45" {SUMEX-AIM}PS:INDEX.;5) (FILECREATED "18-Feb-87 15:45:59" {SUMEX-AIM}PS:NGROUP.;3 44781 changes to: (FNS NGROUP.BUTTONEVENTINFN INSERT.KNOWN.INDEX NOTE.BUTTONEVENTINFN) previous date: "17-Feb-87 14:25:08" {SUMEX-AIM}PS:NGROUP.;3) (FILECREATED "18-Feb-87 15:48:37" {SUMEX-AIM}PS:XREF.;6 13018 changes to: (VARS XREF.DISPLAY.METHODS) (FNS XREF.IMAGEBOXFN INSERT.REF NGROUP.BUTTONEVENTINFN INSERT.KNOWN.INDEX NOTE.BUTTONEVENTINFN) previous date: " 5-Feb-87 14:57:51" {SUMEX-AIM}PS:XREF.;5) TSP.FMMENU D1 (P 1 IMAGEOBJ.MENUW P 0 WINDOW I 0 STREAM F 2 TSP.FM.DESC) @ Hg IaHgld Hgld Hgld R YHgg Ig@ IgH Igo HgI I I (173Q OPENW 165Q OPENWP 160Q PUTWINDOWPROP 147Q PUTWINDOWPROP 133Q PUTWINDOWPROP 122Q PUTWINDOWPROP 111Q ATTACHWINDOW 76Q FM.FORMATMENU 71Q PUTWINDOWPROP 66Q HASHARRAY 54Q PUTWINDOWPROP 51Q HASHARRAY 37Q PUTWINDOWPROP 34Q HASHARRAY 15Q GETWINDOWUSERPROP 3 \TEDIT.MAINW) (154Q IMAGEOBJ.MENUW 140Q PASSTOMAINCOMS 127Q TWINDOW 116Q TSTREAM 106Q JUSTIFY 103Q TOP 61Q TSP.NGROUP.ARRAY 44Q TSP.INDEX.ARRAY 27Q TSP.CODE.ARRAY 12Q IMAGEOBJ.MENUW) ( 144Q (MOVEW SHAPEW SHRINKW BURYW)) TSP.FM.APPLY D1 (P 2 TWINDOW P 1 TSTREAM P 0 LABEL I 2 BUTTON I 1 WINDOW I 0 ITEM F 3 IMAGEOBJ.MENU.ITEMS) +@d` Ag Ag HS (50Q EVAL 35Q GETWINDOWUSERPROP 26Q GETWINDOWUSERPROP 12Q \ILLEGAL.ARG) (32Q TWINDOW 23Q TSTREAM 15Q FREEMENUITEM 5 FREEMENUITEMTYPE#) () UPDATE.ALL D1 (I 1 WINDOW I 0 STREAM) "Ag A A @ g @A (37Q INSERT.ENDNOTES 30Q TSP.LIST.OF.OBJECTS 22Q TEXTOBJ 16Q UPDATE.XREFS 12Q REBUILD.TAG.ARRAY 6 UPDATE.NUMBEROBJS) (25Q REGMARKOBJP 3 NUMBEROBJP) () UPDATE? D1 (I 0 WINDOW) @g (6 GETWINDOWUSERPROP) (3 AUTOUPDATE) () AutoUpdate.TOGGLE D1 (P 1 TOGGLE.STATE P 0 TWINDOW I 2 BUTTON I 1 WINDOW I 0 ITEM) $Ag @d` HgI (41Q PUTWINDOWPROP 21Q \ILLEGAL.ARG 6 GETWINDOWUSERPROP) (35Q AUTOUPDATE 24Q FREEMENUITEM 14Q FREEMENUITEMTYPE# 3 TWINDOW) () NGROUP.Menu.TOGGLE D1 (P 2 TOGGLE.STATE P 1 TSTREAM P 0 TWINDOW I 2 BUTTON I 1 WINDOW I 0 ITEM) 5Ag Ag @d` JIH Hg (62Q CLOSEW 57Q GETWINDOWUSERPROP 47Q GRAPHMENU 30Q \ILLEGAL.ARG 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (54Q NGROUPW 33Q FREEMENUITEM 23Q FREEMENUITEMTYPE# 12Q TSTREAM 3 TWINDOW) () Enable.TOC.TOGGLE D1 (P 1 TOGGLE.STATE P 0 TWINDOW I 2 BUTTON I 1 WINDOW I 0 ITEM) $Ag @d` HgI (41Q PUTWINDOWPROP 21Q \ILLEGAL.ARG 6 GETWINDOWUSERPROP) (35Q ENABLETOC 24Q FREEMENUITEM 14Q FREEMENUITEMTYPE# 3 TWINDOW) () GET.TSP.FONT D1 (P 5 NEWENTRY.FONT P 4 FACE P 3 SIZE P 2 FAMILY I 1 DEFAULT.FONT I 0 WINDOW) `dodi dodg dgjdndhHdI  Ag `dodi dldodg dgjdndhHdI  Ag `dodi dodg dgjdndhHdI  Ag JKLhdi ]JKMg h(377Q FONTPROP 363Q FONTCREATE 346Q FONTPROP 335Q MKATOM 332Q MENU 233Q FONTPROP 222Q MKATOM 217Q MENU 112Q FONTPROP 101Q MKATOM 76Q MENU) (374Q FACE 343Q FACE 277Q DEFAULTMENUHELDFN 270Q CLRPROMPT 236Q MENUTYPE# 230Q SIZE 164Q DEFAULTMENUHELDFN 155Q CLRPROMPT 115Q MENUTYPE# 107Q FAMILY 43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 2 MENUTYPE#) ( 261Q ((STANDARD (QUOTE MRR) "(MEDIUM REGULAR REGULAR)") (ITALIC (QUOTE MIR) "(MEDIUM ITALIC REGULAR)") (BOLD (QUOTE BRR) "(BOLD REGULAR REGULAR)") (BOLDITALIC (QUOTE BIR) "(BOLD ITALIC REGULAR)")) 244Q "Font Face" 146Q (6 10Q 12Q 14Q 16Q 22Q 30Q 44Q) 123Q "Font Size" 25Q (CLASSIC GACHA HELVETICA MODERN TIMESROMAN) 10Q "Font Family") ABBREVIATE.FONT D1 (P 0 FONT.LIST I 0 FONT) Z@ @g @g @g h@HoHo0Hd JIh[I&K (127Q CONCAT 123Q CONCATLIST 76Q GNC 32Q FONTPROP 23Q FONTPROP 14Q FONTPROP 3 FONTP) (27Q FACE 20Q SIZE 11Q FAMILY) ( 60Q " " 51Q " ") TSP.LIST.OF.OBJECTSA0001 D1 (I 3 OBL I 2 PC# I 1 PIECE I 0 CH# F 0 TESTFNARG F 1 TESTFN) 1A`)A APlQCA@h (56Q TCONC 20Q IMAGEOBJP) (45Q PIECE 26Q PIECE 13Q PIECE 4 PIECETYPE#) () TSP.LIST.OF.OBJECTS D1 (P 0 OBJLIST I 2 TESTFNARG I 1 TESTFN I 0 TEXTOBJ) Ah @gH H(21Q TEDIT.MAPPIECES 6 TCONC) (15Q TSP.LIST.OF.OBJECTSA0001) () DATEOBJ D1 (P 3 NEWOBJ P 2 DISPLAYDATE P 1 DATEANDTIME P 0 TEMPLATE.TYPE I 0 TEMPLATE) W@o IH IJHhgggggggdddddd Kgg K(123Q IMAGEOBJPROP 106Q IMAGEOBJCREATE 103Q IMAGEFNSCREATE 32Q MKSTRING 27Q DATES.TEMPLATE 17Q MKSTRING 14Q DATE) (120Q DATEOBJ 115Q TYPE 71Q NILL 66Q DATE.BUTTONEVENTINFN 63Q NILL 60Q DATE.GETFN 55Q DATE.PUTFN 52Q DATE.IMAGEBOXFN 47Q DATE.DISPLAYFN) ( 6 (M D Y F)) DATEOBJP D1 (I 0 IMOBJ) @dg g(10Q IMAGEOBJPROP) (13Q DATEOBJ 5 TYPE) () DATE.DISPLAYFN D1 (I 3 HOSTSTREAM I 2 STREAMTYPE I 1 STREAM I 0 OBJ) @A (13Q PRIN1) (3 IMAGEOBJ) () DATE.IMAGEBOXFN D1 (I 3 RIGHTMARGIN I 2 CURRENTX I 1 STREAM I 0 OBJ) $A A @A A A jh(33Q FONTDESCENT 27Q FONTHEIGHT 23Q STRINGWIDTH 7 DSPFONT 3 CURRENT.DISPLAY.FONT) (13Q IMAGEOBJ) () CURRENT.DISPLAY.FONT D1 (P 0 CURRENT.FONT I 0 STREAM F 1 TEXTOBJ) 6Q 2Hd``Ho (63Q SHOULDNT 11Q TEXTSTREAM) (51Q FONTCLASS 43Q FONTCLASSTYPE# 34Q FONTDESCRIPTORTYPE# 21Q CHARLOOKS 14Q STREAM 3 TEXTOBJ) ( 60Q "Can't get current font") DATE.PUTFN D1 (I 1 STREAM I 0 DATEOBJ) g@hA (22Q PRIN2) (6 IMAGEOBJ 2 Date) () DATE.GETFN D1 (I 0 STREAM) 5g g g g g@  (62Q APPLY 56Q READ 46Q TSP.FMMENU 43Q TEXTSTREAM 40Q PROCESSPROP 32Q THIS.PROCESS 26Q \DEFINEDP 16Q GETWINDOWUSERPROP 10Q PROCESSPROP 2 THIS.PROCESS) (52Q DATEOBJ 35Q WINDOW 23Q TSP.FMMENU 13Q IMAGEOBJ.MENUW 5 WINDOW) () DATE.BUTTONEVENTINFN D1 (P 2 DATE.MENU I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SELECTION I 1 WINDOWSTREAM I 0 DATEOBJ) a`kjhR`dododgdg dgjdndhHdI Jg@ J g(133Q MENU 127Q PUTMENUPROP 2 GETMOUSESTATE) (136Q CHANGED 123Q IMAGEOBJ 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 46Q DATES.MENU.WHENSELECTEDFN 21Q MENUTYPE# 6 LASTMOUSEBUTTONS) ( 37Q ((Month% Day,% Year (DATES.TEMPLATE DATE (QUOTE (M D Y F))) "Insert current date as %"March 8, 1952%"") (Month/Day/Year (DATES.TEMPLATE DATE (QUOTE (M D Y A))) "Insert current date as %"3/8/52%"") (Day% Month,% Year (DATES.TEMPLATE DATE (QUOTE (D M Y F))) "Insert current date as %"8 March, 1952%"") (Day/Month/Year (DATES.TEMPLATE DATE (QUOTE (D M Y A))) "Insert current date as %"8/3/52%"") (Time (DATES.TEMPLATE DATE (QUOTE (T F))) "Insert current time as %"four thirty p.m.%"") (Numbered% Time (DATES.TEMPLATE DATE (QUOTE (T A))) "Insert current time as %"4:30 p.m.%"") (Military% Time (DATES.TEMPLATE DATE (QUOTE (T E))) "Insert current time as %"16:30%"")) 27Q "Date Menu") DATES.TEMPLATE D1 (P 2 CH P 1 FUNCLST P 0 VERSION I 1 TEMPLATE I 0 DATE) A@ ogA oggoAi@H HgooAI@Hh JAI@Hh JooJAI@Hh (206Q CONCAT 202Q APPLY 145Q APPLY 125Q APPLY 64Q FINDTIME 26Q LAST 7 LAST) (71Q ABBREV 43Q EURO 37Q FULL 20Q ABBREV) ( 160Q ", " 152Q " " 104Q " " 77Q "/" 47Q ((D FINDDAY) (M FINDMONTH) (Y FINDYEAR)) 32Q (F) 13Q (A)) AMPM D1 (I 0 HOUR) l @ @ loo(13Q MKATOM 5 MKATOM) NIL ( 30Q "p.m." 23Q "a.m.") DATES.MENU.APPLY D1 (P 2 FUNCALL P 1 DATE P 0 DATE.RECORD I 1 MENU I 0 ITEM) K@dl @@bAg HA"@AHJ HJ (103Q LAST 73Q EVAL 25Q GETMENUPROP 7 \TYPEMASK.UFN) (55Q MENU 44Q MENU 30Q IMAGEOBJ 22Q IMAGEOBJ) () DATES.MENU.WHENSELECTEDFN D1 (I 2 MB I 1 MENU I 0 ITEM) BgBg@A (21Q DATES.MENU.APPLY) (11Q MIDDLE 3 LEFT) () DATES.SET D1 (I 1 VALUE I 0 PROPERTY) @A A(7 WINDOWPROP 2 CREATEW) NIL () FINDDAY D1 (I 1 VERSION I 0 OLDDATE) @kl @kl@ld (31Q MKATOM 26Q SUBSTRING 11Q NUMP 6 SUBSTRING) NIL () FINDHOUR D1 (I 0 HOUR) l @ l @ @  @@ dl kkdlladllWdllMdllCdll9dll/dll%dll dll dll ll (225Q MKSTRING 40Q MKATOM 31Q MKSTRING 24Q UNPACK 16Q MKATOM 5 MKATOM) NIL () FINDMONTH D1 (P 1 OUTPUT P 0 DATES I 1 VERSION I 0 OLDDATE) /oAg@ll H@ll H(47Q MKATOM 44Q SUBSTRING 27Q MKATOM 24Q SUBSTRING) (12Q ABBREV) ( 3 ((Jan 1 January) (Feb 2 February) (Mar 3 March) (Apr 4 April) (May 5 May) (Jun 6 June) (Jul 7 July) (Aug 10Q August) (Sep 11Q September) (Oct 12Q October) (Nov 13Q November) (Dec 14Q December))) FINDTIME D1 (P 1 MINUTES P 0 HOUR I 1 VERSION I 0 OLDDATE) 7@l l @ll AdgH oIoH g@l l l.I H H kdkodlovdlojdlo^dloRdloFdlo:dlo.dl o"dl odl ol ooI ll-I oooI l,H oH ooo(441Q AMPM 424Q FINDHOUR 411Q MKATOM 366Q MKATOM 354Q MKATOM 126Q MKATOM 123Q FINDHOUR 116Q MKATOM 113Q FINDHOUR 105Q MKATOM 76Q SUBSTRING 60Q CONCAT 54Q AMPM 37Q FINDHOUR 17Q SUBSTRING 7 SUBSTRING) (64Q EURO 27Q ABBREV) ( 462Q "a.m." 453Q "p.m." 445Q "a.m." 430Q "11" 405Q " " 401Q "o'clock" 374Q "thirty" 350Q " " 344Q "twelve" 332Q "eleven" 316Q "ten" 302Q "nine" 266Q "eight" 252Q "seven" 236Q "six" 222Q "five" 206Q "four" 172Q "three" 156Q "two" 141Q "one" 50Q " " 43Q ":") FINDYEAR D1 (I 1 VERSION I 0 OLDDATE) &Ag@ll o@ll (43Q MKATOM 40Q CONCAT 35Q SUBSTRING 20Q MKATOM 15Q SUBSTRING) (3 ABBREV) ( 25Q "19") NUMP D1 (I 0 N) @ 3hh(3 MKATOM) NIL () WHICHDATE D1 (P 0 DIVIDER I 4 VERSION I 3 OLDDATE I 2 YEAR I 1 VAR2 I 0 VAR1) 9DgooX@CDh HACDh HBCDh  (66Q MKATOM 63Q CONCAT 57Q APPLY 45Q APPLY 33Q APPLY) (6 ABBREV) ( 21Q " " 14Q "/") ADD.ENDNOTE D1 (P 0 NOBJ I 1 WINDOW I 0 STREAM) ;g H@ A Ag H@o @oi (70Q TEDIT.PROMPTPRINT 56Q TEDIT.GETINPUT 31Q UPDATE.NUMBEROBJS 21Q UPDATE? 15Q TEDIT.INSERT.OBJECT 5 NUMBEROBJ) (36Q IMAGEOBJ 26Q ENDNOTEP 2 NOTE) ( 64Q "" 53Q "Endnote text:") INSERT.ENDNOTES D1 (P 2 CARETPOSITION P 1 LIST.OF.ENDNOTES P 0 TEXTOBJ I 1 WINDOW I 0 STREAM) @ Hg @ @ I@oi gg @Hk @oHk @l ol HkA i @HI gg @Hk @oHk @o H@Jk (265Q TEDIT.NORMALIZECARET 262Q TEDIT.SETSEL 253Q TEDIT.PROMPTPRINT 243Q TEDIT.LOOKS 224Q TEDIT.INSERT.OBJECT 210Q REGMARKOBJ 177Q INSERT.ENDNOTES.TEXT 171Q TEDIT.INSERT 162Q GET.ENDNOTE.FONTS 146Q CONCAT 143Q CHARACTER 132Q CHARACTER 124Q TEDIT.LOOKS 105Q TEDIT.INSERT.OBJECT 71Q REGMARKOBJ 60Q TEDIT.PROMPTPRINT 40Q DELETE.ENDNOTES 24Q TEDIT.GETSEL 15Q TSP.LIST.OF.OBJECTS 3 TEXTOBJ) (235Q TEXTOBJ 215Q TEXTOBJ 205Q Endnotes-END 202Q ENDNOTES 152Q TEXTOBJ 116Q TEXTOBJ 76Q TEXTOBJ 66Q Endnotes-START 63Q ENDNOTES 27Q SELECTION 12Q ENDNOTEP) ( 250Q "done" 231Q (PROTECTED ON) 136Q "Notes" 112Q (PROTECTED ON) 54Q "Inserting notes at the end of the document...") INSERT.ENDNOTES.TEXT D1 (P 3 TEXT P 2 NUMSTRING P 1 ENDNOTEOBJ P 0 TEXTLOOKS I 2 LIST.OF.ENDNOTES I 1 TEXTOBJ I 0 STREAM F 4 WINDOW) aT BPdY I@JAkHi @oKl AkHi h(130Q TEDIT.INSERT 112Q CONCAT 107Q CHARACTER 73Q TEDIT.INSERT 32Q MKSTRING 3 GET.ENDNOTE.FONTS) (116Q TEXTOBJ 61Q TEXTOBJ 37Q IMAGEOBJ 23Q IMAGEOBJ) ( 101Q " ") DELETE.ENDNOTES D1 (P 3 NOTES.END P 2 NOTES.START P 1 NOTEMARKER.LIST P 0 TEXTOBJ I 0 STREAM) +@ Hg !III @JKkJ (50Q TEDIT.DELETE 15Q TSP.LIST.OF.OBJECTS 3 TEXTOBJ) (12Q NOTESREGIONP) () NOTESREGIONP D1 (I 0 IMOBJ) @ @g(3 REGMARKOBJP) (17Q ENDNOTES 11Q IMAGEOBJ) () SET.ENDNOTE.STYLE D1 (P 5 NEW.FONT P 4 OLD.FONT P 3 NOTE.TYPE P 2 NOTE.FONTS I 1 WINDOW I 0 STREAM) A `dodi dodg dgjdndhHdI  "Kd~dgJgJKgJ\@oKoL ho i AL ]LM.KdgJgJKdgJMKg@M @oi (305Q TEDIT.PROMPTPRINT 273Q MAP.ENDNOTE.LOOKS 212Q FONTCREATE 207Q GET.TSP.FONT 202Q TEDIT.PROMPTPRINT 176Q CONCAT 164Q ABBREVIATE.FONT 102Q MENU 3 GET.ENDNOTE.FONTS) (264Q Number 247Q Text 236Q Title 225Q Number 136Q Text 126Q Title 115Q Number 47Q DEFAULTMENUHELDFN 40Q CLRPROMPT 6 MENUTYPE#) ( 301Q "" 172Q " to..." 160Q " font " 153Q "Change Endnote " 31Q (Number Title Text) 14Q "ENDNOTE Fonts") MAP.ENDNOTE.LOOKS D1 (P 1 NOTE/CH# P 0 LIST.OF.NOTES I 1 NUMBERFONT I 0 STREAM) 8@ g H(@oi Hd@AIk @o (65Q TEDIT.PROMPTPRINT 50Q TEDIT.LOOKS 30Q TEDIT.PROMPTPRINT 11Q TSP.LIST.OF.OBJECTS 3 TEXTOBJ) (6 ENDNOTEP) ( 62Q "done." 24Q "Updating ENDNOTE Number looks...") GET.ENDNOTE.FONTS D1 (I 0 WINDOW) "@g @g`ddh @g (37Q GETWINDOWUSERPROP 30Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (34Q ENDNOTE.FONTS 17Q GP.DefaultFont 14Q ENDNOTE.FONTS 3 ENDNOTE.FONTS) () ENDNOTEP D1 (I 0 IMOBJ) @ @g(3 NUMBEROBJP) (21Q NOTE 11Q IMAGEOBJ) () NOTE.PUTFN D1 (I 2 WINDOW I 1 STREAM I 0 NUMBEROBJ) I@0B d IHhZH&Jg@g @hA (106Q PRIN4 70Q IMAGEOBJPROP 33Q LIST.FONT.PROPS 24Q GET.ENDNOTE.FONTS) (74Q IMAGEOBJ 65Q TAG 61Q Endnote 3 IMAGEOBJ) () NOTE.GETFN D1 (I 2 WINDOW I 1 USE/TEXT I 0 NEWOBJ) BBg0Ad IHhZH&J Ah@A@(54Q PUTWINDOWPROP 27Q FONTCREATE) (73Q IMAGEOBJ 3 ENDNOTE.FONTS) () NOTE.BUTTONEVENTINFN D1 (I 1 STREAM I 0 NUMBEROBJ) @`dgdi dodg dgjdndhHdI  (75Q MENU) (42Q DEFAULTMENUHELDFN 33Q CLRPROMPT 7 Endnotes% Menu 2 MENUTYPE#) ( 24Q ((Edit% Endnote (AUX.TEDIT NUMBEROBJ (CONCAT "Endnote #" (fetch NUMSTRING of (fetch OBJECTDATUM of NUMBEROBJ))) STREAM)) (Tag% Endnote (XREF.TAG.OBJECT NUMBEROBJ STREAM)))) AUX.TEDIT D1 (P 1 AUXWINDOW P 0 MAINWINDOW I 2 STREAM I 1 TITLE I 0 IMOBJ) @B Hg A IgH Ig@ @ Iho (75Q TEDIT 64Q MKSTRING 44Q PUTWINDOWPROP 34Q PUTWINDOWPROP 21Q CREATEW 15Q GETWINDOWUSERPROP 3 \TEDIT.MAINW) (50Q IMAGEOBJ 40Q NOTE.IMAGEOBJ 30Q MAIN.WINDOW 12Q AUXW.REGION) ( 72Q (AFTERQUITFN AUX.TEDIT.AFTERQUITFN TITLEMENUFN AUX.TEDIT.TITLEMENUFN)) AUX.TEDIT.AFTERQUITFN D1 (P 0 MAINWINDOW I 0 AUXWINDOW) $@g Hg@  H H (41Q TEDIT.NORMALIZECARET 36Q TEXTOBJ 32Q GIVE.TTY.PROCESS 26Q PUTWINDOWPROP 21Q \INSUREWINDOW 6 GETWINDOWUSERPROP) (15Q AUXW.REGION 3 MAIN.WINDOW) () AUX.TEDIT.TITLEMENUFN D1 (P 2 ITEM I 0 AUXWINDOW) k`di dodg dgjdndhHdI  Jd-g @g @ g @ (150Q TEDIT.QUIT 145Q TEXTSTREAM 137Q COERCETEXTOBJ 131Q TEXTSTREAM 112Q GETWINDOWUSERPROP 66Q MENU) (134Q STRINGP 115Q IMAGEOBJ 107Q NOTE.IMAGEOBJ 100Q Save% Changes 33Q DEFAULTMENUHELDFN 24Q CLRPROMPT 2 MENUTYPE#) ( 15Q (Save% Changes Abort% Changes)) REGMARKOBJ D1 (P 0 NEWOBJ I 1 MARKING I 0 USE) 7@Ahgggggggdddddd Hgg H(63Q IMAGEOBJPROP 46Q IMAGEOBJCREATE 43Q IMAGEFNSCREATE) (60Q REGMARKOBJ 55Q TYPE 31Q NILL 26Q REGMARK.BUTTONEVENTINFN 23Q NILL 20Q REGMARK.GETFN 15Q REGMARK.PUTFN 12Q REGMARK.IMAGEBOXFN 7 REGMARK.DISPLAYFN) () REGMARKOBJP D1 (I 0 IMOBJ) @dg g(10Q IMAGEOBJPROP) (13Q REGMARKOBJ 5 TYPE) () REGMARK.DISPLAYFN D1 (L (1 STREAM 0 OBJ)) hNIL NIL () REGMARK.IMAGEBOXFN D1 (L (3 RIGHTMARGIN 2 CURRENTX 1 STREAM 0 OBJ)) jdddhNIL NIL () REGMARK.PUTFN D1 (I 1 STREAM I 0 MARKOBJ) &g@g @@hhA (43Q PRIN2 11Q IMAGEOBJPROP) (24Q IMAGEOBJ 15Q IMAGEOBJ 6 TAG 2 Region) () REGMARK.GETFN D1 (P 1 NEWOBJ P 0 REGMARK.ARGS I 0 STREAM) @g g g @ gH IgH I(74Q IMAGEOBJPROP 60Q APPLY 43Q READ 36Q TSP.FMMENU 33Q TEXTSTREAM 30Q PROCESSPROP 22Q THIS.PROCESS 16Q GETWINDOWUSERPROP 10Q PROCESSPROP 2 THIS.PROCESS) (67Q TAG 52Q REGMARKOBJ 25Q WINDOW 13Q IMAGEOBJ.MENUW 5 WINDOW) () REGMARK.BUTTONEVENTINFN D1 (P 0 MARKDATUM I 1 STREAM I 0 MARKOBJ) ;`kjh,@AoHHoH o i (70Q TEDIT.PROMPTPRINT 64Q CONCAT 54Q CONCAT 2 GETMOUSESTATE) (22Q IMAGEOBJ 6 LASTMOUSEBUTTONS) ( 61Q "" 46Q ", Marker is " 34Q "Region used for ") INDEXOBJ D1 (P 0 NEWOBJ I 1 INDEXENTRY.PARMS I 0 KEY) ?Agggggggddggdd Hg@ Hgg H(73Q IMAGEOBJPROP 61Q IMAGEOBJPROP 46Q IMAGEOBJCREATE 43Q IMAGEFNSCREATE) (70Q INDEXOBJ 65Q TYPE 55Q INDEX.KEY 35Q NILL 32Q INDEX.WHENDELETEDFN 25Q NILL 22Q INDEX.BUTTONEVENTINFN 17Q NILL 14Q INDEX.GETFN 11Q INDEX.PUTFN 6 INDEX.IMAGEBOXFN 3 INDEX.DISPLAYFN) () INDEXOBJP D1 (I 0 OBJ) @dg g(10Q IMAGEOBJPROP) (13Q INDEXOBJ 5 TYPE) () INDEX.DISPLAYFN D1 (P 2 CURRENT.PAGE P 1 PGS/IMOBJS P 0 WINDOW I 1 STREAM I 0 OBJ F 3 TEXTOBJ F 4 FORMATTINGSTATE) iS!A g`A @ A @g Hg YTZI o ddI IdJh g Jh(140Q SORT 132Q \APPEND2 117Q MEMBER 102Q SHOULDNT 63Q GETWINDOWUSERPROP 54Q MKATOM 51Q IMAGEOBJPROP 41Q PRIN3 35Q INDEX.STRING 31Q DSPFONT 15Q IMAGESTREAMTYPE) (135Q ILESSP 60Q TSP.INDEX.ARRAY 46Q INDEX.KEY 25Q GP.DefaultFont 20Q DISPLAY 3 TEXTOBJ) ( 77Q "No array entry for this INDEX") INDEX.IMAGEBOXFN D1 (I 3 RIGHTMARGIN I 2 CURRENTX I 1 STREAM I 0 OBJ) 2A g@ ` ` ` jhjdddh(37Q FONTDESCENT 31Q FONTHEIGHT 23Q STRINGWIDTH 15Q INDEX.STRING 3 IMAGESTREAMTYPE) (34Q GP.DefaultFont 26Q GP.DefaultFont 20Q GP.DefaultFont 6 DISPLAY) () INDEX.PUTFN D1 (P 0 DATUM I 1 STREAM I 0 OBJ) -@Hg@g Hhg@g hA (52Q PRIN2 43Q IMAGEOBJPROP 24Q IMAGEOBJPROP) (40Q INDEX.KEY 34Q Index 21Q INDEX.KEY 15Q IndexEntry 3 IMAGEOBJ) () INDEX.GETFN D1 (P 2 WINDOW P 1 NEWOBJ P 0 INDEX.ARGS I 0 STREAM) 8@ gH g Jg J JHI I(64Q ADD.NEW.INDEX 54Q TSP.FMMENU 51Q TEXTSTREAM 44Q GETWINDOWUSERPROP 32Q PROCESSPROP 24Q THIS.PROCESS 16Q APPLY 3 READ) (41Q IMAGEOBJ.MENUW 27Q WINDOW 12Q INDEXOBJ) () INDEX.BUTTONEVENTINFN D1 (P 3 NEW.INDEX P 2 OBJDATUM I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SEL I 1 STREAM I 0 OBJ) `kjh}`dodi dg dgjdndhHdI  D@J@AJ @A K&@A @gK J@KEK@ g(206Q ADD.NEW.INDEX 163Q IMAGEOBJPROP 152Q INDEX.WHENDELETEDFN 136Q CHANGE.INDEX 130Q CHANGE.INDEXENTRY 105Q MENU 2 GETMOUSESTATE) (211Q CHANGED 171Q IMAGEOBJ 156Q INDEX.KEY 113Q IMAGEOBJ 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 21Q MENUTYPE# 6 LASTMOUSEBUTTONS) ( 27Q ((Change (QUOTE CHANGE) "Change this Index or IndexEntry"))) CHANGE.INDEX D1 (I 1 STREAM I 0 OBJ) Ao@g o h(30Q MKATOM 25Q TEDIT.GETINPUT 22Q CONCAT 13Q IMAGEOBJPROP) (10Q INDEX.KEY) ( 17Q "%" to: " 4 "Change Index name %"") CHANGE.INDEXENTRY D1 (P 4 NEWINDEX.NUMBER P 3 NEWINDEX.FONT P 2 NEWINDEX.ENTRY P 1 NEWINDEX.KEY P 0 WINDOW I 2 OBJDATUM I 1 STREAM I 0 OBJ) A AAo@g o Y}AoBo BZAoB o i HB` [Aoi AoBo i HB \Aoi IJKLhhh(221Q TEDIT.PROMPTPRINT 207Q GET.INDEXENTRY.NUMBER 177Q TEDIT.PROMPTPRINT 173Q CONCAT 150Q TEDIT.PROMPTPRINT 135Q GET.TSP.FONT 121Q TEDIT.PROMPTPRINT 115Q CONCAT 106Q ABBREVIATE.FONT 66Q MKATOM 63Q TEDIT.GETINPUT 60Q CONCAT 37Q MKATOM 34Q TEDIT.GETINPUT 31Q CONCAT 22Q IMAGEOBJPROP 3 \TEDIT.MAINW) (132Q GP.DefaultFont 17Q INDEX.KEY) ( 215Q "" 170Q "%" to..." 160Q "Change IndexEntry Number option %"" 144Q "Invalid font specification...try again." 112Q "%" to..." 100Q "Change IndexEntry Entry font %"" 55Q "%" to: " 47Q "Change IndexEntry Entry %"" 26Q "%" to: " 13Q "Change IndexEntry Key %"") INDEX.WHENDELETEDFN D1 (P 2 HASH.VALUE P 1 INDEX.ARRAY P 0 INDEXKEY I 1 WINDOW I 0 OBJ) H@g Ag HI@dJJ @hJ HJdJI h(104Q PUTHASH 63Q DSUBST 50Q DREMOVE 20Q GETWINDOWUSERPROP 6 IMAGEOBJPROP) (34Q IMAGEOBJ 15Q TSP.INDEX.ARRAY 3 INDEX.KEY) () ADD.NEW.INDEX D1 (P 3 ENTRY.OBJS P 2 INDEX.OBJS P 1 HASH.VALUE P 0 CODE.ARRAY I 2 OBJ I 1 INDEXKEY I 0 WINDOW) ?@g 1AHYIBKBh JBh AoJKhH (74Q PUTHASH 54Q \APPEND2 43Q \APPEND2 6 GETWINDOWUSERPROP) (31Q IMAGEOBJ 3 TSP.INDEX.ARRAY) ( 62Q "[Pages (?)]") INDEX.STRING D1 (P 1 INDEXNUMBER P 0 OBJDATUM I 0 OBJ) b@HAo@g oHHYdgo3oIo o o@g o (137Q CONCAT 130Q MKATOM 125Q IMAGEOBJPROP 111Q CONCAT 100Q CONCAT 31Q MKATOM 26Q IMAGEOBJPROP) (122Q INDEX.KEY 50Q YES 23Q INDEX.KEY 3 IMAGEOBJ) ( 134Q "]" 116Q "[Index " 105Q "]" 75Q "]" 70Q ",Number=" 57Q ",Number]" 35Q ",Entry=" 17Q "[Index Key=") INSERT.INDEX D1 (P 1 NEW.INDEX.OBJ P 0 NEWINDEX.KEY I 1 WINDOW I 0 STREAM) .@o @oi Hd AHI I@ (53Q TEDIT.INSERT.OBJECT 46Q ADD.NEW.INDEX 35Q INDEXOBJ 26Q TEDIT.PROMPTPRINT 12Q MKATOM 7 TEDIT.GETINPUT) NIL ( 22Q "" 4 "Index Key: ") INSERT.INDEXENTRY D1 (P 4 NEW.INDEX.OBJ P 3 NEWINDEX.NUMBER P 2 NEWINDEX.FONT P 1 NEWINDEX.ENTRY P 0 NEWINDEX.KEY I 1 WINDOW I 0 STREAM) ~@o 1Hd@oH HY@oi A` Z@oi @oi A [@oi HIJKh AHL L@ @oi (173Q TEDIT.PROMPTPRINT 161Q TEDIT.INSERT.OBJECT 154Q ADD.NEW.INDEX 143Q INDEXOBJ 130Q TEDIT.PROMPTPRINT 116Q GET.INDEXENTRY.NUMBER 112Q TEDIT.PROMPTPRINT 76Q TEDIT.PROMPTPRINT 63Q GET.TSP.FONT 54Q TEDIT.PROMPTPRINT 37Q MKATOM 34Q TEDIT.GETINPUT 31Q MKSTRING 12Q MKATOM 7 TEDIT.GETINPUT) (60Q GP.DefaultFont) ( 167Q "" 124Q "" 106Q "IndexEntry Number option..." 72Q "Invalid font specification...try again." 50Q "IndexEntry Entry font..." 25Q "IndexEntry Entry: " 4 "IndexEntry Key: ") GET.INDEXENTRY.NUMBERA0004 D1 (I 0 ITEM) @dgohddi  (26Q NUMBERPAD.READ 23Q CREATE.NUMBERPAD.READER) (4 VALUE) ( 13Q "NUMBER value?") GET.INDEXENTRY.NUMBER D1 (I 1 DEFAULTNUMBER I 0 WINDOW) P`dodi dodgdg dgjdndhHdI  Ag(105Q MENU) (115Q YES 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 34Q GET.INDEXENTRY.NUMBERA0004 2 MENUTYPE#) ( 25Q (YES NO VALUE) 10Q "NUMBER?") INSERT.KNOWN.INDEX D1 (P 5 NEWINDEX.OBJ P 4 NEWINDEX.KEY P 3 MENU.SELECTION P 2 NMENU P 0 PREVINDICES I 1 WINDOW I 0 STREAM) |A HB`dodHdg dgjdndhdI J ddh@oi hL!gL ALM M@ @oi (171Q TEDIT.PROMPTPRINT 160Q TEDIT.INSERT.OBJECT 153Q ADD.NEW.INDEX 141Q APPLY 122Q TEDIT.PROMPTPRINT 100Q MENU 3 INDEX.LIST.REFS) (135Q INDEXOBJ 45Q DEFAULTMENUHELDFN 36Q CLRPROMPT 14Q MENUTYPE#) ( 165Q "" 116Q "There are no Indicies/IndexEntries in this document." 22Q "Index Keys") INDEX.LIST.REFSA0001 D1 (L (1 KY 0 VAL) F 0 INDEX.KEYLIST) APcNIL NIL () INDEX.LIST.REFS D1 (P 4 KEY P 3 INDEX.VALUE P 2 INDEX.KEYLIST P 1 INDEX.ITEMS P 0 INDEX.ARRAY I 0 WINDOW) `@g hh"Hg Jg >dLH[dILh K ILhogLK hh I(125Q \NCONC2 112Q LIST.OF.INDEXENTRIES 61Q \NCONC2 32Q SORT 23Q MAPHASH 6 GETWINDOWUSERPROP) (102Q SUBITEMS 27Q UALPHORDER 20Q INDEX.LIST.REFSA0001 3 TSP.INDEX.ARRAY) ( 77Q "Select an IndexEntry subitem.") LIST.OF.INDEXENTRIESA0002 D1 (I 1 B I 0 A) @A (22Q UALPHORDER) NIL () LIST.OF.INDEXENTRIES D1 (P 3 OBJ P 1 OBJDATUM P 0 ENTRY.LIST I 1 OBJLIST I 0 KEY) ahh!AHdKHIoI oI @IhZddi3 gJhhh HH g (136Q SORT 130Q INTERSECTION 114Q \NCONC2 55Q CONCAT 41Q ABBREVIATE.FONT) (133Q LIST.OF.INDEXENTRIESA0002 100Q QUOTE 21Q IMAGEOBJ) ( 45Q ", " 33Q ", ") CREATE.INDEX.FILE D1 (P 3 INDEX.STREAM P 2 INDEX.FILE P 1 INDEX.LIST P 0 INDEX.ARRAY I 1 WINDOW I 0 STREAM) lAg A Ag JI8J(@oJo i KIH @o KJ JI@oi h@oi h(150Q TEDIT.PROMPTPRINT 135Q TEDIT.PROMPTPRINT 120Q TEDIT.PUT 113Q TEDIT.PROMPTPRINT 103Q WRITE.INDEX.FILE 75Q TEDIT.PROMPTPRINT 71Q CONCAT 43Q OPENTEXTSTREAM 32Q GET.INDEX.FILE 27Q GETWINDOWUSERPROP 15Q INDEX.LIST.REFS 6 GETWINDOWUSERPROP) (24Q IMAGEOBJ.MENUW 3 TSP.INDEX.ARRAY) ( 144Q "There are no indices in this document." 131Q "Specify a file name for the indices first." 110Q "done" 66Q "..." 61Q "Putting indices in: ") VIEW.INDEX.FILE D1 (P 1 INDEX.FILEW P 0 INDEX.FILE I 1 WINDOW I 0 STREAM) M@A Ag H;I I I H I !HI AghoH Y HI (112Q TEDIT 105Q PUTWINDOWPROP 101Q CREATEW 76Q CONCAT 60Q TEDIT 51Q OPENW 44Q TEDIT.GET 40Q TEXTOBJ 33Q OPENWP 25Q WINDOWP 13Q GETWINDOWUSERPROP 4 CREATE.INDEX.FILE) (65Q INDEX.WINDOW 10Q INDEX.WINDOW) ( 72Q "Viewing index file: ") GET.INDEX.FILE D1 (P 1 FILENAME P 0 ITEM I 0 MENUW) .@g Hd` Io I h(51Q MKATOM 44Q STREQUAL 24Q \ILLEGAL.ARG 6 FM.ITEMFROMID) (27Q FREEMENUITEM 17Q FREEMENUITEMTYPE# 3 INDEX.FILE) ( 41Q "") WRITE.INDEX.FILE D1 (P 11Q INDEX.FONT P 10Q INDEX.ENTRYARGS P 6 INDEX.SUBITEM P 5 PGS.AND.IMOBJS P 4 PAGES/IMOBJS P 3 INDEX.ITEM P 1 PGS.AND.IMOBJS P 0 INDEX.ITEM I 2 INDEX.ARRAY I 1 INDEX.LIST I 0 INDEX.STREAM) o @ o@ @ @ A4dH8`@ HBIH @ @I @ A!JbhBHd^! O h_ _@ O @ @MO O@ @ O_[dB\dLoL o JZw(335Q CONCAT 326Q MKSTRING 264Q TERPRI 257Q DSPFONT 250Q WRITE.INDEX.PAGENUMBERS 235Q PRIN1 231Q MKSTRING 222Q DSPFONT 214Q FONTCREATE 115Q TERPRI 110Q WRITE.INDEX.PAGENUMBERS 102Q PRIN1 76Q MKSTRING 57Q DSPFONT 34Q TERPRI 27Q TERPRI 22Q PRIN1 12Q DSPFONT 6 FONTCREATE) (53Q GP.DefaultFont) ( 332Q "]" 321Q "[Pages " 16Q "Index" 3 (HELVETICA 16Q BRR)) WRITE.INDEX.PAGENUMBERS D1 (P 3 PAGE P 1 PAGE#.STRING P 0 PAGE.NBRS I 2 NUMBER.OPTION I 1 PAGES.AND.IMOBJS I 0 STREAM) ]`@ B'AoH IH @ J"I@ hdgogB IoK JZ(125Q CONCAT 122Q MKSTRING 105Q MKSTRING 54Q PRIN1 37Q PRIN1 33Q CONCAT 6 DSPFONT) (76Q YES 62Q NO 2 GP.DefaultFont) ( 116Q " " 71Q "" 17Q " ") NUMBEROBJ D1 (P 0 NEWOBJ I 5 FONT I 4 REF.TYPE I 3 LINK.TO I 2 NUMSTRING I 1 TEMPLATE I 0 USE) ODBo@hAChdEhgggggggddggdd Hgg H(113Q IMAGEOBJPROP 76Q IMAGEOBJCREATE 73Q IMAGEFNSCREATE) (110Q NUMBEROBJ 105Q TYPE 65Q NILL 62Q XREF.WHENDELETEDFN 55Q NILL 52Q NUMBER.BUTTONEVENTINFN 47Q NILL 44Q NUMBER.GETFN 41Q NUMBER.PUTFN 36Q NUMBER.IMAGEBOXFN 33Q NUMBER.DISPLAYFN) ( 7 "^n") NUMBEROBJP D1 (I 0 IMOBJ) @dg g(10Q IMAGEOBJPROP) (13Q NUMBEROBJ 5 TYPE) () NGROUP.NUMBEROBJP D1 (I 0 IMOBJ) @ @g(3 NUMBEROBJP) (21Q NGROUP 11Q IMAGEOBJ) () NUMBER.DISPLAYFN D1 (P 11Q IMAGEBOX P 10Q CURRENT.YPOS P 7 FONT P 6 MAIN.WINDOW P 5 REF.TYPE P 4 USE P 3 TEMPLATE P 2 NUMBER.TEXT P 1 NUMSTRING P 0 DATUM I 1 STREAM I 0 OBJ F 12Q TEXTOBJ F 13Q FORMATTINGSTATE) @H HH 1HHWLdgN gMN o JLgIJ O "Og Og Og A Ldg!IA A ghHWg1hA @g' OOA A IA OA (356Q DSPYPOSITION 347Q PRIN1 341Q DSPYPOSITION 333Q FONTHEIGHT 304Q DSPYPOSITION 244Q IMAGESTREAMTYPE 240Q PRIN3 221Q DSPFONT 215Q FONTCREATE 212Q FONTPROP 202Q FONTPROP 172Q FONTPROP 160Q FONTP 152Q CONCAT 130Q SHOULDNT 120Q NGROUP.GETFONT 103Q GET.ENDNOTE.FONTS 43Q MKSTRING 16Q MKSTRING) (315Q BOUNDBOX 310Q IMAGEOBJ 274Q NOTE 247Q DISPLAY 227Q NGROUP 207Q FACE 177Q SIZE 167Q FAMILY 143Q NGROUP 111Q NGROUP 74Q NOTE 63Q TEXTOBJ 3 IMAGEOBJ) ( 125Q "Undefined USE field, neither NOTE nor NGroup") NUMBER.IMAGEBOXFN D1 (P 6 FONT P 5 NUMBER.TEXT P 4 DEFAULTSTRING P 3 REF.TYPE P 2 USE P 1 DATUM P 0 MAIN.WINDOW I 3 RIGHTMARGIN I 2 CURRENTX I 1 STREAM I 0 OBJ F 7 TEXTOBJ) W1@YII IJdgH gKH o MJgLM N Ng Ng Ng A LA A A oA jh(233Q FONTDESCENT 221Q FONTHEIGHT 215Q FONTHEIGHT 212Q CURRENT.DISPLAY.FONT 206Q STRINGWIDTH 200Q DSPFONT 174Q FONTCREATE 171Q FONTPROP 162Q FONTPROP 153Q FONTPROP 142Q FONTP 135Q CONCAT 113Q SHOULDNT 103Q NGROUP.GETFONT 66Q GET.ENDNOTE.FONTS 36Q MKSTRING) (166Q FACE 157Q SIZE 150Q FAMILY 126Q NGROUP 74Q NGROUP 57Q NOTE 16Q IMAGEOBJ 4 TEXTOBJ) ( 225Q .5 110Q "Undefined USE field, neither NOTE nor NGroup") NUMBER.PUTFN D1 (P 1 MAIN.WINDOW P 0 USE I 1 STREAM I 0 OBJ) @g Hdg@AI gM@@I @@I g@g @hA g@g @hA (214Q PRIN4 176Q IMAGEOBJPROP 163Q PRIN4 145Q IMAGEOBJPROP 132Q GET.FROMNODES 105Q LIST.FONT.PROPS 102Q NGROUP.GETFONT 42Q NOTE.PUTFN 21Q PROCESSPROP 13Q THIS.PROCESS) (202Q IMAGEOBJ 173Q TAG 167Q Unknown% Number% Type 151Q IMAGEOBJ 142Q TAG 136Q NGroup 123Q IMAGEOBJ 112Q IMAGEOBJ 73Q IMAGEOBJ 55Q IMAGEOBJ 46Q NGROUP 31Q NOTE 16Q WINDOW 3 IMAGEOBJ) () NUMBER.GETFN D1 (P 3 WINDOW P 2 USE P 1 NEWOBJ P 0 USE/TEXT I 0 STREAM) @ H g Kg K IgH HXIJJdgIHK vgiHHHHHHkgHHHK K HhdK HHK Kgi IHI(310Q PUTWINDOWPROP 277Q ADD.NGROUP.TO.MOTHER.NODE 263Q CREATE.NGROUP.NODE 247Q ADD.NGROUP.TO.DBASE 242Q CREATE.NGROUP.NODE 132Q NOTE.GETFN 76Q IMAGEOBJPROP 64Q TSP.FMMENU 61Q TEXTSTREAM 54Q GETWINDOWUSERPROP 42Q PROCESSPROP 34Q THIS.PROCESS 26Q MKATOM 12Q NUMBEROBJ 3 READ) (315Q IMAGEOBJ 304Q REBUILD.GRAPHFLG 222Q FONTCREATE 137Q NGROUP 121Q NOTE 106Q IMAGEOBJ 71Q TAG 51Q IMAGEOBJ.MENUW 37Q WINDOW) () NUMBER.BUTTONEVENTINFN D1 (P 2 CHANGED P 1 REF.TYPE P 0 USE I 1 STREAM I 0 NUMBEROBJ) 5@@`kjHg@A I@A J(61Q NGROUP.BUTTONEVENTINFN 52Q NOTE.BUTTONEVENTINFN 25Q GETMOUSESTATE) (43Q NOTE 31Q LASTMOUSEBUTTONS 14Q IMAGEOBJ 3 IMAGEOBJ) () NGROUP.BUTTONEVENTINFN D1 (P 4 NMENU P 0 TAG I 2 STREAM I 1 NUMBEROBJ I 0 USE) iAg 1`H@oH @dIHoodJdgdg dgjdndhdK LgA L (146Q MENU 142Q PUTMENUPROP 30Q CONCAT 6 IMAGEOBJPROP) (136Q OBJ 103Q DEFAULTMENUHELDFN 74Q CLRPROMPT 65Q NGROUP.WHENSELECTEDFN 14Q MENUTYPE# 3 TAG) ( 53Q (Tag) 46Q (Change% Tag) 24Q " Tag:") NGROUP.WHENSELECTEDFN D1 (P 3 CODE P 2 PREV.CODE P 1 OBJ P 0 TSTREAM I 2 MB I 1 MENU I 0 ITEM F 4 WINDOW) ;T Ag "H [Ig ZJhT IgK KdIT JhT (70Q TSP.PUTCODE 62Q TSP.PUTCODE 52Q IMAGEOBJPROP 41Q TSP.PUTCODE 31Q IMAGEOBJPROP 21Q TSP.GET.INCODE 12Q GETMENUPROP 3 TEXTSTREAM) (46Q TAG 26Q TAG 7 OBJ) () GRAPHMENU D1 (P 3 GRAPHW P 2 REGION P 1 GRAPH P 0 RESHAPEFLG I 1 TWINDOW I 0 TSTREAM) Ag Ag A IAi Ag Johi Kg KJ Aggg IKgg Ag AgK AgI Kgg KgA Kg@ (217Q PUTWINDOWPROP 207Q PUTWINDOWPROP 177Q PUTWINDOWPROP 165Q PUTWINDOWPROP 155Q PUTWINDOWPROP 145Q PUTWINDOWPROP 136Q SHOWGRAPH 123Q ATTACHWINDOW 105Q SHAPEW 100Q PUTWINDOWPROP 66Q CREATEW 52Q GETWINDOWUSERPROP 40Q TSPGRAPHREGION 27Q INITIAL.NGROUP.GRAPH 21Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP) (213Q TSTREAM 203Q TWINDOW 174Q DETACHWINDOW 171Q CLOSEFN 161Q NGROUP.GRAPH 151Q NGROUPW 142Q REBUILD.GRAPHFLG 133Q CHANGE.NGROUP 130Q INSERT.NGROUP 117Q LOCALCLOSE 114Q JUSTIFY 111Q TOP 75Q REPAINTFN 47Q NGROUPW 16Q NGROUP.GRAPH 6 REBUILD.GRAPHFLG) ( 61Q "Number Group Graph") TSP.NGROUP.GRAPHP D1 (P 1 ITEM P 0 MENUW I 0 TWINDOW) &@g Hg Id` (36Q \ILLEGAL.ARG 20Q FM.ITEMFROMID 6 GETWINDOWUSERPROP) (41Q FREEMENUITEM 31Q FREEMENUITEMTYPE# 15Q NGroup% Menu 3 IMAGEOBJ.MENUW) () INITIAL.NGROUP.GRAPH D1 (P 4 NODELST P 0 ROOTNODE I 0 WINDOW) Ygdhdddk 0@ dJIh[I&Kg@ HLghddH@ Lo (126Q LAYOUTGRAPH 115Q ADD.NGROUP.TO.DBASE 73Q FIND.NODE 31Q COLLECT.HASHARRAY 26Q TSP.GET.NGROUP.ARRAY 14Q NODECREATE) (104Q NEW.NGROUP 67Q NEW.NGROUP 2 NEW.NGROUP) ( 123Q (NEW.NGROUP)) TSPGRAPHREGION D1 (P 1 MAIN.R P 0 R I 3 BORDER I 2 TITLEFLG I 1 MAIN.WINDOW I 0 GRAPH) (@ A HH HHBC H(43Q HEIGHTIFWINDOW 24Q WIDTHIFWINDOW 7 WINDOWREGION 3 GRAPHREGION) NIL () ADD.NGROUP.TO.MOTHER.NODE D1 (P 1 TONODES P 0 MOTHER.NODE I 2 W I 1 MOTHERID I 0 ID) (AB H@I H@I(26Q MEMBER 4 FIND.NODE) NIL () ADD.NODE.TO.GRAPH D1 (P 1 TONODES P 0 PARENT.NODE I 2 WINDOW I 1 GRAPH I 0 NODE) L@B @@I H@HA@AAo (111Q LAYOUTGRAPH 41Q MEMBER 16Q FIND.NODE) NIL ( 106Q (NEW.NGROUP)) COLLECT.HASHARRAY D1 (P 0 RESULT I 0 HARRAY) @o H(12Q MAPHASH) NIL ( 7 (LAMBDA (VAL KY) (SETQ RESULT (CONS VAL RESULT)))) CREATE.NGROUP.NODE D1 (P 1 NODE P 0 NGROUP.HARRAY I 3 W I 2 USERDATA I 1 MOTHER I 0 ID) 6C !@HY@dhdAh @BJhHh II BIdB(44Q PUTHASH 27Q NODECREATE 3 TSP.GET.NGROUP.ARRAY) NIL () GET.FROMNODES D1 (I 1 WINDOW I 0 NGID) @A (4 FIND.NODE) NIL () GET.MOTHER.GROUP D1 (I 1 WINDOW I 0 DEPENDENT) @A (4 FIND.NODE) NIL () MAKE.MOTHER.NODE D1 (P 2 NGROUP P 0 TONODES) 1gdhg I Hhdk Z JHIY(44Q GET.FROMNODES 35Q NODECREATE 15Q TSP.GET) (12Q NGROUPS 5 NEW.NGROUP) () MAKE.NGROUP.NODELST D1 (P 4 NODELST P 3 NGROUP) @0g (dKKhK K IHhZH&JL(73Q MAKE.MOTHER.NODE 42Q NODECREATE 36Q GET.FROMNODES 31Q GET.TONODES 10Q TSP.GET) (5 NGROUPS) () GET.TONODES D1 (I 1 WINDOW I 0 MOTHER-GROUP) @A (4 FIND.NODE) NIL () FIND.NODE D1 (I 1 WINDOW I 0 NID) @A (4 TSP.GET.NGROUP.ARRAY) NIL () INSERT.NGROUP D1 (P 6 NEWOBJ P 5 NEWLOOKS P 4 OLDLOOKS P 3 TEMPLATE P 2 LABEL P 1 TSTREAM P 0 TWINDOW I 1 GRAPHW I 0 NODE) @Ag Ag @ZH I 4JH JgHI `A IH HIJ NIM gKoJo hJM H NIJ NgH NI IL H Hg (265Q UPDATE.NUMBEROBJS 254Q UPDATE? 250Q TEDIT.CARETLOOKS 242Q TEDIT.INSERT.OBJECT 234Q IMAGEOBJPROP 223Q GET.TOC.TEXTSTRING 214Q TOC.ENABLED? 205Q NUMBEROBJ 176Q CONCAT 156Q TEDIT.CARETLOOKS 147Q VERIFY.NGROUP.ORDER 140Q GRAPHMENU 133Q CLOSEW 125Q ADD.NUMBER.GROUP 106Q NGROUP.GETFONT 71Q TEXTOBJ 53Q TSP.GET.NGROUP.ARRAY 27Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP) (262Q NUMBEROBJP 230Q TWINDOW 161Q NGROUP 115Q NEW.NGROUP 74Q TEXTOBJ 24Q TSTREAM 12Q TWINDOW) ( 173Q "]" 166Q "[") VERIFY.NGROUP.ORDER D1 (P 4 PREV.NGROUP P 3 CH# P 2 SELECTION P 1 MOTHER P 0 ANCESTORS I 2 LABEL I 1 STREAM I 0 WINDOW) B@ g_Bh@ H A !JgJJkػhHBh @ g !Mh\dBdI%iKNN_H OM]AoBoIo i h(240Q TEDIT.PROMPTPRINT 234Q CONCAT 177Q MEMB 123Q REVERSE 120Q TSP.LIST.OF.OBJECTS 112Q TEXTOBJ 106Q \NCONC2 37Q TEDIT.GETSEL 27Q LAST 20Q LIST.ANCESTORS 4 GET.FROMNODES) (166Q IMAGEOBJ 115Q NGROUP.NUMBEROBJP 70Q SELECTION 61Q SELECTION 53Q LEFT 46Q SELECTION 7 NEW.NGROUP) ( 230Q "%" NGroup." 223Q "%" not inserted, no preceding %"" 216Q "%"") ADD.NUMBER.GROUP D1 (P 6 NEW.NODE P 5 DEPENDENT.CLASS P 4 TEMPLATE P 3 NEW.GROUPID P 0 PREV.ITEMS I 1 STREAM I 0 TWINDOW) @ @g g @g A@ @ !hgHA 1KH=`doHg dIdg dgjdndhdJ ]Lgokih\KdhdMgh ^KLM`N@ N@g @ (276Q ADD.NODE.TO.GRAPH 272Q GETWINDOWUSERPROP 262Q ADD.NGROUP.TO.DBASE 245Q NODECREATE 202Q MKATOM 177Q MENU 127Q SORT 67Q MKATOM 64Q TSP.LEGALID 47Q COLLECT.NGROUPS 42Q GRAPHMENU 34Q FM.CHANGESTATE 31Q GETWINDOWUSERPROP 22Q FM.ITEMFROMID 14Q GETWINDOWUSERPROP 3 TSP.NGROUP.GRAPHP) (267Q NGROUP.GRAPH 254Q GP.DefaultFont 237Q NEW.NGROUP 211Q Number 150Q DEFAULTMENUHELDFN 141Q CLRPROMPT 124Q UALPHORDER 107Q MENUTYPE# 56Q NEW.NGROUP 26Q IMAGEOBJ.MENUW 17Q NGroup% Menu 11Q IMAGEOBJ.MENUW) ( 215Q "." 115Q "Select Parent Group OR none") ADD.NGROUP.TO.DBASE D1 (P 0 NGROUP.ARRAY I 5 TWINDOW I 4 NGROUP.NODE I 3 FONT I 2 DEPENDENT.CLASS I 1 TEMPLATE I 0 NEW.GROUPID) 4E @H(Egi @dhdBAhddChDhHh (61Q PUTHASH 23Q PUTWINDOWPROP 3 TSP.GET.NGROUP.ARRAY) (17Q REBUILD.GRAPHFLG) () COLLECT.NGROUPS D1 (I 0 TWINDOW) /@g 1HIdgJ KhZYHXK&Z(6 GETWINDOWUSERPROP) (26Q NEW.NGROUP 3 NGROUP.GRAPH) () LIST.FONT.PROPS D1 (I 0 FONTDES) @dg @g @g h(27Q FONTPROP 20Q FONTPROP 11Q FONTPROP) (24Q FACE 15Q SIZE 6 FAMILY) () MAP.NGROUP.LOOKS D1 (P 0 NOTE/CH# I 2 TWINDOW I 1 NEWFDESC I 0 LABEL) sB o@o i B gogogo@ddi3 g@hhhh dB AHk B o (160Q TEDIT.PROMPTPRINT 151Q TEXTSTREAM 140Q TEDIT.LOOKS 130Q TEXTSTREAM 115Q TSP.LIST.OF.OBJECTS 27Q TEXTOBJ 23Q TEDIT.PROMPTPRINT 17Q CONCAT 3 TEXTSTREAM) (72Q QUOTE 50Q EQ 41Q AND 32Q LAMBDA) ( 155Q "done." 54Q (FETCH REF.TYPE OF OBJ:OBJECTDATUM) 45Q (IMAGEOBJP OBJ) 36Q (OBJ) 14Q " numbers..." 7 "Updating looks for ") NGROUP.GETFONT D1 (I 1 WINDOW I 0 NGROUP.NAME) @A (4 TSP.GET.NGROUP.ARRAY) NIL () CHANGE.NGROUP D1 (P 3 ITEM.TO.CHANGE P 2 LABEL I 1 GRAPHW I 0 NODE) ~@dzgi@`dodi dodg dgjdndhHdI  KdgJA gJA (173Q CHANGE.NGROUP.FORMAT 157Q CHANGE.NGROUP.FONT 137Q MENU) (163Q Format 147Q Font 104Q DEFAULTMENUHELDFN 75Q CLRPROMPT 43Q MENUTYPE# 21Q NEW.NGROUP) ( 66Q (Font Format) 51Q "Item to change") CHANGE.NGROUP.FONT D1 (P 4 NEW.FONT P 3 OLD.FONT P 2 NBROBJ P 1 TWINDOW P 0 TSTREAM I 1 GRAPHW I 0 LABEL) qAg Ag @I !JHo@oK ho i IK \KLJL@LI Hoi (156Q TEDIT.PROMPTPRINT 144Q MAP.NGROUP.LOOKS 114Q FONTCREATE 111Q GET.TSP.FONT 104Q TEDIT.PROMPTPRINT 100Q CONCAT 66Q ABBREVIATE.FONT 30Q TSP.GET.NGROUP.ARRAY 20Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (15Q TWINDOW 3 TSTREAM) ( 152Q "" 74Q ", change to..." 62Q "%" font is " 55Q "%"") CHANGE.NGROUP.FORMAT D1 (P 7 NEW.ADDTOTOC P 6 NEW.START P 5 NEW.DELIMIT P 4 NEW.CHARTYPE P 3 OLD.TEMPLATE P 2 NBROBJ P 1 TWINDOW P 0 TSTREAM I 1 GRAPHW I 0 LABEL) ~Ag Ag @I QJ[@H \KLK@H ]KMK@H ^KNK@H _KOLMN@JI Hoi (173Q TEDIT.PROMPTPRINT 161Q MAP.NGROUP.LOOKS 120Q CHANGE.NGROUP.ADDTOTOC 102Q CHANGE.NGROUP.START 65Q CHANGE.NGROUP.DELIMIT 51Q CHANGE.NGROUP.CHARTYPE 30Q TSP.GET.NGROUP.ARRAY 20Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (15Q TWINDOW 3 TSTREAM) ( 167Q "") CHANGE.NGROUP.CHARTYPE D1 (I 2 STREAM I 1 LABEL I 0 TEMPLATE) YBoAo@o i `dodi dodg dgjdndhHdI  (126Q MENU 27Q TEDIT.PROMPTPRINT 23Q CONCAT) (73Q DEFAULTMENUHELDFN 64Q CLRPROMPT 32Q MENUTYPE#) ( 55Q (Number Null% String Uppercase% Letter Lowercase% Letter Uppercase% Roman Lowercase% Roman) 40Q "NGroup Types" 17Q ", change to..." 11Q "%" displayed as " 4 "%"") CHANGE.NGROUP.DELIMIT D1 (P 2 NEW.DELIMIT I 2 STREAM I 1 LABEL I 0 TEMPLATE) yBoAo@o i `dodi dodg dgjdndhHdI  JdgBoAo (166Q MKSTRING 163Q TEDIT.GETINPUT 160Q CONCAT 127Q MENU 30Q TEDIT.PROMPTPRINT 24Q CONCAT) (137Q Other 74Q DEFAULTMENUHELDFN 65Q CLRPROMPT 33Q MENUTYPE#) ( 155Q ":" 150Q "Specify delimiter following " 56Q ((Dot ".") (Dash "-") (Null% String "") Other) 41Q "NGroup Delimiters" 20Q "%", change to..." 11Q "%" is %"" 4 "Delimiter following %"") CHANGE.NGROUP.STARTA0004 D1 (I 0 ITEM) @gohddi  (25Q NUMBERPAD.READ 22Q CREATE.NUMBERPAD.READER) (3 YES) ( 12Q "Starting NGroup Value") CHANGE.NGROUP.START D1 (I 2 STREAM I 1 LABEL I 0 TEMPLATE) bBoAo@o i `dodi dodgdg dgjdndhHdI  (137Q MENU 31Q TEDIT.PROMPTPRINT 25Q CONCAT) (104Q DEFAULTMENUHELDFN 75Q CLRPROMPT 66Q CHANGE.NGROUP.STARTA0004 34Q MENUTYPE#) ( 57Q (YES NO) 42Q "Change start?" 21Q ", change it?" 11Q "%" is " 4 "Starting value of %"") CHANGE.NGROUP.ADDTOTOCA0004 D1 (L (0 ITEM)) @dgiNIL (4 YES) () CHANGE.NGROUP.ADDTOTOC D1 (I 2 STREAM I 1 LABEL I 0 TEMPLATE) mBoAo@ooo i `dodi dodgdg dgjdndhHdI  (152Q MENU 44Q TEDIT.PROMPTPRINT 40Q CONCAT) (117Q DEFAULTMENUHELDFN 110Q CLRPROMPT 101Q CHANGE.NGROUP.ADDTOTOCA0004 47Q MENUTYPE#) ( 72Q (YES NO) 55Q "Include in TOC?" 34Q "included in TOC. Do you want it included?" 30Q "NOT " 23Q "" 11Q "%" is " 4 "%"") TSP.GET.NGROUP.ARRAY D1 (I 0 W) @g (6 GETWINDOWUSERPROP) (3 TSP.NGROUP.ARRAY) () TSP.LEGALID D1 (P 1 ID P 0 LEGAL I 2 STREAM I 1 NGROUPS I 0 NAME) -i@ Bo IA Bo AB I(50Q TSP.LEGALID 43Q MKATOM 40Q TEDIT.GETINPUT 26Q MEMBER 16Q MKATOM 13Q TEDIT.GETINPUT) NIL ( 35Q "Illegal name... Group name>" 10Q "Group name>") UPDATE.NUMBEROBJS D1 (P 13Q NEW.COUNT P 12Q DEPENDENT.CLASS P 11Q USE P 10Q TEMPLATE P 7 NUMSTRING P 6 REF.TYPE P 5 OBJECTDATUM P 4 NUMBEROBJ P 2 NBROBJ.LIST P 1 STREAM P 0 TEXTOBJ I 2 TESTFNARG I 1 TESTFN I 0 WINDOW) @ @ HAB Ioi JK@ Io \MM ! M_gM_N@  @ON @ONOO _OMOIL K[(217Q TEDIT.OBJECT.CHANGED 175Q GET.NCOUNTER 160Q RESET.DEPENDENT.CLASSES 146Q GET.MOTHER.GROUP 111Q MKATOM 64Q TEDIT.PROMPTPRINT 53Q REMOVE.ALL.COUNTERS 37Q TEDIT.PROMPTPRINT 23Q TSP.LIST.OF.OBJECTS 12Q TEXTSTREAM 3 TEXTOBJ) (125Q NGROUP 73Q IMAGEOBJ) ( 61Q "done" 33Q "Updating Number Group ImageObjects...") RESET.DEPENDENT.CLASSES D1 (P 0 DEPENDENT I 2 REF.TYPE I 1 USE I 0 WINDOW) )B@ d@AH @AH h(40Q RESET.DEPENDENT.CLASSES 31Q RESET.NCOUNTER 4 FIND.NODE) NIL () RESET.NCOUNTER D1 (P 0 TEMPLATE I 2 REF.TYPE I 1 USE I 0 WINDOW) ,AgB@ @ABH Hjkٰ(34Q NCOUNTER? 13Q TSP.GET.NGROUP.ARRAY) (3 NGROUP) () GET.NCOUNTER D1 (P 0 COUNTER I 4 TEMPLATE I 3 MOTHER.CLASS I 2 REF.TYPE I 1 USE I 0 WINDOW) @ABD HddkC@AB H(31Q FLATTEN.TREE.TO.STRING 6 NCOUNTER?) NIL () NCOUNTER? D1 (P 0 COUNTER.ID I 3 TEMPLATE I 2 REF.TYPE I 1 USE I 0 WINDOW) PAdgBo @H ,@HAgC"jAgBh@  @gH @H kٰ(106Q WINDOWPROP 101Q WINDOWADDPROP 71Q WINDOWPROP 65Q LIST.ANCESTORS 32Q WINDOWPROP 22Q MKATOM 17Q CONCAT) (75Q COUNTERS 54Q NGROUP 42Q NGROUP 4 NGROUP) ( 14Q "COUNTER") LIST.ANCESTORS D1 (P 1 MOTHER P 0 NODE I 2 WINDOW I 1 ANCESTORS I 0 NID) *@B HdYAgIdAB (47Q LIST.ANCESTORS 4 FIND.NODE) (34Q NEW.NGROUP) () FLATTEN.TREE.TO.STRING D1 (P 4 ANCESTOR.NCOUNT P 3 ANCESTOR P 1 FLAT.TREE P 0 NCOUNTER I 2 REF.TYPE I 1 USE I 0 WINDOW) w@AB oHTH !JIAg4@BH -@AK Ag@KLi Lg I JZH YAg@BH HYI(157Q NGROUP.CHARTYPE 136Q MKATOM 133Q CONCAT 120Q CONCAT 114Q CONCAT 104Q NGROUP.CHARTYPE 65Q NCOUNTER? 53Q NGROUP.CHARTYPE 25Q REVERSE 5 NCOUNTER?) (146Q NGROUP 111Q - 73Q NGROUP 41Q NGROUP) ( 11Q "") NGROUP.CHARTYPE D1 (P 2 CHARTYPE P 1 TEMPLATE P 0 NBROBJ I 3 MORE.FIELDS? I 2 NCOUNT I 1 REF.TYPE I 0 WINDOW) A@ !HYB3BjoMJdgB ?gBi 3JdgB %gBi JdgB goCA@ gIo (202Q CONCAT 162Q GET.FROMNODES 140Q ROMANNUMERALS 122Q ROMANNUMERALS 106Q NUMBER.TO.LETTER 70Q NUMBER.TO.LETTER 54Q MKSTRING 4 TSP.GET.NGROUP.ARRAY) (165Q NEW.NGROUP 144Q Null% String 131Q Lowercase% Roman 113Q Uppercase% Roman 77Q Lowercase% Letter 61Q Uppercase% Letter 45Q Number) ( 177Q "" 153Q "" 36Q "?") NUMBER.TO.LETTER D1 (P 1 LTRNBR P 0 LTRLST I 1 UCFLG I 0 NUMBER) K@kllA @klIjId AH IllAk H IlYH (110Q L-CASE 74Q CONCAT 70Q CHARACTER 53Q U-CASE 43Q \FZEROP 16Q MKSTRING 13Q CHARACTER) NIL () REMOVE.ALL.COUNTERS D1 (P 1 COUNTER I 0 WINDOW) &@g H @g h@Ih HX(36Q WINDOWPROP 24Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (21Q COUNTERS 3 COUNTERS) () TOC.ENABLED? D1 (I 0 WINDOW) @g (6 GETWINDOWUSERPROP) (3 ENABLETOC) () GET.TOC.TEXTSTRING D1 (P 4 TOC.CHAR P 0 TOC.STRING I 2 LABEL I 1 STREAM I 0 NBROBJ) cAoBo HM@o0H $dLl l LJIh[I&K (136Q CONCAT 133Q MKSTRING 130Q PACK 100Q CHARACTER 71Q CHARACTER 54Q UNPACK 17Q TEDIT.GETINPUT 14Q CONCAT) (31Q IMAGEOBJ) ( 45Q " " 11Q ": " 4 "Text for ") CREATE.TOC.FILE D1 (P 3 TOC.STREAM P 2 TOC.TABSTOP P 1 TOC.FILE P 0 TOC.LIST I 1 WINDOW I 0 STREAM) A g Ag gghnh ghhhI hdddJ H8I(@oIo i KHA @o KI IH@oi h@oi h(207Q TEDIT.PROMPTPRINT 174Q TEDIT.PROMPTPRINT 157Q TEDIT.PUT 152Q TEDIT.PROMPTPRINT 142Q WRITE.TOC.FILE 134Q TEDIT.PROMPTPRINT 130Q CONCAT 102Q OPENTEXTSTREAM 46Q FIXR 26Q GET.TOC.FILE 23Q GETWINDOWUSERPROP 11Q TSP.LIST.OF.OBJECTS 3 TEXTOBJ) (51Q DOTTEDLEFT 37Q TABS 34Q PARALOOKS 20Q IMAGEOBJ.MENUW 6 NGROUP.NUMBEROBJP) ( 203Q "There are no NGroups in this document." 170Q "Specify a file name for the Table-Of-Contents first." 147Q "done" 125Q "..." 120Q "Putting Table-Of-Contents in ") VIEW.TOC.FILE D1 (P 1 TOC.FILEW P 0 TOC.FILE I 1 WINDOW I 0 STREAM) M@A Ag H;I I I H I !HI AghoH Y HI (112Q TEDIT 105Q PUTWINDOWPROP 101Q CREATEW 76Q CONCAT 60Q TEDIT 51Q OPENW 44Q TEDIT.GET 40Q TEXTOBJ 33Q OPENWP 25Q WINDOWP 13Q GETWINDOWUSERPROP 4 CREATE.TOC.FILE) (65Q TOC.WINDOW 10Q TOC.WINDOW) ( 72Q "Viewing TOC file: ") GET.TOC.FILE D1 (P 1 TOC.FILENAME P 0 ITEM I 0 MENUW) .@g Hd` Io I h(51Q MKATOM 44Q STREQUAL 24Q \ILLEGAL.ARG 6 FM.ITEMFROMID) (27Q FREEMENUITEM 17Q FREEMENUITEMTYPE# 3 TOC.FILE) ( 41Q "") WRITE.TOC.FILE D1 (P 3 ITEM.LEVEL P 2 OBJECTDATUM P 1 TOC.ITEM I 2 WINDOW I 1 TOC.LIST I 0 TOC.STREAM) o @ o@ @ AAHhYIZ@ JhB [jKdh b@ @ JJo @ `@ l @ J@ @ KjKK @ HXZK\jo@ Lkٰ(323Q PRIN1 276Q TERPRI 271Q \FZEROP 254Q TERPRI 247Q PRIN1 231Q PRIN1 225Q CHARACTER 217Q DSPFONT 207Q PRIN1 203Q CONCAT 156Q TERPRI 151Q TERPRI 143Q \FZEROP 126Q LENGTH 123Q LIST.ANCESTORS 113Q DSPFONT 27Q TERPRI 22Q PRIN1 12Q DSPFONT 6 FONTCREATE) (213Q GP.DefaultFont 73Q IMAGEOBJ 47Q IMAGEOBJ) ( 317Q " " 200Q "" 16Q "Table of Contents" 3 (HELVETICA 16Q BRR)) XREF D1 (P 0 NEWOBJ I 0 TAG) 3@gggggggdddddd Hgg H(57Q IMAGEOBJPROP 42Q IMAGEOBJCREATE 37Q IMAGEFNSCREATE) (54Q XREF 51Q TYPE 25Q NILL 22Q XREF.BUTTONEVENTINFN 17Q NILL 14Q XREF.GETFN 11Q XREF.PUTFN 6 XREF.IMAGEBOXFN 3 XREF.DISPLAYFN) () XREFP D1 (I 0 OBJ) @ @g g(14Q IMAGEOBJPROP 3 IMAGEOBJP) (17Q XREF 11Q TYPE) () XREF.DISPLAYFN D1 (P 0 TEXT.TO.DISPLAY I 1 STREAM I 0 OBJ) @ HA (13Q PRIN3 3 XREF.GET.DISPLAY.TEXT) NIL () XREF.IMAGEBOXFN D1 (I 1 STREAM I 0 OBJ) A A @ A A A jh(27Q FONTDESCENT 23Q FONTHEIGHT 17Q TEDIT.STRINGWIDTH 13Q XREF.GET.DISPLAY.TEXT 7 DSPFONT 3 CURRENT.DISPLAY.FONT) NIL () XREF.PUTFN D1 (I 1 STREAM I 0 OBJ) g@hA (17Q PRIN1) (6 IMAGEOBJ 2 XREF) () XREF.GETFN D1 (I 0 STREAM) @  (10Q XREF 3 READ) NIL () XREF.BUTTONEVENTINFN D1 (I 1 STREAM I 0 OBJ) Ao@ i (21Q TEDIT.PROMPTPRINT 15Q CONCAT) (10Q IMAGEOBJ) ( 4 "Reference to: ") XREF.WHENDELETEDFN D1 (I 3 TARG.STR I 2 SOURCE.STR I 1 TARG.WINDOW.STREAM I 0 IMOBJ) @g hA A A (25Q UPDATE.XREFS 17Q UPDATE? 13Q TSP.PUTCODE 6 IMAGEOBJPROP) (3 TAG) () XREF.GET.DISPLAY.TEXT D1 (P 1 SPECIFIC.DISPLAYFN P 0 TOOBJ I 0 OBJ) @@ Ho@o  YHkIoH o (75Q CONCAT 66Q TSPOBJ.GETTYPE 56Q RINGBELLS 43Q XREF.GET.DISPLAYFN 37Q CONCAT 10Q XREF.GET.TOOBJ) (26Q IMAGEOBJ 3 IMAGEOBJ) ( 72Q " ???" 62Q "??? Unknown XREF display method for " 34Q ">" 22Q "