(FILECREATED "20-Mar-85 11:11:23" ("compiled on " {PHYLUM}BIRTHDAY84>SOURCES>TRI-SAVING.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "19-Nov-84 17:24:49" {AZTEC}BIRTHDAY84>RERELEASE>TRI-SAVING.;2 30108 changes to: (FNS LOADING.FILE) previous date: "17-Aug-84 23:24:10" {AZTEC}BIRTHDAY84>RERELEASE>TRI-SAVING.;1) ACQUIRE.FILE.OBJECT.NAME D1 (P 11Q ITYPE P 10Q INTERFACE.NAME P 2 FILE.OBJECT.MENU P 1 ITEMS P 0 INTERFACE.NAMES I 0 FILENAME) hhYg@ XdGIohh H4dIOgO[ddidd gKhh g@ dIIohh `4d IOgO\ddidd gLhh `IdMo@ dNdi didg dgjdndh_dO Zd (365Q MENU 276Q CONCAT 245Q TCONC 157Q TCONC 135Q FILED.OBJECTS.ON 121Q TCONC 35Q TCONC 15Q FILED.OBJECTS.ON) (331Q DEFAULTMENUHELDFN 322Q CLRPROMPT 255Q MENUTYPE# 233Q QUOTE 200Q ITEMTYPE.NAMES 163Q ITEMTYPE.NAMES 140Q ITEMTYPE.NAMES 131Q ITEMTYPE.NAMES 107Q QUOTE 54Q INTERFACE.NAMES 11Q INTERFACE.NAMES) ( 272Q "Objects on file " 150Q "--Item types--" 26Q "--Interfaces--") ACQUIRE.FILE.OBJECT.TYPE D1 NIL N`F`dododi didg dgjdndhHdI  (113Q MENU) (110Q FILE.OBJECT.TYPE.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 FILE.OBJECT.TYPE.MENU) ( 25Q ((Interface (QUOTE INTERFACE.NAMES)) (Itemtype (QUOTE ITEMTYPE.NAMES))) 15Q "What kind of object") ACQUIRE.OBJECT.FILE.ENTRY D1 (P 0 NAME.MENU I 0 MESSAGE) P@gg @I `0`3dZJddidd gJhhNMh_M&OdKdodi didg dgjdndhdL Xd (223Q MENU 23Q PRIN1 15Q GET.TRILLIUM.PRINTOUT.WINDOW) (172Q DEFAULTMENUHELDFN 163Q CLRPROMPT 74Q QUOTE 36Q TRILLIUM.OBJECT.FILES 27Q MENUTYPE# 12Q NEW.BLOCK 7 PROMPTWINDOW) ( 142Q "Trillium object files") ACQUIRE.OBJECT.FILE.NAME D1 (I 0 MESSAGE) @ (3 ACQUIRE.OBJECT.FILE.ENTRY) NIL () ADD.INTERFACE.TO.FILE D1 (P 3 INTERFACE.NAMES P 2 CONTENTS P 1 INTERFACE.NAME P 0 ENTRY) @XdYdgH h(27Q ADD.OBJECT.TO.FILE 14Q ACQUIRE.INTERFACE.NAME 5 ACQUIRE.OBJECT.FILE.ENTRY) (22Q INTERFACE.NAMES) () ADD.ITEMTYPE.TO.FILE D1 (P 3 ITEMTYPE.NAMES P 2 CONTENTS P 1 ITEMTYPE.NAME P 0 ENTRY) @XdYdgH h(27Q ADD.OBJECT.TO.FILE 14Q ACQUIRE.ITEM.TYPE 5 ACQUIRE.OBJECT.FILE.ENTRY) (22Q ITEMTYPE.NAMES) () ADD.OBJECT.TO.FILE D1 (P 2 OBJECTS P 1 CONTENTS P 0 ENTRY I 2 FILENAME I 1 TYPE I 0 OBJECT) L0B` XdB B` XYddA @JZd Z IAJ HA@hhBi h(110Q MARK.OBJECT.FILE 70Q LISTPUT 61Q SORT 55Q INTERSECTION 44Q LISTGET 31Q FASSOC 21Q DEFINE.NEW.FILE 11Q FASSOC) (26Q TRILLIUM.OBJECT.FILES 6 TRILLIUM.OBJECT.FILES) () CLEANUP.OBJECT.FILESA0001 D1 (NAME ERRORSET F 0 TO.BE.DUMPED.FILES F 1 MACROY) Pd hci(6 MAKE.OBJECT.FILE) NIL () CLEANUP.OBJECT.FILES D1 (P 10Q RESETSTATE P 7 MACROY P 5 OLDVALUE P 4 FILENAME P 0 TO.BE.DUMPED.FILES F 11Q RESETVARSLST F 12Q TRILLIUM.CURSOR) @Xdgg oI Hdgg khJ LJ  ddg𒿰qdgFhW 1gMhhWcog g_NcgN O&gH gg oK h(304Q PRIN1 273Q GET.TRILLIUM.PRINTOUT.WINDOW 257Q SHOULDNT 251Q CLEANUP.OBJECT.FILES.SELECTIVELY 234Q ERROR! 225Q APPLY 177Q CLEANUP.OBJECT.FILESA0001 143Q SWAP.CURSOR.AUX 112Q MENU 107Q GET.CLEANUP.CONFIRM.MENU 77Q PRIN1 71Q TAB 62Q GET.TRILLIUM.PRINTOUT.WINDOW 40Q PRIN1 27Q GET.TRILLIUM.PRINTOUT.WINDOW 10Q FILES.WITH.MARKED.OBJECTS 5 INTERACT&FILE.NEW.OBJECTS) (270Q NEW.BLOCK 265Q TRILLIUM.DESCRIPTIONS 243Q MAKE.SELECTIVELY.WITH.CONFIRMATION 216Q SWAP.CURSOR.AUX 203Q ERROR 174Q INTERNAL 151Q SWAP.CURSOR.AUX 131Q MAKE.ALL.WITHOUT.CONFIRMATION 120Q DON'T.MAKE.ANY.FILES.NOW 57Q SAME.LINE 54Q TRILLIUM.DESCRIPTIONS 24Q NEW.BLOCK 21Q TRILLIUM.DESCRIPTIONS) ( 300Q "No files need making" 171Q (CLEANUP.OBJECT.FILESA0001) 34Q "Files to be made:") CLEANUP.OBJECT.FILES.GIVE.REASON D1 (P 23Q ITYPE P 16Q INTERFACE.NAME P 2 ITYPES P 1 INTERFACE.NAMES P 0 MEMBERSHIP.CHANGES I 0 FILENAME)  g@ Xg@ AOOYg@ AOO ZHId-gg oK @K oK Hgg lhL oL Igg lhM oM Iz_g O_OOh__O_PO&__&g O&_$O"O$h_"_ O_:O$&_"dgg khN ON Jrgg _lhO oO J$dgg _khO O&O ݰ(gg _oO @O oO h(621Q PRIN1 607Q PRIN1 600Q PRIN1 564Q GET.TRILLIUM.PRINTOUT.WINDOW 544Q PRIN1 534Q TAB 522Q GET.TRILLIUM.PRINTOUT.WINDOW 500Q PRIN1 466Q TAB 453Q GET.TRILLIUM.PRINTOUT.WINDOW 432Q PRIN1 423Q TAB 414Q GET.TRILLIUM.PRINTOUT.WINDOW 332Q MARKASCHANGEDP 255Q MARKASCHANGEDP 240Q PRIN1 227Q TAB 217Q GET.TRILLIUM.PRINTOUT.WINDOW 200Q PRIN1 167Q TAB 157Q GET.TRILLIUM.PRINTOUT.WINDOW 142Q PRIN1 131Q PRIN1 123Q PRIN1 112Q GET.TRILLIUM.PRINTOUT.WINDOW 50Q FILED.OBJECTS.ON 21Q FILED.OBJECTS.ON 11Q FILED.OBJECTS.ON) (561Q NEW.BLOCK 556Q TRILLIUM.DESCRIPTIONS 517Q SAME.LINE 514Q TRILLIUM.DESCRIPTIONS 450Q SAME.BLOCK 445Q TRILLIUM.DESCRIPTIONS 411Q SAME.LINE 406Q TRILLIUM.DESCRIPTIONS 327Q ITEMTYPES 252Q DIALOGS 214Q SAME.BLOCK 211Q TRILLIUM.DESCRIPTIONS 154Q SAME.BLOCK 151Q TRILLIUM.DESCRIPTIONS 107Q NEW.BLOCK 104Q TRILLIUM.DESCRIPTIONS 44Q ITEMTYPE.NAMES 15Q INTERFACE.NAMES 5 CHANGED) ( 614Q " does not need making" 573Q "The file " 473Q "these itemtypes have changed:" 234Q "these interfaces have changed:" 174Q "its membership has changed" 136Q " needs to be made because" 117Q "The file ") CLEANUP.OBJECT.FILES.SELECTIVELY D1 (P 4 FILENAME P 1 DONE P 0 CONFIRM.SUBMENU I 0 FILENAMES) P@d`oLo dJdodi didg dgjdndhdK hYI[H dgiL dgiYdgL dgL dgL gL Qh(256Q SHOULDNT 251Q FORGET.OBJECT.CHANGES 236Q MARK.OBJECT.FILE 221Q SHOW.OBJECTS.ON.FILE 204Q CLEANUP.OBJECT.FILES.GIVE.REASON 154Q MAKE.OBJECT.FILE 133Q MENU 31Q CONCAT) (243Q FORGET.CHANGES.TO.OBJECTS 227Q FORGET.MEMBERSHIP.CHANGES 212Q SHOW.MEMBERSHIP 175Q WHY.DOES.IT.NEED.MAKING? 162Q NOT.NOW 143Q YES 74Q DEFAULTMENUHELDFN 65Q CLRPROMPT 14Q MENUTYPE#) ( 44Q (YES NOT.NOW (" " NIL) WHY.DOES.IT.NEED.MAKING? SHOW.MEMBERSHIP FORGET.MEMBERSHIP.CHANGES FORGET.CHANGES.TO.OBJECTS) 26Q " now?" 21Q "Make file ") COPY.OBJECT.FILE D1 (P 2 CONTENTS P 1 FILENAME P 0 ENTRY) WPo XdIgg oK Y0H IJ gg oL IL oL h(123Q PRIN1 112Q PRIN1 104Q PRIN1 73Q GET.TRILLIUM.PRINTOUT.WINDOW 61Q DEFINE.NEW.FILE 53Q COPYALL 43Q PROMPT.READ 37Q PRIN1 26Q GET.TRILLIUM.PRINTOUT.WINDOW 11Q ACQUIRE.OBJECT.FILE.ENTRY) (70Q NEW.BLOCK 65Q TRILLIUM.TRACE 23Q NEW.BLOCK 20Q PROMPTWINDOW) ( 117Q " defined" 100Q "File " 33Q "Name of the copy: " 6 "Indicate file to be copied") DEFINE.NEW.FILE D1 (I 1 CONTENTS I 0 FILENAME) `@A` @Ah@i (32Q MARK.OBJECT.FILE 13Q PUTASSOC) (24Q TRILLIUM.OBJECT.FILES 10Q TRILLIUM.OBJECT.FILES 2 TRILLIUM.OBJECT.FILES) () DEFINE.OBJECT.FILE D1 (P 0 FILENAME) F0gg oI Xd)d gg oJ HJ oJ h(102Q PRIN1 71Q PRIN1 63Q PRIN1 52Q GET.TRILLIUM.PRINTOUT.WINDOW 40Q DEFINE.NEW.FILE 30Q PROMPT.READ 24Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (47Q SAME.BLOCK 44Q TRILLIUM.TRACE 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 76Q " defined containing no objects" 57Q "File " 20Q "Name of file to hold Trillium objects: ") DELETE.FROM.FILE D1 (P 4 INTERFACE.NAMES P 3 OBJECT.NAME P 2 FILENAME P 1 CONTENTS P 0 ENTRY) u`XdkdHYAJ [\oKdgogooK /KKJ #gg oM JM oM h(161Q PRIN1 150Q PRIN1 142Q PRIN1 131Q GET.TRILLIUM.PRINTOUT.WINDOW 115Q DELETE.OBJECT.FROM.FILE 103Q CONFIRM 100Q CONCAT 67Q SHOULDNT 25Q ACQUIRE.FILE.OBJECT.NAME 5 ACQUIRE.OBJECT.FILE.ENTRY) (126Q NEW.BLOCK 123Q TRILLIUM.TRACE 55Q ITEMTYPE.NAMES 42Q INTERFACE.NAMES) ( 155Q " to delete" 136Q "There are no entries on file " 73Q " " 63Q "itemtype" 51Q "interface" 34Q "Delete ") DELETE.OBJECT.FILE D1 (I 0 FILENAME) @` ` (14Q DREMOVE 6 FASSOC) (17Q TRILLIUM.OBJECT.FILES 11Q TRILLIUM.OBJECT.FILES 3 TRILLIUM.OBJECT.FILES) () DELETE.OBJECT.FROM.FILE D1 (P 2 OBJECTS P 1 CONTENTS P 0 ENTRY I 2 FILENAME I 1 TYPE I 0 OBJECT) .0B` XdHYddA@IA Bi h(52Q MARK.OBJECT.FILE 44Q LISTPUT 41Q DREMOVE 36Q LISTGET 20Q SHOULDNT 11Q FASSOC) (6 TRILLIUM.OBJECT.FILES) () FILE.NEW.OBJECTS D1 (P 6 ITYPE P 5 INTERFACE.NAME P 2 ENTRY P 1 FILED.ITEMTYPES P 0 FILED.INTERFACES I 1 ITYPES I 0 INTERFACE.NAMES) pP@1dgg oK MK ZMgJ A1dgg oL NL ZNgJ h(146Q ADD.OBJECT.TO.FILE 133Q ACQUIRE.OBJECT.FILE.ENTRY 127Q PRIN1 121Q PRIN1 110Q GET.TRILLIUM.PRINTOUT.WINDOW 61Q ADD.OBJECT.TO.FILE 46Q ACQUIRE.OBJECT.FILE.ENTRY 42Q PRIN1 34Q PRIN1 23Q GET.TRILLIUM.PRINTOUT.WINDOW) (141Q ITEMTYPE.NAMES 105Q NEW.BLOCK 102Q PROMPTWINDOW 54Q INTERFACE.NAMES 20Q NEW.BLOCK 15Q PROMPTWINDOW) ( 115Q "Indicate where to file itemtype " 30Q "Indicate where to file interface ") FILED.OBJECTS.ON D1 (P 6 FILE P 2 ENTRY P 1 OBJECTS P 0 FILES I 1 OBJECT.FILES I 0 TYPE) aA0AX0H6lA` @ dN` Z@ [LK]\MYdd Yd  \K(132Q LAST 126Q SORT 121Q INTERSECTION 72Q COPY 67Q LISTGET 61Q FASSOC 44Q LISTGET 37Q FASSOC 13Q OBJECT.FILE.NAMES) (56Q TRILLIUM.OBJECT.FILES 34Q TRILLIUM.OBJECT.FILES) () FILES.WITH.MARKED.OBJECTS D1 (P 10Q ITYPE P 6 INTERFACE.NAME P 4 FILENAME) u AHIgL &gL M'igL O%iLJ1KhZHX^g hM]_g hO_K&(143Q MARKASCHANGEDP 121Q MARKASCHANGEDP 57Q FILED.OBJECTS.ON 35Q FILED.OBJECTS.ON 24Q FILED.OBJECTS.ON 2 OBJECT.FILE.NAMES) (140Q ITEMTYPES 116Q DIALOGS 53Q ITEMTYPE.NAMES 31Q INTERFACE.NAMES 20Q CHANGED) () FORGET.OBJECT.CHANGES D1 (P 3 ITYPE P 2 INTERFACE.NAME P 1 ITYPES P 0 INTERFACE.NAMES I 0 FILENAME) k g@ *dJg oJo J g@ 'dKg oKo K h(141Q UNMARK.ITEM.TYPE 134Q CONFIRM 131Q CONCAT 113Q MARKASCHANGEDP 75Q FILED.OBJECTS.ON 60Q UNMARK.INTERFACE 55Q FIND.INTERFACE 50Q CONFIRM 45Q CONCAT 27Q MARKASCHANGEDP 11Q FILED.OBJECTS.ON) (110Q ITEMTYPES 71Q ITEMTYPE.NAMES 24Q DIALOGS 5 INTERFACE.NAMES) ( 126Q "?" 121Q "Forget changes to itemtype " 42Q "?" 35Q "Forget changes to interface ") GET.CLEANUP.CONFIRM.MENU D1 NIL K`F`dododi didg dgjdndhHdI NIL (110Q CLEANUP.CONFIRM.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 CLEANUP.CONFIRM.MENU) ( 25Q (MAKE.ALL.WITHOUT.CONFIRMATION MAKE.SELECTIVELY.WITH.CONFIRMATION DON'T.MAKE.ANY.FILES.NOW) 15Q "Make these files now?") GET.LOADING.&.SAVING.COMMAND.MENU D1 NIL K`F`dododi didg dgjdndhHdI NIL (110Q LOADING.&.SAVING.COMMAND.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 LOADING.&.SAVING.COMMAND.MENU) ( 25Q "Loading and Saving" 15Q (CONNECTED.TO.? CONNECT.TO.HOST/DIRECTORY ("" NIL) LOAD.FILE ("" NIL) CREATE.NEW.FILE COPY.FILE DELETE.FILE SHOW.FILES ("" NIL) ADD.INTERFACE.TO.FILE ADD.ITEMTYPE.TO.FILE DELETE.OBJECT.FROM.FILE SHOW.OBJECTS.ON.FILE LIST.OBJECTS.ON.FILE WHERE.IS.OBJECT.FILED? ("" NIL) FILE.NEW.OBJECTS MAKE.FILE CLEANUP.ALL.CHANGES QUIT)) INTERACT&DELETE.OBJECT.FILE D1 (P 0 FILENAME) XdoH H h(32Q DELETE.OBJECT.FILE 24Q CONFIRM 21Q CONCAT 5 ACQUIRE.OBJECT.FILE.NAME) NIL ( 15Q "Delete Trillium file ") INTERACT&FILE.NEW.OBJECTS D1 (P 14Q ITYPE P 13Q INTERFACE.NAME P 4 TO.BE.DUMPED.FILES P 3 TO.BE.FILED.ITEMTYPES P 2 TO.BE.FILED.INTERFACES P 1 FILED.ITEMTYPES P 0 FILED.INTERFACES)  g X`H Zg Y`I [Jdgg oM JEgg lhN oN J$d gg _khO OO KIgg _lhO oO K$d gg _khO OO o JK gg _oO h(360Q PRIN1 344Q GET.TRILLIUM.PRINTOUT.WINDOW 330Q FILE.NEW.OBJECTS 321Q CONFIRM 305Q PRIN1 275Q TAB 263Q GET.TRILLIUM.PRINTOUT.WINDOW 241Q PRIN1 227Q TAB 214Q GET.TRILLIUM.PRINTOUT.WINDOW 173Q PRIN1 163Q TAB 151Q GET.TRILLIUM.PRINTOUT.WINDOW 127Q PRIN1 116Q TAB 106Q GET.TRILLIUM.PRINTOUT.WINDOW 71Q PRIN1 60Q GET.TRILLIUM.PRINTOUT.WINDOW 37Q LDIFFERENCE 27Q FILED.OBJECTS.ON 20Q LDIFFERENCE 10Q FILED.OBJECTS.ON) (341Q NEW.BLOCK 336Q TRILLIUM.TRACE 260Q NEW.BLOCK 255Q TRILLIUM.DESCRIPTIONS 211Q NEW.BLOCK 206Q TRILLIUM.DESCRIPTIONS 146Q NEW.BLOCK 143Q TRILLIUM.DESCRIPTIONS 103Q NEW.BLOCK 100Q TRILLIUM.DESCRIPTIONS 55Q NEW.BLOCK 52Q TRILLIUM.DESCRIPTIONS 33Q ITEM.TYPES 24Q ITEMTYPE.NAMES 14Q INTERFACES 5 INTERFACE.NAMES) ( 353Q "All objects have already been filed" 316Q "Files these before making files?" 234Q "Itemtypes:" 123Q "Interfaces:" 65Q "Not yet filed:") INTERACT&LIST.OBJECTS.ON.FILEA0001 D1 (NAME ERRORSET F 0 FILENAME F 1 MACROY) P ci(3 LIST.OBJECTS.ON.FILE) NIL () INTERACT&LIST.OBJECTS.ON.FILE D1 (P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 FILENAME F 5 RESETVARSLST F 6 TRILLIUM.CURSOR) HXd>hV 1gIhhUc og gJc gJ Lh(104Q ERROR! 75Q APPLY 51Q INTERACT&LIST.OBJECTS.ON.FILEA0001 16Q SWAP.CURSOR.AUX 5 ACQUIRE.OBJECT.FILE.NAME) (66Q SWAP.CURSOR.AUX 55Q ERROR 46Q INTERNAL 24Q SWAP.CURSOR.AUX) ( 43Q (INTERACT&LIST.OBJECTS.ON.FILEA0001)) INTERACT&MAKE.OBJECT.FILEA0001 D1 (NAME ERRORSET F 0 NAME F 1 MACROY) P ci(3 MAKE.OBJECT.FILE) NIL () INTERACT&MAKE.OBJECT.FILE D1 (P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 NAME F 5 RESETVARSLST F 6 TRILLIUM.CURSOR) HXd>hV 1gIhhUc og gJc gJ Lh(104Q ERROR! 75Q APPLY 51Q INTERACT&MAKE.OBJECT.FILEA0001 16Q SWAP.CURSOR.AUX 5 ACQUIRE.OBJECT.FILE.NAME) (66Q SWAP.CURSOR.AUX 55Q ERROR 46Q INTERNAL 24Q SWAP.CURSOR.AUX) ( 43Q (INTERACT&MAKE.OBJECT.FILEA0001)) INTERACT&SHOW.OBJECTS.ON.FILE D1 (P 0 FILENAME) Xdd h(15Q SHOW.OBJECTS.ON.FILE 5 ACQUIRE.OBJECT.FILE.NAME) NIL () LIST.OBJECTS.ON.FILE D1 (P 12Q ITEMTYPE.NAME P 11Q INTERFACE.NAME P 5 INTERFACE P 4 FN P 3 ITEMTYPE.NAMES P 2 INTERFACE.NAMES P 1 CONTENTS P 0 ENTRY I 0 FILENAME)  @` XdYggg@gggk \gg oN Lg oL @L oL L oL L oL L L oL Ig Zddd oL OL oL L L oL Ig [ddd oL OL oL L L J(d O ]i MhdddL L L K"d OghdddL L L L gg _oO Lkggg _oO L h(615Q DELFILE 610Q PRIN1 574Q GET.TRILLIUM.PRINTOUT.WINDOW 553Q PRIN1 537Q GET.TRILLIUM.PRINTOUT.WINDOW 526Q CLOSEF 515Q TERPRI 510Q TERPRI 503Q PRINTDEF 447Q TERPRI 442Q TERPRI 435Q PRINTDEF 422Q RESET.INTERFACE 415Q FIND.INTERFACE 400Q TERPRI 374Q TERPRI 367Q PRIN1 351Q PRIN1 342Q PRIN1 316Q LISTGET 307Q PRIN1 277Q TERPRI 273Q TERPRI 266Q PRIN1 250Q PRIN1 241Q PRIN1 215Q LISTGET 206Q PRIN1 176Q TERPRI 172Q TERPRI 166Q PRIN1 155Q PRIN1 151Q DATE 145Q PRIN1 134Q TERPRI 127Q PRIN1 116Q PRIN1 110Q PRIN1 100Q OPENFILE 70Q PRIN1 57Q GET.TRILLIUM.PRINTOUT.WINDOW 45Q PACKFILENAME 11Q FASSOC) (571Q SAME.LINE 566Q TRILLIUM.TRACE 561Q LISTFILES 534Q SAME.LINE 531Q TRILLIUM.TRACE 471Q TYPE.DESCRIPTION 313Q ITEMTYPE.NAMES 212Q INTERFACE.NAMES 75Q OUTPUT 54Q NEW.BLOCK 51Q TRILLIUM.TRACE 40Q VERSION 35Q TXT 32Q EXTENSION 26Q NAME 23Q CORE 20Q HOST 6 TRILLIUM.OBJECT.FILES) ( 603Q "done" 546Q "listing the file ..." 363Q " none" 336Q " " 303Q "Itemtypes:" 262Q " none" 235Q " " 202Q "Interfaces:" 162Q ", has contents as follows:" 141Q "As of " 123Q ", a file of Trillium objects." 104Q "A printout of " 64Q "Making the file ...") LOADING.&.SAVING D1 (P 4 DONE P 3 DIRECTORY P 2 HOST P 1 COMMAND P 0 COMMAND.MENU I 0 INTERFACE) $`XLH Igi\Idg gg oM M gIdggIdggIdgugiIdgZgNIdg?g3Idg$gIdg gIgh(434Q SHOULDNT 425Q CLEANUP.OBJECT.FILES 410Q INTERACT&MAKE.OBJECT.FILE 374Q INTERACT&FILE.NEW.OBJECTS 355Q WHERE.IS.OBJECT.FILED? 341Q INTERACT&LIST.OBJECTS.ON.FILE 322Q INTERACT&SHOW.OBJECTS.ON.FILE 306Q DELETE.FROM.FILE 267Q ADD.ITEMTYPE.TO.FILE 253Q ADD.INTERFACE.TO.FILE 234Q SHOW.OBJECT.FILES 220Q INTERACT&DELETE.OBJECT.FILE 202Q COPY.OBJECT.FILE 167Q DEFINE.OBJECT.FILE 151Q DEFINE.OBJECT.FILE 136Q LOADING.FILE 120Q TRILLIUM.CONNECT 105Q PRIN1 101Q TRILLIUM.CONN? 75Q PRIN1 64Q GET.TRILLIUM.PRINTOUT.WINDOW 23Q TRILLIUM.CLEAR.ALL.PROMPTING 17Q MENU 5 GET.LOADING.&.SAVING.COMMAND.MENU) (420Q CLEANUP.ALL.CHANGES 403Q MAKE.FILE 366Q FILE.NEW.OBJECTS 350Q WHERE.IS.OBJECT.FILED? 333Q LIST.OBJECTS.ON.FILE 315Q SHOW.OBJECTS.ON.FILE 300Q DELETE.OBJECT.FROM.FILE 262Q ADD.ITEMTYPE.TO.FILE 245Q ADD.INTERFACE.TO.FILE 227Q SHOW.FILES 212Q DELETE.FILE 175Q COPY.FILE 161Q CREATE.NEW.FILE 144Q CHECK.OBJECTS 130Q LOAD.FILE 113Q CONNECT.TO.HOST/DIRECTORY 61Q NEW.BLOCK 56Q TRILLIUM.DESCRIPTIONS 47Q CONNECTED.TO.? 34Q QUIT) ( 71Q "Now connected to: ") LOADING.FILE D1 (P 0 FILENAME) d@gg oI XdGgg oJ HJ H gg oK HK oK H h(140Q MARK.OBJECT.FILE 133Q PRIN1 122Q PRIN1 114Q PRIN1 103Q GET.TRILLIUM.PRINTOUT.WINDOW 71Q LOAD 64Q PRIN1 56Q PRIN1 45Q GET.TRILLIUM.PRINTOUT.WINDOW 30Q PROMPT.READ 24Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (100Q SAME.BLOCK 75Q TRILLIUM.TRACE 42Q NEW.BLOCK 37Q TRILLIUM.TRACE 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 127Q " loaded" 110Q "File " 52Q "Loading file " 20Q "Name of the file to be loaded: ") MAKE.OBJECT.FILE D1 (P 4 FULL.FILE.NAME P 3 FILECOMSVAR P 2 FILECOMS P 1 ITEMTYPE.NAMES P 0 INTERFACE.NAMES I 0 FILENAME) pg@ XdgHJg@ YdgIJ@g [dJ gg oM @M oM @o \gg LN @ @gh@` @` h(215Q DREMOVE 203Q DREMOVE 165Q MARK.OBJECT.FILE 160Q PRIN1 152Q GET.TRILLIUM.PRINTOUT.WINDOW 140Q MAKEFILE 127Q PRIN1 116Q PRIN1 110Q PRIN1 77Q GET.TRILLIUM.PRINTOUT.WINDOW 66Q SET 60Q MKATOM 55Q CONCAT 33Q FILED.OBJECTS.ON 11Q FILED.OBJECTS.ON) (220Q NOTLISTEDFILES 212Q NOTLISTEDFILES 206Q NOTCOMPILEDFILES 200Q NOTCOMPILEDFILES 171Q FILE 147Q SAME.LINE 144Q TRILLIUM.TRACE 74Q NEW.BLOCK 71Q TRILLIUM.TRACE 52Q COMS 41Q ITEMTYPES 27Q ITEMTYPE.NAMES 17Q DIALOGS 5 INTERFACE.NAMES) ( 135Q (FAST) 123Q " => " 104Q "Trillium object file ") MARK.OBJECT.FILE D1 (P 1 CONTENTS P 0 ENTRY I 1 CHANGED I 0 FILENAME) > @` XddY HgAhgA Ao @h`h(57Q SHOULDNT 44Q LISTPUT 11Q FASSOC) (72Q TRILLIUM.OBJECT.FILES 66Q TRILLIUM.OBJECT.FILES 40Q CHANGED 26Q CHANGED 6 TRILLIUM.OBJECT.FILES) ( 54Q "File is undefined") OBJECT.FILE.NAMES D1 NIL 0`dIHhZH&JNIL (5 TRILLIUM.OBJECT.FILES) () SHOW.OBJECT.FILES D1 (P 1 FILE) X`?gg oH  dgg lhJ IJ hgg oH (125Q PRIN1 112Q GET.TRILLIUM.PRINTOUT.WINDOW 72Q PRIN1 64Q TAB 54Q GET.TRILLIUM.PRINTOUT.WINDOW 34Q OBJECT.FILE.NAMES 30Q PRIN1 15Q GET.TRILLIUM.PRINTOUT.WINDOW) (107Q NEW.BLOCK 104Q TRILLIUM.DESCRIPTIONS 51Q SAME.BLOCK 46Q TRILLIUM.DESCRIPTIONS 12Q NEW.BLOCK 7 TRILLIUM.DESCRIPTIONS 2 TRILLIUM.OBJECT.FILES) ( 121Q "There are no Trillium object files yet defined" 24Q "Trillium object files: ") SHOW.OBJECTS.ON.FILE D1 (P 15Q ITEMTYPE.NAME P 14Q INTERFACE.NAME P 3 ITEMTYPE.NAMES P 2 INTERFACE.NAMES P 1 CONTENTS P 0 ENTRY I 0 FILENAME) ? @` Xd.dYgg oL @L oL gg lhM oM Ig Zgg _khO oO gg _lhO oO Ig [ggg _khO oO sd gg khN ON ᰖd gg _khO OO ݰ)gg _oO HO oO h(473Q PRIN1 461Q PRIN1 451Q PRIN1 435Q GET.TRILLIUM.PRINTOUT.WINDOW 415Q PRIN1 405Q TAB 373Q GET.TRILLIUM.PRINTOUT.WINDOW 346Q PRIN1 337Q TAB 330Q GET.TRILLIUM.PRINTOUT.WINDOW 307Q PRIN1 275Q TAB 263Q GET.TRILLIUM.PRINTOUT.WINDOW 247Q LISTGET 237Q PRIN1 225Q TAB 212Q GET.TRILLIUM.PRINTOUT.WINDOW 200Q PRIN1 166Q TAB 154Q GET.TRILLIUM.PRINTOUT.WINDOW 134Q LISTGET 124Q PRIN1 113Q TAB 103Q GET.TRILLIUM.PRINTOUT.WINDOW 71Q PRIN1 60Q PRIN1 52Q PRIN1 41Q GET.TRILLIUM.PRINTOUT.WINDOW 11Q FASSOC) (432Q NEW.BLOCK 427Q TRILLIUM.DESCRIPTIONS 370Q SAME.LINE 365Q TRILLIUM.DESCRIPTIONS 325Q SAME.LINE 322Q TRILLIUM.DESCRIPTIONS 260Q SAME.LINE 255Q TRILLIUM.DESCRIPTIONS 244Q ITEMTYPE.NAMES 207Q SAME.BLOCK 204Q TRILLIUM.DESCRIPTIONS 151Q SAME.LINE 146Q TRILLIUM.DESCRIPTIONS 131Q INTERFACE.NAMES 100Q SAME.BLOCK 75Q TRILLIUM.DESCRIPTIONS 36Q NEW.BLOCK 33Q TRILLIUM.DESCRIPTIONS 6 TRILLIUM.OBJECT.FILES) ( 466Q "has no objects on it now" 444Q "The file " 302Q "none" 232Q "Itemtypes:" 173Q "none" 120Q "Interfaces:" 65Q " now has objects:" 46Q "The file ") TRILLIUM.CONN? D1 NIL g`g` (16Q PACKFILENAME) (13Q \CONNECTED.DIR 10Q DIRECTORY 5 \CONNECTED.HOST 2 HOST) () TRILLIUM.CONNECT D1 (P 2 HOST/DIR P 1 DIRECTORY P 0 HOST) f`gg oK Xgg oL YHdgHgI `Zd gg oM M h(142Q PRIN1 136Q TRILLIUM.CONN? 132Q PRIN1 121Q GET.TRILLIUM.PRINTOUT.WINDOW 110Q CNDIR 77Q PACKFILENAME 57Q PROMPT.READ 53Q PRIN1 42Q GET.TRILLIUM.PRINTOUT.WINDOW 30Q PROMPT.READ 24Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (116Q NEW.BLOCK 113Q TRILLIUM.TRACE 103Q LOGINHOST/DIR 73Q DIRECTORY 67Q HOST 37Q SAME.BLOCK 34Q PROMPTWINDOW 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 126Q "You are now connected to " 47Q "Directory (name>name>...>name) to connect to: " 20Q "Host to connect to (%")%" means no change): ") WHERE.IS.OBJECT.FILED? D1 (P 15Q FILENAME P 3 FILENAMES P 2 OBJECT.NAME P 1 TYPE P 0 TYPE.MENU) YdddggZdA OOgg Ig7o5_JIO O_OOh__O_O&_oL khL JL K djgg oM `kgg oN KN @gg _oO K$d gg _khO OO h(414Q PRIN1 404Q TAB 372Q GET.TRILLIUM.PRINTOUT.WINDOW 350Q PRIN1 334Q GET.TRILLIUM.PRINTOUT.WINDOW 320Q PRIN1 311Q PRIN1 300Q GET.TRILLIUM.PRINTOUT.WINDOW 260Q PRIN1 247Q GET.TRILLIUM.PRINTOUT.WINDOW 230Q LENGTH 223Q PRIN1 215Q TAB 206Q PRIN1 132Q FILED.OBJECTS.ON 101Q GET.TRILLIUM.PRINTOUT.WINDOW 54Q OBJECT.FILE.NAMES 41Q SHOULDNT 35Q ACQUIRE.ITEM.TYPE 24Q ACQUIRE.INTERFACE.NAME 5 ACQUIRE.FILE.OBJECT.TYPE) (367Q SAME.BLOCK 364Q TRILLIUM.DESCRIPTIONS 331Q SAME.LINE 326Q TRILLIUM.DESCRIPTIONS 275Q SAME.LINE 272Q TRILLIUM.DESCRIPTIONS 244Q SAME.LINE 241Q TRILLIUM.DESCRIPTIONS 106Q INTERFACE.NAMES 76Q NEW.BLOCK 73Q TRILLIUM.DESCRIPTIONS 30Q ITEMTYPE.NAMES 16Q INTERFACE.NAMES) ( 343Q " is filed on files" 305Q " is filed on file " 254Q " is not filed on any file" 202Q "Itemtype" 115Q "Interface") (PRETTYCOMPRINT TRI-SAVINGCOMS) (RPAQQ TRI-SAVINGCOMS ((VARS (CLEANUP.CONFIRM.MENU) (FILE.OBJECT.TYPE.MENU) ( LOADING.&.SAVING.COMMAND.MENU) (TRILLIUM.OBJECT.FILES)) (FNS ACQUIRE.FILE.OBJECT.NAME ACQUIRE.FILE.OBJECT.TYPE ACQUIRE.OBJECT.FILE.ENTRY ACQUIRE.OBJECT.FILE.NAME ADD.INTERFACE.TO.FILE ADD.ITEMTYPE.TO.FILE ADD.OBJECT.TO.FILE CLEANUP.OBJECT.FILES CLEANUP.OBJECT.FILES.GIVE.REASON CLEANUP.OBJECT.FILES.SELECTIVELY COPY.OBJECT.FILE DEFINE.NEW.FILE DEFINE.OBJECT.FILE DELETE.FROM.FILE DELETE.OBJECT.FILE DELETE.OBJECT.FROM.FILE FILE.NEW.OBJECTS FILED.OBJECTS.ON FILES.WITH.MARKED.OBJECTS FORGET.OBJECT.CHANGES GET.CLEANUP.CONFIRM.MENU GET.LOADING.&.SAVING.COMMAND.MENU INTERACT&DELETE.OBJECT.FILE INTERACT&FILE.NEW.OBJECTS INTERACT&LIST.OBJECTS.ON.FILE INTERACT&MAKE.OBJECT.FILE INTERACT&SHOW.OBJECTS.ON.FILE LIST.OBJECTS.ON.FILE LOADING.&.SAVING LOADING.FILE MAKE.OBJECT.FILE MARK.OBJECT.FILE OBJECT.FILE.NAMES SHOW.OBJECT.FILES SHOW.OBJECTS.ON.FILE TRILLIUM.CONN? TRILLIUM.CONNECT WHERE.IS.OBJECT.FILED?))) (RPAQQ CLEANUP.CONFIRM.MENU NIL) (RPAQQ FILE.OBJECT.TYPE.MENU NIL) (RPAQQ LOADING.&.SAVING.COMMAND.MENU NIL) (RPAQQ TRILLIUM.OBJECT.FILES NIL) (PUTPROPS TRI-SAVING COPYRIGHT ("Xerox Corporation" 1984)) NIL