(FILECREATED "20-Mar-84 10:29:18" ("compiled on " {ROSEBOWL}LISP>COLORUTILITIES.;32) "26-Jan-84 01:37:00" recompiled exprs: COLORMENU in {DSK}FULL.SYSOUT dated " 6-Feb-84 11:19:01") (FILECREATED "20-Mar-84 10:26:31" {ROSEBOWL}LISP>COLORUTILITIES.;32 54200 changes to: (FNS COLORMENU) previous date: "19-Mar-84 11:29:03" {ROSEBOWL}LISP>COLORUTILITIES.;31) COLORCREATEW D1 (P 1 TEMPBITMAP P 0 TEMPWINDOW I 4 REDISPLAYWHENCLOSEFLG I 3 BORDERCOLOR I 2 BORDERSIZE I 1 TITLE I 0 REGION F 2 WindowTitleDisplayStream) @bBlbClb@hji @@ `@@I IhdH Hgg HgA HgB HgC Hgg HgDh Hgg @BH @BH jd@Bl@BlAhR j H H CH jH H H(315Q COLORDISPLAYW 311Q DSPBACKCOLOR 304Q DSPCOLOR 277Q DSPDESTINATION 273Q COLORSCREENBITMAP 270Q DSPCLIPPINGREGION 264Q CREATEREGION 255Q MINUS 252Q DSPLINEFEED 217Q DSPYOFFSET 206Q DSPXOFFSET 176Q PUTWINDOWPROP 164Q PUTWINDOWPROP 152Q PUTWINDOWPROP 140Q PUTWINDOWPROP 130Q PUTWINDOWPROP 120Q PUTWINDOWPROP 110Q PUTWINDOWPROP 76Q BITBLT 67Q BITBLT 50Q BITMAPCREATE 34Q CREATEW 5 GETCOLORREGION) (173Q COLORDISPLAYW 170Q OPENFN 156Q SUPRESSREDISPLAY 147Q COLORWINDOWRIGHTBUTTONFN 144Q RIGHTBUTTONFN 134Q BORDERCOLOR 124Q COLORBORDERSIZE 114Q COLORTITLE 105Q COLORCLOSEW 102Q CLOSEFN 56Q ScreenBitMap) () COLORCLOSEW D1 (I 0 WINDOW) -@ @g @ @ @h@ lHh(43Q DSPCLIPPINGREGION 30Q \INSUREWINDOW 20Q \INSUREWINDOW 12Q GETWINDOWUSERPROP 3 COLORDISPLAYW) (7 SUPRESSREDISPLAY) () COLOR.CREATE.TTY D1 (P 0 SETUP.WINDOW I 1 COLOR I 0 REGION F 1 TtyDisplayStream) (@olAb H hQ H H (45Q TTYDISPLAYSTREAM 41Q DSPFONT 35Q DSPFONT 30Q CLEARW 21Q COLORCREATEW 14Q GETCOLOR) NIL ( 4 "Top level typescript window") COLORDISPLAYW D1 (P 2 BORDERCOLOR P 1 BORDERSIZE P 0 REGION I 0 WINDOW) r@ @g @g hddHHHHggJ hddh@ h@ h@ h@ ggJ @g @ h(156Q COLORPRINTTITLE 150Q GETWINDOWUSERPROP 141Q BITBLT 122Q DSPCLIPPINGREGION 112Q DSPCLIPPINGREGION 105Q DSPYOFFSET 100Q DSPXOFFSET 73Q COLORSCREENBITMAP 65Q BITBLT 34Q COLORSCREENBITMAP 23Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP 3 \INSUREWINDOW) (145Q COLORTITLE 134Q INVERT 131Q TEXTURE 60Q INVERT 55Q TEXTURE 20Q BORDERCOLOR 11Q COLORBORDERSIZE) () COLORDOWINDOWCOM D1 (P 2 CHOICE I 0 WINDOW F 3 ColorWindowMenu F 4 ColorWindowMenuCommands) jS`S5`dTdi dg dgjdndhHdI c``@g j@g J@kJJ(133Q COLORMENU 130Q GETWINDOWUSERPROP 120Q MAXIMUMCOLOR 112Q GETWINDOWUSERPROP) (125Q BORDERCOLOR 107Q BORDERCOLOR 102Q LASTMOUSEY 77Q LASTMOUSEX 42Q DEFAULTMENUHELDFN 33Q CLRPROMPT 14Q MENUTYPE# 4 MENUTYPE#) () COLORFRAME D1 (P 3 HEIGHT P 2 WIDTH P 1 BOTTOM P 0 LEFT I 0 WINDOW F 4 WindowTitleDisplayStream) @ @ @ @ HIJ@g @g g HI@g K @g g HIK@g hT jj@g J@g jhT ـj@g @g g HJj@g I@g K @g g @g @ h(337Q COLORPRINTTITLE 331Q GETWINDOWUSERPROP 322Q COLORFILL 314Q COLORSCREENBITMAP 311Q GETWINDOWUSERPROP 302Q CREATEREGION 276Q GETWINDOWUSERPROP 263Q GETWINDOWUSERPROP 251Q COLORFILL 243Q COLORSCREENBITMAP 240Q GETWINDOWUSERPROP 231Q CREATEREGION 225Q GETWINDOWUSERPROP 213Q DSPLINEFEED 204Q GETWINDOWUSERPROP 170Q GETWINDOWUSERPROP 156Q DSPLINEFEED 150Q GETWINDOWUSERPROP 136Q COLORFILL 130Q COLORSCREENBITMAP 125Q GETWINDOWUSERPROP 116Q CREATEREGION 112Q GETWINDOWUSERPROP 101Q COLORFILL 73Q COLORSCREENBITMAP 70Q GETWINDOWUSERPROP 61Q CREATEREGION 56Q GETWINDOWUSERPROP 33Q \INSUREWINDOW 22Q \INSUREWINDOW 12Q \INSUREWINDOW 3 \INSUREWINDOW) (326Q COLORTITLE 317Q REPLACE 306Q BORDERCOLOR 273Q COLORBORDERSIZE 260Q COLORBORDERSIZE 246Q PAINT 235Q BORDERCOLOR 222Q COLORBORDERSIZE 201Q COLORTITLE 165Q COLORBORDERSIZE 145Q COLORTITLE 133Q REPLACE 122Q BORDERCOLOR 107Q COLORBORDERSIZE 76Q REPLACE 65Q BORDERCOLOR 53Q COLORBORDERSIZE) () COLORMOVEW D1 (I 1 POSITION I 0 WINDOW) WA3@ `@ ` @ @  b@ @A @ @ hd`AA A(123Q BITBLT 106Q GET.SAVED.BITMAP 102Q COLORDISPLAYW 76Q MOVEW 71Q COLORDISPLAYW 63Q COLORGETBOXPOSITION 52Q \INSUREWINDOW 41Q \INSUREWINDOW 34Q ADJUSTCURSORPOSITION 21Q \INSUREWINDOW 6 \INSUREWINDOW) (113Q ScreenBitMap 30Q LASTMOUSEY 14Q LASTMOUSEX) () COLORPRINTTITLE D1 (P 1 TITLE.STREAM P 0 TITLE.HOLDER I 0 WINDOW F 2 WindowTitleDisplayStream) {@g R R l H YR I @g I hR I @g I Hhdh@ @ @ hR h@ hdg h(167Q BITBLT 153Q DSPCLIPPINGREGION 144Q DSPLINEFEED 131Q \INSUREWINDOW 121Q \INSUREWINDOW 115Q DSPXOFFSET 110Q COLORSCREENBITMAP 102Q PRIN1 76Q GETWINDOWUSERPROP 67Q DSPFONT 63Q DSPFONT 56Q DSPCOLOR 52Q GETWINDOWUSERPROP 43Q DSPYPOSITION 37Q FONTDESCENT 32Q DSPCREATE 23Q BITMAPCREATE 16Q FONTHEIGHT 12Q STRINGWIDTH 6 GETWINDOWUSERPROP) (163Q INVERT 73Q COLORTITLE 47Q BORDERCOLOR 3 COLORTITLE) () COLORREDISPLAYW D1 (I 2 ALWAYSFLG I 1 REGION I 0 WINDOW) @ @AB (11Q REDISPLAYW 3 COLORFRAME) NIL () COLORWINDOWRIGHTBUTTONFN D1 (I 0 WINDOW)  @ (21Q DOBACKGROUNDCOM 15Q COLORDOWINDOWCOM 10Q EQUAL 5 COLORSCREENBITMAP 2 CHANGECURSORSCREEN) NIL () COLORADDEDMENURIGHTBUTTONFN D1 (I 0 MENUWINDOW) @g (11Q COLORWINDOWRIGHTBUTTONFN 6 GETWINDOWUSERPROP) (3 MASTERWINDOW) () COLORADDMENU D1 (P 1 MENUWINDOW P 0 COLOR I 2 POSITION I 1 WINDOW I 0 MENU) @g 1B!ABdhA BddhA RBOAhA hA @`n@ @ٺdJJ`n@ @ٻdKKbA+dB@ @  @@j bdg@ Ag@BH Y Agg Igg Ig@ IgA Igg Agg Agg Agg A(412Q PUTWINDOWPROP 400Q PUTWINDOWPROP 366Q PUTWINDOWPROP 354Q PUTWINDOWPROP 342Q PUTWINDOWPROP 332Q PUTWINDOWPROP 322Q PUTWINDOWPROP 310Q WINDOWADDPROP 276Q WINDOWADDPROP 272Q COLORDISPLAYMENU 260Q WINDOWADDPROP 246Q COLORCREATEW 226Q CREATEREGION 216Q CHECK/MENU/IMAGE 205Q CHECK/MENU/IMAGE 142Q CHECK/MENU/IMAGE 103Q CHECK/MENU/IMAGE 67Q DSPYOFFSET 62Q DSPXOFFSET 43Q DSPYOFFSET 27Q DSPXOFFSET 6 GETMENUPROP) (407Q COLORBRINGMENUTOTOPFN 404Q TOTOPFN 375Q COLORBRINGMENUTOTOPFN 372Q BUTTONEVENTFN 363Q COLORMENUREPAINTFN 360Q REPAINTFN 351Q COLORADDEDMENURIGHTBUTTONFN 346Q RIGHTBUTTONFN 336Q MASTERWINDOW 326Q MENU 317Q COLORMENUBUTTONFN 314Q BUTTONEVENTFN 305Q COLORCLOSEMENUS 302Q CLOSEFN 264Q COLORMENUWINDOW 254Q MENU 240Q MENU 232Q MENU 221Q BITMAP 210Q BITMAP 153Q MENU 145Q BITMAP 133Q LASTMOUSEY 114Q MENU 106Q BITMAP 74Q LASTMOUSEX 3 MENUOUTLINECOLOR) () COLORCLOSEMENUS D1 (P 0 W I 0 MASTERWINDOW) -@g ddhdH H @g (52Q PUTWINDOWPROP 36Q CLOSEW 31Q CLEARW 6 GETWINDOWUSERPROP) (47Q COLORMENUWINDOW 3 COLORMENUWINDOW) () COLORDISPLAYMENU D1 (P 4 I P 3 ITEM.TO.DISPLAY P 2 COLORIMAGECACHE P 1 ITEMSTHISLINE P 0 MENUWINDOW I 1 POSITION I 0 MENU F 5 MENUDEFAULTFONT) eA@A@@ @  @@@g j"@g @g hdH H@U gl c H H @dI@ H jYI@ H @L H Ld[ gXKj@L hdHhH @ @ K lۀjhH @ @ K lۀj @ KL@ H KH IkYGhH hH l ZHhdJ @gJ H(541Q PUTMENUPROP 531Q BITBLT 521Q BITMAPCREATE 510Q DSPCLIPPINGREGION 500Q DSPCLIPPINGREGION 455Q PRIN1 447Q CENTERPRINTINREGION 443Q MENUITEMREGION 424Q BITBLT 411Q BITMAPHEIGHT 363Q DSPYPOSITION 347Q BITMAPWIDTH 322Q DSPXPOSITION 312Q COLORIZEBITMAP 307Q COLORGETITEMCOLOR 272Q TYPENAME 260Q DSPCOLOR 254Q COLORGETITEMCOLOR 246Q DSPXPOSITION 223Q TERPRI 216Q EQUAL 166Q MOVETOUPPERLEFT 162Q DSPFONT 154Q FONTCREATE 127Q BITBLT 121Q GETMENUPROP 111Q GETMENUPROP 76Q COLORCREATEW 73Q GETMENUPROP 50Q CREATEREGION 40Q CHECK/MENU/IMAGE 27Q CHECK/MENU/IMAGE) (535Q COLORIMAGE 432Q MENU 377Q MENU 367Q MENU 336Q MENU 326Q MENU 275Q BITMAP 234Q MENU 211Q MENU 172Q MENU 147Q HELVETICA 135Q MENU 116Q COLORIMAGE 106Q COLORIMAGE 70Q MENUOUTLINECOLOR 62Q MENU 54Q MENU 43Q BITMAP 32Q BITMAP 17Q MENU 5 MENU) () COLORGETMENUCHOICE D1 (P 0 REGION I 1 MENUWINDOW I 0 MENU) 7`lj`lj@AH @Ad A  (64Q COLORSELECTEDITEM 60Q LASTMOUSEY 54Q LASTMOUSEX 43Q COLORSHADESELECTEDREGION 23Q GETMOUSESTATE 5 GETMOUSESTATE) (27Q LASTMOUSEBUTTONS 11Q LASTMOUSEBUTTONS) () COLORMENUA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 MENUWINDOW P 5 CHOICE P 4 YPOSITION P 3 XPOSITION P 2 SAVE.BITMAP F 10Q MENU F 11Q POSITION F 12Q RESETVARSLST F 13Q RESETY) rgn hhWcW ``cnW WWHdIInW WWHdIIcW W l WWWW3KLJ KLW W  jg WW WN ]PWgWN 5WgWN WWN N N JhdKL WW_MWlOMd Mci(550Q EVAL 501Q BITBLT 473Q COLORSCREENBITMAP 464Q CLOSEW 454Q LASTMOUSEY 450Q LASTMOUSEX 423Q LASTMOUSEY 371Q LASTMOUSEX 337Q COLORGETMENUCHOICE 330Q COLORDISPLAYMENU 320Q COLORFILL 312Q COLORSCREENBITMAP 306Q CREATEREGION 276Q CHECK/MENU/IMAGE 264Q CHECK/MENU/IMAGE 254Q BITBLT 246Q COLORSCREENBITMAP 210Q BITMAPCREATE 176Q CHECK/MENU/IMAGE 164Q CHECK/MENU/IMAGE 116Q CHECK/MENU/IMAGE 51Q CHECK/MENU/IMAGE 10Q RECLAIMMIN) (520Q MENU 507Q MENU 444Q MENU 433Q MENU 415Q MENU 406Q Y 401Q MENU 363Q MENU 354Q X 347Q MENU 315Q REPLACE 301Q BITMAP 267Q BITMAP 234Q MENU 220Q MENU 201Q BITMAP 167Q BITMAP 130Q MENU 121Q BITMAP 63Q MENU 54Q BITMAP 35Q LASTMOUSEY 32Q LASTMOUSEX 2 RECLAIMMIN) () COLORMENU D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 RELEASECONTROLFLG I 1 POSITION I 0 MENU F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COLORMENUA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) COLORMENUBUTTONFN D1 (P 0 CHOICE I 0 WINDOW F 2 MENU) e@g @dg @g @dg @ @g H*@g @g H@g lIHR (142Q DEFAULTWHENSELECTEDFN 127Q GETWINDOWUSERPROP 111Q GETWINDOWUSERPROP 73Q GETWINDOWUSERPROP 61Q COLORSHADESELECTEDREGION 56Q GETWINDOWUSERPROP 47Q COLORSHADESELECTEDREGION 43Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 21Q COLORGETMENUCHOICE 16Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (124Q MENU 114Q MENU 106Q MENU 76Q MENU 70Q MENU 53Q BORDERCOLOR 40Q MENU 30Q MENU 13Q BORDERCOLOR 3 MENU) () COLORMENUREPAINTFN D1 (L (0 WINDOW)) hNIL NIL () COLORSELECTEDITEM D1 (I 2 POSITION I 1 MENUWINDOW I 0 MENU) HhA BB :@@B@ k@B@ k d(102Q NTH 13Q INSIDEP 4 DSPCLIPPINGREGION) (66Q MENU 55Q MENU 37Q MENU 27Q MENU 21Q MENU) () COLORSHADESELECTEDREGION D1 (P 0 SHADEREGION I 2 LASTREGION I 1 MENUWINDOW I 0 MENU) A @ @ A @ @ @ @  hA A A HXdB gB2hddABBBBgg@dABkBk H2hddAHHHHgg@dAHkHk H(312Q BITBLT 306Q COLORGETITEMCOLOR 303Q COLORSELECTEDITEM 227Q BITBLT 223Q COLORGETITEMCOLOR 220Q COLORSELECTEDITEM 143Q EQUAL 132Q INSIDEP 127Q LASTMOUSEY 123Q LASTMOUSEX 117Q DSPCLIPPINGREGION 107Q CREATEREGION 33Q LASTMOUSEY 3 LASTMOUSEX) (263Q INVERT 260Q TEXTURE 200Q INVERT 175Q TEXTURE 76Q MENU 65Q MENU 52Q MENU 37Q MENU 21Q MENU 7 MENU) () COLORGETITEMCOLOR D1 (I 1 ITEM I 0 MENU) #gA gA @g (40Q MAXIMUMCOLOR 33Q GETMENUPROP 21Q FASSOC 6 FASSOC) (30Q MENUOUTLINECOLOR 15Q COLOR 2 COLOR) () GET.BUTTON.DOWN.POSITION D1 (I 0 SCREEN F 0 GETREGIONCURSOR) P `lji ``(25Q CURSOR 6 GETMOUSESTATE 3 CURSOR) (33Q LASTMOUSEY 30Q LASTMOUSEX 12Q LASTMOUSEBUTTONS) () COLORBRINGMENUTOTOPFN D1 (I 0 WINDOW) @i @g d h(21Q TOTOPW 13Q GETWINDOWUSERPROP 4 TOTOPW) (10Q COLORMENUWINDOW) () GETCOLOR D1 (P 5 RETURN.POSITION P 4 COLOR.NUMBER P 3 MENUWINDOW P 2 SAVE.BITMAP P 1 SAVE.POSITION P 0 SAVE.SCREEN F 6 WindowTitleDisplayStream) `nn`j `hV n@jhV n@`  ``ljhV ll 3IIJ IIljhV l jg I [`lj`ljK K MI K K  \K JhdII H L(325Q CHANGECURSORSCREEN 321Q BITBLT 311Q COLORSCREENBITMAP 303Q CLOSEW 276Q GET.COLOR.NUMBER 272Q LASTMOUSEY 266Q LASTMOUSEX 257Q INVERT.COLOR.BACKGROUND 251Q LASTMOUSEY 245Q LASTMOUSEX 226Q GETMOUSESTATE 210Q GETMOUSESTATE 204Q CREATE.COLOR.MENU.WINDOW 200Q COLORFILL 172Q COLORSCREENBITMAP 166Q CREATEREGION 157Q DSPLINEFEED 143Q BITBLT 133Q COLORSCREENBITMAP 125Q BITMAPCREATE 114Q DSPLINEFEED 75Q CHANGECURSORSCREEN 72Q COLORSCREENBITMAP 67Q GETMOUSESTATE 63Q ADJUSTCURSORPOSITION 50Q DSPLINEFEED 33Q DSPLINEFEED 22Q ADJUSTCURSORPOSITION) (232Q LASTMOUSEBUTTONS 214Q LASTMOUSEBUTTONS 175Q REPLACE 103Q LASTMOUSEY 100Q LASTMOUSEX 57Q LASTMOUSEY 26Q LASTMOUSEY 15Q LASTMOUSEX 2 LASTMOUSEX) () CREATE.COLOR.MENU.WINDOW D1 (P 2 I P 0 WINDOW I 0 POSITION F 3 ColorMenuBitmap F 4 WindowTitleDisplayStream) @@ljhT l okl S&lkJI*ldl c@@S Hhd@@ @Jkll2l@Jkllll(l Jg JkZ(204Q COLORFILL 176Q COLORSCREENBITMAP 172Q CREATEREGION 123Q BITBLT 113Q COLORSCREENBITMAP 104Q BITBLT 74Q COLORSCREENBITMAP 66Q BITMAPCREATE 34Q COLORCREATEW 22Q CREATEREGION 13Q DSPLINEFEED) (201Q REPLACE) ( 26Q "Choose which color") INVERT.COLOR.BACKGROUND D1 (I 2 ORIGIN.POSITION I 1 OLD.POSITION I 0 NEW.POSITION) KA @ 7AA B A g @ @ B @ g @ @(105Q GET.COLOR.NUMBER 100Q COLORFILL 72Q COLORSCREENBITMAP 67Q GET.COLOR.NUMBER 63Q GET.COLOR.REGION 57Q GET.COLOR.NUMBER 51Q GET.COLOR.NUMBER 44Q COLORFILL 36Q COLORSCREENBITMAP 33Q GET.COLOR.NUMBER 27Q GET.COLOR.REGION 23Q GET.COLOR.NUMBER 12Q EQUAL 7 GET.COLOR.NUMBER 3 GET.COLOR.NUMBER) (75Q INVERT 41Q INVERT) () GET.COLOR.NUMBER D1 (L (0 POSITION)) 0@hl@l@j@j@@l2l@lkNIL NIL () GET.COLOR.REGION D1 (I 1 ORIGIN.POSITION I 0 COLOR.NUMBER) %@hA@kll2A@klll2l (42Q CREATEREGION) NIL () COLORBMCLEARFN D1 (I 0 WINDOW) 2@ @g@g @g @g @ (57Q COLORBMWINDOWDISPLAY 53Q PUTWINDOWPROP 50Q BITMAPCREATE 45Q BITSPERPIXEL 42Q GETWINDOWUSERPROP 33Q BITMAPHEIGHT 30Q GETWINDOWUSERPROP 21Q BITMAPWIDTH 16Q GETWINDOWUSERPROP 3 CLEARW) (37Q CURRENTBITMAP 25Q CURRENTBITMAP 13Q CURRENTBITMAP 7 CURRENTBITMAP) () COLORBMCOLORFN D1 (I 0 WINDOW) @g @g @ (26Q COLORDISPLAYSHADE 22Q PUTWINDOWPROP 17Q GETWINDOWUSERPROP 6 GETCOLOR) (14Q CURRENTCOLOR 3 CURRENTCOLOR) () COLORBMEDITHEIGHT D1 (P 1 FULLHEIGHT P 0 BOXSIZE I 0 BITMAP) -@ @ H@ lYdnIInIHkH(20Q BITMAPHEIGHT 12Q BITMAPHEIGHT 3 COLORGRIDBOXSIZE) NIL () COLORBMEDITWIDTH D1 (P 1 FULLWIDTH P 0 BOXSIZE I 0 BITMAP) (@ @ @ YdnvIInvIHkH(16Q COLORGRIDBOXSIZE 12Q BITMAPWIDTH 3 COLORGRIDBOXSIZE) NIL () COLORBMMOVEFN D1 (P 1 NEWPOSITION P 0 ICONORIGIN I 0 WINDOW) @ @g @ @g @g @g 1H`@g H`@g @g @g Y@gIH@g @g ٺdJJdjj @gIH@g @g ٻdKKdjj @ @ h(304Q COLORBMWINDOWDISPLAY 300Q CLEARW 274Q PUTWINDOWPROP 253Q GETWINDOWUSERPROP 244Q BITMAPHEIGHT 241Q GETWINDOWUSERPROP 221Q PUTWINDOWPROP 200Q GETWINDOWUSERPROP 171Q BITMAPWIDTH 166Q GETWINDOWUSERPROP 145Q COLORGETBOXPOSITION 142Q GETWINDOWUSERPROP 133Q GETWINDOWUSERPROP 124Q ADJUSTCURSORPOSITION 120Q GETWINDOWUSERPROP 102Q GETWINDOWUSERPROP 56Q GETWINDOWUSERPROP 44Q GETWINDOWUSERPROP 35Q GETWINDOWUSERPROP 22Q \INSUREWINDOW 15Q GETWINDOWUSERPROP 3 \INSUREWINDOW) (250Q BITSHIGH 236Q CURRENTBITMAP 225Q YOFFSET 175Q BITSWIDE 163Q CURRENTBITMAP 152Q XOFFSET 137Q BITSHIGH 130Q BITSWIDE 115Q YOFFSET 110Q LASTMOUSEY 77Q XOFFSET 72Q LASTMOUSEX 53Q BITSHIGH 41Q GRIDSPEC 32Q COLORBORDERSIZE 12Q COLORBORDERSIZE) () COLORBMOKFN D1 (I 0 WINDOW) @g hd@g @ (26Q CLOSEW 22Q BITBLT 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (14Q STARTBITMAP 3 CURRENTBITMAP) () COLORBMRESETFN D1 (I 0 WINDOW) @g@g @ (24Q COLORBMWINDOWDISPLAY 20Q PUTWINDOWPROP 15Q BITMAPCOPY 12Q GETWINDOWUSERPROP) (7 STARTBITMAP 3 CURRENTBITMAP) () COLORBMSTOPFN D1 (I 0 WINDOW) @ (3 CLOSEW) NIL () COLORBMWINDOWBUTTONFN D1 (I 0 WINDOW) `ll` @ @g @g k`ll@ @ `lk[@g `ljh@ @g @g k*`lj@`llgg `ljh(272Q GETMOUSESTATE 266Q COLORBMWINDOWPOKEBIT 241Q GETMOUSESTATE 222Q GETMOUSESTATE 212Q GETWINDOWUSERPROP 203Q GRIDYCOORD 200Q GETWINDOWUSERPROP 171Q LASTMOUSEY 150Q GETMOUSESTATE 145Q COLORBMWINDOWPOKEBIT 123Q GETMOUSESTATE 117Q COLORBMWINDOWCOMMANDMENU 112Q COLORWINDOWRIGHTBUTTONFN 73Q GETMOUSESTATE 63Q GETWINDOWUSERPROP 54Q GRIDYCOORD 51Q GETWINDOWUSERPROP 42Q LASTMOUSEY 35Q DOBACKGROUNDCOM 31Q EQUAL 23Q CHANGECURSORSCREEN 5 GETMOUSESTATE 2 GETMOUSESTATE) (276Q LASTMOUSEBUTTONS 263Q RIGHT 257Q LEFT 245Q LASTMOUSEBUTTONS 226Q LASTMOUSEBUTTONS 207Q BITSHIGH 175Q GRIDSPEC 154Q LASTMOUSEBUTTONS 142Q MIDDLE 127Q LASTMOUSEBUTTONS 77Q LASTMOUSEBUTTONS 60Q BITSHIGH 46Q GRIDSPEC 26Q ScreenBitMap 11Q LASTMOUSEBUTTONS) () COLORBMWINDOWCLOSEFN D1 (I 0 WINDOW) @ (3 CLEARW) NIL () COLORBMWINDOWCOMMANDMENU D1 (P 2 COMMANDMENU I 0 WINDOW) `gggggghHdIdi dg dgjdndhHdI J``jJ nԻdKK dg@ dg@ dg@ dg@ dg@ g@ (270Q COLORBMSTOPFN 255Q COLORBMOKFN 241Q COLORBMCOLORFN 225Q COLORBMMOVEFN 211Q COLORBMCLEARFN 175Q COLORBMRESETFN 162Q MENU 135Q CHECK/MENU/IMAGE) (261Q Stop 246Q OK 232Q Color 216Q Move 202Q Clear 166Q Reset 140Q BITMAP 130Q LASTMOUSEY 125Q LASTMOUSEX 66Q DEFAULTMENUHELDFN 57Q CLRPROMPT 25Q Stop 22Q OK 17Q Color 14Q Move 11Q Clear 6 Reset 2 MENUTYPE#) () COLORBMWINDOWDISPLAYA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 WINDOW F 1 RESETVARSLST F 2 RESETY) +g` hhQcP P P P ci(45Q COLORDISPLAYGRID 40Q COLORDISPLAYSHADE 33Q COLORDISPLAYICON 26Q CLEARW 10Q CURSOR) (5 WAITINGCURSOR 2 CURSOR) () COLORBMWINDOWDISPLAY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COLORBMWINDOWDISPLAYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) COLORBMWINDOWPOKEBIT D1 (P 3 COLOR P 2 Y P 1 X P 0 GRIDSPEC I 1 BUTTON I 0 WINDOW) @g @g @ @g @g @ @g Adg@IJg @g g@IJ @IJg j[I@g J@g KgHg@ @g IJK @ h(231Q COLORDISPLAYICON 225Q BITMAPBIT 217Q GETWINDOWUSERPROP 210Q SHADEGRIDBOX 172Q GETWINDOWUSERPROP 161Q GETWINDOWUSERPROP 146Q COLORBMWINDOWSAVEBIT 134Q COLORBMWINDOWRETRIEVEBIT 117Q GETWINDOWUSERPROP 107Q COLORBMWINDOWSAVEBIT 61Q GRIDYCOORD 56Q GETWINDOWUSERPROP 47Q LASTMOUSEY 43Q GETWINDOWUSERPROP 33Q GRIDXCOORD 30Q GETWINDOWUSERPROP 21Q LASTMOUSEX 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (214Q CURRENTBITMAP 203Q POINT 177Q REPLACE 167Q YOFFSET 156Q XOFFSET 143Q RIGHT 124Q MIDDLE 114Q CURRENTCOLOR 104Q LEFT 72Q LEFT 53Q GRIDSPEC 40Q YOFFSET 25Q GRIDSPEC 12Q XOFFSET 3 GRIDSPEC) () COLORBMWINDOWRETRIEVEBIT D1 (P 0 PASTCOLOR I 2 Y I 1 X I 0 WINDOW) L@g B@g A(@g B@g A@g AB *H@g AB (111Q BITMAPBIT 104Q GETWINDOWUSERPROP 71Q BITMAPBIT 64Q GETWINDOWUSERPROP 52Q BITMAPWIDTH 47Q GETWINDOWUSERPROP 37Q GETWINDOWUSERPROP 21Q BITMAPWIDTH 16Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (101Q CURRENTBITMAP 61Q CURRENTBITMAP 44Q CURRENTBITMAP 34Q LASTCOLORARRAY 13Q CURRENTBITMAP 3 LASTCOLORARRAY) () COLORBMWINDOWSAVEBIT D1 (I 3 BUTTON I 2 Y I 1 X I 0 WINDOW) FCg@g j@g AB %@g B@g A@g AB *h(100Q BITMAPBIT 73Q GETWINDOWUSERPROP 61Q BITMAPWIDTH 56Q GETWINDOWUSERPROP 46Q GETWINDOWUSERPROP 35Q EQUAL 32Q BITMAPBIT 25Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP) (70Q CURRENTBITMAP 53Q CURRENTBITMAP 43Q LASTCOLORARRAY 22Q CURRENTBITMAP 11Q CURRENTCOLOR 3 LEFT) () COLORCREATEBMWINDOW D1 (P 1 GRIDBOXSIZE P 0 WINDOW I 0 BITMAP) @ l @ il ol @ Hg@ Hg@ Hg Hgj Hgj HghH I HghH j@ mI HgjdIdh Hg@ @ hdj Hgg Hgg Hgg Hgg H H(333Q COLORBMWINDOWDISPLAY 327Q PUTWINDOWPROP 315Q PUTWINDOWPROP 303Q WINDOWADDPROP 271Q PUTWINDOWPROP 257Q PUTWINDOWPROP 254Q ARRAY 245Q BITMAPHEIGHT 241Q BITMAPWIDTH 231Q PUTWINDOWPROP 211Q PUTWINDOWPROP 177Q BITMAPHEIGHT 166Q DSPCLIPPINGREGION 161Q \INSUREWINDOW 150Q PUTWINDOWPROP 140Q DSPCLIPPINGREGION 133Q \INSUREWINDOW 122Q PUTWINDOWPROP 112Q PUTWINDOWPROP 102Q PUTWINDOWPROP 77Q MAXIMUMCOLOR 70Q PUTWINDOWPROP 65Q BITMAPCOPY 55Q PUTWINDOWPROP 42Q COLORGRIDBOXSIZE 36Q COLORCREATEW 25Q COLORGETBOXREGION 22Q HEIGHTIFWINDOW 14Q COLORBMEDITHEIGHT 10Q WIDTHIFWINDOW 3 COLORBMEDITWIDTH) (324Q COLORBMWINDOWBUTTONFN 321Q RIGHTBUTTONFN 312Q COLORBMWINDOWBUTTONFN 307Q BUTTONEVENTFN 300Q COLORBMWINDOWCLOSEFN 275Q CLOSEFN 266Q COLORBMWINDOWDISPLAY 263Q REPAINTFN 235Q LASTCOLORARRAY 215Q GRIDSPEC 154Q BITSHIGH 126Q BITSWIDE 116Q YOFFSET 106Q XOFFSET 74Q CURRENTCOLOR 61Q CURRENTBITMAP 51Q STARTBITMAP) ( 31Q "Bitmap Editor") COLORDISPLAYGRID D1 (P 3 J P 1 I I 0 WINDOW) @g @g @g g@ @g kjIHr@g kjKJY@g I@g K@g j3IK@g I@g K@g g@g g@ Kk[IkYh(220Q SHADEGRIDBOX 210Q GETWINDOWUSERPROP 176Q BITMAPBIT 172Q GETWINDOWUSERPROP 161Q GETWINDOWUSERPROP 151Q GETWINDOWUSERPROP 134Q BITMAPBIT 130Q GETWINDOWUSERPROP 117Q GETWINDOWUSERPROP 107Q GETWINDOWUSERPROP 65Q GETWINDOWUSERPROP 43Q GETWINDOWUSERPROP 34Q GRID 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (213Q POINT 205Q GRIDSPEC 201Q REPLACE 167Q YOFFSET 156Q XOFFSET 146Q CURRENTBITMAP 125Q YOFFSET 114Q XOFFSET 104Q CURRENTBITMAP 62Q BITSHIGH 40Q BITSWIDE 27Q POINT 21Q BITSHIGH 12Q BITSWIDE 3 GRIDSPEC) () COLORDISPLAYICON D1 (I 0 WINDOW) '@g hd@l@g @g l (44Q BITBLT 34Q GETWINDOWUSERPROP 22Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (31Q BITSHIGH 17Q GRIDSPEC 3 CURRENTBITMAP) () COLORDISPLAYSHADE D1 (I 0 WINDOW) xhdd@dg l@g @g lh@ @g lh@ @g @g lgg@g (165Q BITBLT 161Q GETWINDOWUSERPROP 134Q GETWINDOWUSERPROP 125Q GETWINDOWUSERPROP 112Q DSPCLIPPINGREGION 105Q \INSUREWINDOW 74Q BITMAPWIDTH 71Q GETWINDOWUSERPROP 57Q DSPCLIPPINGREGION 52Q \INSUREWINDOW 36Q GETWINDOWUSERPROP 27Q GETWINDOWUSERPROP 15Q BITMAPWIDTH 12Q GETWINDOWUSERPROP) (156Q CURRENTCOLOR 152Q REPLACE 147Q TEXTURE 131Q GRIDSPEC 122Q BITSHIGH 66Q CURRENTBITMAP 33Q GRIDSPEC 24Q BITSHIGH 7 CURRENTBITMAP) () COLOREDITBM D1 (P 0 BMWINDOW I 0 BITMAP) @ H @(16Q DISMISS 12Q ACTIVEWP 3 COLORCREATEBMWINDOW) NIL () COLORGRIDBOXSIZE D1 (P 1 I I 0 BITMAP F 2 WindowTitleDisplayStream) Jlll l lhHInv@ In@ I@ hR g HX(76Q FONTPROP 70Q DSPFONT 63Q BITMAPHEIGHT 55Q BITMAPHEIGHT 41Q BITMAPWIDTH) (73Q SIZE) () COLORGETBOXPOSITION D1 (P 0 SAVE.SCREEN I 1 HEIGHT I 0 WIDTH F 1 C F 2 BOXCURSOR F 3 CROSSHAIRS) n R `ljS `lj0```@`AQ ```@`AQ ``i H (152Q CHANGECURSORSCREEN 145Q CURSOR 127Q DRAWGRAYBOX 101Q DRAWGRAYBOX 41Q GETMOUSESTATE 36Q CURSOR 17Q GETMOUSESTATE 14Q CURSOR 5 CHANGECURSORSCREEN 2 COLORSCREENBITMAP) (140Q LASTMOUSEY 135Q LASTMOUSEX 120Q LASTMOUSEY 113Q LASTMOUSEX 110Q LASTMOUSEY 105Q LASTMOUSEX 72Q LASTMOUSEY 65Q LASTMOUSEX 62Q LASTMOUSEY 57Q LASTMOUSEX 45Q LASTMOUSEBUTTONS 23Q LASTMOUSEBUTTONS) () COLORGETBOXREGION D1 (P 0 POSITION I 1 HEIGHT I 0 WIDTH) @A HH@A (20Q CREATEREGION 4 COLORGETBOXPOSITION) NIL () COLORMOVEBOX D1 (I 5 Y3 I 4 X3 I 3 Y2 I 2 X2 I 1 Y1 I 0 X1 F 0 C) ,ABDP @CEP C@BP E@DP BACP DAEP (51Q BLTVLINE 42Q BLTVLINE 33Q BLTHLINE 24Q BLTHLINE 15Q BLTVLINE 6 BLTHLINE) NIL () GETCOLORREGION D1 (P 2 RETURN.POS P 1 START.POS P 0 SAVE.SCREEN I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH) l !YZ`ljIJ IIJJII Id``Id``I` I` H i (150Q CURSOR 143Q CHANGECURSORSCREEN 137Q CREATEREGION 134Q ABS 123Q ABS 62Q COLORMOVEBOX 37Q TRACKMOUSE 20Q GETMOUSESTATE 13Q GET.BUTTON.DOWN.POSITION 5 CHANGECURSORSCREEN 2 COLORSCREENBITMAP) (130Q LASTMOUSEY 117Q LASTMOUSEX 112Q LASTMOUSEY 104Q LASTMOUSEY 76Q LASTMOUSEX 70Q LASTMOUSEX 24Q LASTMOUSEBUTTONS) () CHOOSEADDMENU D1 (I 2 POSITION I 1 WINDOW I 0 MENU) A @AB g @AB (27Q COLORADDMENU 17Q GETWINDOWUSERPROP 10Q BLACK&WHITEADDMENU) (14Q BORDERCOLOR) () CHOOSEMENU D1 (I 3 NESTEDFLG I 2 RELEASECONTROLFLG I 1 POSITION I 0 MENU)  @ABC @ABC (30Q BLACK&WHITEMENU 20Q COLORMENU 10Q EQUAL 5 COLORSCREENBITMAP 2 CHANGECURSORSCREEN) NIL () CHOOSEWINDOWCOM D1 (I 0 WINDOW)  @g @ (31Q BLACK&WHITEDOWINDOWCOM 24Q DOBACKGROUNDCOM 20Q GETWINDOWUSERPROP 10Q EQUAL 5 COLORSCREENBITMAP 2 CHANGECURSORSCREEN) (15Q BORDERCOLOR) () COLORINITA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 C F 1 RESETVARSLST F 2 COLORONDISPLAYFONT F 3 RESETY) pg` hhQcil P cnP jP lP Rgl g cP oP lP jP jP ci(152Q DSPXPOSITION 144Q DSPYPOSITION 136Q DSPCOLOR 127Q PRIN1 116Q DSPFONT 110Q FONTCREATE 71Q DSPCOLOR 62Q DSPXPOSITION 54Q DSPYPOSITION 42Q DSPCREATE 37Q COLORSCREENBITMAP 30Q COLORDISPLAY 10Q CURSOR) (105Q BRR 100Q HELVETICA 5 WAITINGCURSOR 2 CURSOR) ( 123Q "Color Display on") COLORINIT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) #S!Tog hgZ Jh(37Q ERROR! 30Q RESETRESTORE 16Q COLORINITA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) COLORIZE.SCREEN.REGION D1 (P 2 TEMP.POS P 1 TEMP.MAP P 0 REGION I 3 OPERATION I 2 TARGETPOSITION I 1 COLOR I 0 SOURCEREGION) `0@XdH Y`HHIhddddg IAj YhdBHH ZJhddCg I(134Q BITBLT 113Q COLORGETBOXPOSITION 74Q COLORSCREENBITMAP 66Q COLORIZEBITMAP 62Q GETCOLOR 53Q BITBLT 25Q BITMAPCREATE 10Q GETREGION) (130Q PAINT 47Q PAINT 31Q ScreenBitMap) () COLORIZE.WINDOW D1 (I 3 OPERATION I 2 TARGETPOSITION I 1 COLOR I 0 WINDOW) @ ABCg (33Q COLORIZE.SCREEN.REGION 16Q \INSUREWINDOW 13Q TOTOPW 10Q WHICHW 5 GETPOSITION) (30Q PAINT) () COLORSWITCHDISPLAYON/OFF D1 NIL h i hh(30Q COLORDISPLAYP 24Q COLORINIT 20Q SETDISPLAYHEIGHT 13Q VIDEOCOLOR 6 COLORDISPLAY 2 COLORDISPLAYP) NIL () GET.SAVED.BITMAP D1 (I 0 INSTANCE) g@o (12Q RECORDACCESS) (2 SAVE) ( 7 (DATATYPE WINDOW (DSP NEXTW SAVE REG BUTTONEVENTFN RIGHTBUTTONFN CURSORINFN CURSOROUTFN CURSORMOVEDFN DISPLAYCONTENTSFN RESHAPEFN OBJECTEXTENT USERDATA VERTSCROLLREG HORIZSCROLLREG SCROLLFN VERTSCROLLWINDOW HORIZSCROLLWINDOW CLOSEFN MOVEFN WTITLE NEWREGIONFN WBORDER PROCESS WINDOWENTRYFN) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ WBorder WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS))) SWITCHDISPLAYON/OFF D1 NIL K-jh i -j i ` j i jh(104Q SETDISPLAYHEIGHT 100Q VIDEOCOLOR 73Q SETDISPLAYHEIGHT 66Q SWITCHSCREENFN 62Q COLORINIT 55Q SWITCHSCREENFN 50Q EQUAL 42Q CHANGECURSORSCREEN 36Q VIDEOCOLOR 31Q SETDISPLAYHEIGHT 23Q SETDISPLAYHEIGHT 16Q VIDEOCOLOR 7 SETDISPLAYHEIGHT 2 COLORDISPLAYP) (45Q ScreenBitMap) () SWITCHSCREENFN D1 NIL 0 ` h i  (55Q CHANGECURSORSCREEN 51Q CHANGECURSORSCREEN 46Q COLORSCREENBITMAP 42Q COLORINIT 36Q COLORDISPLAYP 32Q SETDISPLAYHEIGHT 25Q VIDEOCOLOR 20Q CHANGECURSORSCREEN 10Q EQUAL 5 COLORSCREENBITMAP 2 CHANGECURSORSCREEN) (15Q ScreenBitMap) () TRACKMOUSE D1 (I 1 OLD.POS I 0 START.POS F 0 LOWERLEFT F 1 UPPERLEFT F 2 LOWERRIGHT F 3 UPPERRIGHT) LA`` 8@@AA`` `@`@PQ`@RS ``(101Q SETCURSOR 36Q COLORMOVEBOX 12Q EQUAL) (110Q LASTMOUSEY 105Q LASTMOUSEX 66Q LASTMOUSEY 52Q LASTMOUSEY 42Q LASTMOUSEX 32Q LASTMOUSEY 27Q LASTMOUSEX 6 LASTMOUSEY 3 LASTMOUSEX) () (PRETTYCOMPRINT COLORUTILITIESCOMS) (RPAQQ COLORUTILITIESCOMS ((* Color Window Functions) (FNS COLORCREATEW COLORCLOSEW COLOR.CREATE.TTY COLORDISPLAYW COLORDOWINDOWCOM COLORFRAME COLORMOVEW COLORPRINTTITLE COLORREDISPLAYW COLORWINDOWRIGHTBUTTONFN) (* Color Menu Functions) (FNS COLORADDEDMENURIGHTBUTTONFN COLORADDMENU COLORCLOSEMENUS COLORDISPLAYMENU COLORGETMENUCHOICE COLORMENU COLORMENUBUTTONFN COLORMENUREPAINTFN COLORSELECTEDITEM COLORSHADESELECTEDREGION COLORGETITEMCOLOR GET.BUTTON.DOWN.POSITION COLORBRINGMENUTOTOPFN GETCOLOR CREATE.COLOR.MENU.WINDOW INVERT.COLOR.BACKGROUND GET.COLOR.NUMBER GET.COLOR.REGION) (* Interactive Color Bitmap Editor Functions) (FNS COLORBMCLEARFN COLORBMCOLORFN COLORBMEDITHEIGHT COLORBMEDITWIDTH COLORBMMOVEFN COLORBMOKFN COLORBMRESETFN COLORBMSTOPFN COLORBMWINDOWBUTTONFN COLORBMWINDOWCLOSEFN COLORBMWINDOWCOMMANDMENU COLORBMWINDOWDISPLAY COLORBMWINDOWPOKEBIT COLORBMWINDOWRETRIEVEBIT COLORBMWINDOWSAVEBIT COLORCREATEBMWINDOW COLORDISPLAYGRID COLORDISPLAYICON COLORDISPLAYSHADE COLOREDITBM COLORGRIDBOXSIZE) (* Color screen equivalents of familiar interactive display functions) (FNS COLORGETBOXPOSITION COLORGETBOXREGION COLORMOVEBOX GETCOLORREGION) (* Hooks into Black & White world) (FNS CHOOSEADDMENU CHOOSEMENU CHOOSEWINDOWCOM) (* Other miscellaneous functions) (FNS COLORINIT COLORIZE.SCREEN.REGION COLORIZE.WINDOW COLORSWITCHDISPLAYON/OFF GET.SAVED.BITMAP SWITCHDISPLAYON/OFF SWITCHSCREENFN TRACKMOUSE) (VARS (C NIL) (COLORMENU NIL) (COLORONDISPLAYFONT NIL) (ColorMenuBitmap NIL) ( ColorWindowMenu NIL) ColorWindowMenuCommands MENUDEFAULTFONT WINDOWDEFAULTFONT) (UGLYVARS LOWERLEFT LOWERRIGHT UPPERLEFT UPPERRIGHT GETREGIONCURSOR) (P (SETQ BackgroundMenu) (COLORINIT) (for I from 1 to 8 do (ROTATECOLORMAP (COLORDISPLAYP) 7 15)) (ROTATECOLORMAP (COLORDISPLAYP) 7 14) (COND ((NOT (GETD ( QUOTE BLACK&WHITEMENU))) (MOVD (QUOTE MENU) (QUOTE BLACK&WHITEMENU) T) (PUTD (QUOTE MENU) (GETD (QUOTE CHOOSEMENU))))) (COND ((NOT (GETD (QUOTE BLACK&WHITEDOWINDOWCOM))) (MOVD (QUOTE DOWINDOWCOM) (QUOTE BLACK&WHITEDOWINDOWCOM) T) (PUTD (QUOTE DOWINDOWCOM) (GETD (QUOTE CHOOSEWINDOWCOM))))) (COND ((NOT ( GETD (QUOTE BLACK&WHITEADDMENU))) (MOVD (QUOTE ADDMENU) (QUOTE BLACK&WHITEADDMENU) T) (PUTD (QUOTE ADDMENU) (GETD (QUOTE CHOOSEADDMENU))))) (SETQ BackgroundMenuCommands (APPEND BackgroundMenuCommands ( LIST (LIST (QUOTE Switch) (QUOTE (QUOTE (SWITCHSCREENFN))) "Moves cursor to other screen") (LIST ( QUOTE Display% on/off) (QUOTE (QUOTE (SWITCHDISPLAYON/OFF))) "Turns on/off this display screen (if color display is on).") (LIST (QUOTE Color% Display% on/off) ( QUOTE (QUOTE (COLORSWITCHDISPLAYON/OFF))) "Turns on/off the color display screen."))))) (ADVISE CREATEW))) (RPAQQ C NIL) (RPAQQ COLORMENU NIL) (RPAQQ COLORONDISPLAYFONT NIL) (RPAQQ ColorMenuBitmap NIL) (RPAQQ ColorWindowMenu NIL) (RPAQQ ColorWindowMenuCommands ((Close (QUOTE CLOSEW) "Closes a window") (Clear (QUOTE CLEARW) "Clears this window to its background shade") (Redisplay (QUOTE COLORREDISPLAYW) "Redisplays window's frame") (Move (QUOTE COLORMOVEW) "Moves a window by a corner."))) (RPAQQ MENUDEFAULTFONT NIL) (RPAQQ WINDOWDEFAULTFONT {FONTDESCRIPTOR}#1,163740) (READVARS LOWERLEFT LOWERRIGHT UPPERLEFT UPPERRIGHT GETREGIONCURSOR) (({ (READBITMAP) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "H@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "OOL@" "OON@") } 0 . 0) ({ (READBITMAP) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@A" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@COO" "@GOO") } 15 . 0) ({ ( READBITMAP) (16 16 "OOL@" "OOH@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "H@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") } 0 . 15) ({ (READBITMAP) (16 16 "@COO" "@AOO" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@A" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") } 15 . 15) ({ ( READBITMAP) (16 16 "@@@@" "@@@@" "H@@@" "L@@@" "N@@@" "O@@@" "OHNG" "OLLC" "ONKM" "O@BD" "MHBD" "IHKM" "@LLC" "@LNG" "@F@@" "@F@@") } 0 . 13)) (SETQ BackgroundMenu) (COLORINIT) (for I from 1 to 8 do (ROTATECOLORMAP (COLORDISPLAYP) 7 15)) (ROTATECOLORMAP (COLORDISPLAYP) 7 14) (COND ((NOT (GETD (QUOTE BLACK&WHITEMENU))) (MOVD (QUOTE MENU) (QUOTE BLACK&WHITEMENU) T) (PUTD (QUOTE MENU) (GETD (QUOTE CHOOSEMENU))))) (COND ((NOT (GETD (QUOTE BLACK&WHITEDOWINDOWCOM))) (MOVD (QUOTE DOWINDOWCOM) (QUOTE BLACK&WHITEDOWINDOWCOM) T) (PUTD (QUOTE DOWINDOWCOM) (GETD (QUOTE CHOOSEWINDOWCOM))))) (COND ((NOT (GETD (QUOTE BLACK&WHITEADDMENU))) (MOVD (QUOTE ADDMENU) (QUOTE BLACK&WHITEADDMENU) T) ( PUTD (QUOTE ADDMENU) (GETD (QUOTE CHOOSEADDMENU))))) (SETQ BackgroundMenuCommands (APPEND BackgroundMenuCommands (LIST (LIST (QUOTE Switch) (QUOTE (QUOTE ( SWITCHSCREENFN))) "Moves cursor to other screen") (LIST (QUOTE Display% on/off) (QUOTE (QUOTE ( SWITCHDISPLAYON/OFF))) "Turns on/off this display screen (if color display is on).") (LIST (QUOTE Color% Display% on/off) (QUOTE (QUOTE (COLORSWITCHDISPLAYON/OFF))) "Turns on/off the color display screen.")))) (PUTPROPS CREATEW READVICE (NIL (BEFORE NIL (COND ((NULL REGION) (CHANGECURSORSCREEN (SCREENBITMAP)))) ))) (READVISE CREATEW) NIL