(FILECREATED "20-Nov-84 15:50:50" ("compiled on " {AZTEC}BIRTHDAY84>RERELEASE>TRI-UTIL.;3) " 8-Jun-84 11:17:20" recompiled exprs: ADD.FRAME.CLASS in WORK dated "21-Jun-84 10:50:28") (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@ dLdi dA@ l#kؽdMdg dgjdndhdN HJ YdgKgKdHO hIdg"@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 F 2 CURRENT.BITMAP.FRAMES) W A/gg oI @g I oI b@g Xdd X@gH hdcH(114Q LISTPUT 111Q SORT 100Q INTERSECTION 71Q LISTGET 60Q PROMPT.READ 54Q PRIN1 43Q PRIN1 37Q LISTGET 27Q PRIN1 16Q GET.TRILLIUM.PRINTOUT.WINDOW) (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) AAgD@ 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 @XdYHh@Xd@dH@H@HIIINIL NIL () CONFIRM D1 (I 1 ONLY.IF.BEING.CAREFUL I 0 MESSAGE) KA`i`d@dodi didg dgjdndhHdI  (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 YHd*@C @A @B @CHJIJ @ 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@hgH H(16Q WALK.FRAME) (12Q COLLECT.ITEM) () DEFINING.ITEMS.OF.ITEM D1 (P 7 PARAMETER P 3 VALUE P 2 SUBITEMS P 1 PARAMETERS P 0 ITYPE I 0 ITEM) X@@Xdgg Y0I.d@Og [Og K \ML^]NZ@J ]L(121Q LAST 70Q DEFINING.ITEMS.OF.PTYPE 64Q LISTGET 51Q LISTGET 46Q LISTGET 21Q LISTGET) (61Q TYPE 43Q 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 dgA dg!A@"HJJIK HXgA@2M_LN_NOO ML(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 ZKJ\[LB [J0Hgg %d@Ng Ng ZKJ\[LY@HAI [JI(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 XI HZYJ 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 ZKJ\[LS [J0Hgg 6d@Ng ANg ANg ZKJ\[LY@HAI [JI(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𒿰dg3A0Bd@IM ZKJ\[L [JgBA2 O_NO_O@OO _O_NH(216Q \NCONC2 213Q DEFINING.PTYPES.OF.PTYPE 126Q LAST 100Q DEFINING.PTYPES.OF.PTYPE 21Q EQUAL 13Q DEFINING.PTYPES.OF.ITEM) (136Q STRUCTURE 47Q LIST 36Q ITEM) () DRAW.GRID D1 (P 14Q Y P 11Q 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) ````h` h` ` g`nLH OOj]jOLOOLNMI OOj3jOMOOM$NOONOO jkj OK__OJ__hLH OOj+jOLOOLOjOMkON OJ__MI OOjjOMOOMjOLOkON OK__(416Q DRAWLINE 325Q DRAWLINE 217Q BITMAPBIT 206Q BITMAPBIT 60Q \INSUREWINDOW 46Q DSPCLIPPINGREGION 41Q \INSUREWINDOW 27Q DSPCLIPPINGREGION 22Q \INSUREWINDOW) (73Q TRILLIUM.GRID.POINTS.FLG 65Q INVERT 55Q CURRENT.INTERFACE.WINDOW 36Q CURRENT.INTERFACE.WINDOW 17Q 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@Ah?@Ah4@@kAAkh@@kAAkhNIL 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 MLh^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 hZHX]g*Mg Mg @ Mg Mg L\(200Q GET.PARAM.DEFAULT 167Q LISTGET 156Q EQUAL 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) (175Q BITMAP 164Q 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@dghgj@g`g g HlYg'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 3 ITEM I 1 FRAME I 0 REGION) <0Ag ,dKg @Kg dIHhZH&J(44Q ENCLOSESP 41Q LISTGET 11Q LISTGET) (36Q BOUNDING.BOX 26Q TYPE.DESCRIPTION 6 ITEMS) () FIND.FRAME D1 (P 1 FRAME I 1 FRAME.NAME I 0 INTERFACE) ?Adl%@g HhYg AIHXAgAo (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@dgjgn`g g HnYg'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@ Xd0d @g @g Yd0`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`@@@@ggBn (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`@HlAIlHIgg 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 10Q SIZE P 4 FAMILY) @`id0LKd0 O,d[gLOKhh_ODO__O]N'M_^OXI HZYJ YH ^M _O(206Q LAST 176Q LAST 166Q LAST) (51Q DISPLAY 5 \FONTSINCORE) () FRAME.CLASSES D1 (P 1 FRAME.NAME P 0 CLASSES I 0 FRAME F 3 TRILLIUM.PROFILE) =@g @g Sg ZIJ dHHod (72Q SORT 67Q INTERSECTION 40Q MEMB 27Q LISTGET 15Q LISTGET 6 LISTGET) (24Q FRAME.CLASSES 12Q NAME 3 CLASSES) ( 62Q (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[ddddiddd gKhKgg hIHhZH&JHdIdidg dgjdndhHdI `(125Q LISTGET 23Q COPYALL 11Q EQUAL) (245Q ITEM.TYPE.MENU 241Q ITEM.TYPE.MENU 205Q DEFAULTMENUHELDFN 176Q CLRPROMPT 122Q COMMENT 116Q TYPE.DESCRIPTION 106Q QUOTE 45Q ITEM.TYPES 26Q MENUTYPE# 20Q ITEM.TYPES 6 ITEM.TYPES 2 ITEM.TYPE.MENU) ( 34Q "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 gH Ago @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)) @d1`@`````@````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) @ Xddg gHHb(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 dHHod (71Q SORT 66Q INTERSECTION 37Q MEMB 26Q LISTGET 12Q LISTGET) (23Q ITEM.TYPE.CLASSES 20Q TRILLIUM.PROFILE 7 CLASSES 3 TYPE.DESCRIPTION) ( 61Q (UNCLASSIFIED)) ITEM.TYPE.MENU.ITEM D1 (I 0 ITYPE) 2@ddddiddd 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 AIHX(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 IHhZH&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 dJIh[I&KXdd (55Q SORT 52Q INTERSECTION 14Q LISTGET) (11Q ITEMS) () ITEM.TYPES.OF.INTERFACE D1 (P 0 TYPES I 0 DIALOG) 60@g d YJI[ZKXdd  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 mg 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 1 TYPE P 0 PHRASE I 1 OFFSPRING I 0 SPEC) @dg@A@ dgg@ A dg@bdg@dHA hdg%@dHgHgHA hdg#dgg@dAI ho (267Q SHOULDNT 251Q TCONC 176Q OFFSPRING.1 125Q OFFSPRING.N 57Q OFFSPRING.N 52Q MEMB 32Q TCONC) (227Q EVAL 221Q HELP 212Q INCREMENT 167Q ELSE 161Q THEN 140Q IF 103Q SELECT 64Q LABEL 45Q DO 37Q FOREACH 5 ITEM) ( 264Q "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 !HhiYg ZHXg Ii(61Q FUNCTION.FOR.PTYPE 41Q LISTGET 14Q LISTGET) (56Q LTRANSLATE 36Q TYPE 11Q PARAMETERS 5 TYPE.DESCRIPTION) () PRINT.IN.REGIONA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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) `RdgPgPSPSk cUdgQgQVWوQVWk cWddhTWRUWWWWW 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`bGhA bBBBBG %B 1 gOhhWc_og g_OcgO Oh(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 (DUMMY.FOR.ERRORSET)) 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 @gSH YGdgg oL OL oL @O @O L oL (gg oM oM oM @ ZdI Zdo Zd`gg oN JFd 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 Xgg `K H iYIgg `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 (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 ITYPE P 1 I F 3 MACROY) o ` o  h `kH%h h i `kH,cih I o J HIkعZi oi h h I o Jg HIkع(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 L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 TRILLIUM.CURSOR F 6 MACROY) BhU 1gHhhTcog gIcgI KJc i(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 (DUMMY.FOR.ERRORSET)) 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 gJc gJ LK(100Q ERROR! 73Q APPLY 50Q PRINTOUT.ITEM.TYPESA0001 15Q OUTFILE) (64Q OUTFILE 54Q ERROR 45Q INTERNAL 23Q OUTFILE 10Q TRILLIUM-ITEM-TYPES) ( 42Q (DUMMY.FOR.ERRORSET)) PROMPT.READA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 gIcgI KJ(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 (DUMMY.FOR.ERRORSET)) PROPLIST.PROPERTIES D1 (L (0 PROPLIST)) 0@dIHhZH&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 Cgg oH CH Dgg 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) Ad@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 @Ah@Ah(4 ENCLOSESP) NIL () SUPERFRAMES* D1 (P 3 SUPERFRAME.NAME I 0 FRAME) 70@g dK`K XI HZYJ 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 L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FORM F 1 RESULT) P ci(3 EVAL) NIL () TRILLIUM.EVAL D1 (P 0 RESULT I 1 ACTIVITY I 0 FORM) o HAoh@ (30Q REPORT.LISP.ERROR 11Q TRILLIUM.EVALA0001) NIL ( 23Q "evaluating a form" 6 (DUMMY.FOR.ERRORSET)) TRILLIUM.GRID.SETUP D1 (I 4 DISPLAY.METHOD I 3 DY I 2 DX I 1 Y0 I 0 X0) C@BACBdlCdlDddgighoD (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\K8@L Zg%I@ILk ` hg` LkذILYI@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 mg 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@o i (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 dKYHHI hH (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 `ljh(2 GETMOUSESTATE) (6 LASTMOUSEBUTTONS) () WAITNOBUG D1 NIL P`dg`ljhdg`ljgo` (115Q ERROR 102Q BEGIN.EVENT 77Q END.EVENT 66Q BEGIN.EVENT 50Q GETMOUSESTATE 45Q END.EVENT 15Q GETMOUSESTATE) (112Q EVENT.MODE 72Q PLAYBACK 54Q LASTMOUSEBUTTONS 36Q RECORDING 21Q LASTMOUSEBUTTONS 6 OFF 2 EVENT.MODE) ( 107Q "Unknown EVENT.MODE :") WAITNOBUG.AUX D1 NIL `lji(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"HhZoIBC [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"HhZIBC [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 @AhRHhZg @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) 1Cg@ABCDlHAg 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