(FILECREATED "16-May-84 21:45:54" ("compiled on " {PHYLUM}PIECE-MENUS.;3) "14-May-84 19:04:51" tcompl'd in WORK dated "14-May-84 20:07:29") (FILECREATED "16-May-84 21:45:33" {PHYLUM}PIECE-MENUS.;3 9654 changes to: (FNS KEYWORD.MENU.INVOKE CHUNK.MENU.CREATE CHUNK.MENU.GET.REAL.MENU KEYWORD.MENU.CREATE KEYWORD.MENU.GET.MENU PIECE.MENU.MAKE.MENU CHUNK.MENU.INVOKE) (VARS PIECE-MENUSCOMS) previous date: "10-AUG-83 18:19:13" {PHYLUM}LISP>PIECE-MENUS.;2) 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(650Q TCONC 630Q TCONC 576Q TCONC 564Q TCONC 501Q PIECE.MENU.MAKE.MENU 474Q \NCONC2 464Q TCONC 346Q CONCAT 321Q CONCAT 262Q TCONC 245Q TCONC 236Q EQP 157Q LENGTH 147Q TCONC 111Q LISTGET) (327Q $CHUNK$ 324Q 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) ( 341Q "Jump to menu chunk starting with item " 316Q "..." 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) @AdCOkCOOkA"d OI Z#OKhhIYi Yh@ I^\Kh d_^o gN_ddidd gOhoN h_O Oh_O&_O]IIBMh(220Q CONCAT 145Q CONCAT 126Q \NCONC2 73Q SORT 51Q FASSOC) (203Q QUOTE 150Q $KEYWORD$) ( 214Q "Jump to section for " 142Q "'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) F@7P@X@YAZA[@HgJg \IhJ K @oI (102Q CONCAT 65Q CHUNK.MENU.CREATE 61Q \NCONC2 46Q LISTGET) (43Q TITLE 37Q TITLE) ( 76Q ": ") 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) j@XA ``_IO@H Z@ \ OM lOM lLN [iYg@KK(120Q CHUNK.MENU.INVOKE 100Q CHECK/MENU/IMAGE 60Q CHECK/MENU/IMAGE 50Q CHUNK.MENU.GET.REAL.MENU 44Q KEYWORD.MENU.GET.MENU 37Q FASSOC 14Q GETMOUSESTATE) (134Q $KEYWORD$ 103Q BITMAP 63Q 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 YHIH(237Q LISTGET 216Q LISTGET 171Q LISTGET 145Q LISTGET 124Q LISTGET 103Q LISTGET 62Q LISTGET) (245Q MENU 234Q MENUOUTLINESIZE 224Q MENU 213Q MENUBORDERSIZE 177Q MENU 166Q ITEMHEIGHT 153Q MENU 142Q ITEMWIDTH 132Q MENU 121Q MENUFONT 111Q MENU 100Q CENTERFLG 70Q 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) (UGLYVARS 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)))) (READVARS CHUNK.MENU.DOWN.BITMAP CHUNK.MENU.UP.BITMAP KEYWORD.MENU.KEYWORD.BITMAP) ({ (READBITMAP) (56 12 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@L@@C@@@@@@@" "@@@@@F@@F@@@@@@@" "@@@@@C@@L@@@@@@@" "@@@@@AHAH@@@@@@@" "@@@@@@LC@@@@@@@@" "@@@@@@FF@@@@@@@@" "@@@@@@CL@@@@@@@@" "@@@@@@AH@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") } { (READBITMAP) (56 12 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@AH@@@@@@@@" "@@@@@@CL@@@@@@@@" "@@@@@@FF@@@@@@@@" "@@@@@@LC@@@@@@@@" "@@@@@AHAH@@@@@@@" "@@@@@C@@L@@@@@@@" "@@@@@F@@F@@@@@@@" "@@@@@L@@C@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") } { (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 (ADDTOVAR GLOBALVARS CHUNK.MENU.DOWN.BITMAP CHUNK.MENU.UP.BITMAP KEYWORD.MENU.KEYWORD.BITMAP)) NIL