(FILECREATED "20-Mar-85 11:18:53" ("compiled on " {PHYLUM}BIRTHDAY84>SOURCES>TRI-UTIL.;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "20-Nov-84 15:47:28" {AZTEC}BIRTHDAY84>RERELEASE>TRI-UTIL.;3 48325 changes to: (FNS ADD.FRAME.CLASS) previous date: "19-Nov-84 17:12:16" {AZTEC}BIRTHDAY84>RERELEASE>TRI-UTIL.;2) ACQUIRE.LIST.ITEMS D1 (P 7 ITEM P 3 PICKS P 2 POSITION P 1 CHOICE P 0 FRAME.MENU I 1 MENU.TITLE I 0 MENU.LIST) Èp¿``º`o@ ¼dL¿di¿dA¿@ l#ÛkØ½dM¿dg ¿dg¿jdnÿdh¾dN ¿¸HJ Ydgð‘Kgð²KŒdHO µòh»°ØIdgð²"¿@°dOK ¦HO ¿µê@»°°²®HI ¿IdK –K »°šK»°•(276Q REMOVE 271Q MEMB 262Q INVERT.MENU.ITEM 241Q INVERT.MENU.ITEM 232Q MEMB 172Q INVERT.MENU.ITEM 136Q MENU 56Q LENGTH 32Q \APPEND2 5 GETMOUSESTATE) (210Q *ALL* 152Q *CLEAR* 143Q *DONE* 104Q DEFAULTMENUHELDFN 75Q CLRPROMPT 21Q MENUTYPE# 14Q LASTMOUSEY 11Q LASTMOUSEX) ( 26Q (*DONE* *CLEAR* *ALL* (" " NIL))) ADD.FRAME.CLASS D1 (P 0 CLASSES I 1 CLASS I 0 FRAME) X Aµ/gg ¹oI ¿@g I ¿oI ¿b@g Xdd X@gH hdH(114Q LISTPUT 111Q SORT 100Q INTERSECTION 71Q LISTGET 60Q PROMPT.READ 54Q PRIN1 43Q PRIN1 37Q LISTGET 27Q PRIN1 16Q GET.TRILLIUM.PRINTOUT.WINDOW) (124Q CURRENT.BITMAP.FRAMES 120Q FRAME.NAME.MENU 105Q CLASSES 66Q CLASSES 34Q NAME 13Q NEW.BLOCK 10Q PROMPTWINDOW) ( 50Q ": " 23Q "Name of class for frame ") COLLECT.ITEM D1 (I 4 ITEMS I 3 SELF I 2 CONTEXT I 1 PTYPE I 0 ITEM) A—Agð´D@ h(17Q TCONC) (7 ITEM) () COMPARE.ON.PROPERTY D1 (I 1 OBJECT2 I 0 OBJECT1 F 0 PROP) @P AP (14Q ALPHORDER 11Q LISTGET 4 LISTGET) NIL () COMPRESS.PROPLIST D1 (L (0 PLST)) 4 @XdYµHh¿@Xdœ@d¨H¿@H@–HI¿I¸I°ÕNIL NIL () CONFIRM D1 (I 1 ONLY.IF.BEING.CAREFUL I 0 MESSAGE) KA•`¡i`d@¿do¿di¿di¿dg ¿dg¿jdnÿdhHdI ¿ (110Q MENU) (55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 12Q MENUTYPE# 4 TRILLIUM.BEING.CAREFUL) ( 25Q ((YES T) (NO (QUOTE NIL)))) CONVERT.NONGRIDDED.OFFSETS D1 (P 2 DEFAULT.OFFSET P 1 Y P 0 X I 3 NEW.PARAM I 2 Y.PARAM I 1 X.PARAM I 0 ITEM) >0@A X@B YH¢d´*@C º@A ¿@B ¿@CHµJIµJ¿@ h(72Q COMPRESS.PROPLIST 65Q LISTPUT 44Q LISTPUT 36Q LISTPUT 30Q GET.PARAM.DEFAULT 15Q LISTGET 7 LISTGET) NIL () COORDS D1 (L (0 PLACEMENT)) ‡@d³¿`@`ÚØ`@`ÚØ²8`@`ÚØ`@`ÚØ`@`ÚØ`@`ÚØhh`@`ÚØ`@`ÚØ@`Ú@`ÚhNIL (176Q TRILLIUM.GRID.DY 165Q TRILLIUM.GRID.DX 154Q TRILLIUM.GRID.DY 146Q TRILLIUM.GRID.Y0 141Q TRILLIUM.GRID.DX 134Q TRILLIUM.GRID.X0 117Q TRILLIUM.GRID.DY 107Q TRILLIUM.GRID.Y0 102Q TRILLIUM.GRID.DX 73Q TRILLIUM.GRID.X0 66Q TRILLIUM.GRID.DY 60Q TRILLIUM.GRID.Y0 53Q TRILLIUM.GRID.DX 46Q TRILLIUM.GRID.X0 30Q TRILLIUM.GRID.DY 23Q TRILLIUM.GRID.Y0 16Q TRILLIUM.GRID.DX 11Q TRILLIUM.GRID.X0) () DEFINING.ITEMS.OF.FRAME D1 (P 0 ITEMS I 0 FRAME) hh@hgHH(16Q WALK.FRAME) (12Q COLLECT.ITEM) () DEFINING.ITEMS.OF.ITEM D1 (P 6 PARAMETER P 3 VALUE P 2 SUBITEMS P 1 PARAMETERS P 0 ITYPE I 0 ITEM) G@@Xdgg Yd!Lµ MZ@J¾@Ng [ŸMNg K ½L\°Ô(77Q \NCONC2 74Q DEFINING.ITEMS.OF.PTYPE 70Q LISTGET 56Q LISTGET 53Q LISTGET 21Q LISTGET) (65Q TYPE 50Q NAME 16Q PARAMETERS 12Q TYPE.DESCRIPTION) () DEFINING.ITEMS.OF.PTYPE D1 (P 10Q SUB.OBJECT P 7 FIELD P 3 SUB.OBJECT P 1 SUB.TYPE I 1 OBJECT I 0 PTYPE) s @µA dgð•¿A dgð²!¿A@"HµJ»JIK ºHX°ìgð´A@2Mµ‡_¿LµN_¿NOO ¾M½L¼°Ù(150Q \NCONC2 145Q DEFINING.ITEMS.OF.PTYPE 65Q \NCONC2 62Q DEFINING.ITEMS.OF.PTYPE 24Q DEFINING.ITEMS.OF.ITEM 7 DEFINING.ITEMS.OF.ITEM) (76Q STRUCTURE 31Q LIST 15Q ITEM) () DEFINING.PTYPENAMES.OF.ITEM D1 (P 6 PARAMETER P 5 SUBITEM P 1 SUB.OBJECTS P 0 ITYPE I 1 ITEM I 0 PTYPE) “AHgð²<0Ag µ!Ag °d@M Z–KµJ\[¿µéL°B [J°ñ0Hgg °%d@Ng Ng Z–KµJ\[¿µÜLY@Hð›AI [J°êI(212Q LAST 155Q DEFINING.PTYPES.OF.PTYPE 152Q LISTGET 143Q LISTGET 124Q LISTGET 101Q LAST 53Q DEFINING.PTYPENAMES.OF.ITEM 37Q GET.PARAM.DEFAULT 26Q LISTGET) (147Q NAME 140Q TYPE 121Q PARAMETERS 115Q TYPE.DESCRIPTION 34Q MEMBERS 23Q MEMBERS 11Q GROUP) () DEFINING.PTYPES.OF.FRAME D1 (P 3 ITEM I 1 FRAME I 0 PTYPE) 00Ag °d@K X–IµHZY¿µéJ YH°ó(51Q LAST 25Q DEFINING.PTYPES.OF.ITEM 11Q LISTGET) (6 ITEMS) () DEFINING.PTYPES.OF.ITEM D1 (P 6 PARAMETER P 5 SUBITEM P 1 SUB.OBJECTS P 0 ITYPE I 1 ITEM I 0 PTYPE) ¤AHgð²<0Ag µ!Ag °d@M Z–KµJ\[¿µéL°S [J°ñ0Hgg °6d@Ng ANg µ ANg Z–KµJ\[¿µËLY@Hð›AI [J°êI(233Q LAST 176Q DEFINING.PTYPES.OF.PTYPE 173Q GET.PARAM.DEFAULT 170Q LISTGET 156Q LISTGET 153Q LISTGET 143Q LISTGET 124Q LISTGET 101Q LAST 53Q DEFINING.PTYPES.OF.ITEM 37Q GET.PARAM.DEFAULT 26Q LISTGET) (165Q NAME 150Q NAME 140Q TYPE 121Q PARAMETERS 115Q TYPE.DESCRIPTION 34Q MEMBERS 23Q MEMBERS 11Q GROUP) () DEFINING.PTYPES.OF.PTYPE D1 (P 12Q SUB.OBJECT P 11Q FIELD P 5 SUB.OBJECT P 1 SUB.TYPE P 0 SUB.OBJECTS I 2 OBJECT I 1 PTYPE I 0 DESIRED.PTYPE) ž Aµ@B X@Aô¢±ŠBHdgð’¿°çdgð²3¿A¹0B°d@IMZ–KµJ\[¿µèL°¼ [J°ñgð´®BA2 Oµ‡_¿NµO°”_¿O@OO _¿O_¿N¾°ÎH(214Q \NCONC2 211Q DEFINING.PTYPES.OF.PTYPE 124Q LAST 76Q DEFINING.PTYPES.OF.PTYPE 13Q DEFINING.PTYPES.OF.ITEM) (134Q STRUCTURE 45Q LIST 34Q ITEM) () DRAW.GRID D1 (P 15Q Y P 12Q X P 7 GRIDOPERATION P 6 GRIDDSP P 5 MAXY P 4 MAXX P 3 DELTAY P 2 DELTAX P 1 ORIGY P 0 ORIGX) S`````g `g ` Ég`¢±™LHO²%Ojð’±†O–O ³yjOó“LO‚OLó³jMIO²#Ojð³NO–O ³BjOó“MO‚OMó³3NOONOO_jð³Oµj¿OK_Ô_¿°´ ²ík°ëOJ_Ô_¿±ÿthLHO²#Ojð³7O–O ³+jOó“LO‚OLó³OjOMkON ¿OJ_Ô_¿°ÃMIO²#Ojð³¬O–O ³ jOó“MO‚OMó³‘jOLOkON ¿OK_Ô_¿°Ã(505Q DRAWLINE 446Q \FZEROP 400Q DRAWLINE 341Q \FZEROP 264Q \FZEROP 245Q BITMAPBIT 225Q BITMAPBIT 167Q \FZEROP 115Q \FZEROP 43Q \INSUREWINDOW 35Q GETWINDOWPROP 24Q GETWINDOWPROP) (56Q TRILLIUM.GRID.POINTS.FLG 50Q INVERT 40Q CURRENT.INTERFACE.WINDOW 32Q HEIGHT 27Q CURRENT.INTERFACE.WINDOW 21Q WIDTH 16Q CURRENT.INTERFACE.WINDOW 13Q TRILLIUM.GRID.DY 10Q TRILLIUM.GRID.DX 5 TRILLIUM.GRID.Y0 2 TRILLIUM.GRID.X0) () ENCLOSESP D1 (L (1 ENCLOSEDREGION 0 ENCLOSINGREGION)) H@Añhð´?@Añhð´4@@kÙØAAkÙØýñhð´@@kÙØAAkÙØýñhðNIL NIL () EVAL.WITHIN.ITEM D1 (P 7 PARAMETER.NAME P 3 BINDINGS P 2 ITEMS P 1 DESCRIPTION P 0 ITYPE I 1 ITEM I 0 FORM) G@AXdgY0H °&dOAO µAO ¼MµLh^L&½µÛN[@K (104Q EVALA 52Q GET.PARAM.DEFAULT 42Q LISTGET 23Q ITEM.TYPE.PARAMETER.NAMES) (12Q TYPE.DESCRIPTION) () FIND.BITMAP D1 (P 5 ITEM P 2 BITMAP P 1 FRAME I 0 BITMAP.NAME) ‡``µ1Hµ'gg [ ¿oK ¿@K ¿K `Yg LµhZµíHX°Á]gð²(Mg µ Mg @ô²Mg µÒMg °ÉL\°À(176Q GET.PARAM.DEFAULT 165Q LISTGET 152Q GET.PARAM.DEFAULT 141Q LISTGET 77Q LISTGET 63Q TERPRI 56Q PRIN1 50Q PRIN1 37Q TERPRI 33Q GET.TRILLIUM.PRINTOUT.WINDOW 12Q SET.CURRENT.BITMAP.FRAMES) (173Q BITMAP 162Q BITMAP 147Q NAME 136Q NAME 127Q BITMAP 74Q ITEMS 66Q UNKNOWN.BITMAP 30Q NEW.BLOCK 25Q TRILLIUM.WARNINGS 5 CURRENT.BITMAP.FRAMES 2 CURRENT.FRAME) ( 44Q "Can't find bitmap ") FIND.COLOR.NUMBER D1 (P 1 ITEM I 0 COLOR.NAME) e@dgð‘hgð‘j@gð³`g g HµlYgð²'Ig µ Ig @ð²Ig µ Ig HX°È(135Q GET.PARAM.DEFAULT 124Q LISTGET 111Q GET.PARAM.DEFAULT 100Q LISTGET 45Q LISTGET 37Q FIND.FRAME) (132Q COLOR 121Q COLOR 106Q NAME 75Q NAME 66Q COLOR 42Q ITEMS 34Q COLORS 31Q CURRENT.INTERFACE 23Q BLACK 13Q WHITE 4 CLEAR) () FIND.ENCLOSED.ITEMS D1 (P 4 ITEM I 1 FRAME I 0 REGION) ;Ag AHµI\g²@Lg ™L»JµKhZ¹HX°ØK&º°ø(44Q ENCLOSESP 41Q LISTGET 6 LISTGET) (36Q BOUNDING.BOX 26Q TYPE.DESCRIPTION 3 ITEMS) () FIND.FRAME D1 (P 1 FRAME I 1 FRAME.NAME I 0 INTERFACE) ?Adlñ³%¿@g HµhYg Að‘IHX°ë˜Agð‘Ao (74Q TROUBLE.WITH.TRILLIUM 40Q LISTGET 17Q LISTGET) (61Q FRAME 35Q NAME 14Q FRAMES) ( 71Q ("Unrecognized frame/frame.name" FRAME.NAME)) FIND.INTERFACE D1 (I 0 INTERFACE.NAME) @` ´ @g (17Q GETDEF.INTERFACE 6 MEMBER) (14Q INTERFACES 3 INTERFACES) () FIND.REPRESENTATIVE.GRAY D1 (P 1 ITEM I 0 COLOR.NAME) a@dgð‘jgð“nÿÿ`g g Hµn¥¥Ygð²'Ig µ Ig @ð²Ig µ Ig HX°Ç(131Q GET.PARAM.DEFAULT 120Q LISTGET 105Q GET.PARAM.DEFAULT 74Q LISTGET 40Q LISTGET 32Q FIND.FRAME) (126Q REPRESENTATIVE.GRAY 115Q REPRESENTATIVE.GRAY 102Q NAME 71Q NAME 62Q COLOR 35Q ITEMS 27Q COLORS 24Q CURRENT.INTERFACE 13Q BLACK 4 WHITE) () FLASH.REGION D1 (I 1 WINDOW I 0 REGION) @AnÿÿlÈ @Anÿÿ(24Q FLIP.REGION.IN.WINDOW 14Q TRILLIUM.PAUSE 7 FLIP.REGION.IN.WINDOW) NIL () FLIP.BOX D1 (I 1 TEXTURE I 0 BOX) @`A`´@lhg(26Q COLORFILL 7 FLIP.REGION.IN.WINDOW) (23Q INVERT 12Q IN.LIVING.COLOR 3 CURRENT.DSP) () FLIP.ITEM D1 (P 1 NAME P 0 BOX I 0 ITEM) T0@ Xd²0d ¿@g µ @g Yd²0`Hgdgg ¿°gg ºoJ ¿@J h(120Q PRIN1 112Q PRIN1 101Q GET.TRILLIUM.PRINTOUT.WINDOW 65Q PRINT.IN.REGION 37Q GET.PARAM.DEFAULT 26Q LISTGET 16Q FLIP.BOX 6 BOUNDING.BOX) (76Q NEW.BLOCK 73Q TRILLIUM.WARNINGS 61Q INVERT 56Q INPUT 52Q CENTER 46Q CURRENT.INTERFACE.WINDOW 34Q NAME 23Q NAME) ( 106Q "Item with undefined bounding box encountered: ") FLIP.REGION.IN.WINDOW D1 (I 2 TEXTURE I 1 WINDOW I 0 REGION) )hddAµ`@@@@ggBµnÿÿ (46Q BITBLT) (34Q INVERT 31Q TEXTURE 10Q CURRENT.INTERFACE.WINDOW) () FLIP.SPOT D1 (P 1 HEIGHT P 0 WIDTH I 1 YCOORD I 0 XCOORD) 8 `ÈX`ÈY`jd`@HlÛÙAIlÛÙHIgg h(64Q BITBLT) (60Q INVERT 55Q INPUT 34Q CURRENT.DSP 27Q TRILLIUM.SPOT.BITMAP 21Q BITMAP 16Q TRILLIUM.SPOT.BITMAP 10Q BITMAP 5 TRILLIUM.SPOT.BITMAP) () FONTS.IN.CORE D1 (P 4 FAMILY) Ž @`°:d0L°d[AOµ8O]—Nµ'M_^¿µäOX–IµHZY¿µÇJ YH°ó ^M°Ù_gð²LKOh_¿OµOh__¿O_°™O&_¿°ó(117Q LAST 107Q LAST) (137Q DISPLAY 5 \FONTSINCORE) () FRAME.CLASSES D1 (P 1 CLASSES P 0 FRAME.NAME I 0 FRAME) F@g !h@g Y`g Z²HJ ”JI¹J°ìIµod (103Q SORT 100Q INTERSECTION 51Q MEMB 36Q LISTGET 24Q DREMOVE 21Q LISTGET 6 LISTGET) (33Q FRAME.CLASSES 30Q TRILLIUM.PROFILE 16Q CLASSES 3 NAME) ( 73Q (UNCLASSIFIED)) FRAME.NAME D1 (I 0 FRAME) @g (6 LISTGET) (3 NAME) () FUNCTION.FOR.PTYPE D1 (L (1 SELECTOR 0 PTYPE)) @dANIL NIL () GET.ITEM.TYPE.MENU D1 (P 3 ITYPE) §``ô’±˜` `do¿@`°Ad[d´dddið³¿¿dd¥d¡µ gKhKgg h¸IµHhZH&¹µÀJHdI¿di¿dg ¿dg¿jdnÿdhHdI ¿¿`(123Q LISTGET 21Q COPYALL) (243Q ITEM.TYPE.MENU 237Q ITEM.TYPE.MENU 203Q DEFAULTMENUHELDFN 174Q CLRPROMPT 120Q COMMENT 114Q TYPE.DESCRIPTION 104Q QUOTE 43Q ITEM.TYPES 24Q MENUTYPE# 16Q ITEM.TYPES 6 ITEM.TYPES 2 ITEM.TYPE.MENU) ( 32Q "Choose item type") GET.PARAM.DEFAULT D1 (I 1 PARAM.NAME I 0 ITEM) A@g (12Q FASSOC) (6 DEFAULTS) () GET.TRILLIUM.PRINTOUT.WINDOW D1 (P 1 DSP P 0 WINDOW I 1 BREAK.TYPE I 0 WINDOW.NAME) t@gð“`‚`XAdgð²¿`•d °H °gð”H ŒAgð§o ¿@gð²&H ÉhI hI ýñ™I ¿H ¿iH(152Q CLEARW 145Q PAGEFULLFN 136Q FONTHEIGHT 133Q DSPFONT 126Q DSPYPOSITION 114Q \INSUREWINDOW 100Q SHOULDNT 62Q TERPRI 47Q TERPRI 41Q CLEARW) (160Q TRILLIUM.HAVE.PROMPTED 105Q TRILLIUM.DESCRIPTIONS 67Q SAME.LINE 54Q SAME.BLOCK 34Q TRILLIUM.CLEARPROMPT 25Q NEW.BLOCK 17Q PROMPTWINDOW 13Q TRILLIUM.DESCRIPTIONS.WINDOW 6 TRILLIUM.DESCRIPTIONS) ( 75Q "Unrecognized key in TRILLIUM.PRINTOUT") GRIDIFY D1 (L (0 PLACEMENT)) ß@d³1¿`@`Ø`Ù`Û`ÚØ`@`Ø`Ù`Û`ÚØ²h`@`Ø`Ù`Û`ÚØ`@`Ø`Ù`Û`ÚØ`@`Ø`Ù`Û`ÚØ`@`Ø`Ù`Û`ÚØhh`@`Ø`Ù`Û`ÚØ`@`Ø`Ù`Û`ÚØ@@hNIL (314Q TRILLIUM.GRID.DY 310Q TRILLIUM.GRID.DY 304Q TRILLIUM.GRID.Y0 300Q TRILLIUM.GRID.HALF.DY 272Q TRILLIUM.GRID.Y0 265Q TRILLIUM.GRID.DX 261Q TRILLIUM.GRID.DX 255Q TRILLIUM.GRID.X0 251Q TRILLIUM.GRID.HALF.DX 244Q TRILLIUM.GRID.X0 227Q TRILLIUM.GRID.DY 223Q TRILLIUM.GRID.DY 217Q TRILLIUM.GRID.Y0 213Q TRILLIUM.GRID.HALF.DY 203Q TRILLIUM.GRID.Y0 176Q TRILLIUM.GRID.DX 172Q TRILLIUM.GRID.DX 166Q TRILLIUM.GRID.X0 162Q TRILLIUM.GRID.HALF.DX 153Q TRILLIUM.GRID.X0 146Q TRILLIUM.GRID.DY 142Q TRILLIUM.GRID.DY 136Q TRILLIUM.GRID.Y0 132Q TRILLIUM.GRID.HALF.DY 124Q TRILLIUM.GRID.Y0 117Q TRILLIUM.GRID.DX 113Q TRILLIUM.GRID.DX 107Q TRILLIUM.GRID.X0 103Q TRILLIUM.GRID.HALF.DX 76Q TRILLIUM.GRID.X0 60Q TRILLIUM.GRID.DY 54Q TRILLIUM.GRID.DY 50Q TRILLIUM.GRID.Y0 44Q TRILLIUM.GRID.HALF.DY 37Q TRILLIUM.GRID.Y0 32Q TRILLIUM.GRID.DX 26Q TRILLIUM.GRID.DX 22Q TRILLIUM.GRID.X0 16Q TRILLIUM.GRID.HALF.DX 11Q TRILLIUM.GRID.X0) () GRIDNEAR D1 (L (0 PLACEMENT)) ¥@d³`Ø`Ù`Û@`Ø`Ù`Û²H@`Ø`Ù`Û@`Ø`Ù`Û@`Ø`Ù`Û@`Ø`Ù`Ûhh@`Ø`Ù`Û@`Ø`Ù`Û@`Ú@`ÚhNIL (234Q TRILLIUM.GRID.DY 223Q TRILLIUM.GRID.DX 213Q TRILLIUM.GRID.DY 207Q TRILLIUM.GRID.Y0 203Q TRILLIUM.GRID.HALF.DY 174Q TRILLIUM.GRID.DX 170Q TRILLIUM.GRID.X0 164Q TRILLIUM.GRID.HALF.DX 146Q TRILLIUM.GRID.DY 142Q TRILLIUM.GRID.Y0 136Q TRILLIUM.GRID.HALF.DY 125Q TRILLIUM.GRID.DX 121Q TRILLIUM.GRID.X0 115Q TRILLIUM.GRID.HALF.DX 105Q TRILLIUM.GRID.DY 101Q TRILLIUM.GRID.Y0 75Q TRILLIUM.GRID.HALF.DY 66Q TRILLIUM.GRID.DX 62Q TRILLIUM.GRID.X0 56Q TRILLIUM.GRID.HALF.DX 37Q TRILLIUM.GRID.DY 33Q TRILLIUM.GRID.Y0 27Q TRILLIUM.GRID.HALF.DY 21Q TRILLIUM.GRID.DX 15Q TRILLIUM.GRID.X0 11Q TRILLIUM.GRID.HALF.DX) () INDEFINITE D1 (I 0 NAME) o@o (16Q MKATOM 13Q CONCAT) NIL ( 10Q "}" 3 "{") INTERFACE.WINDOW D1 (P 0 WINDOW.DEPENDED.UPON I 0 WINDOW) @ Xdd g gð‘HHb°ã(21Q GETWINDOWUSERPROP 6 WINDOW.DEPENDED.UPON) (24Q INTERFACE.WINDOW 16Q TRILLIUM.WINDOW.TYPE) () INVERT.MENU.ITEM D1 (P 0 ITEM.REGION I 1 ITEM I 0 MENUX) AA@É ´2A@ ¸hdd@ÉÉHHHHggnÿÿ h(75Q BITBLT 23Q MENUITEMREGION 14Q MEMBER) (66Q INVERT 63Q TEXTURE 40Q WINDOW 33Q MENU 7 MENU) () ITEM.KIND D1 (I 0 ITEM) @gg (14Q LISTGET) (11Q KIND 5 TYPE.DESCRIPTION) () ITEM.TYPE.CLASSES D1 (P 0 CLASSES I 0 ITYPE.NAME) >@gg `g Y²@I ”IH¸I°ìHµod (73Q SORT 70Q INTERSECTION 41Q MEMB 26Q LISTGET 12Q LISTGET) (23Q ITEM.TYPE.CLASSES 20Q TRILLIUM.PROFILE 7 CLASSES 3 TYPE.DESCRIPTION) ( 63Q (UNCLASSIFIED)) ITEM.TYPE.MENU.ITEM D1 (I 0 ITYPE) 2@d´dddið³¿¿dd¥d¡µ g@h@gg h(53Q LISTGET) (50Q COMMENT 44Q TYPE.DESCRIPTION 34Q QUOTE) () ITEM.TYPE.PARAMETER D1 (P 1 PARAMETER I 1 FIELD I 0 ITEM.TYPE) .@gg Hµo hYg Að‘IHX°ä(42Q LISTGET 30Q SHOULDNT 12Q LISTGET) (37Q NAME 7 PARAMETERS 3 TYPE.DESCRIPTION) ( 25Q "Unrecognized field in ITEM.TYPE.PARAMETER.TYPE") ITEM.TYPE.PARAMETER.NAMES D1 (P 3 PARAMETER I 0 ITEM.TYPE) 00@gg °dKg ¸IµHhZH&¹µåJ(33Q LISTGET 15Q LISTGET) (30Q NAME 12Q PARAMETERS 6 TYPE.DESCRIPTION) () ITEM.TYPE.PARAMETER.TYPE D1 (I 1 FIELD I 0 ITEM.TYPE) @A g (12Q LISTGET 4 ITEM.TYPE.PARAMETER) (7 TYPE) () ITEM.TYPES.OF.FRAME D1 (P 0 TYPES I 0 FRAME) 00@g °d¹JµIh[I&ºµîKXdd (55Q SORT 52Q INTERSECTION 14Q LISTGET) (11Q ITEMS) () ITEM.TYPES.OF.INTERFACE D1 (P 0 TYPES I 0 DIALOG) 60@g d Y–JµI[Z¿µïKXdd ZI°é(57Q LAST 53Q SORT 50Q INTERSECTION 22Q ITEM.TYPES.OF.FRAME 14Q LISTGET) (11Q FRAMES) () ITEMP D1 (L (0 OBJECT)) @´@gð´ @gNIL (21Q TYPE.DESCRIPTION 10Q \TYPE) () LOWERLEFTW D1 (I 0 WINDOW) h@ @ h@ @ (21Q WYOFFSET 15Q WYOFFSET 10Q WXOFFSET 4 WXOFFSET) NIL () MOUSEBUTTONS D1 NIL `(2 GETMOUSESTATE) (5 LASTMOUSEBUTTONS) () NEW.ITEM D1 (P 1 PARAMETER.NAME P 0 NEW.ITEM I 1 WITH.DEFAULTS I 0 ITEM.TYPE) +g@hXA²@ °dHIHI µîH(42Q LISTPUT 37Q GET.PARAM.DEFAULT 21Q ITEM.TYPE.PARAMETER.NAMES) (5 \TYPE) () OBS D1 (I 0 MESSAGE F 1 ITEM) jgg oH ¿mÿg H @²gg oH ¿@H g ²gg oH ¿QH (147Q ERROR 143Q PRIN1 133Q PRIN1 120Q GET.TRILLIUM.PRINTOUT.WINDOW 105Q BOUNDP 76Q PRIN1 70Q PRIN1 55Q GET.TRILLIUM.PRINTOUT.WINDOW 40Q PRIN1 34Q STKNTHNAME 23Q PRIN1 10Q GET.TRILLIUM.PRINTOUT.WINDOW) (115Q SAME.LINE 112Q TRILLIUM.WARNINGS 102Q ITEM 52Q SAME.LINE 47Q TRILLIUM.WARNINGS 31Q OBS 5 NEW.BLOCK 2 TRILLIUM.WARNINGS) ( 127Q " for " 64Q " : " 17Q "Obsolete function: ") OFFSPRING D1 (I 0 ITYPE) @g (7 OFFSPRING.OF.DESCRIPTION) (3 TYPE.DESCRIPTION) () OFFSPRING.1 D1 (P 3 TYPE P 2 PHRASE P 0 PHRASE I 1 OFFSPRING I 0 SPEC) ¼@dgð²¿@µ‚±¡A@ dgðž¿g@ A dgð˜¿@b°Ãdgð²¿@‹dHA µòhdgð²'¿@IµhZgð«Jdgð£A ¿IY°ådgð³#dgð³gð²@‹dAK µóho (271Q SHOULDNT 253Q TCONC 202Q OFFSPRING.1 125Q OFFSPRING.N 57Q OFFSPRING.N 52Q MEMB 32Q TCONC) (231Q EVAL 223Q HELP 214Q INCREMENT 174Q ELSE 165Q THEN 140Q IF 103Q SELECT 64Q LABEL 45Q DO 37Q FOREACH 5 ITEM) ( 266Q "Unrecognized keyword in OFFSPRING.1") OFFSPRING.N D1 (P 0 SPEC I 1 OFFSPRING I 0 SPECS) @‹dHA µóh(13Q OFFSPRING.1) NIL () OFFSPRING.OF.DESCRIPTION D1 (P 0 OFFSPRING I 0 DESCRIPTION) hh@g H HXdd (33Q SORT 30Q INTERSECTION 20Q OFFSPRING.N 14Q LISTGET) (11Q SUBITEM.SPECS) () ON.GRID D1 (P 2 PTYPE P 1 PARAMETER I 0 ITEM) ;@gg !Hµh´iYg ZµHX°èg ²ôIµài°Ý(61Q FUNCTION.FOR.PTYPE 41Q LISTGET 14Q LISTGET) (56Q LTRANSLATE 36Q TYPE 11Q PARAMETERS 5 TYPE.DESCRIPTION) () PRINT.IN.REGIONA0001 D1 (NAME ERRORSET F 0 LEFT F 1 BOTTOM F 2 X.ALIGNMENT F 3 WIDTH F 4 LINES.X F 5 Y.ALIGNMENT F 6 HEIGHT F 7 FONT.HEIGHT F 10Q LINES.Y F 11Q FONT F 12Q TEXTURE F 13Q DSP F 14Q OPERATION F 15Q OBJECT F 16Q MACROY F 17Q SOURCE) `Rdgð’¿PŽgð’PS…PSk Øc¿Udgð“¿Q°gð•QVWÙˆQVWÙk Øc¿Wd£d‘hTWRUWWWWW ci(132Q SHOW.PRINTED.LINES 72Q RSH 27Q RSH) (51Q TOP 40Q BOTTOM 14Q RIGHT 4 LEFT) () PRINT.IN.REGION D1 (P 12Q RESETSTATE P 11Q MACROY P 7 OLDVALUE P 6 LINES.Y P 5 LINES.X P 4 FONT.HEIGHT P 3 HEIGHT P 2 WIDTH P 1 BOTTOM P 0 LEFT I 10Q FONT I 7 TEXTURE I 6 OPERATION I 5 SOURCE I 4 Y.ALIGNMENT I 3 X.ALIGNMENT I 2 REGION I 1 DSP I 0 OBJECT F 13Q RESETVARSLST) o A¥`b¿G§hA b¿BBBBG %B 1 gOhhWc_¿og ¥g_¿Oc¿gO ¿O´h(153Q ERROR! 143Q APPLY 113Q PRINT.IN.REGIONA0001 54Q SET.CLIPPING.REGION 45Q FONTHEIGHT 17Q DSPFONT) (133Q SET.CLIPPING.REGION 117Q ERROR 110Q INTERNAL 62Q SET.CLIPPING.REGION 4 CURRENT.DSP) ( 105Q (PRINT.IN.REGIONA0001)) PRINT.ITEM D1 (P 11Q FIELD.NAME P 10Q PARAMETER.NAME P 2 FIELD.NAMES P 1 PARAMETER.NAMES P 0 ITEM.TYPE I 0 ITEM) €@Xgg »oK ¿HK ¿@g´SH Y°Gdgg ¼oL ¿OL ¿oL ¿@O µ@O L ¿oL µº°(¹gg ½oM ¿oM ¿oM ¿@ ZdI Zdo Zd´`gg ¾oN ¿J°Fd gg _¿oO ¿OO ¿oO ¿@O O ¿oO µ»h(416Q PRIN1 404Q PRIN1 377Q LISTGET 370Q PRIN1 356Q PRIN1 346Q PRIN1 332Q GET.TRILLIUM.PRINTOUT.WINDOW 310Q PRIN1 277Q GET.TRILLIUM.PRINTOUT.WINDOW 262Q LDIFFERENCE 251Q LDIFFERENCE 243Q PROPLIST.PROPERTIES 236Q PRIN1 225Q PRIN1 214Q PRIN1 203Q GET.TRILLIUM.PRINTOUT.WINDOW 162Q PRIN1 151Q PRIN1 145Q GET.PARAM.DEFAULT 135Q LISTGET 126Q PRIN1 115Q PRIN1 106Q PRIN1 75Q GET.TRILLIUM.PRINTOUT.WINDOW 54Q ITEM.TYPE.PARAMETER.NAMES 36Q PRIN1 30Q PRIN1 17Q GET.TRILLIUM.PRINTOUT.WINDOW) (327Q SAME.BLOCK 324Q TRILLIUM.DESCRIPTIONS 274Q SAME.BLOCK 271Q TRILLIUM.DESCRIPTIONS 200Q SAME.BLOCK 175Q TRILLIUM.WARNINGS 72Q SAME.BLOCK 67Q TRILLIUM.DESCRIPTIONS 45Q TYPE.DESCRIPTION 14Q SAME.BLOCK 11Q TRILLIUM.DESCRIPTIONS) ( 411Q "; " 363Q "=" 341Q " " 304Q "other information: " 257Q (\TYPE SUBITEMS BOUNDING.BOX) 232Q "; " 221Q " this type is undefined" 210Q " " 156Q "; " 122Q "=" 102Q " " 24Q "An item of type ") PRINT.ITEM.TYPES D1 (P 1 ANY P 0 ITYPE I 0 FRAME) SPgg ºoJ ¿X²gg »`K ¿H ¿iY°àI´gg ¼`L ¿L h(117Q TERPRI 112Q PRIN1 102Q GET.TRILLIUM.PRINTOUT.WINDOW 61Q PRINT.ITEM.TYPE 54Q PRIN1 44Q GET.TRILLIUM.PRINTOUT.WINDOW 30Q ACQUIRE.ITEM.TYPE 24Q PRIN1 13Q GET.TRILLIUM.PRINTOUT.WINDOW) (106Q PRINT.SEPARATOR.STRING 77Q NEW.BLOCK 74Q TRILLIUM.DESCRIPTIONS 50Q PRINT.SEPARATOR.STRING 41Q NEW.BLOCK 36Q TRILLIUM.DESCRIPTIONS 10Q NEW.BLOCK 5 PROMPTWINDOW) ( 20Q "Select item.types to be printed; stop by missing.") PRINTOUT.ITEM.TYPESA0001A0002 D1 (NAME ERRORSET L (0 NIL) P 2 ITYPE P 1 I F 3 MACROY) o ¿` ¿o ¿ ¿h ¿`kHµ%h ¿h ¿i ¿`kHµ,ciºh ¿I ¿o ¿J ¿H¸IkÔ¹°¹Zi ¿oi ¿h ¿h ¿I ¿o ¿Jg ¿H¸IkÔ¹°›(241Q PRINTDEF 230Q PRIN1 220Q PRIN1 213Q TERPRI 206Q TERPRI 201Q PRIN1 170Q PRIN1 150Q PRIN1 143Q PRIN1 133Q PRIN1 126Q TERPRI 114Q CLOSEF 74Q TERPRI 67Q TERPRI 62Q TERPRI 41Q TERPRI 34Q PRIN1 31Q DATE 25Q PRIN1 15Q PRIN1 6 PRIN1) (235Q TYPE.DESCRIPTION 100Q ITEM.TYPES 45Q ITEM.TYPES 12Q USERNAME) ( 225Q " " 175Q " " 140Q " " 22Q "; " 3 "Trillium item types; ") PRINTOUT.ITEM.TYPESA0001 D1 (NAME ERRORSET P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 TRILLIUM.CURSOR F 6 MACROY) BhU 1gHhhTc¹og £g»Ic¿gI ¿K“€Jci(71Q ERROR! 63Q APPLY 37Q PRINTOUT.ITEM.TYPESA0001A0002 4 SWAP.CURSOR.AUX) (54Q SWAP.CURSOR.AUX 43Q ERROR 34Q INTERNAL 12Q SWAP.CURSOR.AUX) ( 31Q (PRINTOUT.ITEM.TYPESA0001A0002)) PRINTOUT.ITEM.TYPES D1 (P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 FN I 0 FILENAME F 5 RESETVARSLST) E@µgXd 1gIhhUc Zog £g¼Jc gJ L“K(100Q ERROR! 73Q APPLY 50Q PRINTOUT.ITEM.TYPESA0001 15Q OUTFILE) (64Q OUTFILE 54Q ERROR 45Q INTERNAL 23Q OUTFILE 10Q TRILLIUM-ITEM-TYPES) ( 42Q (PRINTOUT.ITEM.TYPESA0001)) PROMPT.READA0001 D1 (NAME ERRORSET F 0 MACROY) ` ci(5 PROCESS.READ) (2 PROMPTWINDOW) () PROMPT.READ D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST) >h` 1gHhhTcYog £g»IcgI K“J(71Q ERROR! 64Q APPLY 41Q PROMPT.READA0001 6 SWAP.CURSOR.AUX) (55Q SWAP.CURSOR.AUX 45Q ERROR 36Q INTERNAL 14Q SWAP.CURSOR.AUX 3 READING.CURSOR) ( 33Q (PROMPT.READA0001)) PROPLIST.PROPERTIES D1 (L (0 PROPLIST)) 0@d¸IµHhZH&¹µïJNIL NIL () REPORT.ERROR D1 (I 4 FORM I 3 ITEM I 2 VALUE I 1 NATURE I 0 ACTIVITY) ˆgg oH ¿@H ¿oH ¿H ¿oH ¿AH ¿H ¿oH ¿BH C²gg oH ¿CH D´gg oH DH (205Q PRIN1 200Q PRIN1 165Q GET.TRILLIUM.PRINTOUT.WINDOW 150Q PRIN1 142Q PRIN1 127Q GET.TRILLIUM.PRINTOUT.WINDOW 112Q PRIN1 104Q PRIN1 73Q TERPRI 66Q PRIN1 60Q PRIN1 47Q TERPRI 42Q PRIN1 31Q PRIN1 23Q PRIN1 10Q GET.TRILLIUM.PRINTOUT.WINDOW) (162Q NEW.BLOCK 157Q TRILLIUM.WARNINGS 124Q NEW.BLOCK 121Q TRILLIUM.WARNINGS 5 NEW.BLOCK 2 TRILLIUM.WARNINGS) ( 174Q " Form: " 136Q " Item: " 100Q " Offending value: " 54Q " Nature of error: " 36Q ":" 17Q "Error while ") REPORT.LISP.ERROR D1 (P 0 ERROR.INFO I 2 FORM I 1 ITEM I 0 ACTIVITY) "@H HAB `´hi h(36Q BREAK1 24Q REPORT.ERROR 13Q ERRORSTRING 2 ERRORN) (27Q TRILLIUM.KNOWS.LISP) () REPORT.TRILLIUM.ERROR D1 (I 3 ACTIVITY I 2 ITEM I 1 VALUE I 0 NATURE) @ABC(6 REPORT.ERROR) NIL () RESET.ITEM.TYPE.DESCRIPTION D1 (I 0 DESCRIPTION) @ (3 COMPRESS.PROPLIST) NIL () SCREEN.COORDS D1 (I 1 WINDOW I 0 POSITION) @hA Ø@hA Ø(16Q DSPYOFFSET 6 DSPXOFFSET) NIL () SET.CLIPPING.REGION D1 (I 0 REGION) @` (6 DSPCLIPPINGREGION) (3 CURRENT.DSP) () SET.PLACEMENT D1 (P 0 ENTRY I 1 PLACEMENT I 0 ITEM) AŽd@HHµðh(16Q LISTPUT) NIL () SORT.ON.PROPERTY D1 (I 1 PROP I 0 OBJECTS) @g (6 SORT) (3 COMPARE.ON.PROPERTY) () STRICTLY.ENCLOSESP D1 (I 1 ENCLOSEDREGION I 0 ENCLOSINGREGION) #@A ´@Aðhðµ@Aðhð(4 ENCLOSESP) NIL () SUPERFRAMES* D1 (P 3 SUPERFRAME.NAME I 0 FRAME) 70@g °dK`K X–IµHZY¿µâJ YH°ó(60Q LAST 33Q SUPERFRAMES* 30Q FIND.FRAME 11Q LISTGET) (24Q CURRENT.INTERFACE 6 SUPERFRAMES) () SWAP.CURSOR.AUX D1 (I 1 NEW.CURSOR I 0 OLD.CURSOR) @µA ¿ (16Q SETCURSOR 11Q SETCURSOR 5 CURSOR) NIL () TRILLIUM.CLEAR.ALL.PROMPTING D1 NIL `´`´h` (23Q CLEARW) (20Q PROMPTWINDOW 15Q TRILLIUM.HAVE.PROMPTED 7 TRILLIUM.HAVE.PROMPTED 2 TRILLIUM.CLEARPROMPT) () TRILLIUM.EVALA0001 D1 (NAME ERRORSET F 0 FORM F 1 RESULT) P ci(3 EVAL) NIL () TRILLIUM.EVAL D1 (P 0 RESULT I 1 ACTIVITY I 0 FORM) o ‘HAµoh@(30Q REPORT.LISP.ERROR 11Q TRILLIUM.EVALA0001) NIL ( 23Q "evaluating a form" 6 (TRILLIUM.EVALA0001)) TRILLIUM.GRID.SETUP D1 (I 4 DISPLAY.METHOD I 3 DY I 2 DX I 1 Y0 I 0 X0) C@BÜACÜBdlÛCdlÛDd²dgð’¿iŽgð‘h‡oD (75Q HELP) (100Q TRILLIUM.GRID.POINTS.FLG 61Q LINES 51Q POINTS 41Q TRILLIUM.GRID.HALF.DY 32Q TRILLIUM.GRID.DY 26Q TRILLIUM.GRID.HALF.DX 17Q TRILLIUM.GRID.DX 13Q TRILLIUM.GRID.Y0 5 TRILLIUM.GRID.X0) ( 71Q "Unknown DISPLAY.METHOD in TRILLIUM.GRID.SETUP: ") TRILLIUM.PRINTOUT.STRING D1 (P 4 I P 2 CHAR P 1 FIRST.CHAR P 0 N I 0 STR) [0@ Xdk\Kó³8@L Zgð²%I²@ILkÙ` ¿h¹g` ¿LkÔ°ÎI³úLY°÷I´@IH` h(127Q PRIN1 121Q SUBSTRING 72Q PRIN1 56Q PRIN1 50Q SUBSTRING 26Q NTHCHAR 6 NCHARS) (124Q PROMPTWINDOW 67Q PROMPTWINDOW 64Q % 53Q PROMPTWINDOW 32Q % ) () TROUBLE.WITH.TRILLIUM D1 (P 0 SPEC I 0 PARTICULARS) fgg ¿@°&dgg ¹Hdlñ -I ¿khIµÛgg oI ¿mÿg I ¿I `´@ (143Q HELP 131Q TERPRI 124Q PRIN1 120Q STKNTHNAME 107Q PRIN1 74Q GET.TRILLIUM.PRINTOUT.WINDOW 56Q TAB 47Q PRIN1 32Q GET.TRILLIUM.PRINTOUT.WINDOW 10Q GET.TRILLIUM.PRINTOUT.WINDOW) (135Q TRILLIUM.KNOWS.LISP 115Q TROUBLE.WITH.TRILLIUM 71Q SAME.LINE 66Q TRILLIUM.WARNINGS 27Q SAME.LINE 24Q TRILLIUM.WARNINGS 5 NEW.BLOCK 2 TRILLIUM.WARNINGS) ( 103Q "in ") TTYCONFIRM D1 (I 1 ONLY.IF.BEING.CAREFUL I 0 MESSAGE) A•`¡ii hd@oi ¿(31Q TERPRI 25Q ASKUSER 13Q TERPRI) (4 TRILLIUM.BEING.CAREFUL) ( 22Q ((Y "es" RETURN T) (N "o" RETURN NIL))) UNMARK.INTERFACE D1 (P 1 TYPE P 0 NAME I 0 INTERFACE) >@g gHI ´*gg ºoJ ¿HJ ¿oJ ¿HI h(72Q UNMARKASCHANGED 64Q PRIN1 53Q PRIN1 45Q PRIN1 34Q GET.TRILLIUM.PRINTOUT.WINDOW 21Q MARKASCHANGED 6 LISTGET) (31Q NEW.BLOCK 26Q TRILLIUM.TRACE 11Q DIALOGS 3 NAME) ( 60Q " as unchanged" 41Q "Marking interface ") UNMARK.ITEM.TYPE D1 (P 0 TYPE I 0 ITYPE) 7g@H ´*gg ¹oI ¿@I ¿oI ¿@H h(63Q UNMARKASCHANGED 55Q PRIN1 44Q PRIN1 36Q PRIN1 25Q GET.TRILLIUM.PRINTOUT.WINDOW 12Q MARKASCHANGEDP) (22Q NEW.BLOCK 17Q TRILLIUM.TRACE 2 ITEMTYPES) ( 51Q " as unchanged" 32Q "Marking item type ") USED.ITEM.TYPES D1 (P 3 ITEM P 2 FRAME P 1 ITYPE P 0 ITYPES I 0 INTERFACE) C hhX@g °+dJg °dKYH¥HI ¿µêhµÖH (100Q SORT 57Q TCONC 33Q LISTGET 15Q LISTGET) (30Q ITEMS 12Q FRAMES) () VECTOR/FROM.TO D1 (L (1 TO.POINT 0 FROM.POINT)) A@ÙA@ÙNIL NIL () WAITBUG D1 NIL !¿`låHjðµH´H ³äh(32Q \FZEROP 2 GETMOUSESTATE) (6 LASTMOUSEBUTTONS) () WAITNOBUG D1 NIL p`dgð²#¿¿`låHjðµH´H ²ähdgð²(¿¿`låHjðµH´H ²ägð–o` (155Q ERROR 142Q BEGIN.EVENT 137Q END.EVENT 126Q BEGIN.EVENT 120Q \FZEROP 70Q GETMOUSESTATE 65Q END.EVENT 45Q \FZEROP 15Q GETMOUSESTATE) (152Q EVENT.MODE 132Q PLAYBACK 74Q LASTMOUSEBUTTONS 56Q RECORDING 21Q LASTMOUSEBUTTONS 6 OFF 2 EVENT.MODE) ( 147Q "Unknown EVENT.MODE :") WAITNOBUG.AUX D1 NIL !¿`låHjðµH´H ²äi(32Q \FZEROP 2 GETMOUSESTATE) (6 LASTMOUSEBUTTONS) () WALK.FRAME D1 (P 3 RESULT P 2 ITEM P 1 NEWCONTEXT I 3 ACTIONFNARG I 2 ACTIONFN I 1 CONTEXT I 0 FRAME) +@g @Ah"HµhZoIBC [µñHX°è(41Q WALK.OBJECT 6 LISTGET) (3 ITEMS) ( 32Q (ITEM)) WALK.INTERFACE D1 (P 3 RESULT P 2 FRAME P 1 NEWCONTEXT I 3 ACTIONFNARG I 2 ACTIONFN I 1 CONTEXT I 0 INTERFACE) &@g @Ah"HµhZIBC[µöHX°í(34Q WALK.FRAME 6 LISTGET) (3 FRAMES) () WALK.ITEM D1 (P 6 RESULT P 5 PVALUE P 4 PNAME P 3 PTYPE P 2 PARAMETER P 1 NEWCONTEXT I 3 ACTIONFNARG I 2 ACTIONFN I 1 CONTEXT I 0 ITEM) H@gg @AhRHµhZg ¼@L ]²Jg »MKLIBC ^µÚHX°Ñ(76Q WALK.OBJECT 62Q LISTGET 50Q LISTGET 42Q LISTGET 14Q LISTGET) (57Q TYPE 37Q NAME 11Q PARAMETERS 5 TYPE.DESCRIPTION) () WALK.OBJECT D1 (I 4 ACTIONFNARG I 3 ACTIONFN I 2 CONTEXT I 1 PTYPE I 0 OBJECT) 1Cµg@ABCDlHµAg µg@ABCDlH(34Q FUNCTION.FOR.PTYPE) (41Q NILL 31Q WALK 5 EDIT.FORM) () (PRETTYCOMPRINT TRI-UTILCOMS) (RPAQQ TRI-UTILCOMS ((FNS ACQUIRE.LIST.ITEMS ADD.FRAME.CLASS COLLECT.ITEM COMPARE.ON.PROPERTY COMPRESS.PROPLIST CONFIRM CONVERT.NONGRIDDED.OFFSETS COORDS DEFINING.ITEMS.OF.FRAME DEFINING.ITEMS.OF.ITEM DEFINING.ITEMS.OF.PTYPE DEFINING.PTYPENAMES.OF.ITEM DEFINING.PTYPES.OF.FRAME DEFINING.PTYPES.OF.ITEM DEFINING.PTYPES.OF.PTYPE DRAW.GRID ENCLOSESP EVAL.WITHIN.ITEM FIND.BITMAP FIND.COLOR.NUMBER FIND.ENCLOSED.ITEMS FIND.FRAME FIND.INTERFACE FIND.REPRESENTATIVE.GRAY FLASH.REGION FLIP.BOX FLIP.ITEM FLIP.REGION.IN.WINDOW FLIP.SPOT FONTS.IN.CORE FRAME.CLASSES FRAME.NAME FUNCTION.FOR.PTYPE GET.ITEM.TYPE.MENU GET.PARAM.DEFAULT GET.TRILLIUM.PRINTOUT.WINDOW GRIDIFY GRIDNEAR INDEFINITE INTERFACE.WINDOW INVERT.MENU.ITEM ITEM.KIND ITEM.TYPE.CLASSES ITEM.TYPE.MENU.ITEM ITEM.TYPE.PARAMETER ITEM.TYPE.PARAMETER.NAMES ITEM.TYPE.PARAMETER.TYPE ITEM.TYPES.OF.FRAME ITEM.TYPES.OF.INTERFACE ITEMP LOWERLEFTW MOUSEBUTTONS NEW.ITEM OBS OFFSPRING OFFSPRING.1 OFFSPRING.N OFFSPRING.OF.DESCRIPTION ON.GRID PRINT.IN.REGION PRINT.ITEM PRINT.ITEM.TYPES PRINTOUT.ITEM.TYPES PROMPT.READ PROPLIST.PROPERTIES REPORT.ERROR REPORT.LISP.ERROR REPORT.TRILLIUM.ERROR RESET.ITEM.TYPE.DESCRIPTION SCREEN.COORDS SET.CLIPPING.REGION SET.PLACEMENT SORT.ON.PROPERTY STRICTLY.ENCLOSESP SUPERFRAMES* SWAP.CURSOR.AUX TRILLIUM.CLEAR.ALL.PROMPTING TRILLIUM.EVAL TRILLIUM.GRID.SETUP TRILLIUM.PRINTOUT.STRING TROUBLE.WITH.TRILLIUM TTYCONFIRM UNMARK.INTERFACE UNMARK.ITEM.TYPE USED.ITEM.TYPES VECTOR/FROM.TO WAITBUG WAITNOBUG WAITNOBUG.AUX WALK.FRAME WALK.INTERFACE WALK.ITEM WALK.OBJECT) (VARS ITEM.OPERATIONS (TRILLIUM.CLEARPROMPT) (ITEM.TYPE.MENU) PLACEMENT.PTYPES PRINT.SEPARATOR.STRING (THINKING.LEVEL 0)) (UGLYVARS READING.CURSOR) (TEMPLATES GET.FIELDQ SET.FIELDQ THINKING) (MACROS SWAP.CURSOR) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA TROUBLE.WITH.TRILLIUM) (NLAML) (LAMA))))) (RPAQQ ITEM.OPERATIONS (ANALYZE BOUNDING.BOX CLEAR DISPLAY RELOCATE SENSE SHOW)) (RPAQQ TRILLIUM.CLEARPROMPT NIL) (RPAQQ ITEM.TYPE.MENU NIL) (RPAQQ PLACEMENT.PTYPES (POSITION LOCATION POSITION2 LOCATION2 REGION GRIDREGION)) (RPAQQ PRINT.SEPARATOR.STRING "***************") (RPAQQ THINKING.LEVEL 0) (READVARS READING.CURSOR) (({ (READBITMAP) (16 16 "GOON" "L@@C" "H@@A" "IOOI" "IOOI" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "H@@A" "L@@C" "GOON") } 7 . 8)) (SETTEMPLATE (QUOTE GET.FIELDQ) (QUOTE (EVAL NIL NIL))) (SETTEMPLATE (QUOTE SET.FIELDQ) (QUOTE (EVAL NIL EVAL NIL))) (SETTEMPLATE (QUOTE THINKING) (QUOTE (.. EFFECT RETURN))) (PUTPROPS SWAP.CURSOR MACRO (SWAP.CURSOR.FORMS (CONS (QUOTE RESETFORM) (CONS (LIST (QUOTE SWAP.CURSOR.AUX) NIL (CAR SWAP.CURSOR.FORMS)) (CDR SWAP.CURSOR.FORMS))))) (PUTPROPS TRI-UTIL COPYRIGHT ("Xerox Corporation" 1984)) NIL