(FILECREATED "21-Apr-86 17:07:47" ("compiled on " {ERIS}SOURCES>HLDISPLAY.;30) "18-Apr-86 18:08:41" bcompl'd in "Xerox Lisp 21-Apr-86 ..." dated "21-Apr-86 11:58:07") (FILECREATED " 3-Mar-86 09:21:09" {ERIS}SOURCES>HLDISPLAY.;30 155043 changes to: (FNS SHRINKBITMAP) previous date: "27-Feb-86 15:12:05" {ERIS}SOURCES>HLDISPLAY.;29) GRID D1 (P 15Q Y P 13Q Y P 11Q X P 7 MAXIMUMCOLOR P 6 TWICEBORDER P 5 LINELENGTH P 4 GRIDSHADE P 3 SQHEIGHT P 2 SQWIDTH P 1 Y0 P 0 X0 I 5 GRIDSHADE I 4 DS I 3 BORDER I 2 HEIGHT I 1 WIDTH I 0 GRIDSPEC) $@@@@E n5CjCd Ch3@ClھhddDHICBK]ggL HAkJCHJC Odj/OO #jOOHAkJCOHAkJCohddDHAJCICMggL hddDHIAJ]CggL IBkKCIKC OdrjQOO EjO1OIBkKC.ddDOINMggL OJ__>OIBkKChddDHIBKCMCggL ddDHOMNggL OK__nCdghD _HAJH O/OjOO ujOOHAJOHAJ\IBKIO-OjdO>O>@OOIO@OOWJWLgghO hjd@OOO.IOWJWLggjO O&JO,IjO.IٱBjO$OdBBJ _@dO@O@Yj@gO$I_$ NjO$OO*djj@OO@OOIOWJWLgghO hjd@OOOIOggj O&JO,Ijd@ @g JO,O.g@ O0O"/O2O$(O"O,O0@g O$O.O2@g @gO&@g O"O,@g _BdOBOB_DjODODj_0 @gO&@g O$O.@g _FdOFOF_HjOHOHj_2 O&@g @g @j@g @g nhg h(2321Q BKBITBLT 2306Q GETWINDOWUSERPROP 2277Q GETWINDOWUSERPROP 2266Q GETWINDOWUSERPROP 2257Q GETWINDOWUSERPROP 2245Q PUTWINDOWPROP 2207Q GETWINDOWUSERPROP 2171Q GETWINDOWUSERPROP 2146Q PUTWINDOWPROP 2110Q GETWINDOWUSERPROP 2072Q GETWINDOWUSERPROP 2042Q GETWINDOWUSERPROP 2020Q GETWINDOWUSERPROP 1763Q GRID 1745Q GETWINDOWUSERPROP 1735Q RESETGRID 1717Q BKBITBLT 1662Q BKBITBLT 1575Q PUTWINDOWPROP 1534Q GRIDYCOORD 1470Q BKBITBLT 1426Q BKBITBLT 1330Q PUTWINDOWPROP 1267Q GRIDYCOORD 1207Q BKBITBLT 1137Q PUTWINDOWPROP 1102Q RESETGRID 1064Q BKBITBLT 1032Q BKBITBLT 746Q PUTWINDOWPROP 705Q GRIDXCOORD 650Q BKBITBLT 606Q BKBITBLT 511Q PUTWINDOWPROP 446Q GRIDXCOORD 417Q BKBITBLT 350Q PUTWINDOWPROP 300Q \INSUREWINDOW 200Q GETWINDOWUSERPROP 167Q GETWINDOWUSERPROP 156Q GETWINDOWUSERPROP 145Q GETWINDOWUSERPROP 113Q GETWINDOWUSERPROP 102Q GETWINDOWUSERPROP 71Q GETWINDOWUSERPROP 60Q GETWINDOWUSERPROP 50Q GETWINDOWPROP 40Q GETWINDOWPROP 26Q \INSUREWINDOW 21Q GETWINDOWUSERPROP) (2315Q REPLACE 2303Q BMDISPLAYWIDTH 2274Q BMDISPLAYBOTTOM 2263Q DYOFFSET 2254Q DXOFFSET 2204Q BMDISPLAYHEIGHT 2166Q BMDISPLAYHEIGHT 2160Q BITMAP 2153Q DYOFFSET 2105Q BMDISPLAYWIDTH 2067Q BMDISPLAYWIDTH 2061Q BITMAP 2054Q DXOFFSET 2037Q BMDISPLAYHEIGHT 2015Q BMDISPLAYWIDTH 1756Q POINT 1742Q GRIDON 1712Q REPLACE 1707Q TEXTURE 1653Q REPLACE 1650Q INPUT 1564Q YOFFSET 1461Q REPLACE 1456Q TEXTURE 1417Q REPLACE 1414Q INPUT 1317Q YOFFSET 1236Q BITMAP 1200Q REPLACE 1175Q TEXTURE 1114Q YOFFSET 1057Q REPLACE 1054Q TEXTURE 1023Q REPLACE 1020Q INPUT 735Q XOFFSET 641Q REPLACE 636Q TEXTURE 577Q REPLACE 574Q INPUT 500Q XOFFSET 410Q REPLACE 405Q TEXTURE 332Q XOFFSET 175Q DYOFFSET 164Q DXOFFSET 153Q BITSHIGH 142Q BITSWIDE 132Q BITMAP 121Q BITMAP 110Q BM 77Q YOFFSET 66Q XOFFSET 55Q GRIDINTERIOR 45Q WIDTH 35Q HEIGHT 16Q GRIDSPEC) ( 1125Q 1.0) SHADEGRIDBOX D1 (P 0 BORDER I 6 DS I 5 GRIDBORDER I 4 GRIDSPEC I 3 OPERATION I 2 SHADE I 1 Y I 0 X) YE3 jhddF@D HAD HDHlDHlgCB EgF@D AD hF h(123Q MAXIMUMCOLOR 120Q BITSPERPIXEL 115Q DSPDESTINATION 110Q BOTTOMOFGRIDCOORD 103Q LEFTOFGRIDCOORD 66Q BKBITBLT 30Q BOTTOMOFGRIDCOORD 21Q LEFTOFGRIDCOORD) (72Q POINT 60Q TEXTURE) () INSIDE? D1 (L (2 Y 1 X 0 BOX)) AA`@h3A`@@"B`@hB`@@NIL (63Q LASTMOUSEY 44Q LASTMOUSEY 23Q LASTMOUSEX 5 LASTMOUSEX) () MOUSESTATE-EXPR D1 (P 6 OPT P 1 NAMEMASK P 0 MOUSEBUTTONMASK I 1 MOUSEONLYFLG I 0 EXPR) ~l!@d7ggAgHghghggg@ hjhg1@A Y@ YhbgAgHghgIh@dZd3Jgih@dg7gjggg0@d LKh]K&MhhdgWgg0@d LKh]K&Mggg0@d LKh]K&Mhhg!@ggg@ hh@o @@@d^A LKh]K&M(550Q MOUSESTATE-EXPR 530Q HELP 507Q MOUSESTATE-NAME 467Q SHOULDNT 416Q MOUSESTATE-NAME 347Q MOUSESTATE-NAME 262Q MOUSESTATE-NAME 124Q MOUSESTATE-NAME 114Q MOUSESTATE-NAME 64Q MOUSESTATE-NAME) (501Q LASTMOUSEBUTTONS 476Q LOGAND 473Q ZEROP 455Q NOT 403Q LOGOR 400Q LASTMOUSEBUTTONS 375Q LOGAND 334Q LOGOR 331Q EQ 322Q AND 247Q LOGOR 244Q LASTMOUSEBUTTONS 241Q LOGAND 235Q NEQ 226Q OR 202Q UP 156Q LASTMOUSEBUTTONS 146Q LASTMOUSEBUTTONS 142Q LOGAND 135Q EQ 102Q ONLY 60Q LASTMOUSEBUTTONS 55Q LOGAND 52Q NEQ 43Q LASTMOUSEBUTTONS 33Q LASTMOUSEBUTTONS 27Q LOGAND 22Q ZEROP 14Q UP) ( 525Q " unrecognized mouse key operator") MOUSESTATE-NAME D1 (I 1 MOUSEONLYFLG I 0 KEYNAME) h@g@dglg@dglg@gkA8@dglgl@@dgl gl@dglo h(143Q HELP) (127Q RIGHTKEY 115Q RIGHTMIDDLEKEY 105Q MIDDLEKEY 73Q LEFTMIDDLEKEY 63Q LEFTKEY 47Q MIDDLE 41Q YELLOW 31Q BLUE 22Q RIGHT 12Q RED 3 LEFT) ( 140Q " is not a recognized key name.") DECODEBUTTONS D1 (I 0 BUTTONSTATE) @`bljhgh@ljhgh@kjhgh@ljhgh@l@jhgh@l jhgh@ljhgh@ljhgh (224Q \NCONC2 221Q \NCONC2 216Q \NCONC2 213Q \NCONC2 210Q \NCONC2 205Q \NCONC2 202Q \NCONC2) (175Q RIGHTKEY 156Q RIGHTMIDDLEKEY 137Q MIDDLEKEY 120Q LEFTMIDDLEKEY 101Q LEFTKEY 62Q MIDDLE 44Q RIGHT 25Q LEFT 7 LASTMOUSEBUTTONS) () PTDIFFERENCE D1 (L (1 PT2 0 PT1)) @A@ANIL NIL () PTPLUS D1 (L (1 PT2 0 PT1)) @A@ANIL NIL () GETPOSITION D1 (I 1 CURSOR I 0 WINDOW) @A (4 GETSCREENPOSITION) NIL () GETBOXPOSITION D1 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 BOXHEIGHT I 0 BOXWIDTH) @ABCDE (11Q GETBOXSCREENPOSITION) NIL () DSPYSCREENTOWINDOW D1 (I 1 DS I 0 Y) @Ag ((7 \GETSTREAM) (22Q \DISPLAYDATA 17Q \DISPLAYDATA 12Q STREAM 4 OUTPUT) () DSPXSCREENTOWINDOW D1 (I 1 DS I 0 X) @Ag ((7 \GETSTREAM) (22Q \DISPLAYDATA 17Q \DISPLAYDATA 12Q STREAM 4 OUTPUT) () GETREGION D1 (I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH) @ABCDE (11Q GETSCREENREGION) NIL () \GETREGION.PACKPTS D1 (F 0 BASEPT F 1 OPPT F 2 BASEX F 3 BASEY F 4 OPPY F 5 OPPX) PRPSQUQdTNIL NIL () \GETREGION.CHECKBASEPT D1 (P 2 USERPT P 1 FN I 1 BASEPT I 0 NEWREGFNS F 3 NEWREGIONFNARG) 2@!HhAhSlIZ oJ AJAJHX(40Q ERROR 27Q POSITIONP) NIL ( 34Q "non-POSITION returned by NEWREGIONFN") \GETREGION.CHECKOPPT D1 (P 5 FN P 4 USERPT P 3 OPPY P 2 OPPX P 1 BASEY P 0 BASEX I 4 OPPT I 3 BASEPT I 2 NEWREGFNS I 1 MINHGHT I 0 MINWID F 6 NEWREGIONFNARG) xCCDD$HJHJ@H@ىJH@H@ZDJIKIKAIAىKIAIA[DKB&dCDVlM\ oL DLDLh(145Q ERROR 134Q POSITIONP) NIL ( 141Q "non-POSITION returned by NEWREGIONFN") \GETREGIONTRACKWITHBOXA0001 D1 (NAME ERRORSET L (0 NIL) F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 XTEMP F 7 YTEMP F 10Q BASEPT F 11Q DESTINATION F 12Q OLDMOUSEX F 13Q OLDMOUSEY F 14Q THRUONCE F 15Q OLDCURSOR F 16Q WIDTH F 17Q HEIGHT F 20Q BACKGROUNDCURSOREXITFN F 21Q MAXY F 22Q MAXX F 23Q FORCEPS F 24Q NEWREGFNS) W`ljhhic`ljW& c`lHj HH W RT`TRlۈTRl`RTccRTcSU`USlۈUSl`SUcc SUcTU [`dW`WH`c`cWW$WWHdIIjHHjWW"WWHdIIjHHjW(W Wc WcRVjSWj`WVRc WScTURSW` `c kc$W kc"TVcUWc RVcSWcW jW TURSW` h(626Q DRAWGRAYBOX 541Q BITMAPHEIGHT 527Q BITMAPWIDTH 516Q DRAWGRAYBOX 417Q \GETREGION.CHECKBASEPT 243Q \CURSORPOSITION 117Q CURSOR 107Q \FZEROP 57Q GETMOUSESTATE 51Q CURSOR 6 GETMOUSESTATE) (622Q DASHEDSHADE 522Q \CURSORDESTINATION 512Q DASHEDSHADE 455Q \CURSORDESTINATION 303Q LASTMOUSEY 275Q LASTMOUSEX 263Q LASTMOUSEY 252Q LASTMOUSEX 216Q LASTMOUSEY 176Q LASTMOUSEY 147Q LASTMOUSEX 127Q LASTMOUSEX 63Q LASTMOUSEBUTTONS 33Q LASTMOUSEBUTTONS 12Q LASTMOUSEBUTTONS) () \GETREGIONTRACKWITHBOX D1 (P 13Q MAXY P 12Q MAXX P 11Q DESTINATION P 10Q HEIGHT P 7 WIDTH P 6 THRUONCE P 5 OLDMOUSEY P 4 OLDMOUSEX P 3 YTEMP P 2 XTEMP P 0 OLDCURSOR F 14Q BASEX F 15Q OPPX F 16Q BASEY F 17Q OPPY) Z  WW_WW_`_d k_O k_WWWWO` oi YWWWWO` Ih(126Q ERROR! 121Q DRAWGRAYBOX 77Q \GETREGIONTRACKWITHBOXA0001 67Q DRAWGRAYBOX 42Q BITMAPHEIGHT 31Q BITMAPWIDTH) (115Q DASHEDSHADE 63Q DASHEDSHADE 23Q \CURSORDESTINATION) ( 73Q (\GETREGIONTRACKWITHBOXA0001)) \UPDATEXYANDBOX D1 (P 1 TEMPY P 0 TEMPX I 2 SHADE I 1 DESTINATION I 0 BASEPTCHANGE? F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 BASEPT F 7 OPPT)  A`P@&VVRHjSIjTURSHcIcAB WWTHjUIjIRSTUHcIc AB /RSTUAB VcVcWcWc RSTU`B RSTU h(214Q SETCORNER 204Q DRAWGRAYBOX 141Q DRAWGRAYBOX 125Q MOVEBOX 57Q MOVEBOX) (177Q \CURSORDESTINATION 6 \CURSORDESTINATION) () GETBOXREGION D1 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) @ABCDE (11Q GETBOXSCREENREGION) NIL () \TRACKWITHBOXA0001 D1 (NAME ERRORSET L (0 NIL) F 1 ORGX F 2 ORGY F 3 BOXWIDTH F 4 BOXHEIGHT F 5 DESTINATION F 6 OLDCURSOR F 7 BACKGROUNDCURSOREXITFN F 10Q SHADE F 11Q MLMASK F 12Q ORGLEFTMIDDLE F 13Q FORCEPS)  W`Whh`ljW c `lHj HH V Sj`QSl؈QSl`QScjScTj`RTl؈RTl`RTcjTcQR gQd`jR`jRQRQSRTUW `c`c`c WjWQRQSRTUW (352Q DRAWGRAYBOX 277Q DRAWGRAYBOX 227Q \CURSORPOSITION 107Q CURSOR 100Q \FZEROP 50Q GETMOUSESTATE 42Q CURSOR 2 GETMOUSESTATE) (317Q \CURSORDESTINATION 311Q LASTMOUSEY 303Q LASTMOUSEX 251Q LASTMOUSEY 240Q LASTMOUSEX 204Q LASTMOUSEY 164Q LASTMOUSEY 137Q LASTMOUSEX 117Q LASTMOUSEX 54Q LASTMOUSEBUTTONS 24Q LASTMOUSEBUTTONS 10Q LASTMOUSEBUTTONS) () \TRACKWITHBOX D1 (P 4 DESTINATION P 3 MLMASK P 2 NOERROR P 1 ORGLEFTMIDDLE P 0 OLDCURSOR I 0 SHADE F 5 ORGX F 6 ORGY F 7 BOXWIDTH F 10Q BOXHEIGHT) APl[`\K`YUVUWVWL@ oi ZUVUWVWL@ Jh(75Q ERROR! 70Q DRAWGRAYBOX 47Q \TRACKWITHBOXA0001 37Q DRAWGRAYBOX) (15Q LASTMOUSEBUTTONS 10Q \CURSORDESTINATION) ( 43Q (\TRACKWITHBOXA0001)) MOVEBOX D1 (P 1 SOFTCURSORUP P 0 DISPINTERRUPT I 7 SHADE I 6 DESTINATION I 5 Y3 I 4 X3 I 3 Y2 I 2 X2 I 1 Y1 I 0 X1 F 2 \SOFTCURSORP F 3 \SOFTCURSORUPP) l RSY``jABDFG @CEFG C@BFG E@DFG BACFG DAEFG I `Hh(141Q \SOFTCURSORUPCURRENT 133Q BLTVLINE 120Q BLTVLINE 105Q BLTHLINE 72Q BLTHLINE 57Q BLTVLINE 44Q BLTHLINE 31Q \SOFTCURSORDOWN) (145Q \EM.DISPINTERRUPT 22Q \EM.DISPINTERRUPT 14Q \EM.DISPINTERRUPT) () DRAWGRAYBOX D1 (P 1 SOFTCURSORUP P 0 DISPINTERRUPT I 5 SHADE I 4 DESTINATION I 3 Y2 I 2 X2 I 1 Y1 I 0 X1 F 2 \SOFTCURSORP F 3 \SOFTCURSORUPP) R RSY``jA@BDE @ACDE C@BDE BACDE I `Hh(107Q \SOFTCURSORUPCURRENT 101Q BLTVLINE 67Q BLTHLINE 55Q BLTVLINE 43Q BLTHLINE 31Q \SOFTCURSORDOWN) (113Q \EM.DISPINTERRUPT 22Q \EM.DISPINTERRUPT 14Q \EM.DISPINTERRUPT) () BLTHLINE D1 (I 4 SHADE I 3 DESTINATION I 2 XB I 1 XA I 0 Y) +hddCAdBB@BAjHHjHlggD (50Q BKBITBLT) (43Q INVERT 40Q TEXTURE) () BLTVLINE D1 (I 4 SHADE I 3 DESTINATION I 2 YB I 1 YA I 0 X) +hddC@AdBBlBAjHHjHggD (50Q BKBITBLT) (43Q INVERT 40Q TEXTURE) () SETCORNER D1 (P 1 OLDCURSOR P 0 NEWCURSOR I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) 4 B@CA``CA``XYHIH BC h(60Q \CURSORPOSITION 52Q CURSOR 41Q CURSOR) (35Q LowerLeftCursor 31Q UpperLeftCursor 21Q LowerRightCursor 15Q UpperRightCursor) () GETSCREENPOSITIONA0001 D1 (NAME ERRORSET L (0 NIL) F 1 WINDOW F 2 BACKGROUNDCURSOREXITFN F 3 \CURSORSCREEN F 4 MACROY) h`ljRjRQ4`lHj HH SQ2RjRQ````Q Q ci(140Q LASTMOUSEY 134Q LASTMOUSEX 64Q \FZEROP 34Q GETMOUSESTATE 2 GETMOUSESTATE) (130Q LASTSCREEN 124Q LASTMOUSEY 121Q LASTMOUSEX 116Q LASTSCREEN 73Q WINDOW 40Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () GETSCREENPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 CURSOR I 0 WINDOW F 4 RESETVARSLST F 5 CROSSHAIRS) G@@ bAU 1gHhhTcYog gIcgI KJ(102Q ERROR! 75Q APPLY 52Q GETSCREENPOSITIONA0001 17Q CURSOR 5 WFROMDS) (66Q CURSOR 56Q ERROR 47Q INTERNAL 25Q CURSOR) ( 44Q (GETSCREENPOSITIONA0001)) GETBOXSCREENPOSITIONA0001 D1 (NAME ERRORSET P 1 SHADE P 0 MOUSEDOWNFLG F 10Q ORGX F 11Q ORGY F 12Q BOXWIDTH F 13Q BOXHEIGHT F 14Q PROMPTMSG F 15Q WINDOW F 16Q CROSSHAIRS F 17Q MACROY) `ljhqW3 HW3 B`WWlWWcjWc`WWlWWcjWcWW `c`cWW `YI H"`lZjJJ iW H`l[jKK WW+`WdWؼdLLW WdWؽdMMW #`WdWؾdNNWdW_dOOci(345Q DSPYSCREENTOWINDOW 323Q DSPXSCREENTOWINDOW 271Q CLRPROMPT 261Q \FZEROP 231Q CURSOR 221Q \FZEROP 172Q \TRACKWITHBOX 160Q PROMPTPRINT 133Q \CURSORPOSITION 2 GETMOUSESTATE) (352Q LASTSCREEN 301Q LASTSCREEN 241Q LASTMOUSEBUTTONS 201Q LASTMOUSEBUTTONS 164Q GRAYSHADE 145Q LASTMOUSEY 137Q LASTMOUSEX 73Q LASTMOUSEY 37Q LASTMOUSEX 6 LASTMOUSEBUTTONS) () GETBOXSCREENPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 BOXHEIGHT I 0 BOXWIDTH F 4 RESETVARSLST F 5 BOXCURSOR) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q GETBOXSCREENPOSITIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETBOXSCREENPOSITIONA0001)) GETSCREENREGIONA0001A0003 D1 (NAME ERRORSET L (0 NIL) F 1 OPPX F 2 BASEX F 3 OPPY F 4 BASEY F 5 OPPT F 6 DESTINATION F 7 BACKGROUNDCURSOREXITFN F 10Q NEWREGFNS F 11Q BASEPT F 12Q NOTTIMEDOUT F 13Q DOWNFLG F 14Q OLDMOUSEY F 15Q SHADE F 16Q MINWIDTH F 17Q MINHEIGHT F 20Q OLDMOUSEX F 21Q BEGCLOCK F 22Q FORCEPS) ~WW"` Ghc>W`lHj HH  `lHj HH ich(`lj`ljW$ `lHj HH `QjHHjH`RjHHjHQRcc`SjHHjH`TjHHjHSTccWW WWWWU RTQS iVW `c WjW`W `WU`c U`cWWWWU hVW `c WjWi(544Q \UPDATEXYANDBOX 534Q \GETREGION.CHECKOPPT 430Q \UPDATEXYANDBOX 420Q SETCORNER 410Q \GETREGION.CHECKOPPT 372Q \GETREGION.CHECKBASEPT 362Q \GETREGION.PACKPTS 216Q \FZEROP 166Q GETMOUSESTATE 162Q CURSOR 112Q \FZEROP 60Q \FZEROP 16Q \CLOCKGREATERP 2 GETMOUSESTATE) (550Q \CURSORDESTINATION 513Q LASTMOUSEY 503Q LASTMOUSEX 470Q LASTMOUSEY 461Q LASTMOUSEX 434Q \CURSORDESTINATION 325Q LASTMOUSEY 303Q LASTMOUSEY 246Q LASTMOUSEX 224Q LASTMOUSEX 172Q LASTMOUSEBUTTONS 144Q LASTMOUSEBUTTONS 130Q LASTMOUSEBUTTONS 66Q LASTMOUSEBUTTONS 34Q LASTMOUSEBUTTONS 13Q CLICKWAITTIME) () GETSCREENREGIONA0001 D1 (NAME ERRORSET P 23Q NEWREGFNS P 22Q NOTTIMEDOUT P 21Q BEGCLOCK P 20Q DOWNFLG P 17Q NEWMOUSEY P 16Q NEWMOUSEX P 15Q OPPT P 14Q BASEPT P 13Q INITTOP P 12Q INITBOTTOM P 11Q INITRIGHT P 10Q INITLEFT P 7 OLDMOUSEY P 6 OLDMOUSEX P 5 OPPY P 4 OPPX P 3 BASEY P 2 BASEX P 1 SHADE P 0 DESTINATION F 30Q INITCORNERS F 31Q MINWIDTH F 32Q MINHEIGHT F 33Q INITREGION F 34Q \CURSORDESTWIDTH F 35Q \CURSORDESTHEIGHT F 36Q NEWREGIONFN F 37Q \CURSORSCREEN F 40Q MACROY)  hh_hh_W23 jc2W43 jc4WJdLLKdMMLJ_,jO,O,jO,KM_.jO.O.jO.hJKLMHI hc@i(665Q ERROR! 661Q DRAWGRAYBOX 553Q DRAWGRAYBOX 537Q GETSCREENREGIONA0001A0003 524Q CLOCK 517Q SETCORNER 507Q DRAWGRAYBOX 460Q \GETREGION.CHECKOPPT 441Q \GETREGION.PACKPTS 320Q \GETREGIONTRACKWITHBOX 314Q \CURSORPOSITION 277Q \ILLEGAL.ARG 207Q LENGTH 104Q GETMOUSESTATE) (474Q \CURSORDESTINATION 400Q LASTMOUSEY 341Q LASTMOUSEX 330Q LASTMOUSEBUTTONS 114Q LASTMOUSEY 110Q LASTMOUSEX 74Q \CURSORDESTINATION 64Q GRAYSHADE) ( 533Q (GETSCREENREGIONA0001A0003)) GETSCREENREGION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 INITREGION I 1 MINHEIGHT I 0 MINWIDTH F 4 RESETVARSLST F 5 EXPANDINGBOX) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q GETSCREENREGIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETSCREENREGIONA0001)) GETBOXSCREENREGION D1 (P 0 SCREENPOS I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) @ABCDE XdHH@Ah(14Q GETBOXSCREENPOSITION) NIL () MOUSECONFIRMA0001 D1 (NAME ERRORSET P 0 LEFTDOWN F 2 MACROY) G`lj`ljh`lYjII `ljhHci(61Q \FZEROP 35Q GETMOUSESTATE 2 GETMOUSESTATE) (65Q LASTMOUSEBUTTONS 41Q LASTMOUSEBUTTONS 20Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () MOUSECONFIRM D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 DON'TCLEARWINDOWFLG I 2 WINDOW I 1 HELPSTRING I 0 PROMPTSTRING F 4 RESETVARSLST) B`b@@iAi6B @Ai-AoB i@B AdilB ib` 1gHhhTcog gIcgI KJCB (216Q CLEARW 205Q ERROR! 177Q APPLY 153Q MOUSECONFIRMA0001 120Q CURSOR 103Q SPACES 65Q PRIN1 52Q PRIN1 26Q FRESHLINE) (170Q CURSOR 157Q ERROR 150Q INTERNAL 126Q CURSOR 115Q MOUSECONFIRMCURSOR 4 PROMPTWINDOW) ( 145Q (MOUSECONFIRMA0001) 46Q "Click LEFT to confirm, RIGHT to abort.") NEAREST/PT/ON/GRID D1 (I 1 GRIDN I 0 PT) @dA @dA @(16Q NEAREST/MULTIPLE 6 NEAREST/MULTIPLE) NIL () PTON10GRID D1 (I 1 MOVINGPT I 0 FIXEDPT) A@l (10Q NEAREST/PT/ON/GRID) NIL () NEAREST/MULTIPLE D1 (L (1 N 0 X)) @djAlAAAlAANIL NIL () \SW2BM D1 (P 30Q \INTERRUPTABLE P 27Q CH P 26Q CW P 25Q YQ P 24Q XQ P 23Q YP P 22Q XP P 21Q CB P 20Q CL P 7 QB P 6 QW P 5 QH P 4 QL P 3 PB P 2 PW P 1 PH P 0 PL I 3 QR I 2 Q I 1 PR I 0 P) o0APj[@@C#j_BBjHjL_dOOdjjjKjO_dOOdjj_"_ HO"KO LO"O$@HJ_dOOO$BLN_dOOO(_dOO_,@KI_dOOO&BOM_dOOO*_dOO_.@O$O&BO(O*O,O.gg BO(O*@O$O&O,O.gg @O$O&BO(O*O,O.gg hC_CCAAA(502Q BKBITBLT 451Q BKBITBLT 420Q BKBITBLT) (476Q INVERT 473Q INPUT 445Q INVERT 442Q INPUT 414Q INVERT 411Q INPUT 323Q BITMAP 274Q BITMAP 227Q BITMAP 200Q BITMAP 63Q BITMAP 54Q BITMAP 32Q BITMAP 23Q BITMAP) () COMPOSEREGS D1 (L (1 OUTER 0 INNER)) A@A@@@@NIL NIL () TRANSLATEREG D1 (L (1 OUTER 0 INNER)) @A@A@@hNIL NIL () EDITBM D1 (P 14Q ORIGWIDTH P 13Q ORIGBPP P 12Q BPP P 11Q GRIDSQUARE P 10Q ORIGBM P 7 CR P 6 BM P 5 HEIGHT P 4 WIDTH P 3 BMWHEIGHT P 2 BMWWIDTH P 1 BMWINTERIOR P 0 BMW I 0 BMSPEC F 20Q \CURSORDESTWIDTH F 21Q \CURSORDESTHEIGHT) *@`@dg`b` _`/ @_ #@dl[g _ O _^` _N_OON_NOOOOۼNL 2@@` @_`@@Njdhdgg @ @_g @g @ @ h@ _@OONjdOO GN\N]W lllLW"lllMk_dOOd``dll_dLlW ll_dOOZMOklW"ll_dOO[J Ki hddo o XdgN Hgg Hgg Hgg Hgg Hgg Hgj Hgj Hgj Hgj HgO Hg HgO Hgi HhdOh Hg n Hg H OONONOHg i@``O &Njd`OOOOgg NO %NjdOOOOOgg NONjdOjdLM @Ol@g gg@Nh @`Ohd` (1447Q ERROR! 1443Q BKBITBLT 1420Q STKEVAL 1400Q MARKASCHANGED 1355Q BKBITBLT 1332Q BKBITBLT 1267Q WINDOWP 1260Q BKBITBLT 1214Q REGIONP 1167Q GETWINDOWUSERPROP 1127Q CLOSEW 1123Q PUTWINDOWPROP 1111Q DISMISS 1102Q GETWINDOWUSERPROP 1073Q SPAWN.MOUSE 1070Q EDITBMRESHAPEFN 1056Q PUTWINDOWPROP 1046Q PUTWINDOWPROP 1043Q MAXIMUMCOLOR 1032Q PUTWINDOWPROP 1023Q PUTWINDOWPROP 1012Q PUTWINDOWPROP 1002Q PUTWINDOWPROP 772Q PUTWINDOWPROP 762Q PUTWINDOWPROP 752Q PUTWINDOWPROP 740Q PUTWINDOWPROP 726Q PUTWINDOWPROP 714Q PUTWINDOWPROP 702Q PUTWINDOWPROP 670Q PUTWINDOWPROP 657Q CREATEW 650Q GETBOXREGION 635Q HEIGHTIFWINDOW 630Q WIDTHIFWINDOW 420Q BKBITBLT 363Q DSPCLIPPINGREGION 355Q TOTOPW 350Q BITMAPCREATE 345Q BITSPERPIXEL 341Q GETWINDOWPROP 332Q GETWINDOWPROP 317Q WINDOWP 311Q BKBITBLT 255Q BITMAPCREATE 252Q BITSPERPIXEL 231Q REGIONP 136Q BITSPERPIXEL 126Q \READBMDIMENSIONS 117Q BITMAPCOPY 110Q BITMAPP 103Q EVALV 63Q BITMAPCOPY 54Q BITMAPP 41Q BITMAPCOPY) (1440Q CursorBitMap 1427Q CursorBitMap 1407Q SETQQ 1404Q EDITBM 1375Q VARS 1326Q REPLACE 1323Q INPUT 1254Q REPLACE 1251Q INPUT 1224Q \CURSORDESTINATION 1206Q CursorBitMap 1201Q CursorBitMap 1164Q FINISHEDFLG 1153Q BITMAP 1142Q BITMAP 1120Q CLOSEFN 1077Q FINISHEDFLG 1052Q GRIDON 1036Q COLOR 1027Q FINISHEDFLG 1016Q ORIGINALBITMAP 1006Q DYOFFSET 776Q DXOFFSET 766Q YOFFSET 756Q XOFFSET 747Q EDITBMCLOSEFN 744Q CLOSEFN 735Q EDITBMBUTTONFN 732Q BUTTONEVENTFN 723Q EDITBMREPAINTFN 720Q REPAINTFN 711Q EDITBMRESHAPEFN 706Q RESHAPEFN 677Q EDITBMSCROLLFN 674Q SCROLLFN 664Q BM 523Q NORMALGRIDSQUARE 515Q NORMALGRIDSQUARE 437Q BITMAP 427Q BITMAP 336Q HEIGHT 327Q WIDTH 305Q REPLACE 302Q INPUT 265Q \CURSORDESTINATION 247Q \CURSORDESTINATION 220Q BITMAP 176Q BITMAP 165Q BITMAP 144Q BITMAP 133Q \CURSORDESTINATION 100Q EDITBM 47Q CursorBitMap 36Q CursorBitMap 27Q CursorBitMap 20Q CursorBitMap 11Q CursorBitMap) ( 654Q "Bitmap Editor" 644Q "Indicate the position for the Bitmap Edit window.") EDITBMCLOSEFN D1 (I 0 BMW) @gg (11Q PUTWINDOWPROP) (6 KILL 3 FINISHEDFLG) () TILEAREA D1 (P 5 H P 4 W P 3 TOP P 2 RGHT P 1 Y P 0 X I 5 WIN I 4 SRCBM I 3 HGHT I 2 WDTH I 1 BTM I 0 LFT) A@A@BACDDJH%AKIDjdEHILMhg IM԰HLԸ(62Q BKBITBLT) (56Q REPLACE 21Q BITMAP 13Q BITMAP) () EDITBMBUTTONFNA0019 D1 (NAME ERRORSET L (0 NIL) F 1 MACROY) $`lHj HH hci(32Q \FZEROP 2 GETMOUSESTATE) (6 LASTMOUSEBUTTONS) () EDITBMBUTTONFN D1 (P 45Q RESETSTATE P 44Q MACROY P 42Q OLDVALUE P 41Q POS P 24Q CURSORBM P 23Q BITSPERPIXEL P 22Q EXTENT P 21Q DISPLAYREGION P 20Q DYOFFSET P 17Q DXOFFSET P 16Q YOFFSET P 15Q XOFFSET P 14Q WREGION P 13Q BITSHIGH P 12Q BITSWIDE P 11Q BM P 10Q GRIDINTERIOR P 7 GRIDSPEC P 6 ORIGBM P 5 PAINTW P 4 NEWGRIDSIZE P 3 BITMAPHEIGHT P 2 BITMAPWIDTH P 1 GRIDY0 P 0 GRIDX0 I 0 W F 46Q COLOR F 47Q EDITBMWINDOWMENU F 50Q RESETVARSLST F 51Q GRIDSIZEMENU F 52Q \CURRENTCURSOR F 53Q \CURSORDESTHEIGHT F 54Q \CURSORDESTWIDTH) &0 @g _@g _@g _@g _@g _@ _@g _@g _@g _@g _ @g _"@ _$OXOYOZO[O_&@g cLO@ @ OOO@OOWL O"@ @ /WN`WN7`dodi dg dgjdndh_*dO* cN g!OOOO@g l@g O@g Ol _B@gJO@g OBOldjj_,dO,O,_ @gKO@g OBOl@g _.dO.O._0jO0O0j_ O$jOO$JO$jOO$KOO/O O(OOO@g OOO @g @gO@g OO@g _2dO2O2_4jO4O4j_ @gO@g OO@g _6dO6O6_8jO8O8j_ Ojg@ O@g @g @j@g @g nhg @g OOOg@ OOOOjd@ `lj~@ ldO _(OhdO( O(hWTWT 1%gODhhWPcP_Fog g_JOFcPgOF OJ@ "@ ```I`oo _:dO:di dg dgjdndh_g2@g ^ O i% `NNO NhdO @ h@OOOOO dgOOOo dghddOOOOOggj igO i@ hrOjg@ @g OOOg@ O@g @g @j@g @g nhg  dgſ@g I@gi OOOg@ O@g @g @j@g @g nhg @g OOOkOkOjg@ OOOOjd@ O@g @g @j@g @g nhg UdgbWR`WR8`dodldg dgjdndh_>dO> cR 3\@gL @ dgO@ dgWXJlWVKlJ K h ] OjdM M `dododi dg dgjdndh_@dO@ bMjdO M h@OOOOO ?dgOOO@ @gi !g@gO& WL @ h(3643Q UPDATE/BM/DISPLAY/SELECTED/REGION 3635Q PUTWINDOWPROP 3626Q MENU 3623Q COLORMENU 3601Q PUTWINDOWPROP 3570Q READHOTSPOT 3543Q \EDITBM/PUTUP/DISPLAY 3521Q CLOSEW 3514Q BKBITBLT 3502Q MENU 3403Q PAINTW 3376Q BKBITBLT 3365Q OPENW 3361Q CREATEW 3351Q HEIGHTIFWINDOW 3345Q WIDTHIFWINDOW 3305Q UPDATE/SHADE/DISPLAY 3264Q EDITBMRESHAPEFN 3257Q PUTWINDOWPROP 3236Q MENU 3115Q BKBITBLT 3102Q GETWINDOWUSERPROP 3073Q GETWINDOWUSERPROP 3062Q GETWINDOWUSERPROP 3053Q GETWINDOWUSERPROP 3041Q RESETGRID 3021Q DSPFILL 2747Q PUTWINDOWPROP 2734Q BKBITBLT 2721Q GETWINDOWUSERPROP 2712Q GETWINDOWUSERPROP 2701Q GETWINDOWUSERPROP 2672Q GETWINDOWUSERPROP 2660Q GRID 2641Q PUTWINDOWPROP 2627Q GETWINDOWUSERPROP 2602Q BKBITBLT 2567Q GETWINDOWUSERPROP 2560Q GETWINDOWUSERPROP 2547Q GETWINDOWUSERPROP 2540Q GETWINDOWUSERPROP 2526Q GRID 2507Q GETWINDOWUSERPROP 2477Q DSPFILL 2455Q UPDATE/BM/DISPLAY/SELECTED/REGION 2446Q \CLEARBM 2430Q BKBITBLT 2370Q \EDITBMHOWMUCH 2335Q \EDITBM/PUTUP/DISPLAY 2306Q UPDATE/BM/DISPLAY/SELECTED/REGION 2300Q BKBITBLT 2266Q BKBITBLT 2250Q REGIONP 2241Q \CLEARBM 2231Q GETWINDOWUSERPROP 2210Q BKBITBLT 2157Q BKBITBLT 2132Q BKBITBLT 2066Q REGIONP 2057Q GETWINDOWUSERPROP 2040Q \EDITBMHOWMUCH 2005Q PUTWINDOWPROP 1760Q PUTWINDOWPROP 1741Q MENU 1653Q \APPEND2 1636Q COLORDISPLAYP 1610Q UPDATE/BM/DISPLAY/SELECTED/REGION 1600Q UPDATE/BM/DISPLAY/SELECTED/REGION 1572Q ERROR! 1563Q APPLY 1533Q EDITBMBUTTONFNA0019 1474Q CURSOR 1471Q CURSORCREATE 1444Q BKBITBLT 1430Q BITMAPCREATE 1425Q BITSPERPIXEL 1414Q UPDATE/BM/DISPLAY/SELECTED/REGION 1372Q RESETGRID 1352Q GRID 1333Q GETWINDOWUSERPROP 1323Q BKBITBLT 1310Q GETWINDOWUSERPROP 1301Q GETWINDOWUSERPROP 1270Q GETWINDOWUSERPROP 1261Q GETWINDOWUSERPROP 1247Q DSPFILL 1234Q PUTWINDOWPROP 1176Q GETWINDOWUSERPROP 1160Q GETWINDOWUSERPROP 1135Q PUTWINDOWPROP 1077Q GETWINDOWUSERPROP 1061Q GETWINDOWUSERPROP 1031Q GETWINDOWUSERPROP 1007Q GETWINDOWUSERPROP 710Q PUTWINDOWPROP 653Q GETWINDOWUSERPROP 630Q GETWINDOWUSERPROP 610Q PUTWINDOWPROP 547Q GETWINDOWUSERPROP 525Q GETBOXPOSITION 510Q GETWINDOWUSERPROP 477Q GETWINDOWUSERPROP 463Q GETWINDOWUSERPROP 426Q MENU 316Q INSIDE? 313Q LASTMOUSEY 307Q LASTMOUSEX 275Q \SHADEBITS 252Q INSIDE? 247Q LASTMOUSEY 243Q LASTMOUSEX 233Q GETWINDOWUSERPROP 156Q \INSUREWINDOW 150Q GETWINDOWUSERPROP 137Q GETWINDOWUSERPROP 126Q GETWINDOWUSERPROP 115Q GETWINDOWUSERPROP 104Q GETWINDOWUSERPROP 71Q \INSUREWINDOW 63Q GETWINDOWUSERPROP 52Q GETWINDOWUSERPROP 41Q GETWINDOWUSERPROP 30Q GETWINDOWUSERPROP 17Q GETWINDOWUSERPROP) (3616Q COLOR 3607Q Color 3575Q FINISHEDFLG 3552Q Cursor_ 3450Q DEFAULTMENUHELDFN 3441Q CLRPROMPT 3407Q MENUTYPE# 3315Q Paint 3274Q ShowAsTile 3253Q GRIDSQUARE 3202Q DEFAULTMENUHELDFN 3173Q CLRPROMPT 3150Q MENUTYPE# 3137Q MENUTYPE# 3125Q GridSize_ 3111Q REPLACE 3077Q BMDISPLAYWIDTH 3070Q BMDISPLAYBOTTOM 3057Q DYOFFSET 3050Q DXOFFSET 3015Q REPLACE 2744Q GRIDON 2730Q REPLACE 2716Q BMDISPLAYWIDTH 2707Q BMDISPLAYBOTTOM 2676Q DYOFFSET 2667Q DXOFFSET 2653Q POINT 2635Q GRIDON 2624Q GRIDON 2612Q GridOnOff 2576Q REPLACE 2564Q BMDISPLAYWIDTH 2555Q BMDISPLAYBOTTOM 2544Q DYOFFSET 2535Q DXOFFSET 2521Q POINT 2504Q GRIDON 2473Q REPLACE 2437Q WHOLE 2423Q REPLACE 2420Q TEXTURE 2374Q VISIBLE 2345Q Clear 2254Q \CURSORDESTINATION 2226Q ORIGINALBITMAP 2217Q WHOLE 2203Q REPLACE 2200Q TEXTURE 2126Q REPLACE 2123Q INPUT 2073Q \CURSORDESTINATION 2054Q ORIGINALBITMAP 2044Q VISIBLE 2015Q Reset 2002Q KILL 1777Q FINISHEDFLG 1770Q Stop 1754Q FINISHEDFLG 1745Q OK 1736Q EDITBMMENU 1704Q DEFAULTMENUHELDFN 1675Q CLRPROMPT 1632Q MENUTYPE# 1625Q EDITBMMENU 1620Q MENUTYPE# 1614Q EDITBMMENU 1553Q CURSOR 1537Q ERROR 1530Q INTERNAL 1502Q CURSOR 1464Q CURSOR 1455Q CURSOR 1401Q LASTMOUSEBUTTONS 1345Q POINT 1330Q GRIDON 1317Q REPLACE 1305Q BMDISPLAYWIDTH 1276Q BMDISPLAYBOTTOM 1265Q DYOFFSET 1256Q DXOFFSET 1243Q REPLACE 1173Q BMDISPLAYHEIGHT 1155Q BMDISPLAYHEIGHT 1147Q BITMAP 1142Q DYOFFSET 1074Q BMDISPLAYWIDTH 1056Q BMDISPLAYWIDTH 1050Q BITMAP 1043Q DXOFFSET 1026Q BMDISPLAYHEIGHT 1004Q BMDISPLAYWIDTH 650Q BMDISPLAYBOTTOM 625Q DYOFFSET 615Q YOFFSET 544Q DXOFFSET 534Q XOFFSET 505Q DYOFFSET 474Q BMDISPLAYBOTTOM 460Q DXOFFSET 431Q Move 372Q DEFAULTMENUHELDFN 363Q CLRPROMPT 341Q MENUTYPE# 330Q MENUTYPE# 230Q COLOR 220Q BITMAP 210Q BITMAP 200Q BITMAP 145Q DISPLAYREGION 134Q DYOFFSET 123Q DXOFFSET 112Q YOFFSET 101Q XOFFSET 60Q BITSHIGH 47Q BITSWIDE 36Q BM 25Q GRIDINTERIOR 14Q GRIDSPEC) ( 3425Q "Put change into bitmap?" 3415Q ((YES T "Will put the newly painted bits back in the bitmap being editted.") (NO NIL "Will discard the painted bits, not changing the bitmap being editted.")) 3156Q (3 4 5 6 7 10Q 14Q 20Q 24Q 30Q 34Q 40Q) 2365Q "CLEAR how much?" 2035Q "RESET how much?" 1650Q ((Paint (QUOTE Paint) "Calls the window PAINT command on the bitmap.") (ShowAsTile (QUOTE ShowAsTile) "tiles the upper part of the edit window with the bitmap.") (Grid% On/Off (QUOTE GridOnOff) "Grid On/Off Switch") (GridSize_ (QUOTE GridSize_) "Allows setting of the size of a bit in the edit area.") (Reset (QUOTE Reset) "Sets the bitmap back to the state at the start of this edit session.") (Clear (QUOTE Clear) "Sets the entire bitmap to 0") (Cursor_ (QUOTE Cursor_) "Puts the bitmap into the cursor and exits the editor.") (OK (QUOTE OK) "Leaves the edit session.") (Stop (QUOTE Stop) "Restores the bitmap to its original values and leaves the editor.")) 1644Q ((Color (QUOTE Color) "Choose color to set bits with")) 1525Q (EDITBMBUTTONFNA0019) 347Q ((Move (QUOTE Move) "Selects a different part of the bitmap to edit."))) \EDITBM/PUTUP/DISPLAY D1 (I 5 BITSHIGH I 4 BITSWIDE I 3 GRIDINTERIOR I 2 GRIDSPEC I 1 BM I 0 WINDOW) TCjg@ @g BDEg@ ABDEjd@ A@g @g @j@g @g nhg (121Q BKBITBLT 106Q GETWINDOWUSERPROP 77Q GETWINDOWUSERPROP 66Q GETWINDOWUSERPROP 57Q GETWINDOWUSERPROP 47Q RESETGRID 33Q GRID 17Q GETWINDOWUSERPROP 10Q DSPFILL) (115Q REPLACE 103Q BMDISPLAYWIDTH 74Q BMDISPLAYBOTTOM 63Q DYOFFSET 54Q DXOFFSET 26Q POINT 14Q GRIDON 4 REPLACE) () \EDITBMHOWMUCH D1 (I 3 TITLEQ I 2 EDITHEIGHT I 1 EDITWIDTH I 0 BM) @A@B=`dCdodi dg dgjdndhHdI ;`dCdodi dg dgjdndhHdI  (211Q MENU) (156Q DEFAULTMENUHELDFN 147Q CLRPROMPT 120Q MENUTYPE# 63Q DEFAULTMENUHELDFN 54Q CLRPROMPT 25Q MENUTYPE# 14Q BITMAP 3 BITMAP) ( 133Q ((WholeBitmap (QUOTE WHOLE) "Operates on the entire bitmap")) 40Q ((VisiblePart (QUOTE VISIBLE) "Operates on just the part visible in the edit region") (WholeBitmap (QUOTE WHOLE) "Operates on the entire bitmap"))) EDITBMRESHAPEFN D1 (P 14Q MINCOMMANDAREAWIDTH P 13Q BITMAPHEIGHT P 12Q BMDISPLAYHEIGHT P 11Q BMDISPLAYBOTTOM P 10Q BMDISPLAYWIDTH P 7 BITMAPWIDTH P 6 GRIDINTERIOR P 5 GRIDSQUARE P 4 EDITAREABITHEIGHT P 3 EDITAREABITWIDTH P 2 BMWINTERIORHEIGHT P 1 BMWINTERIORWIDTH P 0 BM I 3 ZEROBMFLG I 2 OLDREGION I 1 OLDIMAGE I 0 BMEDITWINDOW F 22Q EXTENTHEIGHT F 23Q EXTENTWIDTH) @g  l_H_H_@g Y@g Ol@g l_dOOZ@g 'IOJO_dOOd``dll]IMdOO[@gK JMdOO\@gL MLl_OIO_dOO_@g@g OK_ dO O @g@g OL_"dO"O" IKMlOLMlKMLMh^@gN @gO @gO @g@g O_ @gjOOOh @gNNMdh O@g Lc$OIK@ ,c&@g@g W&O @g W$O W&W$ @hC h(670Q EDITBMREPAINTFN 662Q PUTWINDOWPROP 657Q CREATEREGION 650Q MINUS 637Q GETWINDOWUSERPROP 630Q MINUS 617Q GETWINDOWUSERPROP 577Q \INSUREWINDOW 560Q GETWINDOWPROP 547Q PUTWINDOWPROP 524Q PUTWINDOWPROP 501Q PUTWINDOWPROP 471Q GETWINDOWPROP 456Q PUTWINDOWPROP 445Q PUTWINDOWPROP 434Q PUTWINDOWPROP 367Q PUTWINDOWPROP 345Q GETWINDOWUSERPROP 332Q PUTWINDOWPROP 310Q GETWINDOWUSERPROP 242Q PUTWINDOWPROP 216Q PUTWINDOWPROP 122Q PUTWINDOWPROP 74Q GETWINDOWPROP 57Q GETWINDOWPROP 47Q GETWINDOWPROP 6 GETWINDOWUSERPROP) (634Q YOFFSET 614Q XOFFSET 610Q EXTENT 555Q HEIGHT 530Q GRIDSPEC 505Q DISPLAYREGION 466Q HEIGHT 462Q BMDISPLAYHEIGHT 451Q BMDISPLAYWIDTH 440Q BMDISPLAYBOTTOM 430Q GRIDINTERIOR 342Q YOFFSET 336Q YOFFSET 305Q XOFFSET 301Q XOFFSET 236Q BITSHIGH 212Q BITSWIDE 161Q NORMALGRIDSQUARE 153Q NORMALGRIDSQUARE 117Q GRIDSQUARE 71Q HEIGHT 54Q HEIGHT 44Q WIDTH 34Q BITMAP 24Q BITMAP 3 BM) () EDITBMREPAINTFN D1 (P 3 BM P 2 EDITAREABITHEIGHT P 1 EDITAREABITWIDTH P 0 GRIDSPEC I 2 ZEROBM I 1 REGION I 0 WIN) @g @g @g @g @ hdd@dg l@g hdgg` K@g @g @j@g @g nhg @g HIJg@ BKHIJjd@ h(221Q RESETGRID 203Q GRID 167Q GETWINDOWUSERPROP 160Q BKBITBLT 145Q GETWINDOWUSERPROP 136Q GETWINDOWUSERPROP 125Q GETWINDOWUSERPROP 116Q GETWINDOWUSERPROP 106Q BKBITBLT 67Q GETWINDOWUSERPROP 55Q GETWINDOWUSERPROP 42Q CLEARW 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (176Q POINT 164Q GRIDON 154Q REPLACE 142Q BMDISPLAYWIDTH 133Q BMDISPLAYBOTTOM 122Q DYOFFSET 113Q DXOFFSET 102Q NOTINUSEGRAY 77Q REPLACE 74Q TEXTURE 64Q BMDISPLAYBOTTOM 52Q BMDISPLAYWIDTH 30Q BM 21Q BITSHIGH 12Q BITSWIDE 3 GRIDSPEC) () UPDATE/SHADE/DISPLAY D1 (P 0 BOTTOM I 1 WIN I 0 BM) %Ag jHAg Ag H@A h(41Q TILEAREA 31Q GETWINDOWPROP 22Q GETWINDOWPROP 6 GETWINDOWUSERPROP) (26Q HEIGHT 17Q WIDTH 3 BMDISPLAYBOTTOM) () UPDATE/BM/DISPLAY/SELECTED/REGION D1 (I 0 W) s@g @g @g @g Ghjd@dg @g @g @g @g @g @g ggn (160Q BKBITBLT 143Q GETWINDOWUSERPROP 134Q GETWINDOWUSERPROP 124Q GETWINDOWUSERPROP 114Q GETWINDOWUSERPROP 105Q GETWINDOWUSERPROP 75Q GETWINDOWUSERPROP 66Q GETWINDOWUSERPROP 50Q GETWINDOWUSERPROP 34Q GETWINDOWUSERPROP 22Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (151Q INVERT 146Q TEXTURE 140Q BITSHIGH 131Q BITSWIDE 121Q DYOFFSET 111Q YOFFSET 102Q BMDISPLAYBOTTOM 72Q DXOFFSET 63Q XOFFSET 45Q BITSHIGH 37Q BITMAP 31Q BM 17Q BITSWIDE 11Q BITMAP 3 BM) () SHOWBUTTON D1 (P 0 BLOCK I 1 DS I 0 BUTTON) @HhdA @HA h(23Q CENTERPRINTINREGION 13Q WBOX) NIL () RESETGRID D1 (P 10Q X P 6 Y P 4 SHADE P 3 MAXY P 2 MAXX P 1 YOFFSET P 0 XOFFSET I 6 W I 5 ORGY I 4 ORGX I 3 HEIGHT I 2 WIDTH I 1 GRIDSPEC I 0 BM) z PDjbEjb Fg XFg YDBkZECk[dENMDJDOO1@OHNI ONLgAFg jgF Ok_Nk^h(146Q SHADEGRIDBOX 133Q GETWINDOWUSERPROP 113Q EDITBMTEXTURE 35Q GETWINDOWUSERPROP 25Q GETWINDOWUSERPROP) (141Q POINT 130Q GRIDON 123Q REPLACE 32Q YOFFSET 22Q XOFFSET) () \READBMDIMENSIONS D1 (P 1 HEIGHT P 0 WIDTH) q oi i X3oi i kH%oi i kI(oi i oi i Y3oHI` (156Q BITMAPCREATE 153Q BITSPERPIXEL 130Q READ 123Q PRIN1 112Q TERPRI 105Q PRIN1 65Q TERPRI 60Q PRIN1 40Q TERPRI 33Q PRIN1 17Q READ 12Q PRIN1) (150Q \CURSORDESTINATION) ( 141Q "?" 117Q "How high would you like the bitmap to be? " 101Q "HEIGHT must be positive." 54Q "WIDTH must be positive." 27Q "?" 6 "How wide would you like the bitmap to be? ") EDITSHADEA0003A0004 D1 (NAME ERRORSET) `` i(13Q DOWINDOWCOM 10Q WHICHW) (5 LASTMOUSEY 2 LASTMOUSEX) () EDITSHADEA0003 D1 (NAME ERRORSET P 1 YPIXEL P 0 XPIXEL F 4 DS F 5 QUITREGION F 6 SEDW F 7 SHADEBM F 10Q X F 11Q Y F 12Q GRIDSPEC F 13Q RESETVARSLST F 14Q BMWIDTH F 15Q SHADEREGION F 16Q RESETY F 17Q GRIDINTERIOR F 20Q BMHEIGHT) N gVhhhWcWWlW WgT `dljV ljoi @`lZjJJ V WT cT c \WW XmW DWW YmW 3HI`lj`jgWgT WHI`ljkjtUWW UngT `l[j5KK +UT T UngT hghciUngT g(506Q DSPFILL 453Q DSPFILL 436Q INSIDE? 433Q LASTMOUSEY 427Q LASTMOUSEX 420Q \FZEROP 374Q GETMOUSESTATE 370Q DSPFILL 353Q INSIDE? 337Q BLOCK 310Q SHADEGRIDBOX 251Q STRICTLY/BETWEEN 241Q GRIDYCOORD 230Q STRICTLY/BETWEEN 220Q GRIDXCOORD 207Q INSIDE? 202Q LASTMOUSEY 174Q LASTMOUSEX 165Q TOTOPW 155Q \FZEROP 127Q GETMOUSESTATE 117Q EDITSHADEA0003A0004 77Q BLOCK 73Q TOTOPW 53Q GETMOUSESTATE 47Q DSPFILL 35Q CREATETEXTUREFROMBITMAP) (512Q STOP 502Q INVERT 461Q STOP 447Q INVERT 400Q LASTMOUSEBUTTONS 364Q INVERT 320Q LASTMOUSEBUTTONS 303Q POINT 276Q REPLACE 271Q DARKBITSHADE 260Q LASTMOUSEBUTTONS 133Q LASTMOUSEBUTTONS 57Q LASTMOUSEBUTTONS 43Q TEXTURE 2 CLOSEW) ( 113Q (EDITSHADEA0003A0004)) EDITSHADE D1 (P 17Q RESETZ P 16Q RESETY P 15Q LISPXHIST P 13Q BOXSIZE P 12Q DS P 11Q SEDW P 10Q Y P 7 X P 6 GRIDSPEC P 5 GRIDINTERIOR P 4 BMHEIGHT P 3 BMWIDTH P 2 SHADEREGION P 1 QUITREGION P 0 SHADEBM I 0 SHADE F 20Q LISPXHIST F 21Q RESETVARSLST) I @ @ #@d3 ild @ ld Xl}ll2l Yl lnld Zn,dhddo  _ _H [H \lLnK_dOO_Og` Ogg OgI Ogn$OKl_lOLl_Od ^ OgOOOKOL ] OgH OgJ Ogj Ogj O W !W"og hg_ O@3@KlLlH H(504Q CREATETEXTUREFROMBITMAP 456Q ERROR! 447Q RESETRESTORE 434Q EDITSHADEA0003 413Q EDITSHADEREPAINTFN 406Q PUTWINDOWPROP 375Q PUTWINDOWPROP 364Q PUTWINDOWPROP 353Q PUTWINDOWPROP 342Q PUTWINDOWPROP 336Q CREATEREGION 312Q PUTWINDOWPROP 306Q CREATEREGION 242Q PUTWINDOWPROP 231Q PUTWINDOWPROP 216Q PUTWINDOWPROP 154Q BITMAPHEIGHT 147Q BITMAPWIDTH 137Q \INSUREWINDOW 132Q CREATEW 127Q GETBOXREGION 107Q CREATEREGION 72Q CREATEREGION 56Q \ILLEGAL.ARG 52Q BITMAPCREATE 40Q BITMAPCREATE 25Q \BITMAPFROMTEXTURE 13Q CREATETEXTUREFROMBITMAP 6 BITMAPP) (442Q ERROR 431Q INTERNAL 402Q YOFFSET 371Q XOFFSET 360Q SHADEREGION 347Q SHADEBM 317Q GRIDINTERIOR 247Q GRIDSPEC 236Q QUITREGION 226Q EDITSHADEREPAINTFN 223Q REPAINTFN 213Q \RUNNING.PROCESS 210Q PROCESS) ( 426Q (EDITSHADEA0003) 123Q "Indicate position of Shade edit window.") \BITMAPFROMTEXTURE D1 (I 0 FIXP) Yld aljNMEljLK5@`lLlNlYIJjHNLkLk\Nk^H(5 BITMAPCREATE) (67Q ARRAYP 61Q ARRAYP 40Q BITMASKARRAY) () EDITSHADEREPAINTFN D1 (P 3 BMHEIGHT P 2 BMWIDTH P 1 SHADE P 0 GRIDSPEC I 0 WIN) w@@g X@g Yd ZI [@g goh@ HHHJHKln@ IHJKjd@ HJKg@ @g Ig@ h(163Q DSPFILL 153Q GETWINDOWUSERPROP 144Q GRID 131Q RESETGRID 116Q GRAYBOXAREA 62Q SHOWBUTTON 43Q GETWINDOWUSERPROP 33Q BITMAPHEIGHT 26Q BITMAPWIDTH 21Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP) (157Q TEXTURE 150Q SHADEREGION 137Q POINT 46Q QUIT 40Q QUITREGION 16Q SHADEBM 6 GRIDSPEC) ( 52Q "Quits") GRAYBOXAREA D1 (I 6 DS I 5 TEXTURE I 4 OUTLINESIZE I 3 HEIGHT I 2 WIDTH I 1 Y I 0 X) ND3 Dkb hddF@DADBDlCDlggEn hddF@ABCgghF (113Q BKBITBLT 107Q DSPTEXTURE 64Q BKBITBLT 15Q \ILLEGAL.ARG) (102Q REPLACE 77Q TEXTURE 52Q REPLACE 47Q TEXTURE) () \SHADEBITS D1 (P 11Q Y P 10Q X P 7 USESHADE P 6 USECOLOR P 5 OTHERSHADE P 4 SHADE P 3 OTHERCOLOR P 2 YPIXEL P 1 XPIXEL P 0 BITSPERPIXEL I 6 COLOR I 5 BITSHIGH I 4 BITSWIDE I 3 W I 2 GRIDINTERIOR I 1 GRIDSPEC I 0 BM) @ XFH [HkFk`jj`FK]`l_jOO IDC _A _dOO_jOOjYJEC _A _dOO_jOOjZBOO `ljFLKM_@ICg JCg N@Cg Cg CjCg Cg nhg IJOgACg jgC h(415Q SHADEGRIDBOX 402Q GETWINDOWUSERPROP 362Q BKBITBLT 347Q GETWINDOWUSERPROP 340Q GETWINDOWUSERPROP 327Q GETWINDOWUSERPROP 320Q GETWINDOWUSERPROP 303Q GETWINDOWUSERPROP 272Q GETWINDOWUSERPROP 234Q INSIDE? 171Q GRIDYCOORD 163Q LASTMOUSEY 122Q GRIDXCOORD 114Q LASTMOUSEX 102Q \FZEROP 51Q GETMOUSESTATE 14Q OPPOSITECOLOR 6 BITSPERPIXEL) (410Q POINT 377Q GRIDON 372Q REPLACE 356Q REPLACE 344Q BMDISPLAYWIDTH 335Q BMDISPLAYBOTTOM 324Q DYOFFSET 315Q DXOFFSET 300Q YOFFSET 267Q XOFFSET 241Q LASTMOUSEBUTTONS 55Q LASTMOUSEBUTTONS 40Q DARKBITSHADE 30Q DARKBITSHADE) () READHOTSPOT D1 (P 5 CURSORBM P 4 DOWNYET? P 3 YPIXEL P 2 XPIXEL P 1 NOWCURSOR I 3 DS I 2 GRIDINTERIOR I 1 GRIDSPEC I 0 BM) `lHj HH `YdZA AlI[A AlC JK`gAgC L`l^jKNABC C L`jhJJC A ZC A [`gAgC  ld@ @hdM MhJK hK@JK gAgC (367Q SHADEGRIDBOX 353Q EDITBMTEXTURE 342Q CURSOR 337Q CURSORCREATE 327Q BKBITBLT 317Q BITMAPCREATE 314Q BITSPERPIXEL 303Q \FZEROP 275Q SHADEGRIDBOX 255Q GRIDYCOORD 251Q LASTMOUSEY 244Q GRIDXCOORD 240Q LASTMOUSEX 215Q INSIDE? 212Q LASTMOUSEY 206Q LASTMOUSEX 160Q GETMOUSESTATE 151Q GETMOUSESTATE 146Q SHADEGRIDBOX 125Q CURSORPOSITION 107Q BOTTOMOFGRIDCOORD 64Q LEFTOFGRIDCOORD 50Q CURSOR 37Q \BACKGROUND 32Q \FZEROP 2 GETMOUSESTATE) (362Q POINT 356Q REPLACE 270Q POINT 264Q REPLACE 261Q NOTINUSEGRAY 224Q LASTMOUSEBUTTONS 164Q LASTMOUSEBUTTONS 141Q POINT 135Q REPLACE 132Q NOTINUSEGRAY 100Q CURSOR 55Q CURSOR 6 LASTMOUSEBUTTONS) () WBOX D1 (I 3 DS I 2 TEXT I 1 THCK I 0 REG) PAlbhddChdddggn@ hddC@A@A@Al@AlggBdC (115Q BKBITBLT 111Q DSPTEXTURE 34Q BKBITBLT) (102Q REPLACE 77Q TEXTURE 24Q REPLACE 21Q TEXTURE) () \CLEARBM D1 (I 2 REG I 1 TXT I 0 BM) hdd@hdddggAjB (26Q BKBITBLT) (15Q REPLACE 12Q TEXTURE) () EDITBMTEXTURE D1 (P 1 SHADE P 0 COLOR I 2 Y I 1 X I 0 BM)  @ABhX@ kHk`jH(15Q BITSPERPIXEL) (27Q DARKBITSHADE) () EXPANDBITMAP D1 (P 15Q Y P 13Q I P 11Q X P 7 NEWBITMAP P 6 NEWY P 5 NEWX P 4 NEWHEIGHT P 3 NEWWIDTH P 2 BITSPERPIXEL P 1 HEIGHT P 0 WIDTH I 2 HEIGHTFACTOR I 1 WIDTHFACTOR I 0 BITMAP) AkbBkb@Y@X@ZAH[BI\KLJ _j]Hkj OO8Ak OO#@OjOMjkIgg MkԽOk_Ok_Lk^jIk OO