(FILECREATED "12-Feb-86 18:31:43" ("compiled on " {ERIS}KOTO>PIECE-MENUS.;2) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED "12-Feb-86 18:31:27" {ERIS}KOTO>PIECE-MENUS.;2 11035 changes to: (FNS CHUNK.MENU.CREATE CHUNK.MENU.INVOKE KEYWORD.MENU.CREATE KEYWORD.MENU.GET.MENU KEYWORD.MENU.INVOKE) ( VARS PIECE-MENUSCOMS) previous date: "16-May-84 21:45:33" {PHYLEX:PARC:XEROX}INTERMEZZO>LISPUSERS>PIECE-MENUS.;1) CHUNK.MENU.CREATE D1 (P 27Q RIT P 26Q BLOCK.ITM P 25Q J P 23Q LST P 17Q I P 15Q ITEM P 13Q MENUS P 12Q STR P 11Q ITM P 10Q BLOCK.ITS P 7 MENU.COUNT P 6 N P 5 ITS P 4 IT.LISTS P 3 CHUNK.COUNT P 2 DOWN.ITEM P 1 UP.ITEM P 0 BLANK.ITEM I 2 REQUIRED.ITEMS I 1 PROPERTIES I 0 ITEMS)  ogghohX`gghohY`gghohZAg'l[hh\hh]j^@ O6LM L\d _LkBOEO _LkBOO dk_NK LM hhjMO NkؾO__&_d_o ggOhoO h_$O"O$h_"_ O_Ok_oO$&_"_&hhB[OkOkO(UMH MO& ]A _$O"O$h_"_ O_Ok_'O$&_"dMO. MH _,O*OOdkMI OOMJMO, O(_(O*k_*s(646Q TCONC 626Q TCONC 574Q TCONC 562Q TCONC 477Q PIECE.MENU.MAKE.MENU 472Q \NCONC2 462Q TCONC 344Q CONCAT 317Q CONCAT 260Q TCONC 243Q TCONC 234Q EQP 155Q LENGTH 145Q TCONC) (325Q $CHUNK$ 322Q QUOTE 106Q CHUNK.COUNT 66Q $DOWN$ 63Q QUOTE 60Q CHUNK.MENU.DOWN.BITMAP 41Q $UP$ 36Q QUOTE 33Q CHUNK.MENU.UP.BITMAP 14Q $BLANK$ 11Q QUOTE) ( 337Q "Jump to menu chunk starting with item " 314Q "..." 75Q "Jump to following section" 50Q "Jump to preceding section" 23Q "No action" 6 " ") CHUNK.MENU.GET.REAL.MENU D1 (P 1 N P 0 MENUS I 0 CHUNK.MENU)  @X@YHI (15Q NTH) NIL () CHUNK.MENU.INVOKE D1 (P 11Q PROPERTIES P 10Q THUMB.MENU P 7 THUMB.ITEMS P 6 RESULT P 5 NEW.POSITION P 4 POS P 3 DONE P 2 CURRENT.MENU P 1 N P 0 MENUS I 1 POSITION I 0 CHUNK.MENU)  @XA ``\Kn@HI LJ lLJ lJM ^dg@Ni[gNdg@Ikg@Iki[N(105Q MENU 65Q CHECK/MENU/IMAGE 46Q CHECK/MENU/IMAGE 36Q NTH 10Q GETMOUSESTATE) (164Q $DOWN$ 146Q $UP$ 136Q $BLANK$ 116Q $CHUNK$ 70Q BITMAP 51Q BITMAP 21Q LASTMOUSEY 16Q LASTMOUSEX) () KEYWORD.MENU.CREATE D1 (P 15Q ENT P 11Q KEYWD P 10Q OBJECT P 6 KEYWORD P 5 KEYWORD.ITEMS P 4 ITEMS P 3 ITEM P 2 ENTRY P 1 ALST P 0 TITLE I 3 ITEMFN I 2 PROPERTIES I 1 KEYWORDFN I 0 OBJECTS) @?dCOkCOOkA d OIZ#OKhhIYi Yh@ IT\Kh d_^o gN_ddi3 gOhoN h_O Oh_O&_O]IIBMh(204Q CONCAT 143Q CONCAT 124Q \NCONC2 71Q SORT) (167Q QUOTE 146Q $KEYWORD$) ( 200Q "Jump to section for " 140Q "'s") KEYWORD.MENU.GET.MENU D1 (P 4 TITLE P 3 KEYWORD.ITEMS P 2 PROPERTIES P 1 KEYWORD P 0 ITEMS I 1 KEYWORD.MENU I 0 ENTRY) D@5P@X@YAZA[@HgJg'\IhJ K @oI (100Q CONCAT 63Q CHUNK.MENU.CREATE 57Q \NCONC2) (43Q TITLE 37Q TITLE) ( 74Q ": ") KEYWORD.MENU.INVOKE D1 (P 7 POS P 6 NEW.POS P 5 REALMENU P 4 SUBMENU P 3 RESULT P 2 ENTRY P 1 DONE P 0 ALST I 1 POSITION I 0 KEYWORD.MENU) h@XA ``_IM@HZ@ \ OM lOM lLN [iYg@KK(116Q CHUNK.MENU.INVOKE 76Q CHECK/MENU/IMAGE 56Q CHECK/MENU/IMAGE 46Q CHUNK.MENU.GET.REAL.MENU 42Q KEYWORD.MENU.GET.MENU 14Q GETMOUSESTATE) (132Q $KEYWORD$ 101Q BITMAP 61Q BITMAP 23Q LASTMOUSEY 20Q LASTMOUSEX) () KEYWORD.MENU.MAKE.MENU D1 (I 2 PROPERTIES I 1 TITLE I 0 ITEMS) @gAhB (16Q CHUNK.MENU.CREATE 13Q \NCONC2) (3 TITLE) () PIECE.MENU.MAKE.MENU D1 (P 1 VALUE P 0 MENU I 1 PROPERTIES I 0 ITEMS) 0`d@dg dgjdndhdJ XAg'YHIAg'YHI Ag'YHIAg'YH IAg'YH IAg'YHIAg'YHIHNIL (227Q MENU 220Q MENUOUTLINESIZE 210Q MENU 201Q MENUBORDERSIZE 165Q MENU 156Q ITEMHEIGHT 143Q MENU 134Q ITEMWIDTH 124Q MENU 115Q MENUFONT 105Q MENU 76Q CENTERFLG 66Q MENU 57Q TITLE 26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 5 MENUTYPE#) () (PRETTYCOMPRINT PIECE-MENUSCOMS) (RPAQQ PIECE-MENUSCOMS ((FNS CHUNK.MENU.CREATE CHUNK.MENU.GET.REAL.MENU CHUNK.MENU.INVOKE KEYWORD.MENU.CREATE KEYWORD.MENU.GET.MENU KEYWORD.MENU.INVOKE KEYWORD.MENU.MAKE.MENU PIECE.MENU.MAKE.MENU) (BITMAPS CHUNK.MENU.DOWN.BITMAP CHUNK.MENU.UP.BITMAP KEYWORD.MENU.KEYWORD.BITMAP ) (DECLARE: DOEVAL@LOAD (LOCALVARS .T) (GLOBALVARS CHUNK.MENU.DOWN.BITMAP CHUNK.MENU.UP.BITMAP KEYWORD.MENU.KEYWORD.BITMAP)))) (RPAQ CHUNK.MENU.DOWN.BITMAP (READBITMAP)) (56 12 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@L@@C@@@@@@@" "@@@@@F@@F@@@@@@@" "@@@@@C@@L@@@@@@@" "@@@@@AHAH@@@@@@@" "@@@@@@LC@@@@@@@@" "@@@@@@FF@@@@@@@@" "@@@@@@CL@@@@@@@@" "@@@@@@AH@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ CHUNK.MENU.UP.BITMAP (READBITMAP)) (56 12 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@AH@@@@@@@@" "@@@@@@CL@@@@@@@@" "@@@@@@FF@@@@@@@@" "@@@@@@LC@@@@@@@@" "@@@@@AHAH@@@@@@@" "@@@@@C@@L@@@@@@@" "@@@@@F@@F@@@@@@@" "@@@@@L@@C@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ KEYWORD.MENU.KEYWORD.BITMAP (READBITMAP)) (24 10 "AL@@@@@@" "CF@@@@@@" "FC@@@@@@" "LAOOOO@@" "LAOOOO@@" "FC@@AH@@" "CF@@GN@@" "AL@@GF@@" "@@@@FF@@" "@@@@DB@@") (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS .T)) (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS CHUNK.MENU.DOWN.BITMAP CHUNK.MENU.UP.BITMAP KEYWORD.MENU.KEYWORD.BITMAP)) (PUTPROPS PIECE-MENUS COPYRIGHT ("Xerox Corporation" 1986)) NIL