(FILECREATED " 9-Jul-85 18:14:04" ("compiled on " {PHYLUM}BIRTHDAY84>FIXES>JUL-8-85-FIXES-COMPLETE.;3) "19-Mar-85 14:34:17" recompiled changes: LoadPatches TRILLIUM.LOAD.FIXES PROFILE.EDITOR.TITLECOMMANDFN PROFILE.INIT PROFILE.INIT.Original in "INTERLISP-D 19-Jun-85 ..." dated "19-JUN-84 10:00:00") (FILECREATED " 9-Jul-85 18:10:53" {PHYLUM}BIRTHDAY84>FIXES>JUL-8-85-FIXES-COMPLETE.;3 60332 changes to: (FNS PROFILE.EDITOR.TITLECOMMANDFN TRILLIUM.LOAD.FIXES LoadPatches PROFILE.INIT PROFILE.INIT.Original) (VARS JUL-8-85-FIXES-COMPLETECOMS) previous date: " 9-Jul-85 15:06:26" {PHYLUM}BIRTHDAY84>FIXES>JUL-8-85-FIXES-COMPLETE.;2) LoadPatchesA0001 D1 (L (1 Y 0 X)) @ANIL NIL () LoadPatches D1 (P 5 files P 4 afterIDate P 3 file I 2 afterDate I 1 ldflg I 0 directory) Bj0@o` # dKg IHhZH&J0@o dKg IHhZH&J Md ]Ao ;0M.d@K @Ko` IHhZH&J90M.d@Ko` @K IHhZH&J0M.d@Ko` @K IHhZH&J]hM ]0MdKdg IHhZH&J]dg ]dJM[L)AgKi Kg ` KA JZ(627Q LOAD? 615Q DREMOVE 607Q FILENAMEFIELD 576Q LOAD? 537Q SORT 503Q GETFILEINFO 457Q DREMOVE 426Q INFILEP 423Q CONCAT 414Q INFILEP 411Q CONCAT 336Q INFILEP 333Q CONCAT 324Q INFILEP 321Q CONCAT 245Q INFILEP 242Q CONCAT 224Q INFILEP 221Q CONCAT 177Q MEMB 166Q INTERSECTION 156Q \NCONC2 130Q FILENAMEFIELD 112Q FILDIR 107Q CONCAT 51Q FILENAMEFIELD 31Q IDATE 24Q FILDIR 21Q CONCAT) (620Q FILELST 612Q FILELST 604Q NAME 565Q HIDDEN 534Q LoadPatchesA0001 500Q ICREATIONDATE 406Q COMPILE.EXT 316Q COMPILE.EXT 237Q COMPILE.EXT 125Q NAME 46Q NAME 16Q COMPILE.EXT) ( 403Q "." 313Q "." 234Q "." 174Q (PROP ALLPROP) 104Q "*." 13Q "*.") FONTS.IN.CORE.Original D1 (P 4 FAMILY) @`:d0Ld[A O8O]N'M_^OXI HZYJ YH ^M_gLKOh_OOh__O_O&_(117Q LAST 107Q LAST) (137Q DISPLAY 5 \FONTSINCORE) () FONTS.IN.CORE D1 (P 4 FAMILY) @`:d0Ld[A O8O]N'M_^OXI HZYJ YH ^M_gLKOh_OOh__O_O&_(117Q LAST 107Q LAST) (137Q DISPLAY 5 \FONTSINCORE) () FORGET.FRAME.CLASS.Original D1 (P 2 CLASS.NAME P 1 CLASSES P 0 FRAME.NAME I 0 FRAME) `@g X@g Ydgg oK `dIdodi didg dgjdndhdL Z-oJo @gJI ` higg oM h(250Q PRIN1 237Q GET.TRILLIUM.PRINTOUT.WINDOW 217Q MARK.INTERFACE 210Q LISTPUT 205Q REMOVE 172Q CONFIRM 167Q CONCAT 150Q MENU 47Q PRIN1 36Q GET.TRILLIUM.PRINTOUT.WINDOW 21Q LISTGET 11Q LISTGET) (234Q NEW.BLOCK 231Q TRILLIUM.WARNINGS 224Q FRAME.NAME.MENU 214Q CURRENT.INTERFACE 200Q CLASSES 121Q DEFAULTMENUHELDFN 112Q CLRPROMPT 56Q MENUTYPE# 33Q NEW.BLOCK 30Q TRILLIUM.WARNINGS 16Q CLASSES 6 NAME) ( 244Q "FORGET.FRAME.CLASS command aborted" 164Q "?" 157Q "Forget class" 71Q "Classes" 43Q "This frame has no classes; can't forget one") FORGET.FRAME.CLASS D1 (P 2 CLASS.NAME P 1 CLASSES P 0 FRAME.NAME I 0 FRAME F 6 CURRENT.BITMAP.FRAMES) `@g X@g Ydgg oK `dIdodi didg dgjdndhdL Z/oJo @gJI ` hc igg oM h(252Q PRIN1 241Q GET.TRILLIUM.PRINTOUT.WINDOW 217Q MARK.INTERFACE 210Q LISTPUT 205Q REMOVE 172Q CONFIRM 167Q CONCAT 150Q MENU 47Q PRIN1 36Q GET.TRILLIUM.PRINTOUT.WINDOW 21Q LISTGET 11Q LISTGET) (236Q NEW.BLOCK 233Q TRILLIUM.WARNINGS 224Q FRAME.NAME.MENU 214Q CURRENT.INTERFACE 200Q CLASSES 121Q DEFAULTMENUHELDFN 112Q CLRPROMPT 56Q MENUTYPE# 33Q NEW.BLOCK 30Q TRILLIUM.WARNINGS 16Q CLASSES 6 NAME) ( 246Q "FORGET.FRAME.CLASS command aborted" 164Q "?" 157Q "Forget class" 71Q "Classes" 43Q "This frame has no classes; can't forget one") MOVE.ITEM.OriginalA0001 D1 (NAME ERRORSET F 0 ITEM F 1 FRAME F 2 DELTA.POSITION F 3 MACROY F 4 OLD.POSITION) PR PQ QPT ci(21Q UPDATE&DISPLAY.FRAME 12Q ANALYZE&COMPLETE.ITEM 4 TRANSLATE.PLACEMENT) NIL () MOVE.ITEM.Original D1 (P 10Q RESETSTATE P 7 MACROY P 5 OLDVALUE P 2 OLD.POSITION P 1 DELTA.POSITION P 0 ITEM I 0 FRAME F 11Q RESETVARSLST F 12Q TRILLIUM.CURSOR) P@o Xdgg oK ggg oL hH Ho hW 1gMhhWcog g_NcgN OH(214Q ERROR! 205Q APPLY 157Q MOVE.ITEM.OriginalA0001 123Q SWAP.CURSOR.AUX 114Q ACQUIRE.MOVED.PLACEMENT 103Q BOUNDING.BOX 75Q PRIN1 64Q GET.TRILLIUM.PRINTOUT.WINDOW 40Q PRIN1 27Q GET.TRILLIUM.PRINTOUT.WINDOW 12Q ACQUIRE.ITEM) (176Q SWAP.CURSOR.AUX 163Q ERROR 154Q INTERNAL 131Q SWAP.CURSOR.AUX 61Q NEW.BLOCK 56Q TRILLIUM.WARNINGS 50Q TYPE.DESCRIPTION 24Q NEW.BLOCK 21Q TRILLIUM.WARNINGS) ( 151Q (MOVE.ITEM.OriginalA0001) 111Q "Indicate a new placement for the item" 71Q "Can't move that item, as its type is undefined" 34Q "Cannot find any item where you pointed: move command aborted" 7 "Point out the item to be moved") MOVE.ITEMA0001 D1 (NAME ERRORSET F 0 ITEM F 1 FRAME F 2 DELTA.POSITION F 3 MACROY F 4 OLD.POSITION) PR PQ QPT ci(21Q UPDATE&DISPLAY.FRAME 12Q ANALYZE&COMPLETE.ITEM 4 TRANSLATE.PLACEMENT) NIL () MOVE.ITEM D1 (P 10Q RESETSTATE P 7 MACROY P 5 OLDVALUE P 2 OLD.POSITION P 1 DELTA.POSITION P 0 ITEM I 0 FRAME F 11Q RESETVARSLST F 12Q TRILLIUM.CURSOR) P@o Xdgg oK ggg oL hH @ Ho @ hW 1gMhhWcog g_NcgN OH(226Q ERROR! 217Q APPLY 171Q MOVE.ITEMA0001 135Q SWAP.CURSOR.AUX 126Q FLIP.ALL.ITEMS 121Q ACQUIRE.MOVED.PLACEMENT 110Q FLIP.ALL.ITEMS 103Q BOUNDING.BOX 75Q PRIN1 64Q GET.TRILLIUM.PRINTOUT.WINDOW 40Q PRIN1 27Q GET.TRILLIUM.PRINTOUT.WINDOW 12Q ACQUIRE.ITEM) (210Q SWAP.CURSOR.AUX 175Q ERROR 166Q INTERNAL 143Q SWAP.CURSOR.AUX 61Q NEW.BLOCK 56Q TRILLIUM.WARNINGS 50Q TYPE.DESCRIPTION 24Q NEW.BLOCK 21Q TRILLIUM.WARNINGS) ( 163Q (MOVE.ITEMA0001) 116Q "Indicate a new placement for the item" 71Q "Can't move that item, as its type is undefined" 34Q "Cannot find any item where you pointed: move command aborted" 7 "Point out the item to be moved") COPY.INTERFACE.Original D1 (P 7 BACKGROUND.COLOR P 6 PROFILE P 5 REGION P 4 FIRST.FRAME P 3 FRAMES P 2 NEW.INTERFACE P 1 NEW.NAME P 0 NAME I 0 INTERFACE F 20Q COLOR.MAP.INTENSITIES) A @g Xgg _oO HO gg _oO Ydgg _oO hlgg _oO hI *gg _oO IO oO h0@g d _O Oh_O&_O@g @g @g @g _gggIgKgLgMgNgOgW hZ Ji I(475Q MARK.INTERFACE 467Q ADD.NEW.INTERFACE 373Q COPYALL 370Q LISTGET 360Q COPYALL 355Q LISTGET 345Q COPY 342Q LISTGET 332Q LISTGET 267Q COPY.FRAME 260Q LISTGET 244Q PRIN1 232Q PRIN1 223Q PRIN1 207Q GET.TRILLIUM.PRINTOUT.WINDOW 174Q FIND.INTERFACE 166Q PRIN1 152Q GET.TRILLIUM.PRINTOUT.WINDOW 131Q PRIN1 115Q GET.TRILLIUM.PRINTOUT.WINDOW 100Q PROMPT.READ 74Q PRIN1 60Q GET.TRILLIUM.PRINTOUT.WINDOW 46Q PRIN1 37Q PRIN1 23Q GET.TRILLIUM.PRINTOUT.WINDOW 11Q LISTGET) (440Q COLOR.MAP.INTENSITIES 433Q BACKGROUND.COLOR 427Q PROFILE 423Q REGION 417Q FIRST.FRAME 413Q FRAMES 407Q NAME 404Q INTERFACE 401Q \TYPE 365Q BACKGROUND.COLOR 352Q PROFILE 337Q REGION 327Q FIRST.FRAME 255Q FRAMES 204Q NEW.BLOCK 201Q TRILLIUM.WARNINGS 147Q NEW.BLOCK 144Q TRILLIUM.WARNINGS 112Q NEW.BLOCK 107Q TRILLIUM.WARNINGS 55Q NEW.BLOCK 52Q PROMPTWINDOW 20Q NEW.BLOCK 15Q TRILLIUM.TRACE 6 NAME) ( 237Q " is already in use" 216Q "The name " 161Q "Name must be one word" 124Q "Copy command aborted" 67Q "Name of copy: " 32Q "Copying interface ") COPY.INTERFACE D1 (P 7 BACKGROUND.COLOR P 6 PROFILE P 5 REGION P 4 FIRST.FRAME P 3 FRAMES P 2 NEW.INTERFACE P 1 NEW.NAME P 0 NAME I 0 INTERFACE) : @g Xgg _oO HO gg _oO Ydgg _oO hlgg _oO hI *gg _oO IO oO h0@g d _O Oh_O&_O@g @g @g @g _gggIgKgLgMgNgOhZ Ji I(466Q MARK.INTERFACE 460Q ADD.NEW.INTERFACE 373Q COPYALL 370Q LISTGET 360Q COPYALL 355Q LISTGET 345Q COPY 342Q LISTGET 332Q LISTGET 267Q COPY.FRAME 260Q LISTGET 244Q PRIN1 232Q PRIN1 223Q PRIN1 207Q GET.TRILLIUM.PRINTOUT.WINDOW 174Q FIND.INTERFACE 166Q PRIN1 152Q GET.TRILLIUM.PRINTOUT.WINDOW 131Q PRIN1 115Q GET.TRILLIUM.PRINTOUT.WINDOW 100Q PROMPT.READ 74Q PRIN1 60Q GET.TRILLIUM.PRINTOUT.WINDOW 46Q PRIN1 37Q PRIN1 23Q GET.TRILLIUM.PRINTOUT.WINDOW 11Q LISTGET) (433Q BACKGROUND.COLOR 427Q PROFILE 423Q REGION 417Q FIRST.FRAME 413Q FRAMES 407Q NAME 404Q INTERFACE 401Q \TYPE 365Q BACKGROUND.COLOR 352Q PROFILE 337Q REGION 327Q FIRST.FRAME 255Q FRAMES 204Q NEW.BLOCK 201Q TRILLIUM.WARNINGS 147Q NEW.BLOCK 144Q TRILLIUM.WARNINGS 112Q NEW.BLOCK 107Q TRILLIUM.WARNINGS 55Q NEW.BLOCK 52Q PROMPTWINDOW 20Q NEW.BLOCK 15Q TRILLIUM.TRACE 6 NAME) ( 237Q " is already in use" 216Q "The name " 161Q "Name must be one word" 124Q "Copy command aborted" 67Q "Name of copy: " 32Q "Copying interface ") ACQUIRE.INTERFACE.NAME.Original D1 NIL E`d`dodi didg dgjdndhHdI  (102Q MENU) (47Q DEFAULTMENUHELDFN 40Q CLRPROMPT 7 INTERFACES 2 MENUTYPE#) ( 17Q "Interfaces") ACQUIRE.INTERFACE.NAME D1 NIL g`F`d`dodi didg dgjdndhHdI  gg H oH H (144Q TERPRI 140Q PRIN1 130Q TERPRI 121Q GET.TRILLIUM.PRINTOUT.WINDOW 107Q MENU) (116Q NEW.BLOCK 113Q PROMPTWINDOW 54Q DEFAULTMENUHELDFN 45Q CLRPROMPT 14Q INTERFACES 7 MENUTYPE# 2 INTERFACES) ( 134Q "No interfaces!" 24Q "Interfaces") SET.TRILLIUM.FILES.LOCATION.Original D1 (P 0 UPFN I 0 FILE) @ Hg Hg h(27Q LISTGET 15Q LISTGET 3 UNPACKFILENAME) (32Q TRILLIUM.DIRECTORY 24Q DIRECTORY 20Q TRILLIUM.HOST 12Q HOST) () SET.TRILLIUM.FILES.LOCATION D1 (P 2 SOURCEDIRLENGTH P 1 SOURCEDIR? P 0 UPFN I 0 FILE) N@ !Hg Hg ` Z`J Yd ``kmJ h(107Q MKATOM 104Q SUBSTRING 63Q MKATOM 56Q SUBSTRING 53Q MINUS 43Q LENGTH 40Q UNPACK 27Q LISTGET 15Q LISTGET 3 UNPACKFILENAME) (112Q TRILLIUM.DIRECTORY 74Q TRILLIUM.DIRECTORY 66Q TRILLIUM.SOURCE.SUBDIRECTORY 47Q TRILLIUM.DIRECTORY 35Q TRILLIUM.SOURCE.SUBDIRECTORY 32Q TRILLIUM.DIRECTORY 24Q DIRECTORY 20Q TRILLIUM.HOST 12Q HOST) () TRILLIUM.MAKESYS.OriginalA0001 D1 (I 0 X) @o (7 REMPROPLIST) NIL ( 4 (VALUE EXPR CODE SUBR FILEMAP ADVISED ADVICE READVICE EDIT-SAVE *HISTORY*)) TRILLIUM.MAKESYS.OriginalA0002 D1 (I 0 X) @o (7 REMPROPLIST) NIL ( 4 (VALUE CODE SUBR EDIT-SAVE *HISTORY*)) TRILLIUM.MAKESYS.Original D1 (P 3 INTERFACE.NAME P 0 MAKESYSFILE I 1 SYSFILESPEC I 0 BIGSYSFLG) lgAg `gAg `o h`gAg @gggAg ggAg k !oHo ``hYho o +`#ZgJiIdK i @Ho ?o 6o `dghg ` hgg hg gg g` `oh g` `oh H h(550Q MAKESYS 544Q RECLAIM 540Q \NCONC2 523Q FASSOC 511Q \NCONC2 474Q FASSOC 463Q RESETDEDIT 460Q REMPROP 447Q PURGEHISTORY 434Q MAPATOMS 414Q CLRHASH 410Q CLRHASH 401Q CLEARFILEPKG 351Q %. 340Q TTYCONFIRM 327Q TTYCONFIRM 310Q RESET.INTERFACE 304Q FIND.INTERFACE 242Q TTYCONFIRM 225Q TTYCONFIRM 202Q FILEPKGCHANGES 173Q FILES? 162Q TTYCONFIRM 157Q CONCAT 140Q PACKFILENAME 131Q FILENAMEFIELD 112Q FILENAMEFIELD 65Q FILENAMEFIELD 44Q STREQUAL 30Q FILENAMEFIELD 11Q FILENAMEFIELD) (527Q POSTGREETFORMS 520Q POSTGREETFORMS 515Q PROFILE.INIT 500Q POSTGREETFORMS 471Q POSTGREETFORMS 466Q TRILLIUM.LOAD.FIXES 455Q LASTVALUE 452Q EDIT 444Q E 441Q NOTLISTEDFILES 431Q TRILLIUM.MAKESYS.OriginalA0002 425Q TRILLIUM.MAKESYS.OriginalA0001 421Q ADVISEDFNS 405Q CHANGESARRAY 376Q E 363Q FILE 355Q FILELST 256Q FILE 247Q INTERFACES 206Q FILELST 176Q NOTCOMPILEDFILES 126Q VERSION 122Q VERSION 117Q SYSOUT 107Q EXTENSION 103Q EXTENSION 100Q TRILLIUM 74Q BIGTRILLIUM 62Q NAME 56Q NAME 53Q \CONNECTED.DIR 35Q \CONNECTED.DIR 25Q DIRECTORY 21Q DIRECTORY 16Q \CONNECTED.HOST 6 HOST 2 HOST) ( 533Q (PROFILE.INIT) 504Q (TRILLIUM.LOAD.FIXES) 346Q (ERASE) 335Q "For sure? " 324Q "Gain space? " 237Q "Reset interfaces? " 222Q "You have made changes which have not been filed! Continue makesys? " 154Q " [confirm] " 147Q "Makesys into " 41Q "") TRILLIUM.MAKESYSA0001 D1 (I 0 X) @o (7 REMPROPLIST) NIL ( 4 (VALUE EXPR CODE SUBR FILEMAP ADVISED ADVICE READVICE EDIT-SAVE *HISTORY*)) TRILLIUM.MAKESYSA0002 D1 (I 0 X) @o (7 REMPROPLIST) NIL ( 4 (VALUE CODE SUBR EDIT-SAVE *HISTORY*)) TRILLIUM.MAKESYS D1 (P 3 INTERFACE.NAME P 0 MAKESYSFILE I 1 SYSFILESPEC I 0 BIGSYSFLG) ngAg id g gAg id g gAg @gggAg ggAg k !oHo ``hYho o +`#ZgJiIdK i @Ho ?o 6o `dghg ` hgg hg gg g` `oh g` `oh H h(552Q MAKESYS 546Q RECLAIM 542Q \NCONC2 525Q FASSOC 513Q \NCONC2 476Q FASSOC 465Q RESETDEDIT 462Q REMPROP 451Q PURGEHISTORY 436Q MAPATOMS 416Q CLRHASH 412Q CLRHASH 403Q CLEARFILEPKG 353Q %. 342Q TTYCONFIRM 331Q TTYCONFIRM 312Q RESET.INTERFACE 306Q FIND.INTERFACE 244Q TTYCONFIRM 227Q TTYCONFIRM 204Q FILEPKGCHANGES 175Q FILES? 164Q TTYCONFIRM 161Q CONCAT 142Q PACKFILENAME 133Q FILENAMEFIELD 114Q FILENAMEFIELD 67Q FILENAMEFIELD 55Q FILENAMEFIELD 47Q DIRECTORYNAME 40Q FILENAMEFIELD 26Q FILENAMEFIELD 20Q DIRECTORYNAME 11Q FILENAMEFIELD) (531Q POSTGREETFORMS 522Q POSTGREETFORMS 517Q TRILLIUM.LOAD.FIXES 502Q POSTGREETFORMS 473Q POSTGREETFORMS 470Q PROFILE.INIT 457Q LASTVALUE 454Q EDIT 446Q E 443Q NOTLISTEDFILES 433Q TRILLIUM.MAKESYSA0002 427Q TRILLIUM.MAKESYSA0001 423Q ADVISEDFNS 407Q CHANGESARRAY 400Q E 365Q FILE 357Q FILELST 260Q FILE 251Q INTERFACES 210Q FILELST 200Q NOTCOMPILEDFILES 130Q VERSION 124Q VERSION 121Q SYSOUT 111Q EXTENSION 105Q EXTENSION 102Q TRILLIUM 76Q BIGTRILLIUM 64Q NAME 60Q NAME 52Q DIRECTORY 35Q DIRECTORY 31Q DIRECTORY 23Q HOST 6 HOST 2 HOST) ( 535Q (TRILLIUM.LOAD.FIXES) 506Q (PROFILE.INIT) 350Q (ERASE) 337Q "For sure? " 326Q "Gain space? " 241Q "Reset interfaces? " 224Q "You have made changes which have not been filed! Continue makesys? " 156Q " [confirm] " 151Q "Makesys into ") TRILLIUM.SET.SOURCE.Original D1 (I 0 FILE) @gdg`g`g@ (32Q PACKFILENAME) (25Q NAME 22Q TRILLIUM.DIRECTORY 17Q DIRECTORY 14Q TRILLIUM.HOST 11Q HOST 3 FILEDATES) () TRILLIUM.SET.SOURCE D1 (I 1 SUBDIRECTORY I 0 FILE) )@gdg`g`A` g@ (43Q PACKFILENAME 33Q CONCAT) (36Q NAME 30Q TRILLIUM.SOURCE.SUBDIRECTORY 22Q TRILLIUM.DIRECTORY 17Q DIRECTORY 14Q TRILLIUM.HOST 11Q HOST 3 FILEDATES) () TRILLIUM.LOAD.FIXES D1 (I 0 ForcePatchLoad F 0 MAKESYSDATE) !oh` ggg@hP (36Q LoadPatches 12Q TRILLIUM.FILENAME) (26Q ALLPROP 20Q EXPR 15Q TRILLIUM.INIT 7 TRILLIUM.FIX.SUBDIRECTORY) ( 3 "") TRILLIUM.LOAD.TRILLIUM?.Original D1 (P 7 F P 6 FILE P 5 DEMO? P 4 STANDARD? P 3 SYSONLY? P 2 SOURCEONLY? P 1 SOURCES? P 0 TRIFILES) g g` Qid oi i hdo g[d&gHhdo gYhdo ghdo g\hdo g]h o H Xdh l N h h o h l o h IJg g o H3dJO Oi Kg IO g g Kg nnJ L=odO Kg O g Kg g Mg Kg g ih(631Q COMPILE.INTERNAL.FNS.IF.NECESSARY 625Q MARK.OBJECT.FILE 616Q LOAD 605Q TRILLIUM.FILENAME 573Q MARK.OBJECT.FILE 564Q LOAD 553Q TRILLIUM.PTYPES.FILENAME 540Q MARK.OBJECT.FILE 532Q LOAD 521Q TRILLIUM.ITEMTYPES.FILENAME 476Q TRILLIUM 464Q TRILLIUM.INIT 461Q LOAD 450Q TRILLIUM.FILENAME 434Q LOAD 426Q TRILLIUM.FILENAME 416Q LOAD 405Q TRILLIUM.FILENAME 375Q LOAD 372Q TRILLIUM.FILENAME 353Q FILESLOAD 343Q LOAD 335Q TRILLIUM.FILENAME 323Q TERPRI 316Q PRIN1 306Q TAB 301Q TERPRI 274Q PRIN1 264Q TERPRI 257Q TERPRI 246Q PRIN1 241Q TAB 233Q TERPRI 217Q SORT 214Q COPY 210Q PRIN1 200Q TERPRI 167Q ASKUSER 151Q ASKUSER 133Q ASKUSER 113Q ASKUSER 64Q ASKUSER 53Q TERPRI 46Q PRIN1 35Q TERPRI 22Q REMOVE 5 BOUNDP) (622Q DEMO-INTERFACE 613Q SYSLOAD 602Q DEMO-INTERFACE 570Q BASIC-PTYPES 561Q SYSLOAD 550Q BASIC-PTYPES 527Q SYSLOAD 456Q SYSLOAD 445Q TRI-ITEMTYPES 431Q ALLPROP 413Q SYSLOAD 340Q ALLPROP 332Q TRILLIUM 172Q Y 154Q Y 136Q Y 116Q Y 77Q TRI-TOOLS 67Q Y 31Q TRILLIUM.LOADED 17Q TRILLIUM.FILES 14Q TRI-ITEMTYPES 2 TRILLIUM.LOADED) ( 505Q (PRIMITIVE-ITEMTYPES COMPOSITE-ITEMTYPES) 350Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) COMPILEBANG EDITBITMAP GRAPHER HEADLINE MAKEGRAPH READNUMBER TEDIT TRAJECTORY-FOLLOWER PIECE-MENUS) 313Q "(Don't forget to hit the SPACE bar a few times!)" 271Q "Go ahead and have some coffee!" 205Q "Loading Trillium files: " 164Q " Load DEMO interface? " 146Q " Load standard set of item types? " 130Q " Load sources only? " 110Q " Load sources? " 61Q " Small loadup? " 42Q "Loading the TRILLIUM system ...") TRILLIUM.LOAD.TRILLIUM? D1 (P 7 F P 6 FILE P 5 DEMO? P 4 STANDARD? P 3 SYSONLY? P 2 SOURCEONLY? P 1 SOURCES? P 0 TRIFILES) g g` Qid oi i hdo g[d&gHhdo gYhdo ghdo g\hdo g]h o H Xdh l N h h o h l o h IJg g o H8dJO Oi Kg IO g O g Kg g nnJ LXo*dOh` Kg O` O gh` Kg g` g M'gh` Kg g` g ih(715Q COMPILE.INTERNAL.FNS.IF.NECESSARY 711Q MARK.OBJECT.FILE 702Q TRILLIUM.SET.SOURCE 670Q LOAD 657Q TRILLIUM.FILENAME 641Q MARK.OBJECT.FILE 632Q TRILLIUM.SET.SOURCE 620Q LOAD 607Q TRILLIUM.FILENAME 570Q MARK.OBJECT.FILE 562Q TRILLIUM.SET.SOURCE 551Q LOAD 540Q TRILLIUM.FILENAME 511Q TRILLIUM 477Q TRILLIUM.INIT 474Q TRILLIUM.SET.SOURCE 466Q LOAD 455Q TRILLIUM.FILENAME 442Q TRILLIUM.SET.SOURCE 434Q LOAD 426Q TRILLIUM.FILENAME 416Q LOAD 405Q TRILLIUM.FILENAME 375Q LOAD 372Q TRILLIUM.FILENAME 353Q FILESLOAD 343Q LOAD 335Q TRILLIUM.FILENAME 323Q TERPRI 316Q PRIN1 306Q TAB 301Q TERPRI 274Q PRIN1 264Q TERPRI 257Q TERPRI 246Q PRIN1 241Q TAB 233Q TERPRI 217Q SORT 214Q COPY 210Q PRIN1 200Q TERPRI 167Q ASKUSER 151Q ASKUSER 133Q ASKUSER 113Q ASKUSER 64Q ASKUSER 53Q TERPRI 46Q PRIN1 35Q TERPRI 22Q REMOVE 5 BOUNDP) (706Q DEMO-INTERFACE 677Q TRILLIUM.INTERFACE.SUBDIRECTORY 674Q DEMO-INTERFACE 665Q SYSLOAD 654Q TRILLIUM.INTERFACE.SUBDIRECTORY 650Q DEMO-INTERFACE 636Q BASIC-PTYPES 627Q TRILLIUM.PTYPE.SUBDIRECTORY 624Q BASIC-PTYPES 615Q SYSLOAD 604Q TRILLIUM.PTYPE.SUBDIRECTORY 600Q BASIC-PTYPES 557Q TRILLIUM.ITEMTYPE.SUBDIRECTORY 546Q SYSLOAD 535Q TRILLIUM.ITEMTYPE.SUBDIRECTORY 471Q TRI-ITEMTYPES 463Q SYSLOAD 452Q TRI-ITEMTYPES 431Q ALLPROP 413Q SYSLOAD 340Q ALLPROP 332Q TRILLIUM 172Q Y 154Q Y 136Q Y 116Q Y 77Q TRI-TOOLS 67Q Y 31Q TRILLIUM.LOADED 17Q TRILLIUM.FILES 14Q TRI-ITEMTYPES 2 TRILLIUM.LOADED) ( 520Q (PRIMITIVE-ITEMTYPES COMPOSITE-ITEMTYPES) 350Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) COMPILEBANG EDITBITMAP GRAPHER HEADLINE MAKEGRAPH READNUMBER TEDIT TRAJECTORY-FOLLOWER PIECE-MENUS) 313Q "(Don't forget to hit the SPACE bar a few times!)" 271Q "Go ahead and have some coffee!" 205Q "Loading Trillium files: " 164Q " Load DEMO interface? " 146Q " Load standard set of item types? " 130Q " Load sources only? " 110Q " Load sources? " 61Q " Small loadup? " 42Q "Loading the TRILLIUM system ...") TRILLIUM.FILENAME.Original D1 (I 1 COMPILED I 0 FILE) 4Ag`g`g@g` g`g`g@ (61Q PACKFILENAME 34Q PACKFILENAME) (54Q NAME 51Q TRILLIUM.DIRECTORY 46Q DIRECTORY 43Q TRILLIUM.HOST 40Q HOST 30Q COMPILE.EXT 25Q EXTENSION 21Q NAME 16Q TRILLIUM.DIRECTORY 13Q DIRECTORY 10Q TRILLIUM.HOST 5 HOST) () TRILLIUM.FILENAME D1 (P 0 DIRECTORY I 2 SUBDIRECTORY I 1 COMPILED I 0 FILE) CB`B`` Ag`gHg@g` g`gHg@ (100Q PACKFILENAME 55Q PACKFILENAME 17Q CONCAT) (73Q NAME 67Q DIRECTORY 64Q TRILLIUM.HOST 61Q HOST 51Q COMPILE.EXT 46Q EXTENSION 42Q NAME 36Q DIRECTORY 33Q TRILLIUM.HOST 30Q HOST 14Q TRILLIUM.SOURCE.SUBDIRECTORY 11Q TRILLIUM.DIRECTORY 4 TRILLIUM.DIRECTORY) () MAKE.ITEMTYPES.COMS.Original D1 (P 5 FNS P 4 OTHER P 3 DESCRIPTION P 2 ITYPE I 0 ITYPES)  @QHIIJg 0Lg dONh_N&_OggJddidd gJhhhM gMh HX(167Q \NCONC2 43Q LISTGET 30Q LISTGET) (157Q FNS 137Q QUOTE 107Q DUMP.ITEMTYPE 104Q E 40Q FNS 25Q OTHER 20Q TYPE.DESCRIPTION) () MAKE.ITEMTYPES.COMS D1 (P 5 FNS P 4 OTHER P 3 DESCRIPTION P 2 ITYPE I 0 ITYPES) @QHIIJg 0Lg dONh_N&_OgJhggJddidd gJhhhM gMh HX(177Q \NCONC2 43Q LISTGET 30Q LISTGET) (166Q FNS 146Q QUOTE 116Q DUMP.ITEMTYPE 113Q E 104Q * 40Q FNS 25Q OTHER 20Q TYPE.DESCRIPTION) () MAKE.PTYPES.COMS.Original D1 (P 5 FNS P 4 OTHER P 3 DESCRIPTION P 2 PTYPE I 0 PTYPES)  @QHIIJg 0Lg dONh_N&_OggJddidd gJhhhM gMh HX(167Q \NCONC2 43Q LISTGET 30Q LISTGET) (157Q FNS 137Q QUOTE 107Q DUMP.PTYPE 104Q E 40Q FNS 25Q OTHER 20Q PTYPE.DESCRIPTION) () MAKE.PTYPES.COMS D1 (P 5 FNS P 4 OTHER P 3 DESCRIPTION P 2 PTYPE I 0 PTYPES) @QHIIJg 0Lg dONh_N&_OgJhggJddidd gJhhhM gMh HX(177Q \NCONC2 43Q LISTGET 30Q LISTGET) (166Q FNS 146Q QUOTE 116Q DUMP.PTYPE 113Q E 104Q * 40Q FNS 25Q OTHER 20Q PTYPE.DESCRIPTION) () PROFILE.EDITOR.TITLECOMMANDFNA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FFN F 2 WINDOW F 3 MACROY) R g o `g di g coQo W`gghgQ gg oH QH oH Q gg oH gg oH ci(244Q PRIN1 231Q GET.TRILLIUM.PRINTOUT.WINDOW 215Q PRIN1 202Q GET.TRILLIUM.PRINTOUT.WINDOW 170Q MAKEFILE 163Q PRIN1 152Q PRIN1 144Q PRIN1 131Q GET.TRILLIUM.PRINTOUT.WINDOW 117Q LISTPUT 114Q PACKFILENAME 71Q CONFIRM 66Q CONCAT 47Q PACK* 41Q DIRECTORYNAME 33Q LISTGET 21Q SET 12Q FILECOMS 3 PROFILE.EDITOR.MAKE.CHANGES) (226Q NEW.BLOCK 223Q TRILLIUM.TRACE 177Q SAME.LINE 174Q TRILLIUM.TRACE 126Q NEW.BLOCK 123Q TRILLIUM.TRACE 110Q BODY 104Q VERSION 101Q FULL.FILE.NAME 76Q TRILLIUM.PROFILE 44Q TRILLIUM-PROFILE 30Q FULL.FILE.NAME 25Q TRILLIUM.PROFILE 7 TRILLIUM-PROFILE) ( 240Q "Saving profile aborted." 211Q "done." 157Q " ..." 140Q "Saving profile as " 63Q " ?" 56Q "Save PROFILE as " 16Q ((VARS TRILLIUM.PROFILE) (P (COND ((AND (BOUNDP (QUOTE TRILLIUM.PROFILE.EDITOR.WINDOW)) (WINDOWP TRILLIUM.PROFILE.EDITOR.WINDOW)) (CLOSEW TRILLIUM.PROFILE.EDITOR.WINDOW))) (SETQ TRILLIUM.PROFILE.EDITOR.WINDOW)))) PROFILE.EDITOR.TITLECOMMANDFN D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 FFN P 0 COMMAND.MENU I 1 ITEM I 0 WINDOW F 6 RESETVARSLST F 7 TRILLIUM.CURSOR) m Xd Zdg@ Mg@hW 1gJhhVc og gKc gK Mo h(151Q SHOULDNT 137Q ERROR! 131Q APPLY 105Q PROFILE.EDITOR.TITLECOMMANDFNA0001 52Q SWAP.CURSOR.AUX 34Q PROFILE.EDITOR.MAKE.CHANGES 15Q MENU 10Q GET.PROFILE.EDITOR.TITLECOMMANDFN.MENU 5 TRILLIUM.CLEAR.ALL.PROMPTING) (122Q SWAP.CURSOR.AUX 111Q ERROR 102Q INTERNAL 60Q SWAP.CURSOR.AUX 41Q SAVE.PROFILE 25Q MAKE.CHANGES) ( 146Q "Unrecognized keyword in PROFILE.EDITOR.TITLECOMMANDFN" 77Q (PROFILE.EDITOR.TITLECOMMANDFNA0001)) PROFILE.EDITOR.TITLECOMMANDFN.OriginalA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FFN F 2 WINDOW F 3 MACROY) R gg oH g o g`g`gg coQo $Q gg oH QH gg oH ci(207Q PRIN1 174Q GET.TRILLIUM.PRINTOUT.WINDOW 160Q PRIN1 152Q PRIN1 137Q GET.TRILLIUM.PRINTOUT.WINDOW 125Q MAKEFILE 117Q CONFIRM 114Q CONCAT 75Q PACKFILENAME 46Q SET 37Q FILECOMS 30Q PRIN1 15Q GET.TRILLIUM.PRINTOUT.WINDOW 3 PROFILE.EDITOR.MAKE.CHANGES) (171Q SAME.LINE 166Q TRILLIUM.TRACE 134Q SAME.LINE 131Q TRILLIUM.TRACE 71Q TRILLIUM-PROFILE 66Q NAME 63Q \CONNECTED.DIR 60Q DIRECTORY 55Q \CONNECTED.HOST 52Q HOST 34Q TRILLIUM-PROFILE 12Q NEW.BLOCK 7 TRILLIUM.TRACE) ( 203Q " aborted. " 146Q "as " 111Q " ?" 104Q "Save PROFILE as " 43Q ((VARS TRILLIUM.PROFILE) (P (COND ((AND (BOUNDP (QUOTE TRILLIUM.PROFILE.EDITOR.WINDOW)) (WINDOWP TRILLIUM.PROFILE.EDITOR.WINDOW)) (CLOSEW TRILLIUM.PROFILE.EDITOR.WINDOW))) (SETQ TRILLIUM.PROFILE.EDITOR.WINDOW))) 24Q "Saving profile ... ") PROFILE.EDITOR.TITLECOMMANDFN.Original D1 (P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 FFN P 0 COMMAND.MENU I 1 ITEM I 0 WINDOW F 6 RESETVARSLST F 7 TRILLIUM.CURSOR) m Xd Zdg@ Mg@hW 1gJhhVc og gKc gK Mo h(151Q SHOULDNT 137Q ERROR! 131Q APPLY 105Q PROFILE.EDITOR.TITLECOMMANDFN.OriginalA0001 52Q SWAP.CURSOR.AUX 34Q PROFILE.EDITOR.MAKE.CHANGES 15Q MENU 10Q GET.PROFILE.EDITOR.TITLECOMMANDFN.MENU 5 TRILLIUM.CLEAR.ALL.PROMPTING) (122Q SWAP.CURSOR.AUX 111Q ERROR 102Q INTERNAL 60Q SWAP.CURSOR.AUX 41Q SAVE.PROFILE 25Q MAKE.CHANGES) ( 146Q "Unrecognized keyword in PROFILE.EDITOR.TITLECOMMANDFN" 77Q (PROFILE.EDITOR.TITLECOMMANDFN.OriginalA0001)) TRILLIUM.CONN? D1 NIL id (4 DIRECTORYNAME) NIL () TRILLIUM.CONN?.Original D1 NIL g`g` (16Q PACKFILENAME) (13Q \CONNECTED.DIR 10Q DIRECTORY 5 \CONNECTED.HOST 2 HOST) () PROFILE.INITA0001 D1 (I 0 PROFILE) @gjdld (16Q LISTPUT 13Q CREATEREGION) (3 BOUNDING.BOX) () PROFILE.INIT D1 (P 0 FILE I 0 DONT.LOAD.PROFILE.FLG) @g` g` gg @g `g hXdRgg oI HI oI H gg oJ `gghgH gg oK ` `g `g h(301Q TRILLIUM.EVAL 276Q GET.PARAM.DEFAULT 263Q LISTGET 252Q INSTALL.PROFILE 240Q CREATE.PROFILE 234Q PRIN1 223Q GET.TRILLIUM.PRINTOUT.WINDOW 210Q LISTPUT 205Q PACKFILENAME 163Q PRIN1 152Q GET.TRILLIUM.PRINTOUT.WINDOW 140Q LOAD 133Q PRIN1 122Q PRIN1 114Q PRIN1 103Q GET.TRILLIUM.PRINTOUT.WINDOW 64Q INFILEP 61Q PACK* 46Q INFILEP 35Q SET.ANALYSISFN 24Q INSTALL.ITEM.TYPE.DEFAULTS 13Q SET.ITEM.TYPE.DESCRIPTION) (305Q TRILLIUM.PROFILE.EDITOR.WINDOW 273Q TRILLIUM.INITIALIZATION 270Q TRILLIUM.PROFILE 260Q TRILLIUM.INITIALIZATION 255Q TRILLIUM.PROFILE 247Q TRILLIUM.PROFILE 243Q TRILLIUM.PROFILE 220Q NEW.BLOCK 215Q TRILLIUM.TRACE 201Q BODY 175Q VERSION 172Q FULL.FILE.NAME 167Q TRILLIUM.PROFILE 147Q SAME.LINE 144Q TRILLIUM.TRACE 100Q NEW.BLOCK 75Q TRILLIUM.TRACE 56Q TRILLIUM-PROFILE 53Q LOGINHOST/DIR 43Q TRILLIUM-PROFILE 32Q PROFILE.INITA0001 27Q TRILLIUM.PROFILE 21Q TRILLIUM.PROFILE.DESCRIPTION 16Q TRILLIUM.PROFILE 10Q TRILLIUM.PROFILE.DESCRIPTION 5 TRILLIUM.PROFILE) ( 230Q "No Trillium profile found - using default profile." 157Q "done." 127Q "..." 110Q "Loading Trillium profile from ") PROFILE.INIT.OriginalA0001 D1 (I 0 PROFILE) @gjdld (16Q LISTPUT 13Q CREATEREGION) (3 BOUNDING.BOX) () PROFILE.INIT.Original D1 (P 0 FILE I 0 DONT.LOAD.PROFILE.FLG) g` g` gg @g `g hXdd `gghgH ` `g `g h(170Q TRILLIUM.EVAL 165Q GET.PARAM.DEFAULT 152Q LISTGET 141Q INSTALL.PROFILE 127Q CREATE.PROFILE 123Q LISTPUT 120Q PACKFILENAME 76Q LOAD 64Q INFILEP 61Q PACK* 46Q INFILEP 35Q SET.ANALYSISFN 24Q INSTALL.ITEM.TYPE.DEFAULTS 13Q SET.ITEM.TYPE.DESCRIPTION) (174Q TRILLIUM.PROFILE.EDITOR.WINDOW 162Q TRILLIUM.INITIALIZATION 157Q TRILLIUM.PROFILE 147Q TRILLIUM.INITIALIZATION 144Q TRILLIUM.PROFILE 136Q TRILLIUM.PROFILE 132Q TRILLIUM.PROFILE 114Q BODY 110Q VERSION 105Q FULL.FILE.NAME 102Q TRILLIUM.PROFILE 56Q TRILLIUM-PROFILE 53Q LOGINHOST/DIR 43Q TRILLIUM-PROFILE 32Q PROFILE.INIT.OriginalA0001 27Q TRILLIUM.PROFILE 21Q TRILLIUM.PROFILE.DESCRIPTION 16Q TRILLIUM.PROFILE 10Q TRILLIUM.PROFILE.DESCRIPTION 5 TRILLIUM.PROFILE) () LIST.OBJECTS.ON.FILE.Original 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 ...") LIST.OBJECTS.ON.FILE D1 (P 11Q ITEMTYPE.NAME P 10Q 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 ZdddoL OL oL L L oL Ig [ddd oL OL oL L L J(dO ]i MhdddL L L K"d OghdddL L L L gggigLhhggLhhgggog@hohgg gg _oO h(671Q PRIN1 655Q GET.TRILLIUM.PRINTOUT.WINDOW 644Q ADD.PROCESS 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) (652Q SAME.LINE 647Q TRILLIUM.TRACE 641Q Trillium% Listing 636Q NAME 611Q QUOTE 602Q TRILLIUM.TRACE 577Q ON 574Q TRILLIUM.PRINTOUT 562Q QUOTE 557Q DELFILE 543Q LISTFILES 537Q \SINGLEFILEINDEX.DONTSPAWN 534Q RESETVAR 531Q PROGN 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) ( 664Q " spawned listing process." 621Q (" complete.") 606Q "Listing of " 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 ...") DELETE.INTERFACE D1 (I 0 INTERFACE.NAME F 0 CURRENT.INTERFACE.WINDOW) 3`g @P P hc@ @g @g (60Q DELDEF.INTERFACE 51Q UNMARKASCHANGED 42Q UNREGISTER.INTERFACE.NAME 26Q CLOSEW 20Q OPENWP 10Q LISTGET) (55Q INTERFACES 46Q INTERFACES 33Q CURRENT.INTERFACE 5 NAME 2 CURRENT.INTERFACE) () CONVERT.INVERTING.CASCADE.LIGHT.OFFSETS D1 (I 0 ITEM) @ggg (14Q CONVERT.GRIDDED.OFFSETS) (11Q TEXT.OFFSET 6 VERTICAL.OFFSET 3 HORIZONTAL.OFFSET) () BITMAP.NAME/CREATE.Original D1 (P 13Q ITEM P 4 FRAMELIST P 3 BITMAPNAME P 2 FRAMENAMEMENU P 1 BITMAPNAMEMENU P 0 RETURNTOCLASSMENU I 0 TYPE)  ga`g gh\`do`g h0 Ld _O Oh_O&_O dMdi didg dgjdndhdN ZYd [ fKHJY`K g A O OH Y_dg!g Og _OOh__O_O&_Kg(335Q GET.PARAM.DEFAULT 323Q LISTGET 276Q GET.BITMAP.NAME.MENU 257Q LISTGET 251Q FIND.FRAME 246Q CLASSNAME.FROM.MENUNAME 225Q MENUCLASSNAMEP 221Q MENU 134Q UNION 131Q SORT 73Q MENUNAME.FROM.CLASSNAME 56Q MENUNAME.FROM.CLASSNAME 53Q LISTGET 16Q LISTGET) (401Q EXAMPLE.BITMAP 332Q NAME 320Q NAME 312Q BITMAP 254Q ITEMS 242Q CURRENT.INTERFACE 167Q DEFAULTMENUHELDFN 160Q CLRPROMPT 50Q NAME 45Q CURRENT.FRAME 31Q MENUTYPE# 23Q BITMAPS 13Q BITMAP.FRAMES 10Q CURRENT.FRAME.CLASSES 2 >>>RETURN.TO.FRAME.LIST<<<) ( 37Q "Choose Bitmap Frame: ") BITMAP.NAME/CREATE D1 (P 17Q ITEM P 12Q FRAME P 4 FRAMELIST P 3 BITMAPNAME P 2 FRAMENAMEMENU P 1 BITMAPNAMEMENU P 0 RETURNTOCLASSMENU I 0 TYPE F 20Q CURRENT.BITMAP.FRAMES) )ga0 W *%d Og _O Oh_O&_O\`do`g h0 Ld _O Oh_O&_O dMdi didg dgjdndhdN ZYd [ fKHJY`K g AO OH Y_dg!g Og _OOh__O_O&_Kg(402Q GET.PARAM.DEFAULT 370Q LISTGET 343Q GET.BITMAP.NAME.MENU 324Q LISTGET 316Q FIND.FRAME 313Q CLASSNAME.FROM.MENUNAME 272Q MENUCLASSNAMEP 266Q MENU 201Q UNION 176Q SORT 140Q MENUNAME.FROM.CLASSNAME 123Q MENUNAME.FROM.CLASSNAME 120Q LISTGET 36Q LISTGET 17Q SET.CURRENT.BITMAP.FRAMES) (446Q EXAMPLE.BITMAP 377Q NAME 365Q NAME 357Q BITMAP 321Q ITEMS 307Q CURRENT.INTERFACE 234Q DEFAULTMENUHELDFN 225Q CLRPROMPT 115Q NAME 112Q CURRENT.FRAME 76Q MENUTYPE# 33Q NAME 2 >>>RETURN.TO.FRAME.LIST<<<) ( 104Q "Choose Bitmap Frame: ") (PRETTYCOMPRINT JUL-8-85-FIXES-COMPLETECOMS) (RPAQQ JUL-8-85-FIXES-COMPLETECOMS ((* * Useful fn - the patch loader from modified to do right thing for PROP/ALLPROP) (FNS LoadPatches) (* * Henrietta fixes to Trillium source) (* * FONTS.IN.CORE: Didn't search list by device type. If the DISPLAY font type was not first in the list, it wouldn't be included in the font menu.) (FNS FONTS.IN.CORE.Original FONTS.IN.CORE) (* * FORGET.FRAME.CLASS: Didn't reset CURRENT.BITMAP.FRAMES) (FNS FORGET.FRAME.CLASS.Original FORGET.FRAME.CLASS) (* * MOVE.ITEM: Flips all items in the frame while prompting for item's new placement) (FNS MOVE.ITEM.Original MOVE.ITEM) (* * COPY.INTERFACE: Modified to copy the color map of the interface, also) (FNS COPY.INTERFACE.Original COPY.INTERFACE) (* * Webster fixes to Trillium source) (* * ACQUIRE.INTERFACE.NAME; Modified to inform user when no interfaces have been loaded) (FNS ACQUIRE.INTERFACE.NAME.Original ACQUIRE.INTERFACE.NAME) (* * PARC fixes to Trillium source) (* * SET.TRILLIUM.FILES.LOCATION modified to include only host and release directory, and to end with >) ( FNS SET.TRILLIUM.FILES.LOCATION.Original SET.TRILLIUM.FILES.LOCATION) (* * TRILLIUM.MAKESYS modified to cause fix file loading when sysout is restarted) (FNS TRILLIUM.MAKESYS.Original TRILLIUM.MAKESYS) ( * * TRILLIUM.SET.SOURCE modified to make use of new var TRILLIUM.SOURCE.SUBDIRECTORY) (FNS TRILLIUM.SET.SOURCE.Original TRILLIUM.SET.SOURCE) (* * TRILLIUM.LOAD.FIXES new function to do work of loading all fix files) (FNS TRILLIUM.LOAD.FIXES) (* * TRILLIUM.LOAD.TRILLIUM? modified to make use of modified TRILLIUM.FILENAME) (FNS TRILLIUM.LOAD.TRILLIUM?.Original TRILLIUM.LOAD.TRILLIUM?) (* * TRILLIUM.FILENAME modified to take argument indicating which subdirectory of the release to take file from) (FNS TRILLIUM.FILENAME.Original TRILLIUM.FILENAME) (* * TRILLIUM.RELEASE.HOST/DIRECTORY Obsolete variable, set to NOBIND) (VARS TRILLIUM.RELEASE.HOST/DIRECTORY) (* * *.SUBDIRECTORY new (global) variables locating the subdirectories wherein various parts of Trillium are kept) (VARS TRILLIUM.SOURCE.SUBDIRECTORY TRILLIUM.PTYPE.SUBDIRECTORY TRILLIUM.ITEMTYPE.SUBDIRECTORY TRILLIUM.FIX.SUBDIRECTORY TRILLIUM.INTERFACE.SUBDIRECTORY) (* * add itemtype and ptype to the list of objects included in a LISTFILE index) (ADDVARS (INDEXEDTYPESLST (ITEMTYPE READ.ITEMTYPE) (PTYPE READ.PTYPE))) (* * MAKE.ITEMTYPES.COMS and MAKE.PTYPES.COMS now add a comment giving name of object) ( FNS MAKE.ITEMTYPES.COMS.Original MAKE.ITEMTYPES.COMS MAKE.PTYPES.COMS.Original MAKE.PTYPES.COMS) (* * don't use \CONNECTED.xxx, use (DIRECTORYNAME T T) also, do a better job of deciding where the profile should be stored (starting with where it came from...)) (FNS PROFILE.EDITOR.TITLECOMMANDFN PROFILE.EDITOR.TITLECOMMANDFN.Original TRILLIUM.CONN? TRILLIUM.CONN?.Original) (* * print some trace info about loading the profile, this may make people aware of their profile (or lack of it)) (FNS PROFILE.INIT PROFILE.INIT.Original) (* * LIST.OBJECTS.ON.FILE mustn't delete file before LISTFILES is finished) (FNS LIST.OBJECTS.ON.FILE.Original LIST.OBJECTS.ON.FILE) (* * fix DELETE.INTERFACE to do a more thorough job of deleting an interface) (FNS DELETE.INTERFACE) (* * fixes to Trillium Itemtypes and Ptypes) (* * LABELLED.BUTTON Changed default LABEL value to be "1" instead of 1) (ITEMTYPES LABELLED.BUTTON) (* * INVERTING.CASCADE.LIGHT alignment values were inadvertently quoted: D.Ingalls) ( ITEMTYPES INVERTING.CASCADE.LIGHT) (* * Submitted by PatH: BITMAP.NAME/CREATE used (LISTGET CURRENT.FRAME.CLASSES (QUOTE BITMAP.FRAMES)) instead of CURRENT.BITMAP.FRAMES) (FNS BITMAP.NAME/CREATE.Original) (PTYPES BITMAP.NAME) (P (COMPILE.INTERNAL.FNS.IF.NECESSARY)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML MAKE.PTYPES.COMS MAKE.PTYPES.COMS.Original MAKE.ITEMTYPES.COMS MAKE.ITEMTYPES.COMS.Original) (LAMA))))) (RPAQQ TRILLIUM.RELEASE.HOST/DIRECTORY NOBIND) (RPAQQ TRILLIUM.SOURCE.SUBDIRECTORY SOURCES) (RPAQQ TRILLIUM.PTYPE.SUBDIRECTORY PTYPES) (RPAQQ TRILLIUM.ITEMTYPE.SUBDIRECTORY ITEMTYPES) (RPAQQ TRILLIUM.FIX.SUBDIRECTORY FIXES) (RPAQQ TRILLIUM.INTERFACE.SUBDIRECTORY INTERFACES) (ADDTOVAR INDEXEDTYPESLST (ITEMTYPE READ.ITEMTYPE) (PTYPE READ.PTYPE)) (READ.ITEMTYPE LABELLED.BUTTON 5) (\TYPE ITEM.TYPE NAME LABELLED.BUTTON COMMENT "A button, with a label centered on it, which flashes when pushed, and performs an action" KIND COMPOSITE PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) DEFAULT (170 . 170) COMMENT "The grid position of the lower left corner of the button" GRID.TYPE (LOCATION)) (\TYPE PARAMETER NAME LABEL TYPE (STRING) DEFAULT "1" COMMENT "The words on the button") (\TYPE PARAMETER NAME FONT TYPE ( FONT) DEFAULT NIL COMMENT "The font for the button label") (\TYPE PARAMETER NAME ACTION.FORM TYPE ( FORM) DEFAULT (ACTION.PRINT "This action brought to you by a LABELLED.BUTTON") COMMENT "The action caused by this button") (\TYPE PARAMETER NAME PICTURE TYPE (BITMAP.NAME) DEFAULT SIMPLE.BUTTON.BITMAP COMMENT "The graphic for the button")) SUBITEM.SPECS ((LABEL BUTTON (ITEM PICTURE (PLACEMENT (PTRANSLATE PLACEMENT (NEW.POSITION (MINUS BUTTON.BITMAP.EXTRA) 0))) (BITMAP PICTURE))) ( ITEM LINE.OF.TEXT (PLACEMENT (PICTURE.CENTER BUTTON)) (LINE LABEL) (XALIGNMENT (QUOTE CENTER)) (FONT FONT)) (ITEM FLASHING.SENSITIVE.REGION (PLACEMENT (BOUNDING.BOX BUTTON)) (ACTION.FORM ACTION.FORM))) CLASSES (COMPOSITE BUTTON)) (READ.ITEMTYPE INVERTING.CASCADE.LIGHT 5) (\TYPE ITEM.TYPE NAME INVERTING.CASCADE.LIGHT COMMENT "An indicator with associated text" KIND COMPOSITE PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) DEFAULT (170 . 170) COMMENT "A reference grid position" GRID.TYPE (LOCATION)) (\TYPE PARAMETER NAME TEXT TYPE (LIST (STRING)) DEFAULT (Label for Light) COMMENT "The text associated with the light") (\TYPE PARAMETER NAME FONT TYPE (FONT) DEFAULT (HELVETICA 10) COMMENT "The font in which to print the information") (\TYPE PARAMETER NAME TEXT.OFFSET TYPE (OFFSET.VECTOR (PLACEMENT)) DEFAULT (51 . 17) COMMENT "The offset of the words form the lower left corner of the button") (\TYPE PARAMETER NAME HORIZONTAL.ALIGNMENT TYPE (ONEOF (LEFT CENTER RIGHT)) DEFAULT (QUOTE LEFT) COMMENT "Horizontal alignment of text about reference point") (\TYPE PARAMETER NAME VERTICAL.ALIGNMENT TYPE ( ONEOF (TOP CENTER BOTTOM)) DEFAULT (QUOTE CENTER) COMMENT "Vertical alignment of text about the reference point") (\TYPE PARAMETER NAME CELL TYPE (CELL) DEFAULT CELL.1 COMMENT "The cell to affect and display") (\TYPE PARAMETER NAME VALUE TYPE (CONSTANT) DEFAULT VALUE.1 COMMENT "The value to be set and reflected")) SUBITEM.SPECS ((LABEL WORDS (ITEM BLOCK.OF.TEXT (PLACEMENT (PTRANSLATE PLACEMENT TEXT.OFFSET)) (LIST.OF.LINES TEXT) (FONT FONT) (XALIGNMENT HORIZONTAL.ALIGNMENT) (YALIGNMENT VERTICAL.ALIGNMENT))) (ITEM LIGHT (PLACEMENT (BOUNDING.BOX WORDS)) ( CELL CELL) (REFERENCE.VALUE VALUE))) OTHER (FNS ((1 CONVERT.INVERTING.CASCADE.LIGHT.OFFSETS))) CLASSES (COMPOSITE) VERSION 1) (READ.PTYPE BITMAP.NAME 1) (\TYPE PTYPE NAME BITMAP.NAME COMMENT "A Bitmap name" OTHER (FNS ((CREATE BITMAP.NAME/CREATE)))) (COMPILE.INTERNAL.FNS.IF.NECESSARY) (PUTPROPS JUL-8-85-FIXES-COMPLETE COPYRIGHT ("Xerox Corporation" 1985)) NIL