(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 13:54:38" ("compiled on " {DSK}sources>FREEMENU.;3) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED " 6-Dec-94 10:55:40" {DSK}lots>dec94>work>lots>freemenu.;3 209304 changes to%: ( FNS FM.SKIPNEXT \FM.EDIT-FINDNEXT \FM.EDIT-ITEM \FM.EDIT-PREPARETOEDIT \FM.EDIT-INSERT \FM.NUMBER-SETUP \FM.EDIT-SETUP \FM.NUMBER-CHANGESTATE) previous date%: " 7-Sep-94 14:02:37" {DSK}lots>dec94>work>lots>freemenu.;1) (RPAQQ FREEMENUCOMS ((PROP (FILETYPE MAKEFILE-ENVIRONMENT) FREEMENU) (COMS (* ; "USER INTERFACE FUNCTIONS") (MACROS FM.GROUPPROP FM.MENUPROP FM.NWAYPROP) (OPTIMIZERS FM.ITEMPROP) ( PROP ARGNAMES FM.ITEMPROP FM.GROUPPROP FM.MENUPROP FM.NWAYPROP) (MACROS \FM.INSUREFM \FM.INSUREWINDOW) (* ; "RUN TIME TYPE CHECKERS") (FNS FREEMENU (* ; "ACCESSING FUNCTIONS") FM.ITEMPROP FM.GETITEM FM.GETSTATE (* ; "CHANGING FUNCTIONS") FM.HIGHLIGHTITEM FM.CHANGELABEL FM.CHANGESTATE FM.RESETSTATE FM.RESETMENU FM.RESETSHAPE FM.RESETGROUPS (* ; "MISC FUNCTIONS") FM.REDISPLAYITEM FM.REDISPLAYMENU FM.SHADE FM.EDITP FM.EDITITEM FM.ENDEDIT FM.SKIPNEXT FM.WHICHITEM FM.TOPGROUPID)) (COMS (* ; "CREATION OF FREEMENUS") (DECLARE%: DONTCOPY (MACROS \FM.ITEMPROP \FM.GROUPPROP \FM.NWAYPROP \FM.MAKEGROUP \FM.TOPGROUPPROP \FM.DTOPGROUPID \FM.DGROUPPROP \FM.DTOPGROUPPROP)) (FNS (* ; "FORMATTING") \FM.FORMAT \FM.FORMATBYROW \FM.FORMATBYCOLUMN \FM.FORMATBYGRID \FM.FORMATEXPLICIT \FM.LAYOUTROW \FM.LAYOUTCOLUMN \FM.LAYOUTGRID \FM.JUSTIFYITEMS \FM.JUSTIFYGROUPS \FM.PUSHGROUP (* ; "ERROR CHECKING") \FM.CHECKDESCRIPTION \FM.CHECKPROPS (* ; "CREATING") \FM.CREATEITEM \FM.GETREGIONS \FM.GETBITMAPS \FM.MAKEBITMAP \FM.READUSERDATA \FM.MAKELINKS \FM.COLLECTNWAYS \FM.SETATTACHPOINT \FM.CREATEW \FM.STARTEDIT) (INITVARS (\FM.GROUP-ID-COUNTER 0)) (GLOBALVARS \FM.GROUP-ID-COUNTER) ( DECLARE%: DONTCOPY (MACROS \FM.MAKE-GROUP-ID \FM.SETUPPROPS \FM.SETFORMATPROPS \FM.CHECKFORBOX \FM.UPDATEFORBOX \FM.UPDATEGRID \FM.ITEMWIDTH \FM.ITEMHEIGHT \FM.ATTACHPOINT)) (DECLARE%: DONTCOPY ( CONSTANTS (\FM.FORMAT-TYPES (QUOTE (ROW COLUMN TABLE EXPLICIT))) (\FM.DEFAULTFORMAT (QUOTE ROW)) (* ; "format keywords") (\FM.GROUPSPEC (QUOTE GROUP)) (\FM.PROPSPEC (QUOTE PROPS)) (* ; "key words in description") (\FM.HJUSTIFY-SPECS (QUOTE (LEFT CENTER RIGHT))) (\FM.VJUSTIFY-SPECS ( QUOTE (TOP MIDDLE BOTTOM))) (* ; "item justification keywords") (\FM.BOXSPACE 1) (* ; "default number of bits between label and box") (\FM.ROWSPACE 2) (\FM.COLUMNSPACE 10) (* ; "default number of bits between formatted rows and columns") (\FM.ITEM-TYPES (QUOTE (MOMENTARY TOGGLE 3STATE NWAY STATE NUMBER EDIT EDITSTART DISPLAY))) (* ; "known freemenu item types") ( \FM.DESCRIPTION-PROPS (QUOTE (TYPE LABEL LEFT BOTTOM ID GROUPID STATE INITSTATE FONT BITMAP REGION MAXREGION MESSAGE USERDATA LINKS SYSDOWNFN SYSMOVEDFN SYSSELECTEDFN DOWNFN HELDFN MOVEDFN SELECTEDFN)) ) (* ; "properties in item description that don't become USERDATA"))) (RECORDS FREEMENUITEM)) (COMS (* ; "FREEMENU WINDOWS") (DECLARE%: DONTCOPY (MACROS \FM.TRANSPOSE)) (FNS \FM.OPENFN \FM.REDISPLAYMENU \FM.RESHAPEFN \FM.UNSCROLLWINDOW \FM.RESETCLIPPINGREGION \FM.FILLWINDOW \FM.INITCORNERSFN \FM.TRANSPOSEHORZ \FM.TRANSPOSEVERT \FM.UPDATEGROUPEXTENT \FM.WINDOWEXTENT \FM.UPDATEWINDOWEXTENT)) ( COMS (* ; "MOUSE FUNCTIONS") (DECLARE%: DONTCOPY (MACROS \FM.ONITEM \FM.CHECKREGION)) (FNS \FM.WINDOWENTRYFN \FM.BUTTONEVENTFN \FM.RIGHTBUTTONFN \FM.DOSELECTION \FM.MENUHANDLER)) (COMS (* ; "ITEM SUPPORT FUNCTIONS") (DECLARE%: DONTCOPY (MACROS \FM.DISPLAYBITMAP \FM.COERCEITEMPTR)) (FNS \FM.GETITEMPROP \FM.PUTITEMPROP \FM.CGETITEMPROP \FM.CPUTITEMPROP \FM.DISPLAYITEM \FM.HIGHLIGHTITEM \FM.CHANGELABEL \FM.CHANGESTATE \FM.ENDEDIT \FM.INSUREVISIBLE \FM.CLEARITEM)) (COMS (* ; "MOMENTARY ITEM FUNCTIONS") (FNS \FM.MOMENTARY-SETUP \FM.MOMENTARY-SELECTEDFN)) (COMS (* ; "TOGGLE ITEM FUNCTIONS") (FNS \FM.TOGGLE-SETUP \FM.TOGGLE-DOWNFN \FM.TOGGLE-SELECTEDFN \FM.TOGGLE-CHANGESTATE)) (COMS (* ; "3STATE ITEM FUNCTIONS") (FNS \FM.3STATE-SETUP \FM.3STATE-SETUPOFFBITMAP \FM.3STATE-DOWNFN \FM.3STATE-SELECTEDFN \FM.3STATE-CHANGESTATE)) (COMS (* ; "STATE ITEM FUNCTIONS") (FNS \FM.STATE-SETUP \FM.STATE-SELECTEDFN \FM.STATE-CHANGESTATE)) (COMS (* ; "NWAY ITEM FUNCTIONS") (FNS \FM.NWAY-SETUP \FM.NWAY-MESSAGE \FM.NWAY-DOWNFN \FM.NWAY-MOVEDFN \FM.NWAY-SELECTEDFN \FM.NWAY-CHANGESTATE)) (COMS (* ; "NUMBER ITEM FUNCTIONS") (FNS \FM.NUMBER-SETUP \FM.NUMBER-MESSAGE \FM.NUMBER-SELECTEDFN \FM.NUMBER-CHANGESTATE)) (COMS (* ; "TITLE ITEM FUNCTIONS") ( FNS \FM.DISPLAY-SETUP)) (COMS (* ; "EDITSTART ITEM FUNCTIONS") (FNS \FM.EDITSTART-SETUP \FM.EDITSTART-MESSAGE \FM.EDITSTART-SELECTEDFN)) (COMS (* ; "EDIT ITEMS") (DECLARE%: DONTCOPY ( CONSTANTS (\FM.EDIT-TIMEOUT 100000) (\FM.EDIT-RIGHTENDSPACE 5) (\FM.EDIT-BLOCKSIZE 50) ( \FM.EDIT-CONTROLCHARS (QUOTE (9 10 12 13))) (\FM.EDIT-CONTROLCHARSECHO 255) (\FM.EDIT-WORDDELIMCHARS ( QUOTE (32 123 125 91 93 60 62 47 92 46 44 59 42 40 41 45))) (* ; "space { } [ ] < > / \ . , ; * ( ) ---"))) (VARS (\FM.EDIT-TTBL)) (GLOBALVARS \FM.EDIT-TTBL) (MACROS \FM.EDIT-MAXWIDTH \FM.EDIT-SCROLLAMOUNT) (FNS \FM.EDIT-SETUP \FM.EDIT-MESSAGE \FM.EDIT-SETUPTTBL \FM.EDIT-ITEM \FM.EDIT-PREPARETOEDIT \FM.EDIT-FINDNEXT \FM.EDIT-FINDFIRST \FM.EDIT-BACKUP \FM.EDIT-WORDDELETE \FM.EDIT-INSERT \FM.EDIT-DELETE \FM.EDIT-GETPOINTERINFO \FM.EDIT-MOVECARET \FM.EDIT-STRDELETE \FM.EDIT-STRINSERT \FM.EDIT-UPDATEAFTERDELETE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FM.ITEMPROP))))) (PUTPROPS FREEMENU FILETYPE CL:COMPILE-FILE) (PUTPROPS FREEMENU MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (PUTPROPS FM.GROUPPROP MACRO (ARGS (* access macro to group props of window. args (WINDOW GROUP PROP {VALUE})) (COND ((NULL (CDDR ARGS)) (ERROR "Too few arguments to FM.GROUPPROP:" (CONS (QUOTE FM.GROUPPROP) ARGS))) ((CDDDR ARGS) (BQUOTE (LET ((GROUP (CDR (FASSOC (\, (CADR ARGS)) (WINDOWPROP ( \FM.INSUREWINDOW (\, (CAR ARGS))) (QUOTE FM.GROUPS)))))) (PROG1 (LISTGET GROUP (\, (CADDR ARGS))) ( LISTPUT GROUP (\, (CADDR ARGS)) (\, (CADDDR ARGS))))))) (T (BQUOTE (LISTGET (CDR (FASSOC (\, (CADR ARGS)) (WINDOWPROP (\FM.INSUREWINDOW (\, (CAR ARGS))) (QUOTE FM.GROUPS)))) (\, (CADDR ARGS)))))))) (PUTPROPS FM.MENUPROP MACRO (ARGS (* access macro to TOP group props of window. args (WINDOW PROP {VALUE})) (COND ((NULL (CDR ARGS)) (ERROR "Too few arguments to FM.MENUPROP:" (CONS (QUOTE FM.MENUPROP ) ARGS))) ((CDDR ARGS) (BQUOTE (LET ((GROUP (CDAR (WINDOWPROP (\FM.INSUREWINDOW %, (CAR ARGS)) (QUOTE FM.GROUPS))))) (PROG1 (LISTGET GROUP %, (CADR ARGS)) (LISTPUT GROUP %, (CADR ARGS) %, (CADDR ARGS))))) ) (T (BQUOTE (LISTGET (CDAR (WINDOWPROP (\FM.INSUREWINDOW %, (CAR ARGS)) (QUOTE FM.GROUPS))) %, (CADR ARGS))))))) (PUTPROPS FM.NWAYPROP MACRO (ARGS (* access macro to nway props. args (WINDOW COLLECTION PROP {VALUE}) ) (COND ((NULL (CDDR ARGS)) (ERROR "Too few arguments to FM.NWAYPROP:" (CONS (QUOTE FM.NWAYPROP) ARGS) )) ((CDDDR ARGS) (BQUOTE (LET ((NWAY (CDR (ASSOC (\, (CADR ARGS)) (WINDOWPROP (\FM.INSUREWINDOW (\, ( CAR ARGS))) (QUOTE FM.NWAYS)))))) (PROG1 (LISTGET NWAY (\, (CADDR ARGS))) (LISTPUT NWAY (\, (CADDR ARGS)) (\, (CADDDR ARGS))))))) (T (BQUOTE (LISTGET (CDR (ASSOC (\, (CADR ARGS)) (WINDOWPROP ( \FM.INSUREWINDOW (\, (CAR ARGS))) (QUOTE FM.NWAYS)))) (\, (CADDR ARGS)))))))) optimize-FM.ITEMPROP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ]@HdogH dgggHhHH gHhH (90 \FM.CGETITEMPROP 71 \FM.CPUTITEMPROP 27 ERROR) (77 \FM.INSUREFM 54 \FM.INSUREFM 44 IGNOREMACRO 37 QUOTE 20 FM.ITEMPROP) ( 15 "Too few arguments to FM.ITEMPROP:") (PUTPROP (QUOTE FM.ITEMPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FM.ITEMPROP) ( GET (QUOTE FM.ITEMPROP) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS FM.ITEMPROP ARGNAMES (ITEM PROP {VALUE})) (PUTPROPS FM.GROUPPROP ARGNAMES (WINDOW GROUP PROP {VALUE})) (PUTPROPS FM.MENUPROP ARGNAMES (WINDOW PROP {VALUE})) (PUTPROPS FM.NWAYPROP ARGNAMES (WINDOW COLLECTION PROP {VALUE})) (PUTPROPS \FM.INSUREFM MACRO (ARGS (* args (ITEM WINDOW) %. Insure ITEM is freemenuitem. If WINDOW is supplied, then try to coerce item if necessary.) (COND ((CDR ARGS) (* WINDOW ARGUMENT SUPPLIED) ( BQUOTE (COND ((type? FREEMENUITEM %, (CAR ARGS)) %, (CAR ARGS)) (T (IF (AND (LISTP %, (CAR ARGS)) (EQ \FM.GROUPSPEC (CAR %, (CAR ARGS)))) THEN (ERROR "Can't describe a local item from top level:" %, (CAR ARGS)) ELSE (\FM.COERCEITEMPTR %, (CAR ARGS) %, (CADR ARGS))))))) (T (* NO WINDOW SUPPLIED%: JUST TYPE CHECK ITEM) (BQUOTE (COND ((type? FREEMENUITEM %, (CAR ARGS)) %, (CAR ARGS)) (T (ERROR "Arg must be FreeMenuItem" %, (CAR ARGS))))))))) (PUTPROPS \FM.INSUREWINDOW MACRO ((WINDOW) (COND ((AND (WINDOWP WINDOW) (WINDOWPROP WINDOW (QUOTE FM.ITEMS))) WINDOW) (T (ERROR "Arg must be FreeMenu Window" WINDOW))))) FREEMENU :D8 (P 0 WINDOW I 3 BORDER I 2 BACKGROUND I 1 TITLE I 0 DESCRIPTION) ?@ bdg`jdll ABC H H H H(59 FM.RESETMENU 53 \FM.COLLECTNWAYS 47 \FM.MAKELINKS 38 \FM.CREATEW 30 \FM.FORMAT 5 COPY) (18 DEFAULTFONT 13 ROW) () FM.ITEMPROP :D8 (P 0 ARGPTR) SelHogkah kaoka Hlkala kalala (80 \FM.PUTITEMPROP 66 \FM.GETITEMPROP 50 ERROR 29 ERROR) (37 FREEMENUITEM 19 FM.ITEMPROP) ( 43 "FM.ITEMPROP arg must be FreeMenuItem:" 14 "Too few arguments to FM.ITEMPROP") FM.GETITEM :D8 (P 2 ITEM P 0 ITEMS I 2 WINDOW I 1 GROUP I 0 ID) nB Bg oB ABg !HYhBg g'@J@JJiI(65 GETWINDOWUSERPROP 44 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (95 FREEMENUITEM 84 FREEMENUITEM 72 ITEMS 60 FM.GROUPS 39 FM.ITEMS 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.GETSTATE :D8 (P 2 ITEM P 1 NWAY P 0 STATELIST I 0 WINDOW) @ @g o@ hd@g 'dIg'HIIg'h @g dJdg%dgdgdgdg*JAHJ JJgHJJh wH(233 LCONC 100 GETWINDOWUSERPROP 83 LCONC 47 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (223 FREEMENUITEM 215 FREEMENUITEM 205 EDIT 196 FREEMENUITEM 188 FREEMENUITEM 178 FREEMENUITEM 167 FREEMENUITEM 157 NUMBER 149 NWAY 140 STATE 131 3STATE 122 TOGGLE 114 FREEMENUITEM 95 FM.ITEMS 74 STATE 61 STATE 42 FM.NWAYS 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.HIGHLIGHTITEM :D8 (P 1 ITEMID P 0 GROUPID I 1 WINDOW I 0 ITEM) A Ag oA @@7@E @6HghI@HA o@ bdA @go@ (131 ERROR 102 \FM.HIGHLIGHTITEM 92 ERROR 79 FM.GETITEM 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (117 GROUP 65 FREEMENUITEM 57 GROUP 36 FREEMENUITEM 12 FM.ITEMS) ( 125 "Can't describe a local item from top level:" 86 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.CHANGELABEL :D8 (P 2 OLDREGION P 1 ITEMID P 0 GROUPID I 3 UPDATEFLG I 2 WINDOW I 1 NEWLABEL I 0 ITEM) jB Bg oB @@7@y @jHghI@HB o@ bd@A @dgdg1@d 5@go@ g@d C@g'*Bg BgB B @BJ B P@g'Bhdddd@ @jdB@@hddg (359 BKBITBLT 315 BLTSHADE 279 OPENWP 273 \FM.CLEARITEM 264 \FM.REDISPLAYMENU 258 PUTWINDOWPROP 253 \FM.WINDOWEXTENT 241 \FM.UPDATEGROUPEXTENT 236 GETWINDOWUSERPROP 206 \FM.3STATE-CHANGESTATE 183 ERROR 153 \FM.TOGGLE-CHANGESTATE 113 \FM.CHANGELABEL 92 ERROR 79 FM.GETITEM 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (353 PAINT 341 FREEMENUITEM 332 FREEMENUITEM 321 FREEMENUITEM 307 FREEMENUITEM 294 BACKGROUND 287 FREEMENUITEM 247 EXTENT 231 FM.GROUPS 222 CHANGELABELUPDATE 215 FREEMENUITEM 199 FREEMENUITEM 190 3STATE 169 GROUP 146 FREEMENUITEM 135 TOGGLE 127 NWAY 119 FREEMENUITEM 101 FREEMENUITEM 65 FREEMENUITEM 57 GROUP 36 FREEMENUITEM 12 FM.ITEMS) ( 177 "Can't describe a local item from top level:" 86 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.CHANGESTATE :D8 (P 2 ITEMID P 1 GROUPID P 0 OLDSTATE I 2 WINDOW I 1 NEWSTATE I 0 X) ]B Bg oB @Bg H@Bg g'A@AB HZB RHg'BhddddH HjdBHHhddg AB Ag'BhddddA AjdBAAhddg A7AA A2IghJAIB oA bAgoA @@7@Z @KIghJ@IB o@ bddgdg$i"@go@ ſh@AB @AB B P@g'Bhdddd@ @jdB@@hddg (602 BKBITBLT 558 BLTSHADE 522 OPENWP 516 \FM.CHANGESTATE 507 FM.CHANGELABEL 494 ERROR 434 ERROR 421 FM.GETITEM 370 ERROR 335 ERROR 322 FM.GETITEM 273 BKBITBLT 229 BLTSHADE 189 OPENWP 175 BKBITBLT 130 BLTSHADE 94 OPENWP 85 \FM.CHANGESTATE 59 GETWINDOWUSERPROP 42 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (596 PAINT 584 FREEMENUITEM 575 FREEMENUITEM 564 FREEMENUITEM 550 FREEMENUITEM 537 BACKGROUND 530 FREEMENUITEM 480 GROUP 459 NUMBER 451 EDIT 443 FREEMENUITEM 407 FREEMENUITEM 399 GROUP 378 FREEMENUITEM 356 GROUP 308 FREEMENUITEM 300 GROUP 279 FREEMENUITEM 267 PAINT 255 FREEMENUITEM 246 FREEMENUITEM 235 FREEMENUITEM 221 FREEMENUITEM 208 BACKGROUND 201 FREEMENUITEM 169 PAINT 157 FREEMENUITEM 148 FREEMENUITEM 137 FREEMENUITEM 122 FREEMENUITEM 109 BACKGROUND 102 FREEMENUITEM 66 STATE 54 FM.NWAYS 37 FM.NWAYS 12 FM.ITEMS) ( 488 "Can't describe a local item from top level:" 428 "Could not find item:" 364 "Can't describe a local item from top level:" 329 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.RESETSTATE :D8 (P 2 INITSTATE P 1 ITEMID P 0 GROUPID I 1 WINDOW I 0 X) A Ag oA @Ag @Ag g'H@@7@N @?HghI@HA o@  @JA @go@ (177 ERROR 148 FM.CHANGESTATE 129 ERROR 116 FM.GETITEM 57 GETWINDOWUSERPROP 42 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (163 GROUP 135 FREEMENUITEM 102 FREEMENUITEM 94 GROUP 73 FREEMENUITEM 64 INITSTATE 52 FM.NWAYS 37 FM.NWAYS 12 FM.ITEMS) ( 171 "Can't describe a local item from top level:" 123 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.RESETMENU :D8 (P 1 NWAY P 0 ITEM I 0 WINDOW) i@ @g o@ @i @g dH@ @g dI@ @ (102 \FM.REDISPLAYMENU 91 FM.RESETSTATE 77 GETWINDOWUSERPROP 61 FM.RESETSTATE 48 GETWINDOWUSERPROP 37 \FM.ENDEDIT 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (72 FM.NWAYS 43 FM.ITEMS 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.RESETSHAPE :D8 (I 1 ALWAYSFLG I 0 WINDOW) @ @g o@ @g @g @g @g AX@d @ @g @ , @g @ (@ , (170 SHAPEW 165 CREATEREGION 160 HEIGHTIFWINDOW 153 \INSUREWINDOW 145 \INSUREWINDOW 139 GETWINDOWUSERPROP 128 WIDTHIFWINDOW 121 \INSUREWINDOW 115 GETWINDOWUSERPROP 100 \INSUREWINDOW 91 \INSUREWINDOW 78 GETWINDOWUSERPROP 67 GETWINDOWPROP 52 GETWINDOWUSERPROP 41 GETWINDOWPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (134 FM.MINHEIGHT 110 FM.MINWIDTH 73 FM.MINHEIGHT 62 HEIGHT 47 FM.MINWIDTH 36 WIDTH 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.RESETGROUPS :D8 (I 2 REDISPLAYFLG I 1 GROUPLIST I 0 WINDOW) ;@ @g o@ @g A B@ (56 \FM.REDISPLAYMENU 47 \FM.UPDATEGROUPEXTENT 41 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (36 FM.GROUPS 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.REDISPLAYITEM :D8 (P 1 ITEMID P 0 GROUPID I 1 WINDOW I 0 ITEM) A Ag oA @@?@ @HghI@HA o@ bA P@g'Ahdddd@ @jdA@@hddg @wgao@ (221 ERROR 189 BKBITBLT 145 BLTSHADE 109 OPENWP 100 ERROR 87 FM.GETITEM 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (205 GROUP 183 PAINT 171 FREEMENUITEM 162 FREEMENUITEM 151 FREEMENUITEM 137 FREEMENUITEM 124 BACKGROUND 117 FREEMENUITEM 73 FREEMENUITEM 65 GROUP 36 FREEMENUITEM 12 FM.ITEMS) ( 215 "Can't describe a local item from top level:" 94 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.REDISPLAYMENU :D8 (I 0 WINDOW) '@ @g o@ @ (36 \FM.REDISPLAYMENU 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.SHADE :D8 (P 2 REGION P 1 ITEMID P 0 GROUPID I 2 WINDOW I 1 SHADE I 0 X) B Bg oB @Bg g'H@@7@h @YHghI@HB o@ J!B A BhdddgJ @go@ (188 ERROR 159 BLTSHADE 142 TEXTUREP 134 OPENWP 114 ERROR 101 FM.GETITEM 42 GETWINDOWUSERPROP 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (174 GROUP 152 PAINT 120 FREEMENUITEM 87 FREEMENUITEM 79 GROUP 58 FREEMENUITEM 49 REGION 37 FM.GROUPS 12 FM.ITEMS) ( 182 "Can't describe a local item from top level:" 108 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.EDITP :D8 (I 0 WINDOW) ,@ @g @o@ g (41 GETWINDOWUSERPROP 31 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (36 FM.EDITITEM 12 FM.ITEMS) ( 25 "Arg must be FreeMenu Window") FM.EDITITEM :D8 (P 1 ITEMID P 0 GROUPID I 2 CLEARFLG I 1 WINDOW I 0 ITEM) A Ag oA @@?@ @HghI@HA o@ bAi BobA =gg@hgAhgBhhgggi @ygco@ (219 ERROR 187 ADD.PROCESS 126 OPENWP 110 \FM.ENDEDIT 100 ERROR 87 FM.GETITEM 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (203 GROUP 180 FREEMENU.PROCESS 175 FREEMENU 170 NAME 156 QUOTE 147 QUOTE 138 QUOTE 133 \FM.STARTEDIT 73 FREEMENUITEM 65 GROUP 36 FREEMENUITEM 12 FM.ITEMS) ( 213 "Can't describe a local item from top level:" 117 (RIGHT) 94 "Could not find item:" 23 "Arg must be FreeMenu Window") FM.ENDEDIT :D8 (I 1 WAITFLG I 0 WINDOW) (@ @g o@ @A (37 \FM.ENDEDIT 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") FM.SKIPNEXT :D8 (P 1 EDITITEM P 0 FM.PROCESS I 1 CLEARFLG I 0 WINDOW) @ k`Hg JHgogggoggAhooh oH @ Id@A (131 FM.EDITITEM 118 \FM.EDIT-FINDFIRST 111 ERROR 99 PROCESS.EVAL 26 PROCESSPROP 5 FM.EDITP) (69 QUOTE 64 if 54 then 49 NEWITEM 44 if 34 LET 21 FREEMENU.PROCESS 12 \TTY.PROCESS) ( 105 "Can't find freemenu process to do skip-next" 85 ((\FM.EDIT-PREPARETOEDIT EDITITEM T) (\FM.INSUREVISIBLE EDITITEM WINDOW) (SETQ DONEFN (IF (EQ (\FM.ITEMPROP EDITITEM (QUOTE TYPE)) (QUOTE NUMBER)) THEN (FUNCTION \FM.NUMBER-CHANGESTATE))) else (\FM.ENDEDIT WINDOW)) 78 (then (FM.CHANGELABEL EDITITEM "" WINDOW)) 59 (SETQ EDITITEM NEWITEM) 39 ((NEWITEM (\FM.EDIT-FINDNEXT)))) FM.WHICHITEM :D8 (P 2 REGION P 1 ITEM I 2 Y I 1 POSorX I 0 WINDOW) V@ bA e@g !HhYAJ9AJ1Ig'AJJAJJIiHXAa@g !HhYBJ6AJ/Ig'AJJBJJIiHX@g !HhY@ JF@ J:Ig'@ JJ@ JJIiHX(318 LASTMOUSEY 301 LASTMOUSEX 273 LASTMOUSEX 260 LASTMOUSEY 235 GETWINDOWUSERPROP 140 GETWINDOWUSERPROP 38 GETWINDOWUSERPROP 25 POSITIONP 11 WHICHW 5 WINDOWP) (292 INFINITEWIDTH 285 FREEMENUITEM 251 FREEMENUITEM 230 FM.ITEMS 187 INFINITEWIDTH 180 FREEMENUITEM 156 FREEMENUITEM 135 FM.ITEMS 87 INFINITEWIDTH 80 FREEMENUITEM 54 FREEMENUITEM 33 FM.ITEMS) () FM.TOPGROUPID :D8 (I 0 WINDOW) .@ @g @o@ g (41 GETWINDOWUSERPROP 31 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (36 FM.GROUPS 12 FM.ITEMS) ( 25 "Arg must be FreeMenu Window") \FM.FORMAT :D8 (P 4 EXTENT P 3 BOXOFFSET P 2 OLDCORNER P 1 GROUPS P 0 PROP I 9 PROPS I 8 ID I 7 MOTHER I 6 COLUMNSPACE I 5 ROWSPACE I 4 BOTTOM I 3 LEFT I 2 FONT I 1 FORMAT I 0 DESCRIPTION) c @g@b@d G odHdgGg'Gg'bg$Gg'Gg'kgbHdgCGg'jbgDGg'jbgHdgGg'RGg'b EgGg'3Gg'b &HgGg'`khb ghdb`khbGgG @Gg'TGg'Ggn Gg'Ggk CDGg'Gg'ػCKbDKbAdg@BCDEFGG Qg@BCDEFGG 7Adg@BCDEFGG g@BCDEFGG Yd I Ig'\K*dJLJLLKlLLKlI(554 \FM.JUSTIFYGROUPS 548 \FM.JUSTIFYITEMS 541 \FM.FORMATEXPLICIT 515 \FM.FORMATBYGRID 486 \FM.FORMATBYCOLUMN 460 \FM.FORMATBYROW 398 LISTPUT 375 LISTPUT 338 LISTPUT 34 \FM.CHECKPROPS 26 RPLNODE2) (562 REGION 522 EXPLICIT 495 TABLE 467 COLUMN 440 ROW 418 BOXSPACE 410 BOX 392 BOXSPACE 383 BOXSPACE 367 BOXSHADE 358 BOXSHADE 348 BOX 331 MOTHER 319 \FM.GROUP-ID-COUNTER 312 \FM.GROUP-ID-COUNTER 300 ITEMS 279 \FM.GROUP-ID-COUNTER 272 \FM.GROUP-ID-COUNTER 264 ID 254 ID 242 COLUMNSPACE 232 COLUMNSPACE 222 COLUMNSPACE 211 ROWSPACE 201 ROWSPACE 190 ROWSPACE 173 BOTTOM 162 BOTTOM 146 LEFT 134 LEFT 119 FONTCREATE 112 FONT 100 FONT 90 FONT 78 FORMAT 66 FORMAT 55 FORMAT 7 PROPS) ( 40 (FORMAT FONT LEFT BOTTOM ROWSPACE COLUMNSPACE ID)) \FM.FORMATBYROW :D8 (P 6 ROW P 5 GROUPS P 4 ROWBOTTOM P 3 ROWIDS P 2 GROUPLIST P 1 ITEMLIST P 0 EXTENT I 7 PROPS I 6 ID I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 DESCRIPTION) BCjd hdhdhdC@ `dNABLDEF KM IMg' HMg' JM LMg'D\GgI GgH GgK FGJ(177 LISTPUT 172 DREVERSE 158 LISTPUT 145 LISTPUT 140 DREVERSE 102 LCONC 94 EXTENDREGION 78 LCONC 73 REVERSE 57 TCONC 47 \FM.LAYOUTROW 27 DREVERSE 8 CREATEREGION) (165 DAUGHTERS 152 REGION 133 ITEMS 112 REGION 88 REGION 67 ITEMS) () \FM.FORMATBYCOLUMN :D8 (P 9 COLID P 8 COLHEIGHT P 7 HEIGHT P 6 COL P 5 GROUPS P 4 COLUMNLEFT P 3 COLUMNIDS P 2 GROUPLIST P 1 ITEMLIST P 0 EXTENT I 7 PROPS I 6 ID I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 DESCRIPTION) BCjd hdhdhdB@_dNALCDEF KM IMg' HMg' JM LMg'E\JZH! K.d_Jg'_OOJOOg hGgI GgH GgK FGJ(225 LISTPUT 211 LISTPUT 198 LISTPUT 177 \FM.PUSHGROUP 97 LCONC 89 EXTENDREGION 73 LCONC 68 COPY 52 TCONC 42 \FM.LAYOUTCOLUMN 8 CREATEREGION) (218 DAUGHTERS 205 REGION 191 ITEMS 172 UP 147 REGION 107 REGION 83 REGION 62 ITEMS) () \FM.FORMATBYGRID :D8 (P 20 GRIDPOS P 19 ITEMDESC P 16 ROWDESC P 15 ROWID P 12 ROWDESC P 11 BOX P 10 ALIGNREGION P 9 ROWDAUGHTERS P 8 ROWREGION P 7 ROWITEMS P 6 GROUPS P 5 ROWBOTTOM P 4 GRID P 3 ROWIDS P 2 GROUPLIST P 1 ITEMLIST P 0 EXTENT I 7 PROPS I 6 ID I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 DESCRIPTION) BCjd hdhdhdhdB Cf @ ad OALMDEF KN INg' HNg' JN MNg'D]JZK [L\@K"O_O7GgI GgH GgK FGJ_ OJg'_OJg'_OJg'_LO "O$_&O"MOO OJg'_OOOOJg'HO O_O_1_(O&gOOJg'_OJg' O_O(OOJO(Og O_)O_OO(OO(O_O$_$O"_"(448 \FM.PUSHGROUP 412 LAST 349 EXTENDREGION 299 EXTENDREGION 216 LISTPUT 203 LISTPUT 190 LISTPUT 185 DREVERSE 146 DREVERSE 112 LCONC 104 EXTENDREGION 88 LCONC 83 REVERSE 67 TCONC 57 \FM.LAYOUTGRID 36 REVERSE 26 TCONC 8 CREATEREGION) (478 FREEMENUITEM 465 FREEMENUITEM 443 RIGHT 406 ITEMS 391 REGION 377 GROUP 336 BOXSPACE 310 BOX 265 DAUGHTERS 251 ITEMS 237 REGION 210 DAUGHTERS 197 REGION 178 ITEMS 122 REGION 98 REGION 77 ITEMS) () \FM.FORMATEXPLICIT :D8 (P 6 ITEMDESC P 5 X P 4 LOCAL P 3 SUBGROUPIDS P 2 GROUPLIST P 1 ITEMLIST P 0 EXTENT I 7 PROPS I 6 ID I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 DESCRIPTION) BCjd hdhdhdGg'g@dNdg\LNgABCNgAjdDEF KM IMg' HMg' JM 1 LNABCNAjdF IM HM aGgI GgH GgK FGJ(246 LISTPUT 232 LISTPUT 219 LISTPUT 214 DREVERSE 191 EXTENDREGION 176 TCONC 168 \FM.CREATEITEM 149 \FM.CHECKDESCRIPTION 142 LCONC 134 EXTENDREGION 118 LCONC 113 COPY 97 TCONC 87 \FM.FORMAT 8 CREATEREGION) (239 DAUGHTERS 226 REGION 207 ITEMS 184 FREEMENUITEM 128 REGION 107 ITEMS 75 EXPLICIT 64 EXPLICIT 51 GROUP 30 GROUP 24 COORDINATES) () \FM.LAYOUTROW :D8 (P 9 ITEMDESC P 8 X P 7 GROUPLEFT P 6 SUBGROUPIDS P 5 GROUPLIST P 4 ITEMLIST P 3 EXTENT P 2 BOXOFFSET P 1 OLDCORNER P 0 PROP I 8 PROPS I 7 ID I 6 MOTHER I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 ROW F 10 FORMAT)   @g@b@d G odHdgGg'Gg'cg$Gg'Gg'kgbHdgBGg'jbgCGg'jbgHdgGg'RGg'bEgGg'3Gg'b &HgGg'`khb ghdb`khbGgF  Gg'TGg'Ggn Gg'Ggk BCGg'Gg'غBJbCJbBCjd hdhdhdB@d OdgTgABCDEG _NO LOg' KOg' MO 0 OABCG _LO KO OKEb]J+KIKIKKJlKKJlGgL GgK GgN GGM(709 LISTPUT 695 LISTPUT 682 LISTPUT 603 EXTENDREGION 587 TCONC 576 \FM.CREATEITEM 562 \FM.CHECKDESCRIPTION 555 LCONC 546 EXTENDREGION 529 LCONC 524 COPY 507 TCONC 494 \FM.FORMAT 441 CREATEREGION 397 LISTPUT 374 LISTPUT 337 LISTPUT 34 \FM.CHECKPROPS 26 RPLNODE2) (702 DAUGHTERS 689 REGION 675 ITEMS 596 FREEMENUITEM 540 REGION 518 ITEMS 481 ROW 472 GROUP 417 BOXSPACE 409 BOX 391 BOXSPACE 382 BOXSPACE 366 BOXSHADE 357 BOXSHADE 347 BOX 331 MOTHER 319 \FM.GROUP-ID-COUNTER 312 \FM.GROUP-ID-COUNTER 300 ITEMS 279 \FM.GROUP-ID-COUNTER 272 \FM.GROUP-ID-COUNTER 264 ID 254 ID 242 COLUMNSPACE 232 COLUMNSPACE 222 COLUMNSPACE 211 ROWSPACE 201 ROWSPACE 190 ROWSPACE 173 BOTTOM 162 BOTTOM 146 LEFT 134 LEFT 119 FONTCREATE 112 FONT 100 FONT 90 FONT 78 FORMAT 66 FORMAT 55 FORMAT 7 PROPS) ( 40 (ID FONT LEFT BOTTOM COLUMNSPACE)) \FM.LAYOUTCOLUMN :D8 (P 9 ITEMDESC P 8 X P 7 GROUPBOTTOM P 6 SUBGROUPIDS P 5 GROUPLIST P 4 ITEMLIST P 3 EXTENT P 2 BOXOFFSET P 1 OLDCORNER P 0 PROP I 8 PROPS I 7 ID I 6 MOTHER I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 LEFT I 1 FONT I 0 COLUMN F 10 FORMAT)   @g@b@d G odHdgGg'Gg'cg$Gg'Gg'kgbHdgBGg'jbgCGg'jbgHdgGg'RGg'bEgGg'3Gg'b &HgGg'`khb ghdb`khbGgF  Gg'TGg'Ggn Gg'Ggk BCGg'Gg'غBJbCJbBCjd hdhdhdC@ d OdgTgABCDEG _NO LOg' KOg' MO 0 OABCG _LO KO OKDb\J+KIKIKKJlKKJlGgL GgK GgN GGM(725 LISTPUT 720 DREVERSE 706 LISTPUT 693 LISTPUT 688 DREVERSE 608 EXTENDREGION 592 TCONC 581 \FM.CREATEITEM 567 \FM.CHECKDESCRIPTION 560 LCONC 551 EXTENDREGION 534 LCONC 529 REVERSE 512 TCONC 499 \FM.FORMAT 460 DREVERSE 441 CREATEREGION 397 LISTPUT 374 LISTPUT 337 LISTPUT 34 \FM.CHECKPROPS 26 RPLNODE2) (713 DAUGHTERS 700 REGION 681 ITEMS 601 FREEMENUITEM 545 REGION 523 ITEMS 486 COLUMN 477 GROUP 417 BOXSPACE 409 BOX 391 BOXSPACE 382 BOXSPACE 366 BOXSHADE 357 BOXSHADE 347 BOX 331 MOTHER 319 \FM.GROUP-ID-COUNTER 312 \FM.GROUP-ID-COUNTER 300 ITEMS 279 \FM.GROUP-ID-COUNTER 272 \FM.GROUP-ID-COUNTER 264 ID 254 ID 242 COLUMNSPACE 232 COLUMNSPACE 222 COLUMNSPACE 211 ROWSPACE 201 ROWSPACE 190 ROWSPACE 173 BOTTOM 162 BOTTOM 146 LEFT 134 LEFT 119 FONTCREATE 112 FONT 100 FONT 90 FONT 78 FORMAT 66 FORMAT 55 FORMAT 7 PROPS) ( 40 (ID FONT LEFT BOTTOM ROWSPACE)) \FM.LAYOUTGRID :D8 (P 25 TAIL P 24 AMOUNT P 22 GRIDTAIL P 21 TAIL P 20 AMOUNT P 18 GRIDTAIL P 17 ITEMDESC P 16 NEXTLEFT P 15 LEFT P 14 GROUPREGION P 13 X P 12 ITEMNUM P 11 SUBGROUPIDS P 10 GROUPLIST P 9 ITEMLIST P 8 EXTENT P 7 TAIL P 6 AMOUNT P 4 GRIDTAIL P 3 BOXOFFSET P 2 OLDCORNER P 1 GRIDLEN P 0 PROP I 8 PROPS I 7 ID I 6 MOTHER I 5 COLUMNSPACE I 4 ROWSPACE I 3 BOTTOM I 2 GRID I 1 FONT I 0 ROW F 26 LEFT F 27 FORMAT)  @g@b@d G odHdgGg'Gg'c6g$Gg'Gg'kgbHdgW4Gg'jc4gCGg'jbgHdgGg'RGg'bEgGg'3Gg'b &HgGg'`khbghdb`khbGgF B !Gg'Gg'Ggn Gg'Ggk W4CGg'Gg'ػkIBdK IkԹ+Bk BKLLBKLM_&CKbBCjd hdhdhdjE@adNOdOk_BO _O"dg^gAOCDEG _OO OOg' Og'_OO OO 8 O"AOCG _OO O_OO O_OE_ OIBO IkԹ*BO OO$O$OO$O&_*OkIBO IkԹ8dO(O*BOk O O,O,O O,O._2uK1OJOJOOKlOOKlGgO GgO GgO GGOdO0O2~(980 LISTPUT 965 LISTPUT 951 LISTPUT 846 FNTH 816 TCONC 769 FNTH 753 TCONC 723 EXTENDREGION 701 TCONC 689 \FM.CREATEITEM 674 \FM.CHECKDESCRIPTION 667 LCONC 657 EXTENDREGION 634 LCONC 629 COPY 611 TCONC 597 \FM.FORMAT 561 FNTH 512 CREATEREGION 462 FNTH 447 TCONC 407 LISTPUT 384 LISTPUT 345 FLENGTH 338 LISTPUT 34 \FM.CHECKPROPS 26 RPLNODE2) (972 DAUGHTERS 958 REGION 943 ITEMS 709 FREEMENUITEM 644 REGION 623 ITEMS 583 TABLE 574 GROUP 428 BOXSPACE 420 BOX 401 BOXSPACE 392 BOXSPACE 376 BOXSHADE 367 BOXSHADE 355 BOX 332 MOTHER 320 \FM.GROUP-ID-COUNTER 313 \FM.GROUP-ID-COUNTER 301 ITEMS 280 \FM.GROUP-ID-COUNTER 273 \FM.GROUP-ID-COUNTER 265 ID 255 ID 243 COLUMNSPACE 233 COLUMNSPACE 223 COLUMNSPACE 212 ROWSPACE 202 ROWSPACE 191 ROWSPACE 174 BOTTOM 163 BOTTOM 147 LEFT 134 LEFT 119 FONTCREATE 112 FONT 100 FONT 90 FONT 78 FORMAT 66 FORMAT 55 FORMAT 7 PROPS) ( 40 (ID FONT BOTTOM COLUMNSPACE)) \FM.JUSTIFYITEMS :D8 (P 10 ITEM P 8 MOTHER P 7 THISGROUP P 6 ITEMHEIGHT P 5 ITEMWIDTH P 4 ITEMMAXREGION P 3 ITEMREGION P 2 EXTENTBOTTOM P 1 EXTENTLEFT P 0 EXTENT I 1 GROUPID I 0 GROUPS) j A@b@g' Oh_g'Og'!OO=O_@g'gOO@g'_@g'XHOOOg'NLKOg'dgI&dgIHMlێg IHMLKOg'ULKOg'dgJHNذ!dgJHNl؈gJLKO_NIL (339 BOTTOM 318 MIDDLE 298 TOP 291 VJUSTIFY 284 FREEMENUITEM 266 VJUSTIFY 259 FREEMENUITEM 234 RIGHT 215 CENTER 203 LEFT 196 HJUSTIFY 189 FREEMENUITEM 173 HJUSTIFY 166 FREEMENUITEM 156 FREEMENUITEM 146 FREEMENUITEM 131 REGION 120 MOTHER 105 EXPLICIT 99 CL:FORMAT 87 FREEMENUITEM 75 FREEMENUITEM 61 VJUSTIFY 54 FREEMENUITEM 44 HJUSTIFY 37 FREEMENUITEM 18 ITEMS) () \FM.JUSTIFYGROUPS :D8 (P 5 DAUGHTER P 4 VJUST P 3 HJUST P 2 MOTHER P 1 MOTHEREXTENT P 0 EXTENT I 1 GROUPID I 0 GROUPS) PA@b@g'[A@g'\Kd%A@g'Z@g'A@g'KA@g'Gdg𒿰gA@IImHHmg d@M h(150 \FM.JUSTIFYGROUPS 135 \FM.PUSHGROUP) (130 RIGHT 99 RIGHT 89 LEFT 80 DAUGHTERS 66 REGION 55 REGION 45 MOTHER 29 VJUSTIFY 18 HJUSTIFY) () \FM.PUSHGROUP :D8 (P 0 ITEM I 3 DIR I 2 AMOUNT I 1 GROUPS I 0 GROUPID) @AbAg'`dCdg&HdBHH(g#HdBHHCdg@Ag'dBg@Ag'dBNIL (161 REGION 149 RIGHT 135 REGION 122 UP 105 FREEMENUITEM 97 FREEMENUITEM 83 FREEMENUITEM 74 RIGHT 64 FREEMENUITEM 55 FREEMENUITEM 40 FREEMENUITEM 30 UP 15 ITEMS) () \FM.CHECKDESCRIPTION :D8 (P 7 PROP P 1 TYPE P 0 LABEL I 0 ID) <@g'@g'gRIgUIgLIgCIg:Ig1Ig(IgIgIgo@ Hd oS3H HHo@ d@O'"@O'3 oOo @ @g'C@g'dgdgdgihooo@ @g'C@g'dgdgdgihooo@ o2d@O'%@O' oOo @ @g';@g'Z1J3,@g' @g'[Ko@ o:d@O'-@O'\&L3!@O'oOo @ @g'7@g'@gn @g@g'@g'k IdgE@g'@g'd3h@g' @g']Mo@ gC@g'@g'^N3o@ @g'@g'o@ Idg@g'wo@ gHH o@ (825 ERROR 794 ERROR 760 ERROR 729 ERROR 687 ERROR 657 STRINGP 610 LISTPUT 580 LISTPUT 543 ERROR 537 CONCAT 482 ERROR 453 STRINGP 411 ERROR 405 CONCAT 386 TEXTUREP 358 ERROR 353 CONCAT 284 ERROR 279 CONCAT 205 ERROR 199 CONCAT 160 ERROR 137 STRINGP 114 ERROR) (809 BITMAP 800 EDIT 778 COLLECTION 768 NWAY 745 MENUITEMS 736 MENUITEMS 711 CHANGESTATE 702 CHANGESTATE 693 STATE 672 BITMAP 665 OFF 651 OFF 637 OFF 628 OFF 618 3STATE 600 BOXSPACE 593 BOX 587 BOXOFFSET 572 BOXSHADE 564 BOXSHADE 555 BOX 468 BITMAP 461 HIGHLIGHT 447 HIGHLIGHT 432 HIGHLIGHT 423 HIGHLIGHT 323 BOTTOM 315 MIDDLE 307 TOP 300 VJUSTIFY 291 VJUSTIFY 249 RIGHT 241 CENTER 233 LEFT 226 HJUSTIFY 217 HJUSTIFY 145 BITMAP 101 DISPLAY 92 EDITSTART 83 EDIT 74 NUMBER 65 STATE 56 NWAY 47 3STATE 38 TOGGLE 29 MOMENTARY 20 MOMENTARY 12 TYPE 5 LABEL) ( 819 "Edit item label must be string or atom." 788 "Unspecified COLLECTION for NWAY item:" 754 "Invalid MENUITEMS property. List of items expected:" 723 "Invalid CHANGESTATE property. Atomic function name expected:" 681 "Invalid OFF. Texture or Label expected:" 532 ". Atomic function name expected:" 525 "Invalid " 488 (SELECTEDFN DOWNFN HELDFN MOVEDFN) 476 "Invalid HIGHLIGHT. Texture or Label expected:" 400 ". Shade expected:" 393 "Invalid " 364 (BACKGROUND BOXSHADE) 347 " expected:" 342 (TOP MIDDLE BOTTOM) 337 "Invalid VJUSTIFY. One of " 273 " expected:" 268 (LEFT CENTER RIGHT) 263 "Invalid HJUSTIFY. One of " 194 ". Fixp expected:" 187 "Invalid " 154 "Invalid LABEL. Atom, string, or bitmap expected:" 125 (LEFT BOTTOM MAXWIDTH HAXHEIGHT BOX BOXSPACE) 108 "Invalid TYPE:") \FM.CHECKPROPS :D8 (P 0 PROP I 0 PROPS) @g'<@g'dgdgdgdgiho@ o,d@H' @H'3 oHo @ o/d@H'#@H' oHo @ h(167 ERROR 161 CONCAT 143 TEXTUREP 112 ERROR 106 CONCAT 65 ERROR) (46 EXPLICIT 38 TABLE 30 COLUMN 21 ROW 14 FORMAT 5 FORMAT) ( 156 " property:" 150 "PROPS Error. TEXTURE expected for " 123 (BOXSHADE BACKGROUND) 101 " property:" 95 "PROPS Error. FIXP expected for " 71 (LEFT BOTTOM ROWSPACE COLUMNSPACE BOX BOXSPACE) 59 "PROPS Error. Invalid FORMAT:") \FM.CREATEITEM :D8 (P 19 ITEM P 18 BITMAPS P 17 REGIONS P 16 FONT P 15 LABEL P 0 TYPE I 4 GROUPID I 3 BOTTOM I 2 LEFT I 1 FONTDEFAULT I 0 ID) B@g'jbC@g'jb@g'g@g'@g'@g'kgA@BCO @O O"O" `dHdO@g'dIdD@g'dJ dO  O$dKO$dLO"dMO"dN@g'_dO@g'dd_dO@g'g_dO"@g'g_dO$@g'g_dO&@g'g_dO(dg dgdghd_dOO&@ oHo _O&O"lOO&(402 PACK* 386 \FM.READUSERDATA 112 \FM.GETBITMAPS 94 \FM.GETREGIONS) (360 NILL 351 NILL 342 NILL 327 NILL 319 SELECTEDFN 304 NILL 296 MOVEDFN 281 NILL 273 HELDFN 258 NILL 250 DOWNFN 230 LINKS 214 MESSAGE 156 INITSTATE 138 ID 120 |FREEMENUITEMTYPE#| 76 FONTCREATE 69 FONT 60 FONT 50 LABEL 41 MOMENTARY 33 TYPE 20 BOTTOM 6 LEFT) ( 397 "-SETUP" 391 "\FM.") \FM.GETREGIONS :D8 (P 10 BOXOFFSET P 9 MAXHEIGHT P 8 MAXWIDTH P 7 HIGHLIGHTHEIGHT P 6 HIGHLIGHTWIDTH P 5 HIGHLIGHT P 4 HL P 3 HEIGHT P 1 WIDTH I 3 FONT I 2 BOTTOM I 1 LEFT I 0 ID)  @g'HH@g' @g'C @g'ZJ@g' C @g'Ld3L LLLL MMMd MC jMMMC j@g' IdNN@g' KdOO @g' l@g' OHABIdOOKdOO MABNdOOOdOO ABOO hOYOO[ABIK M ABIK ABIK h @(383 BITMAPHEIGHT 373 CREATEREGION 364 CREATEREGION 352 CREATEREGION 328 CREATEREGION 317 CREATEREGION 288 CREATEREGION 160 STRINGWIDTH 152 BITMAPWIDTH 131 STRINGP 111 TEXTUREP 77 BITMAPHEIGHT 46 STRINGWIDTH 32 BITMAPWIDTH) (254 BOXOFFSET 243 BOXOFFSET 222 MAXHEIGHT 203 MAXWIDTH 189 FONTDESCRIPTOR 175 BITMAP 143 BITMAP 121 BITMAP 95 HIGHLIGHT 84 FONTDESCRIPTOR 71 LABEL 62 BITMAP 55 LABEL 39 LABEL 26 LABEL 15 BITMAP 5 LABEL) () \FM.GETBITMAPS :D8 (P 6 HLBITMAP P 5 BITMAP P 4 HEIGHT P 3 WIDTH P 2 HIGHLIGHT P 1 BOXSHADE P 0 BOX I 3 HIGHLIGHTREGION I 2 ITEMREGION I 1 FONT I 0 ID) @g'j@g'@g'BB%@g'AKL@ ]Jdd3J J JJJACC@ ^fJ @g'1In*IZ&M JNHdKHlLHlg &M MHdNHdKHlLHlg MNh(208 BKBITBLT 178 BITMAPCOPY 170 BLTSHADE 142 BITMAPCOPY 114 TEXTUREP 105 \FM.MAKEBITMAP 75 STRINGP 67 TEXTUREP 52 \FM.MAKEBITMAP) (202 INVERT 164 PAINT 122 BOX 82 BITMAP 41 LABEL 22 HIGHLIGHT 15 BOXSHADE 5 BOX) () \FM.MAKEBITMAP :D8 (P 4 STREAM P 3 CLIPPINGREGION P 2 BITMAP P 1 BOXOFFSET P 0 BOX I 4 ID I 3 HEIGHT I 2 WIDTH I 1 FONT I 0 LABEL) Dg'Dg'jBC IdBIlCIl [H'Dg'J jJHdBHlCHl @@=J AL IL IA L KL @L JjdJIdhddddK (172 BKBITBLT 153 PRIN1 145 DSPCLIPPINGREGION 137 DSPYPOSITION 120 DSPXPOSITION 112 DSPFONT 102 DSPCREATE 85 BLTSHADE 62 BLTSHADE 45 CREATEREGION 23 BITMAPCREATE) (128 FONTDESCRIPTOR 92 BITMAP 55 BOXSHADE 12 BOXOFFSET 5 BOX) () \FM.READUSERDATA :D8 (P 0 X I 1 DESCRIPTION I 0 ITEM) AdHdgdgdgdgdgdgdgdg}dgtdgkdgbdgYdgPdgGdg>dg5dg,dg#dgdgdgdgih@HH h(243 LISTPUT) (231 FREEMENUITEM 216 SELECTEDFN 208 MOVEDFN 200 HELDFN 191 DOWNFN 182 SYSSELECTEDFN 173 SYSMOVEDFN 164 SYSDOWNFN 155 LINKS 146 USERDATA 137 MESSAGE 128 MAXREGION 119 REGION 110 BITMAP 101 FONT 92 INITSTATE 81 STATE 70 GROUPID 59 ID 48 BOTTOM 37 LEFT 26 LABEL 15 TYPE) () \FM.MAKELINKS :D8 (P 5 ITEMPTR P 4 LINKTAIL P 2 ITEMID P 1 GROUPID P 0 ITEM I 0 WINDOW) n@g d!H!K\ hLhYM2IgHJMI@ oM LM(93 ERROR 80 FM.GETITEM 10 GETWINDOWUSERPROP) (66 FREEMENUITEM 58 GROUP 23 FREEMENUITEM 5 FM.ITEMS) ( 87 "Could not find item:") \FM.COLLECTNWAYS :D8 (P 6 ITEMID P 5 GROUPID P 4 ITEM P 3 ITEMPTR P 2 NWAYPROPS P 1 NWAYIDS P 0 NWAYS I 0 WINDOW) hdhd"@g dLgLg'IILg' Lg'Lg'ZgL gLhZJg'JJg'Jg K-MgLNKM@ oK KJgL HIJ Li @gH (277 PUTWINDOWPROP 254 \FM.TOGGLE-CHANGESTATE 246 TCONC 234 LISTPUT 212 ERROR 199 FM.GETITEM 129 LISTPUT 86 TCONC 19 GETWINDOWUSERPROP) (270 FM.NWAYS 228 INITSTATE 185 FREEMENUITEM 177 GROUP 164 INITSTATE 156 INITSTATE 147 INITSTATE 135 STATE 123 STATE 116 NWAYPROPS 109 FREEMENUITEM 100 NWAYPROPS 93 FREEMENUITEM 80 COLLECTION 73 FREEMENUITEM 58 COLLECTION 51 FREEMENUITEM 40 NWAY 33 FREEMENUITEM 14 FM.ITEMS) ( 206 "Could not find item:") \FM.SETATTACHPOINT :D8 (P 1 MAXREGION P 0 ITEM I 2 HEIGHT I 1 WIDTH I 0 ITEMS) m@fdHg'HgHoIIAIjoIIBIj h(100 LISTPUT) (41 FREEMENUITEM 35 ATTACHPOINT 28 FREEMENUITEM 20 ATTACHPOINT 13 FREEMENUITEM) ( 73 0.5 51 0.5) \FM.CREATEW :D8 (P 1 WINDOW P 0 REGION I 3 BORDER I 2 BACKGROUND I 1 TITLE I 0 GROUPS) R@g' HHHC HAC ACi Igg Igg Igg Igg Igg Igg Igg Igg Igg Igg Igo IgH IgH IgH Igh IgB Ig@ Ig@g' I(334 PUTWINDOWPROP 314 PUTWINDOWPROP 302 PUTWINDOWPROP 290 PUTWINDOWPROP 278 PUTWINDOWPROP 262 PUTWINDOWPROP 247 PUTWINDOWPROP 235 PUTWINDOWPROP 219 PUTWINDOWPROP 203 PUTWINDOWPROP 187 PUTWINDOWPROP 171 PUTWINDOWPROP 155 PUTWINDOWPROP 139 PUTWINDOWPROP 123 PUTWINDOWPROP 107 PUTWINDOWPROP 91 PUTWINDOWPROP 75 PUTWINDOWPROP 56 CREATEW 48 CREATEREGION 43 HEIGHTIFWINDOW 31 WIDTHIFWINDOW 13 COPY) (328 ITEMS 320 FM.ITEMS 308 FM.GROUPS 296 FM.BACKGROUND 284 FM.BUSY 268 FM.MINHEIGHT 253 FM.MINWIDTH 241 EXTENT 225 SCROLLEXTENTUSE 214 SCROLLBYREPAINTFN 209 SCROLLFN 198 \FM.ENDEDIT 193 SHRINKFN 182 \FM.ENDEDIT 177 CLOSEFN 166 \FM.OPENFN 161 OPENFN 150 \FM.INITCORNERSFN 145 INITCORNERSFN 134 \FM.RESHAPEFN 129 RESHAPEFN 118 \FM.REDISPLAYMENU 113 REPAINTFN 102 \FM.RIGHTBUTTONFN 97 RIGHTBUTTONFN 86 \FM.BUTTONEVENTFN 81 BUTTONEVENTFN 70 \FM.WINDOWENTRYFN 65 WINDOWENTRYFN 7 REGION) ( 230 (LIMIT . LIMIT)) \FM.STARTEDITA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW F 1 SI::*RESETFORMS* F 2 ITEM F 3 CLEARFLG) FgPghdhdQcPgi RPSiRgg (67 \FM.EDIT-ITEM 36 PUTWINDOWPROP) (61 \FM.NUMBER-CHANGESTATE 53 NUMBER 46 FREEMENUITEM 30 FM.BUSY 10 FM.BUSY 4 WINDOWPROP) () \FM.STARTEDIT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 CLEARFLG I 1 WINDOW I 0 ITEM F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 \FM.STARTEDITA0001) (8 SI::RESETUNWIND) () (RPAQ? \FM.GROUP-ID-COUNTER 0) (DATATYPE FREEMENUITEM (FM.TYPE FM.LABEL FM.ID FM.GROUPID FM.STATE FM.INITSTATE FM.FONT FM.BITMAP FM.HIGHLIGHT FM.REGION FM.MAXREGION FM.MESSAGE FM.USERDATA FM.LINKS FM.SYSDOWNFN FM.SYSMOVEDFN FM.SYSSELECTEDFN FM.DOWNFN FM.HELDFN FM.MOVEDFN FM.SELECTEDFN) FM.USERDATA _ (LIST NIL) FM.SYSDOWNFN _ (FUNCTION NILL) FM.SYSMOVEDFN _ (FUNCTION NILL) FM.SYSSELECTEDFN _ (FUNCTION NILL)) (/DECLAREDATATYPE (QUOTE FREEMENUITEM) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((FREEMENUITEM 0 POINTER) (FREEMENUITEM 2 POINTER) (FREEMENUITEM 4 POINTER) ( FREEMENUITEM 6 POINTER) (FREEMENUITEM 8 POINTER) (FREEMENUITEM 10 POINTER) (FREEMENUITEM 12 POINTER) ( FREEMENUITEM 14 POINTER) (FREEMENUITEM 16 POINTER) (FREEMENUITEM 18 POINTER) (FREEMENUITEM 20 POINTER) (FREEMENUITEM 22 POINTER) (FREEMENUITEM 24 POINTER) (FREEMENUITEM 26 POINTER) (FREEMENUITEM 28 POINTER) (FREEMENUITEM 30 POINTER) (FREEMENUITEM 32 POINTER) (FREEMENUITEM 34 POINTER) (FREEMENUITEM 36 POINTER) (FREEMENUITEM 38 POINTER) (FREEMENUITEM 40 POINTER))) (QUOTE 42)) \FM.OPENFN :D8 (I 0 WINDOW) 4@ @g o@ g @ h(47 \FM.REDISPLAYMENU 40 STKPOS 29 ERROR 17 GETWINDOWUSERPROP 5 WINDOWP) (35 SHAPEW1 12 FM.ITEMS) ( 23 "Arg must be FreeMenu Window") \FM.REDISPLAYMENU :D8 (P 4 ITEM P 3 GROUP P 2 BACKGROUND P 1 BOX P 0 REGION I 1 UPDATEREGION I 0 WINDOW) "@ 0@ @dg @g fdK[g'YIKg'Kg'@hddddH Kg'@HIHIHIdHId Kg'Z@g w@hddddKg' d@ RLg'@hddddL Ljd@LLhddg h(280 BKBITBLT 235 BLTSHADE 199 OPENWP 185 BLTSHADE 164 GETWINDOWUSERPROP 136 BLTSHADE 95 BLTSHADE 48 GETWINDOWUSERPROP 37 \FM.FILLWINDOW 32 GETWINDOWUSERPROP 20 \FM.RESETCLIPPINGREGION 5 OPENWP) (274 PAINT 262 FREEMENUITEM 253 FREEMENUITEM 242 FREEMENUITEM 227 FREEMENUITEM 214 BACKGROUND 207 FREEMENUITEM 178 REGION 159 FM.ITEMS 144 BACKGROUND 102 BACKGROUND 81 BOXSHADE 73 REGION 63 BOX 43 FM.GROUPS 27 FM.BACKGROUND) () \FM.RESHAPEFN :D8 (P 5 MINHEIGHT P 4 MINWIDTH P 3 NEWHEIGHT P 2 NEWWIDTH P 1 OLDHEIGHT P 0 OLDWIDTH I 2 OLDREGION I 1 B I 0 WINDOW) @g @i BB@g @g @g @g LHJL@HHLJL@HLLHJL@LJ MIKM@IIMKM@IMMIKM@MK @g @g@ @ @ (207 FM.REDISPLAYMENU 201 \FM.UNSCROLLWINDOW 194 PUTWINDOWPROP 189 \FM.WINDOWEXTENT 176 \FM.UPDATEGROUPEXTENT 171 GETWINDOWUSERPROP 159 \FM.TRANSPOSEVERT 118 \FM.TRANSPOSEHORZ 75 GETWINDOWUSERPROP 64 GETWINDOWUSERPROP 53 GETWINDOWPROP 42 GETWINDOWPROP 21 \FM.ENDEDIT 10 GETWINDOWUSERPROP) (183 EXTENT 166 FM.GROUPS 70 FM.MINHEIGHT 59 FM.MINWIDTH 48 HEIGHT 37 WIDTH 5 FM.DONTRESHAPE) () \FM.UNSCROLLWINDOW :D8 (I 0 WINDOW) 9@ ,@ @ @ ,@ @ @ (54 \FM.RESETCLIPPINGREGION 48 DSPYOFFSET 37 \INSUREWINDOW 29 \INSUREWINDOW 23 DSPXOFFSET 13 \INSUREWINDOW 5 \INSUREWINDOW) NIL () \FM.RESETCLIPPINGREGION :D8 (I 0 WINDOW) X@ @ ,h@ @ @ ,h@ @g @g @ (85 DSPCLIPPINGREGION 79 CREATEREGION 74 GETWINDOWPROP 63 GETWINDOWPROP 51 DSPYOFFSET 41 \INSUREWINDOW 31 \INSUREWINDOW 24 DSPXOFFSET 14 \INSUREWINDOW 5 \INSUREWINDOW) (69 HEIGHT 58 WIDTH) () \FM.FILLWINDOWA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 REGION F 1 WINDOW F 2 SI::*RESETFORMS* F 3 SHADE) CgPQhhdRcPlPllPlP Q hShQ (64 DSPFILL 55 DSPCLIPPINGREGION 49 CREATEREGION) (4 DSPCLIPPINGREGION) () \FM.FILLWINDOW :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 REGION I 1 SHADE I 0 WINDOW F 4 LISPXHIST) (h@ T!g $(33 SI::RESETUNWIND 28 \MVLIST 23 \FM.FILLWINDOWA0001 6 DSPCLIPPINGREGION) (18 SI::RESETUNWIND) () \FM.INITCORNERSFN :D8 (P 1 BOTTOM P 0 LEFT I 0 WINDOW) [@ @ HIH@g @ , I@g @ (@ , h(82 HEIGHTIFWINDOW 75 \INSUREWINDOW 67 \INSUREWINDOW 61 GETWINDOWUSERPROP 48 WIDTHIFWINDOW 41 \INSUREWINDOW 35 GETWINDOWUSERPROP 14 \INSUREWINDOW 5 \INSUREWINDOW) (56 FM.MINHEIGHT 30 FM.MINWIDTH) () \FM.TRANSPOSEHORZ :D8 (P 2 REGION P 1 ITEM I 2 NEWWIDTH I 1 OLDWIDTH I 0 WINDOW) @@g !HhYZoJBAjIJHX(10 GETWINDOWUSERPROP) (51 FREEMENUITEM 26 FREEMENUITEM 5 FM.ITEMS) ( 34 0.5) \FM.TRANSPOSEVERT :D8 (P 2 REGION P 1 ITEM I 2 NEWHEIGHT I 1 OLDHEIGHT I 0 WINDOW) D@g !HhYZoJBAjIJHX(10 GETWINDOWUSERPROP) (53 FREEMENUITEM 26 FREEMENUITEM 5 FM.ITEMS) ( 35 0.5) \FM.UPDATEGROUPEXTENT :D8 (P 6 ITEM P 5 SUBID P 4 ID P 3 BOXOFFSET P 2 DAUGHTERS P 1 REGION P 0 GROUP I 1 GROUPLIST I 0 GROUPS) A@hbPAd\@XgHg' Hg'Z'@J JdIM@g' Hg'dIN Hg'BHg'Hg'ػIdjKIIjKIIKdIIKdggog@hgog@gBhhgggog@hgAhhggog@hgAhBhh(839 ERROR 35 ERROR) (1475 QUOTE 1464 OF 1454 FETCH 1449 LISTPUT 1434 QUOTE 1423 OF 1413 FETCH 1408 LISTGET 1403 PROG1 1385 WITH 1379 OF 1369 REPLACE 1358 OF 1348 FETCH 1343 PROG1 1335 SELECTEDFN 1317 WITH 1311 OF 1301 REPLACE 1290 OF 1280 FETCH 1275 PROG1 1266 MOVEDFN 1247 WITH 1241 OF 1231 REPLACE 1220 OF 1210 FETCH 1205 PROG1 1196 HELDFN 1177 WITH 1171 OF 1161 REPLACE 1150 OF 1140 FETCH 1135 PROG1 1126 DOWNFN 1107 WITH 1101 OF 1091 REPLACE 1080 OF 1070 FETCH 1065 PROG1 1056 SYSSELECTEDFN 1037 WITH 1031 OF 1021 REPLACE 1010 OF 1000 FETCH 995 PROG1 986 SYSMOVEDFN 967 WITH 961 OF 951 REPLACE 940 OF 930 FETCH 925 PROG1 916 SYSDOWNFN 897 WITH 891 OF 881 REPLACE 870 OF 860 FETCH 855 PROG1 846 LINKS 826 FM.ITEMPROP 812 USERDATA 793 WITH 787 OF 777 REPLACE 766 OF 756 FETCH 751 PROG1 742 MESSAGE 723 WITH 717 OF 707 REPLACE 696 OF 686 FETCH 681 PROG1 672 MAXREGION 653 WITH 647 OF 637 REPLACE 626 OF 616 FETCH 611 PROG1 602 REGION 583 WITH 577 OF 567 REPLACE 556 OF 546 FETCH 541 PROG1 532 HIGHLIGHT 513 WITH 507 OF 497 REPLACE 486 OF 476 FETCH 471 PROG1 462 BITMAP 443 WITH 437 OF 427 REPLACE 416 OF 406 FETCH 401 PROG1 392 FONT 373 WITH 367 OF 357 REPLACE 346 OF 336 FETCH 331 PROG1 322 INITSTATE 303 WITH 297 OF 287 REPLACE 276 OF 266 FETCH 261 PROG1 252 STATE 233 WITH 227 OF 217 REPLACE 206 OF 196 FETCH 191 PROG1 182 GROUPID 163 WITH 157 OF 147 REPLACE 136 OF 126 FETCH 121 PROG1 112 ID 93 WITH 87 OF 77 REPLACE 66 OF 56 FETCH 51 PROG1 42 LABEL 22 FM.ITEMPROP 8 TYPE) ( 1459 (FREEMENUITEM FM.USERDATA) 1418 (FREEMENUITEM FM.USERDATA) 1374 (FREEMENUITEM FM.SELECTEDFN) 1353 (FREEMENUITEM FM.SELECTEDFN) 1306 (FREEMENUITEM FM.MOVEDFN) 1285 (FREEMENUITEM FM.MOVEDFN) 1236 (FREEMENUITEM FM.HELDFN) 1215 (FREEMENUITEM FM.HELDFN) 1166 (FREEMENUITEM FM.DOWNFN) 1145 (FREEMENUITEM FM.DOWNFN) 1096 (FREEMENUITEM FM.SYSSELECTEDFN) 1075 (FREEMENUITEM FM.SYSSELECTEDFN) 1026 (FREEMENUITEM FM.SYSMOVEDFN) 1005 (FREEMENUITEM FM.SYSMOVEDFN) 956 (FREEMENUITEM FM.SYSDOWNFN) 935 (FREEMENUITEM FM.SYSDOWNFN) 886 (FREEMENUITEM FM.LINKS) 865 (FREEMENUITEM FM.LINKS) 821 "FreeMenuItem property USERDATA not settable" 782 (FREEMENUITEM FM.MESSAGE) 761 (FREEMENUITEM FM.MESSAGE) 712 (FREEMENUITEM FM.MAXREGION) 691 (FREEMENUITEM FM.MAXREGION) 642 (FREEMENUITEM FM.REGION) 621 (FREEMENUITEM FM.REGION) 572 (FREEMENUITEM FM.HIGHLIGHT) 551 (FREEMENUITEM FM.HIGHLIGHT) 502 (FREEMENUITEM FM.BITMAP) 481 (FREEMENUITEM FM.BITMAP) 432 (FREEMENUITEM FM.FONT) 411 (FREEMENUITEM FM.FONT) 362 (FREEMENUITEM FM.INITSTATE) 341 (FREEMENUITEM FM.INITSTATE) 292 (FREEMENUITEM FM.STATE) 271 (FREEMENUITEM FM.STATE) 222 (FREEMENUITEM FM.GROUPID) 201 (FREEMENUITEM FM.GROUPID) 152 (FREEMENUITEM FM.ID) 131 (FREEMENUITEM FM.ID) 82 (FREEMENUITEM FM.LABEL) 61 (FREEMENUITEM FM.LABEL) 17 "FreeMenuItem property TYPE not settable") \FM.DISPLAYITEM :D8 (I 1 WINDOW I 0 ITEM) XA P@g'Ahdddd@ @jdA@@hddg (85 BKBITBLT 41 BLTSHADE 5 OPENWP) (79 PAINT 67 FREEMENUITEM 58 FREEMENUITEM 47 FREEMENUITEM 33 FREEMENUITEM 20 BACKGROUND 13 FREEMENUITEM) () \FM.HIGHLIGHTITEM :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) XA P@g'Ahdddd@ @jdA@@hddg (85 BKBITBLT 41 BLTSHADE 5 OPENWP) (79 PAINT 67 FREEMENUITEM 58 FREEMENUITEM 47 FREEMENUITEM 33 FREEMENUITEM 20 BACKGROUND 13 FREEMENUITEM) () \FM.CHANGELABEL :D8 (P 5 BITMAPS P 4 REGIONS P 3 NEWDESC P 2 BOTTOM P 1 LEFT P 0 FONT I 1 NEWLABEL I 0 ITEM) A$A3A AAoA @ @@gAh@ $KIJH \KHLL ]@@A@@L@@L@@M@@M@dg@@@dg!@@@@A dgCdg2@g'@g@ @ g+@g'@g@ (395 LISTPUT 346 \FM.3STATE-SETUPOFFBITMAP 340 LISTPUT 280 \FM.NUMBER-CHANGESTATE 110 \FM.GETBITMAPS 97 \FM.GETREGIONS 85 \APPEND2 35 ERROR 13 STRINGP) (388 FREEMENUITEM 382 UNHIGHLIGHT 375 FREEMENUITEM 368 UNHIGHLIGHT 361 FREEMENUITEM 352 NWAY 333 FREEMENUITEM 327 UNHIGHLIGHT 320 FREEMENUITEM 312 UNHIGHLIGHT 305 FREEMENUITEM 296 3STATE 287 TOGGLE 269 FREEMENUITEM 263 FREEMENUITEM 256 FREEMENUITEM 247 NUMBER 235 FREEMENUITEM 229 FREEMENUITEM 221 FREEMENUITEM 212 EDIT 204 FREEMENUITEM 193 FREEMENUITEM 186 FREEMENUITEM 176 FREEMENUITEM 169 FREEMENUITEM 157 FREEMENUITEM 150 FREEMENUITEM 140 FREEMENUITEM 133 FREEMENUITEM 124 FREEMENUITEM 117 FREEMENUITEM 78 FREEMENUITEM 68 LABEL 59 FREEMENUITEM 50 FREEMENUITEM 42 FREEMENUITEM 21 BITMAP) ( 29 "CHANGELABEL Error. NEWLABEL must be an atom, string, or bitmap.") \FM.CHANGESTATE :D8 (I 2 WINDOW I 1 NEWSTATE I 0 X) S@Bg @AB @dg@A dg@A g @AB (80 \FM.STATE-CHANGESTATE 63 \FM.3STATE-CHANGESTATE 46 \FM.TOGGLE-CHANGESTATE 21 \FM.NWAY-CHANGESTATE 11 GETWINDOWUSERPROP) (69 STATE 53 3STATE 36 TOGGLE 28 FREEMENUITEM 6 FM.NWAYS) () \FM.ENDEDIT :D8 (P 1 FM.PROCESS I 1 WAITFLG I 0 WINDOW) c@ [@g HHl j`Ig `IIA hoI (96 ERROR 82 PROCESS.RESULT 65 PROCESSPROP 44 \CLOCK0 23 GETWINDOWUSERPROP 12 \CARET.DOWN 5 FM.EDITP) (72 \RUNNING.PROCESS 60 FREEMENU.PROCESS 51 \TTY.PROCESS 32 FIXP 18 FM.EDIT-TIMER) ( 90 "Can't find freemenu process to end editing") \FM.INSUREVISIBLE :D8 (I 1 WINDOW I 0 ITEM) 6hA @ A@A j h(49 SCROLLW 37 \INSUREWINDOW 19 SUBREGIONP 6 DSPCLIPPINGREGION) (28 FREEMENUITEM 12 FREEMENUITEM) () \FM.CLEARITEM :D8 (I 2 REGION I 1 WINDOW I 0 ITEM) cA [B@b@g'#@g'ABBhB @g'AhddddB (96 BLTSHADE 68 BLTSHADE 5 OPENWP) (82 BACKGROUND 75 FREEMENUITEM 49 BACKGROUND 42 FREEMENUITEM 33 INFINITEWIDTH 26 FREEMENUITEM 15 FREEMENUITEM) () \FM.MOMENTARY-SETUP :D8 (I 0 ITEM) _@@@o@@g@@g@ @g NIL (89 \FM.MOMENTARY-SELECTEDFN 84 FREEMENUITEM 76 FREEMENUITEM 68 \FM.DISPLAYITEM 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.HIGHLIGHTITEM 43 FREEMENUITEM 36 FREEMENUITEM 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) ( 27 "Will select this item when you release the button.") \FM.MOMENTARY-SELECTEDFN :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM) F 0 SI::*RESETFORMS*) g@AhhdPcNIL (4 \FM.DISPLAYITEM) () \FM.TOGGLE-SETUP :D8 (I 1 REGIONS I 0 ITEM) @@@o@@g@@g@@g @g'@g@ A_A@P@g'@g@ @g'@gA h(226 LISTPUT 191 LISTPUT 131 LISTPUT) (218 ONREGION 211 FREEMENUITEM 204 ONREGION 197 FREEMENUITEM 184 FREEMENUITEM 178 OFFREGION 171 FREEMENUITEM 163 OFFREGION 156 FREEMENUITEM 145 FREEMENUITEM 124 FREEMENUITEM 118 UNHIGHLIGHT 111 FREEMENUITEM 103 UNHIGHLIGHT 96 FREEMENUITEM 88 \FM.TOGGLE-SELECTEDFN 83 FREEMENUITEM 76 FREEMENUITEM 68 \FM.DISPLAYITEM 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.TOGGLE-DOWNFN 43 FREEMENUITEM 36 FREEMENUITEM 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) ( 27 "Will toggle this item when you release the button.") \FM.TOGGLE-DOWNFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) @cA @g'Ahdddd@ @g'jdA@@hddg A P@g'Ahdddd@ @jdA@@hddg (192 BKBITBLT 148 BLTSHADE 112 OPENWP 105 BKBITBLT 55 BLTSHADE 15 OPENWP) (186 PAINT 174 FREEMENUITEM 165 FREEMENUITEM 154 FREEMENUITEM 140 FREEMENUITEM 127 BACKGROUND 120 FREEMENUITEM 99 PAINT 87 FREEMENUITEM 78 FREEMENUITEM 68 UNHIGHLIGHT 61 FREEMENUITEM 47 FREEMENUITEM 34 BACKGROUND 27 FREEMENUITEM 5 FREEMENUITEM) () \FM.TOGGLE-SELECTEDFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) @@h @i (23 \FM.TOGGLE-CHANGESTATE 15 \FM.TOGGLE-CHANGESTATE) (5 FREEMENUITEM) () \FM.TOGGLE-CHANGESTATE :D8 (I 1 NEWSTATE I 0 ITEM) @@AAI@@@@g'n@@@g'@@@g'@g'!@@@g'NIL (161 OFFREGION 154 FREEMENUITEM 148 FREEMENUITEM 140 FREEMENUITEM 131 OFFREGION 124 FREEMENUITEM 115 UNHIGHLIGHT 108 FREEMENUITEM 102 FREEMENUITEM 95 FREEMENUITEM 84 ONREGION 77 FREEMENUITEM 71 FREEMENUITEM 63 FREEMENUITEM 54 ONREGION 47 FREEMENUITEM 37 FREEMENUITEM 31 FREEMENUITEM 24 FREEMENUITEM 12 FREEMENUITEM 5 FREEMENUITEM) () \FM.3STATE-SETUP :D8 (I 1 REGIONS I 0 ITEM) @@@o@@g@@g@@g @g'@g@ A_A@Q@g'@g@ @g'@gA @ (235 \FM.3STATE-SETUPOFFBITMAP 228 LISTPUT 191 LISTPUT 131 LISTPUT) (220 ONREGION 213 FREEMENUITEM 205 ONREGION 198 FREEMENUITEM 184 FREEMENUITEM 178 NEUTRALREGION 171 FREEMENUITEM 163 NEUTRALREGION 156 FREEMENUITEM 145 FREEMENUITEM 124 FREEMENUITEM 118 UNHIGHLIGHT 111 FREEMENUITEM 103 UNHIGHLIGHT 96 FREEMENUITEM 88 \FM.3STATE-SELECTEDFN 83 FREEMENUITEM 76 FREEMENUITEM 68 \FM.DISPLAYITEM 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.3STATE-DOWNFN 43 FREEMENUITEM 36 FREEMENUITEM 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) ( 27 "Will change item to this state when you release the button.") \FM.3STATE-SETUPOFFBITMAP :D8 (P 6 STREAM P 5 OFFBITMAP P 4 ID P 3 OFFREGION P 2 FONT P 1 BOX P 0 OFF I 0 ITEM) @g'@g'jA@ @h\Hdd3H H HH@ \dgH LKKJ [HJKKL ]@@@MhK@\@g'@g@ @g'@gK @K hH P@ ]HMIdKIlKIlg @@@Mh@ ]d jdKkKllgN @@@Mh(428 DRAWLINE 395 DSPCREATE 388 BITMAPCOPY 345 BLTSHADE 310 BITMAPCOPY 295 TEXTUREP 286 EXTENDREGION 272 LISTPUT 238 LISTPUT 157 \FM.MAKEBITMAP 136 \FM.GETREGIONS 124 LISTPUT 111 COPY 79 STRINGP 71 TEXTUREP) (448 FREEMENUITEM 442 FREEMENUITEM 434 FREEMENUITEM 421 REPLACE 381 FREEMENUITEM 365 FREEMENUITEM 359 FREEMENUITEM 351 FREEMENUITEM 339 PAINT 303 FREEMENUITEM 278 FREEMENUITEM 266 OFFREGION 259 FREEMENUITEM 251 OFFREGION 244 FREEMENUITEM 231 FREEMENUITEM 225 NEUTRALREGION 218 FREEMENUITEM 210 NEUTRALREGION 203 FREEMENUITEM 192 FREEMENUITEM 177 FREEMENUITEM 171 FREEMENUITEM 164 FREEMENUITEM 118 HIGHLIGHT 104 FREEMENUITEM 87 BITMAP 51 FREEMENUITEM 42 FREEMENUITEM 29 BOX 22 FREEMENUITEM 12 OFF 5 FREEMENUITEM) () \FM.3STATE-DOWNFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) 2@dgcA @g'Ahdddd@ @g'jdA@@hddg di_A @g'Ahdddd@ @jdA@@hddg hZA R@g'Ahdddd@ @jdA@@hddg (303 BKBITBLT 257 BLTSHADE 221 OPENWP 210 BKBITBLT 164 BLTSHADE 124 OPENWP 112 BKBITBLT 62 BLTSHADE 22 OPENWP) (297 PAINT 285 FREEMENUITEM 276 FREEMENUITEM 264 FREEMENUITEM 249 FREEMENUITEM 236 BACKGROUND 229 FREEMENUITEM 204 PAINT 192 FREEMENUITEM 183 FREEMENUITEM 170 FREEMENUITEM 156 FREEMENUITEM 143 BACKGROUND 136 FREEMENUITEM 106 PAINT 94 FREEMENUITEM 85 FREEMENUITEM 75 UNHIGHLIGHT 68 FREEMENUITEM 54 FREEMENUITEM 41 BACKGROUND 34 FREEMENUITEM 13 OFF 5 FREEMENUITEM) () \FM.3STATE-SELECTEDFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) 5@dg@h di@g h @i (50 \FM.3STATE-CHANGESTATE 38 \FM.3STATE-CHANGESTATE 22 \FM.3STATE-CHANGESTATE) (33 OFF 13 OFF 5 FREEMENUITEM) () \FM.3STATE-CHANGESTATE :D8 (I 1 NEWSTATE I 0 ITEM) @@AAdgP@@@@g'@@@g'iJ@@@@g't@@@g'AhO@@@g'@g'!@@@g'NIL (257 NEUTRALREGION 250 FREEMENUITEM 244 FREEMENUITEM 236 FREEMENUITEM 227 NEUTRALREGION 220 FREEMENUITEM 210 UNHIGHLIGHT 203 FREEMENUITEM 197 FREEMENUITEM 190 FREEMENUITEM 174 ONREGION 167 FREEMENUITEM 161 FREEMENUITEM 153 FREEMENUITEM 144 ONREGION 137 FREEMENUITEM 126 FREEMENUITEM 120 FREEMENUITEM 113 FREEMENUITEM 98 OFFREGION 91 FREEMENUITEM 85 FREEMENUITEM 77 FREEMENUITEM 64 OFFREGION 57 FREEMENUITEM 45 FREEMENUITEM 39 FREEMENUITEM 32 FREEMENUITEM 22 OFF 12 FREEMENUITEM 5 FREEMENUITEM) () \FM.STATE-SETUP :D8 (P 1 MENU.FONT P 0 MENU.ITEMS I 0 ITEM) ,@@@o@@g@@g@@g @g'@g'g@g' "@@@ H@g'@g`dHdIdi @g' @dJdg dgjdndhdK (296 LISTPUT 148 APPLY) (271 DEFAULTMENUHELDFN 262 CLRPROMPT 248 FREEMENUITEM 239 MENUTITLE 232 FREEMENUITEM 210 |MENUTYPE#| 205 CHANGESTATE 198 FREEMENUITEM 191 CHANGESTATE 184 FREEMENUITEM 170 FREEMENUITEM 164 FREEMENUITEM 157 FREEMENUITEM 142 MENUFONT 135 FREEMENUITEM 129 FONTCREATE 123 MENUITEMS 116 FREEMENUITEM 103 MENUITEMS 96 FREEMENUITEM 88 \FM.STATE-SELECTEDFN 83 FREEMENUITEM 76 FREEMENUITEM 68 \FM.DISPLAYITEM 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.HIGHLIGHTITEM 43 FREEMENUITEM 36 FREEMENUITEM 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) ( 27 "Will let you select a value from a pop up menu.") \FM.STATE-SELECTEDFN :D8 (P 1 NEWSTATE I 2 BUTTONS I 1 WINDOW I 0 ITEM F 2 SI::*RESETFORMS*) wg@AhhdRc@g'@g' ,@g'@g'@ABlHI @IA (116 \FM.STATE-CHANGESTATE 58 MENU) (89 CHANGESTATE 82 FREEMENUITEM 73 CHANGESTATE 66 FREEMENUITEM 52 CHANGESTATE 45 FREEMENUITEM 37 MENU 31 CHANGESTATE 24 FREEMENUITEM 4 \FM.DISPLAYITEM) () \FM.STATE-CHANGESTATE :D8 (P 0 DISPLAYITEM I 2 WINDOW I 1 NEWSTATE I 0 ITEM) -@@A@g'HdAB (42 FM.CHANGELABEL) (28 DISPLAY 21 FREEMENUITEM 12 FREEMENUITEM 5 FREEMENUITEM) () \FM.NWAY-SETUP :D8 (I 1 REGIONS I 0 ITEM) @@@g@@g@@g@@g @g'@g@ A_A@P@g'@g@ @g'@gA h(226 LISTPUT 191 LISTPUT 131 LISTPUT) (218 ONREGION 211 FREEMENUITEM 204 ONREGION 197 FREEMENUITEM 184 FREEMENUITEM 178 OFFREGION 171 FREEMENUITEM 163 OFFREGION 156 FREEMENUITEM 145 FREEMENUITEM 124 FREEMENUITEM 118 UNHIGHLIGHT 111 FREEMENUITEM 103 UNHIGHLIGHT 96 FREEMENUITEM 88 \FM.NWAY-SELECTEDFN 83 FREEMENUITEM 76 FREEMENUITEM 68 \FM.NWAY-MOVEDFN 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.NWAY-DOWNFN 43 FREEMENUITEM 36 FREEMENUITEM 27 \FM.NWAY-MESSAGE 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) () \FM.NWAY-MESSAGE :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) Q@g'Ag g')Bdgodgdgoo(24 GETWINDOWUSERPROP) (64 MIDDLE 56 LEFT 42 RIGHT 31 DESELECT 19 FM.NWAYS 12 COLLECTION 5 FREEMENUITEM) ( 78 "Will select this item from its NWAY collection." 72 "Will select this item from its NWAY collection." 49 "Will turn off this NWAY collection.") \FM.NWAY-DOWNFN :D8 (P 1 STATE P 0 NWAY I 2 BUTTONS I 1 WINDOW I 0 ITEM) @g'Ag Hg'I`A XIg'AhddddI Ig'jdAIIhddg BgHg'YA P@g'Ahdddd@ @jdA@@hddg h(240 BKBITBLT 196 BLTSHADE 160 OPENWP 135 BKBITBLT 84 BLTSHADE 48 OPENWP 24 GETWINDOWUSERPROP) (234 PAINT 222 FREEMENUITEM 213 FREEMENUITEM 202 FREEMENUITEM 188 FREEMENUITEM 175 BACKGROUND 168 FREEMENUITEM 151 DESELECT 143 RIGHT 129 PAINT 117 FREEMENUITEM 108 FREEMENUITEM 98 UNHIGHLIGHT 91 FREEMENUITEM 76 FREEMENUITEM 63 BACKGROUND 56 FREEMENUITEM 35 STATE 19 FM.NWAYS 12 COLLECTION 5 FREEMENUITEM) () \FM.NWAY-MOVEDFN :D8 (P 1 STATE P 0 NWAY I 2 BUTTONS I 1 WINDOW I 0 ITEM) @g'Ag Hg'IZA RIg'AhddddI IjdAIIhddg BgHg'YA P@g'Ahdddd@ @jdA@@hddg h(234 BKBITBLT 190 BLTSHADE 154 OPENWP 129 BKBITBLT 84 BLTSHADE 48 OPENWP 24 GETWINDOWUSERPROP) (228 PAINT 216 FREEMENUITEM 207 FREEMENUITEM 196 FREEMENUITEM 182 FREEMENUITEM 169 BACKGROUND 162 FREEMENUITEM 145 DESELECT 137 RIGHT 123 PAINT 111 FREEMENUITEM 102 FREEMENUITEM 91 FREEMENUITEM 76 FREEMENUITEM 63 BACKGROUND 56 FREEMENUITEM 35 STATE 19 FM.NWAYS 12 COLLECTION 5 FREEMENUITEM) () \FM.NWAY-SELECTEDFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) ZBg;@g'Ag g'@g'hA @g'@A (87 \FM.NWAY-CHANGESTATE 65 \FM.NWAY-CHANGESTATE 34 GETWINDOWUSERPROP) (79 COLLECTION 72 FREEMENUITEM 57 COLLECTION 50 FREEMENUITEM 41 DESELECT 29 FM.NWAYS 22 COLLECTION 15 FREEMENUITEM 6 RIGHT) () \FM.NWAY-CHANGESTATE :D8 (P 1 NWAY P 0 STATE I 2 WINDOW I 1 NEWSTATE I 0 COLLECTION) [@Bg g'HA>HHh A(@Bg Ig'IgA i h(84 \FM.TOGGLE-CHANGESTATE 76 LISTPUT 52 GETWINDOWUSERPROP 36 \FM.TOGGLE-CHANGESTATE 11 GETWINDOWUSERPROP) (70 STATE 63 STATE 47 FM.NWAYS 18 STATE 6 FM.NWAYS) () \FM.NUMBER-SETUP :D8 (I 0 ITEM) `@@@@g'Q@g'A@g'@g@l@g' @g'.@g'@g@g'@g'@gi @@@g@@@ @g'dgdgih%@g'@go#@g'@go @ @g (388 LISTPUT 223 LISTPUT 128 LISTPUT 10 \FM.EDIT-SETUPTTBL) (408 \FM.NUMBER-SELECTEDFN 403 FREEMENUITEM 395 FREEMENUITEM 378 SYSLIMITCHARS 371 FREEMENUITEM 363 SYSLIMITCHARS 356 FREEMENUITEM 343 SYSLIMITCHARS 336 FREEMENUITEM 328 SYSLIMITCHARS 321 FREEMENUITEM 306 FLOATP 298 FLOAT 291 NUMBERTYPE 284 FREEMENUITEM 274 FREEMENUITEM 268 FREEMENUITEM 261 FREEMENUITEM 252 \FM.NUMBER-MESSAGE 247 FREEMENUITEM 240 FREEMENUITEM 230 FREEMENUITEM 217 INFINITEWIDTH 210 FREEMENUITEM 202 INFINITEWIDTH 195 FREEMENUITEM 186 MAXWIDTH 179 FREEMENUITEM 173 LABELMAXWIDTH 166 FREEMENUITEM 158 LABELMAXWIDTH 151 FREEMENUITEM 142 MAXWIDTH 135 FREEMENUITEM 120 BOXOFFSET 113 FREEMENUITEM 100 FREEMENUITEM 94 MAXWIDTH 87 FREEMENUITEM 79 MAXWIDTH 72 FREEMENUITEM 63 MAXWIDTH 56 FREEMENUITEM 47 BOX 40 FREEMENUITEM 30 FREEMENUITEM 24 FREEMENUITEM 17 FREEMENUITEM 4 \FM.EDIT-TTBL) ( 383 (+ - 1 2 3 4 5 6 7 8 9 0) 348 (+ - 1 2 3 4 5 6 7 8 9 0 %.)) \FM.NUMBER-MESSAGE :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) (BdgodgdgoNIL (29 MIDDLE 21 LEFT 7 RIGHT) ( 37 "Will start editing this number at this position." 14 "Will clear this number, then start editing.") \FM.NUMBER-SELECTEDFN :D8 (I 2 BUTTONS I 1 WINDOW I 0 ITEM) @ABhg (14 \FM.EDIT-ITEM) (8 \FM.NUMBER-CHANGESTATE) () \FM.NUMBER-CHANGESTATE :D8 (I 0 ITEM) 3@@@o@ 3h(41 MKATOM) (34 FREEMENUITEM 19 FREEMENUITEM 13 FREEMENUITEM 5 FREEMENUITEM) ( 26 "") \FM.DISPLAY-SETUP :D8 (I 0 ITEM) "@@@oNIL (23 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) ( 28 "") \FM.EDITSTART-SETUP :D8 (I 0 ITEM) _@@@g@@g@@g@ @g NIL (89 \FM.EDITSTART-SELECTEDFN 84 FREEMENUITEM 76 FREEMENUITEM 68 \FM.DISPLAYITEM 63 FREEMENUITEM 56 FREEMENUITEM 48 \FM.HIGHLIGHTITEM 43 FREEMENUITEM 36 FREEMENUITEM 27 \FM.EDITSTART-MESSAGE 22 FREEMENUITEM 15 FREEMENUITEM 5 FREEMENUITEM) () \FM.EDITSTART-MESSAGE :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) (BdgodgdgoNIL (29 MIDDLE 21 LEFT 7 RIGHT) ( 37 "Will start editing." 14 "Will clear first, then start editing.") \FM.EDITSTART-SELECTEDFN :D8 (P 0 EDITITEM I 2 BUTTONS I 1 WINDOW I 0 ITEM) \@A @g'H<@@g(HA HABiHgg (89 \FM.EDIT-ITEM 58 \FM.INSUREVISIBLE 6 \FM.DISPLAYITEM) (83 \FM.NUMBER-CHANGESTATE 75 NUMBER 68 FREEMENUITEM 49 NILL 44 FREEMENUITEM 37 FREEMENUITEM 29 FREEMENUITEM 19 EDIT 12 FREEMENUITEM) () (RPAQQ \FM.EDIT-TTBL NIL) (PUTPROPS \FM.EDIT-MAXWIDTH MACRO (NIL (OR LABELMAXWIDTH (IPLUS (WINDOWPROP WINDOW (QUOTE WIDTH)) ( fetch (REGION LEFT) of (DSPCLIPPINGREGION NIL WINDOW)) (MINUS LEFT))))) (PUTPROPS \FM.EDIT-SCROLLAMOUNT MACRO (NIL (IQUOTIENT (WINDOWPROP WINDOW (QUOTE WIDTH)) 2))) \FM.EDIT-SETUP :D8 (I 0 ITEM) /`@@@@g'Q@g'A@g'@g@l@g' @g'.@g'@g@g'@g'@gi @@@g@@@ @ @g (223 LISTPUT 128 LISTPUT 10 \FM.EDIT-SETUPTTBL) (297 \FM.EDIT-ITEM 292 FREEMENUITEM 284 FREEMENUITEM 274 FREEMENUITEM 268 FREEMENUITEM 261 FREEMENUITEM 252 \FM.EDIT-MESSAGE 247 FREEMENUITEM 240 FREEMENUITEM 230 FREEMENUITEM 217 INFINITEWIDTH 210 FREEMENUITEM 202 INFINITEWIDTH 195 FREEMENUITEM 186 MAXWIDTH 179 FREEMENUITEM 173 LABELMAXWIDTH 166 FREEMENUITEM 158 LABELMAXWIDTH 151 FREEMENUITEM 142 MAXWIDTH 135 FREEMENUITEM 120 BOXOFFSET 113 FREEMENUITEM 100 FREEMENUITEM 94 MAXWIDTH 87 FREEMENUITEM 79 MAXWIDTH 72 FREEMENUITEM 63 MAXWIDTH 56 FREEMENUITEM 47 BOX 40 FREEMENUITEM 30 FREEMENUITEM 24 FREEMENUITEM 17 FREEMENUITEM 4 \FM.EDIT-TTBL) () \FM.EDIT-MESSAGE :D8 (L (2 BUTTONS 1 WINDOW 0 ITEM)) (BdgodgdgoNIL (29 MIDDLE 21 LEFT 7 RIGHT) ( 37 "Will start editing at this position." 14 "Will clear first, then start editing.") \FM.EDIT-SETUPTTBL :D8 (P 1 CC) >g h` ljIHhIg` IkY(53 ECHOCONTROL 25 ECHOMODE 9 COPYTERMTABLE) (48 \FM.EDIT-TTBL 43 REAL 20 \FM.EDIT-TTBL 14 \FM.EDIT-TTBL 4 ORIG) () \FM.EDIT-ITEMA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 REGION P 1 ITEM I 0 SI::*CLEANUP-FORMS* F 3 WINDOW F 4 SI::*RESETFORMS* F 5 DONEFN F 6 EDITITEM F 7 TIMEOUT F 8 BUTTONS F 9 MOUSEX F 10 MOUSEY F 11 CHCODE F 12 STARTFLG F 13 ITEM)  g` hhTcgS hhTcgi hhTcgSghdhdTcgSghdhdTcgSghdhdTcVW g` hhTcWWl o`lHj HH -&W ``d````UVSlU`lHj HH cS cS cSg !H!hcdVzWdg[YWJ:WJ2Ig'WJJWJJIiHXgUVSlUcSi WqkcdnUVSlUS In2UVSlUSi 0W` dggW U VSlU(670 TIMEREXPIRED? 662 \FM.EDIT-INSERT 656 \FM.EDIT-WORDDELETE 642 \FM.EDIT-BACKUP 628 GETSYNTAX 614 FM.SKIPNEXT 589 FM.SKIPNEXT 563 \GETKEY 556 READP 549 BLOCK 541 \FM.MENUHANDLER 521 \CARET.DOWN 511 \FM.EDIT-DELETE 413 \FM.EDIT-MOVECARET 378 GETWINDOWUSERPROP 364 LASTMOUSEY 355 LASTMOUSEX 346 DECODEBUTTONS 336 \FZEROP 273 \TTYBACKGROUND 246 TIMEREXPIRED? 237 READP 229 \FZEROP 201 GETMOUSESTATE 189 \CLOCK0 161 TTY.PROCESS 146 \FM.EDIT-PREPARETOEDIT 54 CURSOR 34 TTYDISPLAYSTREAM 14 SETTERMTABLE) (649 WORDDELETE 634 CHARDELETE 623 \FM.EDIT-TTBL 501 RIGHT 456 INFINITEWIDTH 449 FREEMENUITEM 423 FREEMENUITEM 404 LEFT 373 FM.ITEMS 314 LASTMOUSEBUTTONS 292 \TTY.PROCESS 287 \RUNNING.PROCESS 280 \RUNNING.PROCESS 265 \TTY.PROCESS 259 \RUNNING.PROCESS 253 \RUNNING.PROCESS 207 LASTMOUSEBUTTONS 177 FIXP 156 \RUNNING.PROCESS 151 TTY.PROCESS 124 PROCESS 118 WINDOWPROP 99 FM.EDIT-TIMER 93 WINDOWPROP 74 FM.EDITITEM 68 WINDOWPROP 48 CURSOR 28 TTYDISPLAYSTREAM 9 \FM.EDIT-TTBL 4 SETTERMTABLE) ( 194 100000) \FM.EDIT-ITEM :D8 (P 22 RESETSTATE P 21 SI::*RESETFORMS* P 20 LISPXHIST P 19 STREAM P 18 ECHOCHAR P 17 SYSLIMITCHARS P 16 LIMITCHARS P 15 ITEMWIDTH P 14 ITEM P 13 MOUSEY P 12 MOUSEX P 11 TAILPTR P 10 STRINGPTR P 9 MAXWIDTH P 8 CHARWIDTH P 7 CHCODE P 6 BOXOFFSET P 5 DISPLAYBOTTOM P 4 DISPLAYLEFT P 3 LEFT P 2 BITMAP P 1 FONT P 0 TIMEOUT I 4 DONEFN I 3 STARTFLG I 2 BUTTONS I 1 WINDOW I 0 EDITITEM F 23 LISPXHIST) EBg@oA l j@W.!g $(62 SI::RESETUNWIND 57 \MVLIST 52 \FM.EDIT-ITEMA0001 29 \CLOCK0 20 FM.CHANGELABEL) (47 SI::RESETUNWIND 6 RIGHT) ( 14 "") \FM.EDIT-PREPARETOEDIT :D8 (P 1 POINTER P 0 REGION I 1 STARTFLG I 0 EDITITEM F 2 FONT F 3 WINDOW F 4 BOXOFFSET F 5 STREAM F 6 LEFT F 7 BITMAP F 8 DISPLAYLEFT F 9 DISPLAYBOTTOM F 10 TAILPTR F 11 TIMEOUT F 12 MAXWIDTH F 13 LIMITCHARS F 14 ITEMWIDTH F 15 STRINGPTR F 16 SYSLIMITCHARS F 17 ECHOCHAR) ,@@g(Sg@ SgW @g'jc@ c@c@R c@g'c@g'c@g'c @g'c"W c @HcHcWTc Akj@RVS YdcTIcVIS WR TS WU R TU RU (297 DSPFONT 290 DSPYPOSITION 274 DSPXPOSITION 266 DSPYPOSITION 247 DSPXPOSITION 226 \FM.EDIT-GETPOINTERINFO 221 LASTMOUSEX 170 DSPCREATE 97 STRINGWIDTH 44 PUTWINDOWPROP 31 PUTWINDOWPROP) (280 FONTDESCRIPTOR 255 FONTDESCRIPTOR 211 FREEMENUITEM 178 FREEMENUITEM 160 ECHOCHAR 153 FREEMENUITEM 144 SYSLIMITCHARS 137 FREEMENUITEM 128 LIMITCHARS 121 FREEMENUITEM 112 MAXWIDTH 105 FREEMENUITEM 89 FREEMENUITEM 79 FREEMENUITEM 69 FREEMENUITEM 57 BOXOFFSET 50 FREEMENUITEM 37 FM.EDIT-TIMER 25 FM.EDITITEM 17 NILL 12 FREEMENUITEM 5 FREEMENUITEM) () \FM.EDIT-FINDNEXT :D8 (P 1 I F 2 EDITITEM F 3 WINDOW) ARSg HhYdgdgihIiHX(11 GETWINDOWUSERPROP) (45 NUMBER 37 EDIT 29 FREEMENUITEM 6 FM.ITEMS) () \FM.EDIT-FINDFIRST :D8 (P 1 I I 0 WINDOW) /@g HhYgIiHX(10 GETWINDOWUSERPROP) (33 EDIT 26 FREEMENUITEM 5 FM.ITEMS) () \FM.EDIT-BACKUP :D8 (F 0 CHARWIDTH F 1 STRINGPTR F 2 TAILPTR F 3 EDITITEM F 4 WINDOW F 5 ITEMWIDTH F 6 FONT F 7 BITMAP F 8 BOXOFFSET F 9 STREAM) QkQkcSQ V cjPjT jPjW hT hT Tdg lj WRWWRPWdUjRV SSSQd UPc RPc(175 \FM.EDIT-UPDATEAFTERDELETE 158 \FM.EDIT-STRDELETE 130 BKBITBLT 96 SCROLLW 87 GETWINDOWPROP 70 DSPCLIPPINGREGION 63 DSPXPOSITION 56 RELMOVETO 45 RELMOVETO 33 CHARWIDTH 27 NTHCHARCODE) (149 FREEMENUITEM 143 FREEMENUITEM 136 FREEMENUITEM 122 FONTDESCRIPTOR 82 WIDTH 19 FREEMENUITEM) () \FM.EDIT-WORDDELETE :D8 (P 2 ENDTAILPTR P 1 STRING P 0 END F 3 TAILPTR F 4 STRINGPTR F 5 EDITITEM F 6 BOXOFFSET F 7 WINDOW F 8 FONT F 9 BITMAP F 10 ITEMWIDTH F 11 STREAM F 12 LEFT)  TkTkUVHk{IHk dl Xdl{Rdl}Ldl[Fdl]@dl<:dl>4dl/.dl\(dl."dl,dl;dl*dl(dl)dl-ihHkXhwHkٸHdknIHk dl Ydl{Sdl}Mdl[Gdl]Adl<;dl>5dl//dl\)dl.#dl,dl;dl*dl(dl)dl-𲍿iHkVIkHk W غWSVWJVdWjSW UUIHTk UW cHcJcWSW SW hW hW Wdg lj h(432 \FM.EDIT-UPDATEAFTERDELETE 426 SCROLLW 417 GETWINDOWPROP 399 DSPCLIPPINGREGION 391 DSPXPOSITION 383 DSPXPOSITION 375 DSPXPOSITION 356 STRINGWIDTH 339 \FM.EDIT-STRDELETE 316 BKBITBLT 283 STRINGWIDTH 276 SUBSTRING 163 NTHCHARCODE 35 NTHCHARCODE) (412 WIDTH 347 FREEMENUITEM 329 FREEMENUITEM 322 FREEMENUITEM 308 FONTDESCRIPTOR 15 FREEMENUITEM) () \FM.EDIT-INSERT :D8 (F 0 WINDOW F 1 EDITITEM F 2 CHCODE F 3 BITMAP F 4 CHARWIDTH F 5 LIMITCHARS F 6 SYSLIMITCHARS F 7 ITEMWIDTH F 8 TAILPTR F 9 MAXWIDTH F 10 BOXOFFSET F 11 STRINGPTR F 12 FONT F 13 STREAM F 14 ECHOCHAR F 15 DISPLAYLEFT F 16 LEFT F 17 DISPLAYBOTTOM) U/UdR U UU3QPR lUV/VdR V VV3QPR lV~RW cWWTWgTjP hP hP hP +P dl2PjPg lj WTS LQQS l2S SjdQjd QcW SWWSWTWdWjWW WTcRdl dl dl dl ihWlWR W SjdPWW"W QQQR W WkcWTcP W jWWj h(474 EXTENDREGION 469 CREATEREGION 453 \INSUREWINDOW 433 \FM.EDIT-STRINSERT 426 CHARACTER 399 BKBITBLT 383 \CARET.DOWN 377 PRIN1 370 CHARACTER 320 BKBITBLT 283 DSPDESTINATION 265 BKBITBLT 243 BITMAPCREATE 238 BITMAPHEIGHT 229 BITMAPWIDTH 207 BITMAPWIDTH 196 SCROLLW 186 GETWINDOWPROP 162 \INSUREWINDOW 149 DSPCLIPPINGREGION 141 DSPCLIPPINGREGION 134 DSPXPOSITION 127 RELMOVETO 103 CHARWIDTH 84 CHARACTER 61 CHARACTER 36 CHARACTER 13 CHARACTER) (418 FREEMENUITEM 412 FREEMENUITEM 405 FREEMENUITEM 312 FONTDESCRIPTOR 272 FREEMENUITEM 255 FREEMENUITEM 223 FREEMENUITEM 216 FREEMENUITEM 181 WIDTH) () \FM.EDIT-DELETE :D8 (P 8 MOVEDOFF P 7 OLDPOINTER P 6 POINTER P 5 END P 4 PIVOT P 3 HEIGHT P 2 BOTTOM P 1 INFINITEWIDTH P 0 REGION F 10 EDITITEM F 11 BOXOFFSET F 12 TAILPTR F 13 WINDOW F 14 MOUSEX F 15 BITMAP F 16 MOUSEY F 17 STRINGPTR F 18 DISPLAYBOTTOM F 19 FONT F 20 DISPLAYLEFT F 21 ITEMWIDTH F 22 LEFT F 23 MAXWIDTH F 24 STREAM) N WWg'WW$W& W(WU W cW c `l_jOO W HWHIWHHW HH|N_WW&W,W ONOph_W,NؽWjdWW(W$W. MLnWLJMLKg 4nWMJLMKg OWjdWW(W$W. i_W HWHIWHHW HHNW"MLIWWNWWWWdW*jWK WWWW"Nk gWWWWWNWdW*jWK WWWNW"k Nc"WNcMW WW0 WW& c*h(586 \FM.EDIT-UPDATEAFTERDELETE 578 STRINGWIDTH 561 DSPXPOSITION 551 DSPXPOSITION 527 \FM.EDIT-STRDELETE 491 BKBITBLT 456 \FM.EDIT-STRDELETE 420 BKBITBLT 307 BKBITBLT 279 BLTSHADE 253 BLTSHADE 225 BKBITBLT 185 \FM.EDIT-GETPOINTERINFO 104 \FZEROP 75 GETMOUSESTATE 67 LASTMOUSEY 57 LASTMOUSEX 4 \CARET.DOWN) (569 FREEMENUITEM 514 FREEMENUITEM 507 FREEMENUITEM 499 FREEMENUITEM 443 FREEMENUITEM 436 FREEMENUITEM 428 FREEMENUITEM 273 INVERT 247 INVERT 172 FREEMENUITEM 81 LASTMOUSEBUTTONS 40 FONTDESCRIPTOR 27 INFINITEWIDTH 20 FREEMENUITEM 11 FREEMENUITEM) () \FM.EDIT-GETPOINTERINFO :D8 (P 3 WIDTH P 2 N P 0 PTR I 3 MOUSEX I 2 LEFT I 1 FONT I 0 STRING) eCBb@ kmJI0H@ k@A @kHk oA K@J A [CJJkZ(84 CHARWIDTH 78 NTHCHARCODE 68 STRINGWIDTH 55 SUBSTRING 43 STRINGWIDTH 34 NCHARS 13 NCHARS) NIL ( 62 "") \FM.EDIT-MOVECARET :D8 (F 0 POINTER F 1 LEFT F 2 EDITITEM F 3 FONT F 4 BOXOFFSET F 5 MOUSEX F 6 TAILPTR F 7 WINDOW F 8 STRINGPTR F 9 STREAM) 6 RSQU cQPW PcTPc dW (51 DSPXPOSITION 33 DSPXPOSITION 20 \FM.EDIT-GETPOINTERINFO 4 \CARET.DOWN) (10 FREEMENUITEM) () \FM.EDIT-STRDELETE :D8 (I 2 M I 1 N I 0 STRING) .@kAk o@Bk@ o (43 CONCAT 31 SUBSTRING 26 NCHARS 9 SUBSTRING) NIL ( 38 "" 16 "") \FM.EDIT-STRINSERT :D8 (I 2 N I 1 CHAR I 0 STRING) -@kBk oA@B@ o (42 CONCAT 30 SUBSTRING 25 NCHARS 9 SUBSTRING) NIL ( 37 "" 16 "") \FM.EDIT-UPDATEAFTERDELETE :D8 (F 0 BOXOFFSET F 1 BITMAP F 2 ITEMWIDTH F 3 MAXWIDTH F 4 FONT F 5 WINDOW F 6 DISPLAYLEFT F 7 DISPLAYBOTTOM) 5jQPRPQ RPPT QjdUVWS (50 BKBITBLT 36 BLTSHADE 16 BITMAPWIDTH 4 \CARET.DOWN) (28 FONTDESCRIPTOR) () (PUTPROPS FREEMENU COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1993 1994)) NIL