(FILECREATED "19-Sep-85 17:53:14" ("compiled on " {DSK}HLDISPLAY.;6) "15-Sep-85 20:59:21" recompiled changes: GRID GRIDXCOORD GRIDYCOORD LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD EDITBMSCROLLFN SHADEGRIDBOX INSIDE? MOUSESTATE-EXPR MOUSESTATE-NAME DECODEBUTTONS PTDIFFERENCE PTPLUS GETPOSITION GETBOXPOSITION DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW GETREGION \GETREGION.PACKPTS \GETREGION.CHECKBASEPT \GETREGION.CHECKOPPT \GETREGIONTRACKWITHBOX \UPDATEXYANDBOX GETBOXREGION \TRACKWITHBOX MOVEBOX DRAWGRAYBOX BLTHLINE BLTVLINE SETCORNER MOUSECONFIRM NEAREST/PT/ON/GRID PTON10GRID NEAREST/MULTIPLE \SW2BM COMPOSEREGS TRANSLATEREG EDITBM EDITBMCLOSEFN TILEAREA EDITBMBUTTONFN \EDITBM/PUTUP/DISPLAY \EDITBMHOWMUCH EDITBMRESHAPEFN EDITBMREPAINTFN UPDATE/SHADE/DISPLAY UPDATE/BM/DISPLAY/SELECTED/REGION SHOWBUTTON RESETGRID \READBMDIMENSIONS EDITSHADE \BITMAPFROMTEXTURE EDITSHADEREPAINTFN GRAYBOXAREA \SHADEBITS READHOTSPOT WBOX \CLEARBM EXPANDBITMAP SHRINKBITMAP \FAST4BIT in "INTERLISP-D 16-Sep-85 ..." dated "16-Sep-85 10:25:18") (FILECREATED "19-Sep-85 17:44:23" {DSK}HLDISPLAY.;6 105820 changes to: (FNS EDITBMSCROLLFN GRID GRIDXCOORD GRIDYCOORD LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD SHADEGRIDBOX INSIDE? MOUSESTATE-EXPR MOUSESTATE-NAME DECODEBUTTONS PTDIFFERENCE PTPLUS GETPOSITION GETBOXPOSITION DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW GETREGION \GETREGION.PACKPTS \GETREGION.CHECKBASEPT \GETREGION.CHECKOPPT \GETREGIONTRACKWITHBOX \UPDATEXYANDBOX GETBOXREGION \TRACKWITHBOX MOVEBOX DRAWGRAYBOX BLTHLINE BLTVLINE SETCORNER MOUSECONFIRM NEAREST/PT/ON/GRID PTON10GRID NEAREST/MULTIPLE \SW2BM COMPOSEREGS TRANSLATEREG EDITBM EDITBMCLOSEFN TILEAREA EDITBMBUTTONFN \EDITBM/PUTUP/DISPLAY \EDITBMHOWMUCH EDITBMRESHAPEFN EDITBMREPAINTFN UPDATE/SHADE/DISPLAY UPDATE/BM/DISPLAY/SELECTED/REGION SHOWBUTTON RESETGRID \READBMDIMENSIONS EDITSHADE \BITMAPFROMTEXTURE EDITSHADEREPAINTFN GRAYBOXAREA \SHADEBITS READHOTSPOT WBOX \CLEARBM EXPANDBITMAP SHRINKBITMAP \FAST4BIT) (VARS DASHEDSHADE \4BITEXPANSIONTABLE) previous date: " 4-Sep-85 21:03:00" {DSK}HLDISPLAY.;4) GRID D1 (P 14Q Y P 12Q Y P 10Q X 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 n%CjCd Ch3@ClھhddDHICBK]ggL HAkJCHJC Odj/OO #jOOHAkJCOHAkJCohddDHAJCICMggL hddDHIAJ]CggL IBkKCIKC OdrjQOO EjO1OIBkKC.ddDOINMggL OJ__>OIBkKChddDHIBKCMCggL ddDHOMNggL OK__nCdgHAJH O/OjOO tjOOHAJOHAJ[IBKI O-Oj;OO /jOOIBKOIBKDOOkOK__OJ__y h(1021Q \ILLEGAL.ARG 720Q \FZEROP 630Q \FZEROP 541Q BKBITBLT 513Q BKBITBLT 426Q BKBITBLT 354Q \FZEROP 307Q BKBITBLT 260Q BKBITBLT 163Q \FZEROP 114Q BKBITBLT 45Q \FZEROP 21Q TEXTUREP) (563Q POINT 534Q REPLACE 531Q TEXTURE 506Q REPLACE 503Q TEXTURE 421Q REPLACE 416Q TEXTURE 302Q REPLACE 277Q TEXTURE 253Q REPLACE 250Q TEXTURE 107Q REPLACE 104Q TEXTURE) () GRIDXCOORD D1 (L (1 GRIDSPEC 0 XPOS)) @AjHHAHAkNIL NIL () GRIDYCOORD D1 (L (1 GRIDSPEC 0 YPOS)) @AjHHAHAkNIL NIL () LEFTOFGRIDCOORD D1 (L (1 GRIDSPEC 0 GRIDX)) AA@NIL NIL () BOTTOMOFGRIDCOORD D1 (L (1 GRIDSPEC 0 GRIDY)) AA@NIL NIL () EDITBMSCROLLFN D1 (P 31Q DYOFFSET P 30Q DXOFFSET P 27Q BITSHIGH P 26Q BITSWIDE P 25Q BITMAPHEIGHT P 24Q BITMAPWIDTH P 23Q BM P 22Q EBMYOFFSET P 21Q EBMXOFFSET P 20Q EBMYLIMIT P 17Q EBMXLIMIT P 16Q GRIDINTERIOR P 15Q GHEIGHT P 14Q GWIDTH P 13Q GIHEIGHT P 12Q GIBOTTOM P 11Q GILEFT P 10Q EXTENTHEIGHT P 7 EXTENTWIDTH P 6 EXTENT P 5 WWIDTH P 4 WHEIGHT P 3 REG P 2 GRIDSPEC P 1 DYGRID P 0 DXGRID I 2 DY I 1 DX I 0 W) %jdP$@g Z@ [@g \@g ]@g _@g _"@g _$@g _&d_(O&_*@g _,@g _.@g _0@g _2O"O,_O$O._ JO_O_O_J_J_@ ^_N_AF@gO(O,Aj_" NjO"OO(hjd@OO``ggjO O&JO,*jAjAJ O(O_4dO4O4Xjh@gO"H_" NjO"OO(jO_6dO6O6@OHOO@OO``gghO hjd@OO,HOO``ggjO O&JHO.O,HjAjO"AJ _8dO8O8Xja@gO"H_" NjO"OO(djj@OO@OHOO``gghO hjd@OOHOOggj O&JHO.jd@ BN@gO*O.oBj_$ NjO$OO*hjd@OO``ggjO O&JO,O.MjBO&O OjB_:dO:O:J _dO>O>@OOIO@OO``gghO hjd@OOO.IO``ggjO O&JO,IjO.IٱBjO$OdBBJ _@dO@O@Yj@gO$I_$ NjO$OO*djj@OO@OOIO``gghO 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 Z(2341Q BKBITBLT 2326Q GETWINDOWUSERPROP 2317Q GETWINDOWUSERPROP 2306Q GETWINDOWUSERPROP 2277Q GETWINDOWUSERPROP 2265Q PUTWINDOWPROP 2227Q GETWINDOWUSERPROP 2211Q GETWINDOWUSERPROP 2166Q PUTWINDOWPROP 2130Q GETWINDOWUSERPROP 2112Q GETWINDOWUSERPROP 2062Q GETWINDOWUSERPROP 2040Q GETWINDOWUSERPROP 2003Q GRID 1765Q GETWINDOWUSERPROP 1755Q RESETGRID 1737Q BKBITBLT 1702Q BKBITBLT 1613Q PUTWINDOWPROP 1552Q GRIDYCOORD 1506Q BKBITBLT 1442Q BKBITBLT 1342Q PUTWINDOWPROP 1301Q GRIDYCOORD 1221Q BKBITBLT 1147Q PUTWINDOWPROP 1112Q RESETGRID 1074Q BKBITBLT 1042Q BKBITBLT 754Q PUTWINDOWPROP 713Q GRIDXCOORD 656Q BKBITBLT 612Q BKBITBLT 513Q PUTWINDOWPROP 450Q GRIDXCOORD 421Q 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) (2335Q REPLACE 2323Q BMDISPLAYWIDTH 2314Q BMDISPLAYBOTTOM 2303Q DYOFFSET 2274Q DXOFFSET 2224Q BMDISPLAYHEIGHT 2206Q BMDISPLAYHEIGHT 2200Q BITMAP 2173Q DYOFFSET 2125Q BMDISPLAYWIDTH 2107Q BMDISPLAYWIDTH 2101Q BITMAP 2074Q DXOFFSET 2057Q BMDISPLAYHEIGHT 2035Q BMDISPLAYWIDTH 1776Q POINT 1762Q GRIDON 1732Q REPLACE 1727Q TEXTURE 1673Q REPLACE 1670Q INPUT 1665Q SCREENHEIGHT 1662Q SCREENWIDTH 1602Q YOFFSET 1477Q REPLACE 1474Q TEXTURE 1471Q SCREENHEIGHT 1466Q SCREENWIDTH 1433Q REPLACE 1430Q INPUT 1425Q SCREENHEIGHT 1422Q SCREENWIDTH 1331Q YOFFSET 1250Q BITMAP 1212Q REPLACE 1207Q TEXTURE 1204Q SCREENHEIGHT 1201Q SCREENWIDTH 1124Q YOFFSET 1067Q REPLACE 1064Q TEXTURE 1033Q REPLACE 1030Q INPUT 1025Q SCREENHEIGHT 1022Q SCREENWIDTH 743Q XOFFSET 647Q REPLACE 644Q TEXTURE 641Q SCREENHEIGHT 636Q SCREENWIDTH 603Q REPLACE 600Q INPUT 575Q SCREENHEIGHT 572Q SCREENWIDTH 502Q XOFFSET 412Q REPLACE 407Q TEXTURE 404Q SCREENHEIGHT 401Q SCREENWIDTH 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) ( 1135Q 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) OE3 jhddF@D HAD HDHlDHlgCB EgF@D AD kh(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 () GETPOSITIONA0001 D1 (NAME ERRORSET L (0 NIL) F 1 WINDOW F 2 MACROY) W`lj`lHj HH Q ``g Q cd Q ci(120Q LASTMOUSEY 114Q LASTMOUSEX 105Q \ILLEGAL.ARG 77Q DISPLAYSTREAMP 74Q \GETSTREAM 50Q \FZEROP 20Q GETMOUSESTATE 2 GETMOUSESTATE) (71Q OUTPUT 64Q LASTMOUSEY 61Q LASTMOUSEX 24Q LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () GETPOSITION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 CURSOR I 0 WINDOW F 4 RESETVARSLST F 5 CROSSHAIRS) >AU 1gHhhTcYog gIcgI KJ(71Q ERROR! 64Q APPLY 41Q GETPOSITIONA0001 6 CURSOR) (55Q CURSOR 45Q ERROR 36Q INTERNAL 14Q CURSOR) ( 33Q (GETPOSITIONA0001)) GETBOXPOSITIONA0001 D1 (NAME ERRORSET P 0 MOUSEDOWNFLG F 7 ORGX F 10Q ORGY F 11Q BOXWIDTH F 12Q BOXHEIGHT F 13Q PROMPTMSG F 14Q WINDOW F 15Q CROSSHAIRS F 16Q MACROY) `ljhaW3 HW3 B`WWlWWcjWc`WWlWWcjWcWW `c`cWW H"`lYjII iW H`lZjJJ WW(WdWػdKKW WdWؼdLLW WdWؽdMMWdWؾdNNci(334Q DSPYSCREENTOWINDOW 312Q DSPXSCREENTOWINDOW 263Q CLRPROMPT 253Q \FZEROP 223Q CURSOR 213Q \FZEROP 164Q \TRACKWITHBOX 160Q PROMPTPRINT 133Q \SETCURSORPOSITION 2 GETMOUSESTATE) (233Q LASTMOUSEBUTTONS 173Q LASTMOUSEBUTTONS 145Q LASTMOUSEY 137Q LASTMOUSEX 73Q LASTMOUSEY 37Q LASTMOUSEX 6 LASTMOUSEBUTTONS) () GETBOXPOSITION 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 GETBOXPOSITIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETBOXPOSITIONA0001)) 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) () GETREGIONA0001A0003 D1 (NAME ERRORSET L (0 NIL) F 1 OPPX F 2 OPPY F 3 BASEX F 4 BASEY F 5 OPPT F 6 NEWREGFNS F 7 BASEPT F 10Q NOTTIMEDOUT F 11Q DOWNFLG F 12Q MINHEIGHT F 13Q MINWIDTH F 14Q OLDMOUSEX F 15Q OLDMOUSEY F 16Q BEGCLOCK F 17Q FORCEPS) WWW` Ghc>W`lHj HH  `lHj HH ich`lj`ljW `lHj HH `QjHHjH`SjHHjHQScc`RjHHjH`TjHHjHRTccVW WWVWU STQR i QR `W`WU`cU`cWWVWU h i(517Q \UPDATEXYANDBOX 512Q \GETREGION.CHECKOPPT 431Q \SETCURSORPOSITION 423Q \UPDATEXYANDBOX 416Q SETCORNER 406Q \GETREGION.CHECKOPPT 371Q \GETREGION.CHECKBASEPT 362Q \GETREGION.PACKPTS 216Q \FZEROP 166Q GETMOUSESTATE 162Q CURSOR 112Q \FZEROP 60Q \FZEROP 16Q \CLOCKGREATERP 2 GETMOUSESTATE) (472Q LASTMOUSEY 462Q LASTMOUSEX 447Q LASTMOUSEY 440Q LASTMOUSEX 325Q LASTMOUSEY 303Q LASTMOUSEY 246Q LASTMOUSEX 224Q LASTMOUSEX 172Q LASTMOUSEBUTTONS 144Q LASTMOUSEBUTTONS 130Q LASTMOUSEBUTTONS 66Q LASTMOUSEBUTTONS 34Q LASTMOUSEBUTTONS 13Q CLICKWAITTIME) () GETREGIONA0001 D1 (NAME ERRORSET P 23Q BEGCLOCK P 22Q DOWNFLG P 21Q NEWMOUSEY P 20Q NEWMOUSEX P 17Q INITTOP P 16Q INITBOTTOM P 15Q INITRIGHT P 14Q INITLEFT P 13Q OLDMOUSEY P 12Q OLDMOUSEX P 11Q OPPY P 10Q OPPX P 7 BASEY P 6 BASEX P 5 NEWREGFNS P 4 MINHEIGHT P 3 MINWIDTH P 2 NOTTIMEDOUT P 1 OPPT P 0 BASEPT F 30Q INITCORNERS F 31Q OLDREGION F 32Q MINWIDTH F 33Q MINHEIGHT F 34Q NEWREGIONFN F 35Q MACROY) hhhhiW43 jW63 jW8ddh0W0L`_`_jOK^Kd``k_KپOL_`]`L_*jO*GO*D l5W0_("i+W0W0_W0_W0_3 hO(W0 j_L_OO W2O`kjF`_W2_dW2_lOO`_W2_dW2_lOO_KLMHI I_I_NOOO OO NOOO j _&oi MNOOO NdOOOdOOON_,jO,O,jO,OO_.jO.O.jO.hNOOO hc:i(667Q ERROR! 663Q DRAWGRAYBOX 550Q DRAWGRAYBOX 534Q GETREGIONA0001A0003 521Q CLOCK 514Q SETCORNER 501Q \SETCURSORPOSITION 471Q DRAWGRAYBOX 444Q \GETREGION.CHECKOPPT 432Q \GETREGION.PACKPTS 305Q \GETREGIONTRACKWITHBOX 301Q \SETCURSORPOSITION 261Q \ILLEGAL.ARG 164Q LENGTH 52Q GETMOUSESTATE) (366Q LASTMOUSEY 326Q LASTMOUSEX 315Q LASTMOUSEBUTTONS 142Q SCREENHEIGHT 133Q SCREENHEIGHT 113Q SCREENWIDTH 105Q SCREENWIDTH 64Q LASTMOUSEY 56Q LASTMOUSEX) ( 530Q (GETREGIONA0001A0003)) GETREGION D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 5 INITCORNERS I 4 NEWREGIONFNARG I 3 NEWREGIONFN I 2 OLDREGION I 1 MINHEIGHT I 0 MINWIDTH F 4 RESETVARSLST F 5 EXPANDINGBOX) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q GETREGIONA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (GETREGIONA0001)) \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 1 POSTEMP F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 YTEMP F 7 BASEPT F 10Q XTEMP F 11Q THRUONCE F 12Q OLDCURSOR F 13Q WIDTH F 14Q HEIGHT F 15Q OLDMOUSEX F 16Q OLDMOUSEY F 17Q FORCEPS F 20Q NEWREGFNS) yW`ljhhic`ljW c`lHj HH W RT`TRlۈTRl`RTccRTcSU`USlۈUSl`SUcc SUcTU [`dW`WH`cWc`k`kلjQjcWQ`k`kنjQjQ`cWcWQ`k`kcjQjcQW W Wc RWcjSVjWRcVSc TURSh` TWcUVc RWcSVch` (563Q DRAWGRAYBOX 524Q DRAWGRAYBOX 441Q \GETREGION.CHECKBASEPT 243Q \SETCURSORPOSITION 117Q CURSOR 107Q \FZEROP 57Q GETMOUSESTATE 51Q CURSOR 6 GETMOUSESTATE) (557Q DASHEDSHADE 520Q DASHEDSHADE 412Q SCREENHEIGHT 403Q SCREENHEIGHT 365Q LASTMOUSEY 346Q SCREENWIDTH 337Q SCREENWIDTH 316Q SCREENWIDTH 307Q SCREENWIDTH 275Q LASTMOUSEX 263Q LASTMOUSEY 252Q LASTMOUSEX 216Q LASTMOUSEY 176Q LASTMOUSEY 147Q LASTMOUSEX 127Q LASTMOUSEX 63Q LASTMOUSEBUTTONS 33Q LASTMOUSEBUTTONS 12Q LASTMOUSEBUTTONS) () \GETREGIONTRACKWITHBOX D1 (P 11Q THRUONCE P 10Q POSTEMP P 7 OLDMOUSEY P 6 OLDMOUSEX P 5 YTEMP P 4 XTEMP P 2 OLDCURSOR P 1 HEIGHT P 0 WIDTH F 12Q BASEX F 13Q OPPX F 14Q BASEY F 15Q OPPY) > WWWW WWWWh` oi [WWWWh` Kh(72Q ERROR! 65Q DRAWGRAYBOX 44Q \GETREGIONTRACKWITHBOXA0001 34Q DRAWGRAYBOX) (61Q DASHEDSHADE 30Q DASHEDSHADE) ( 40Q (\GETREGIONTRACKWITHBOXA0001)) \UPDATEXYANDBOX D1 (P 1 TEMPY P 0 TEMPX I 0 BASEPTCHANGE? F 2 BASEX F 3 BASEY F 4 OPPX F 5 OPPY F 6 BASEPT F 7 OPPT) S @"VRVXjSIjTURSHcIc WYTWXjUIjRSTUHcIc RSTU h(117Q SETCORNER 107Q MOVEBOX 44Q MOVEBOX) NIL () GETBOXREGION D1 (I 5 PROMPTMSG I 4 WINDOW I 3 ORGY I 2 ORGX I 1 HEIGHT I 0 WIDTH) @ABCDE HH@Ah(11Q GETBOXPOSITION) NIL () \TRACKWITHBOXA0001 D1 (NAME ERRORSET L (0 NIL) F 1 ORGX F 2 ORGY F 3 BOXWIDTH F 4 BOXHEIGHT F 5 OLDCURSOR F 6 MLMASK F 7 ORGLEFTMIDDLE F 10Q FORCEPS) V`Whh`ljW c `lHj HH U Sj`QSl؈QSl`QScjScTj`RTl؈RTl`RTcjTcQR hQd`jR`jSQRQSRT `c`cQSRT 0(316Q DRAWGRAYBOX 272Q DRAWGRAYBOX 226Q \SETCURSORPOSITION 106Q CURSOR 77Q \FZEROP 47Q GETMOUSESTATE 41Q CURSOR 2 GETMOUSESTATE) (303Q LASTMOUSEY 276Q LASTMOUSEX 250Q LASTMOUSEY 237Q LASTMOUSEX 203Q LASTMOUSEY 163Q LASTMOUSEY 136Q LASTMOUSEX 116Q LASTMOUSEX 53Q LASTMOUSEBUTTONS 23Q LASTMOUSEBUTTONS 7 LASTMOUSEBUTTONS) () \TRACKWITHBOX D1 (P 3 NOERROR P 2 ORGLEFTMIDDLE P 1 OLDCURSOR P 0 MLMASK F 4 ORGX F 5 ORGY F 6 BOXWIDTH F 7 BOXHEIGHT) 4l1H`ZTUTVUW oi [TUTVUW Kh(60Q ERROR! 53Q DRAWGRAYBOX 36Q \TRACKWITHBOXA0001 26Q DRAWGRAYBOX) (10Q LASTMOUSEBUTTONS) ( 32Q (\TRACKWITHBOXA0001)) MOVEBOX D1 (I 5 Y3 I 4 X3 I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) &ABD @CE C@B E@D BAC DAE (43Q BLTVLINE 35Q BLTVLINE 27Q BLTHLINE 21Q BLTHLINE 13Q BLTVLINE 5 BLTHLINE) NIL () DRAWGRAYBOX D1 (I 5 SHADE I 4 W I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) &A@BDE @ACDE C@BDE BACDE (43Q BLTVLINE 32Q BLTHLINE 21Q BLTVLINE 10Q BLTHLINE) NIL () BLTHLINE D1 (I 4 SHADE I 3 W I 2 XB I 1 XA I 0 Y) 5hddC`AdBB@BAjHHjHlggD` (62Q BKBITBLT) (56Q GRAYSHADE 50Q INVERT 45Q TEXTURE 10Q ScreenBitMap) () BLTVLINE D1 (I 4 SHADE I 3 W I 2 YB I 1 YA I 0 X) 5hddC`@AdBBlBAjHHjHggD` (62Q BKBITBLT) (56Q GRAYSHADE 50Q INVERT 45Q TEXTURE 10Q ScreenBitMap) () SETCORNER D1 (I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) B@CA``CA`` (35Q SETCURSOR) (32Q LowerLeftCursor 26Q UpperLeftCursor 16Q LowerRightCursor 12Q UpperRightCursor) () 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 12Q ORIGBPP 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)  @`@dg`b` _`^`@d_ ^@l'@g _` Od ^_^@ 2@@` @_`@@Njdhdgg H@ >@_g @g @ h@ _@OONjdOO ^N]N\`lllL`lllMk_dOOd``dll_dLl`ll_dOOZMOkl`ll_dOO[J Ki hddo o XdgN Hgg Hgg Hgg Hgg Hgg Hgj Hgj Hgj Hgj HgO Hg Hgi N_NkHhdOh Hg n Hg H NOHg i@``O &Njd`OOOOgg NO %NjdOOOOOgg NONjdOjdLM @Ol@g gg@Nh @`Ohd` (1354Q ERROR! 1350Q BKBITBLT 1325Q STKEVAL 1305Q MARKASCHANGED 1262Q BKBITBLT 1237Q BKBITBLT 1174Q WINDOWP 1165Q BKBITBLT 1121Q REGIONP 1074Q GETWINDOWUSERPROP 1055Q CLOSEW 1051Q PUTWINDOWPROP 1037Q DISMISS 1030Q GETWINDOWUSERPROP 1021Q SPAWN.MOUSE 1016Q EDITBMRESHAPEFN 765Q PUTWINDOWPROP 755Q PUTWINDOWPROP 746Q PUTWINDOWPROP 735Q PUTWINDOWPROP 725Q PUTWINDOWPROP 715Q PUTWINDOWPROP 705Q PUTWINDOWPROP 675Q PUTWINDOWPROP 663Q PUTWINDOWPROP 651Q PUTWINDOWPROP 637Q PUTWINDOWPROP 625Q PUTWINDOWPROP 613Q PUTWINDOWPROP 602Q CREATEW 573Q GETBOXREGION 560Q HEIGHTIFWINDOW 553Q WIDTHIFWINDOW 341Q \READBMDIMENSIONS 335Q BKBITBLT 300Q DSPCLIPPINGREGION 272Q TOTOPW 265Q BITMAPCREATE 262Q GETWINDOWPROP 253Q GETWINDOWPROP 240Q WINDOWP 232Q BKBITBLT 176Q BITMAPCREATE 173Q BITSPERPIXEL 152Q REGIONP 142Q \READBMDIMENSIONS 130Q BITMAPCOPY 110Q EVALV 66Q BITMAPCOPY 36Q BITMAPCOPY) (1345Q CursorBitMap 1334Q CursorBitMap 1314Q SETQQ 1311Q EDITBM 1302Q VARS 1233Q REPLACE 1230Q INPUT 1161Q REPLACE 1156Q INPUT 1131Q ScreenBitMap 1113Q CursorBitMap 1106Q CursorBitMap 1071Q FINISHEDFLG 1061Q BITMAP 1046Q CLOSEFN 1025Q FINISHEDFLG 1001Q BITMAP 771Q BITMAP 761Q GRIDON 752Q FINISHEDFLG 741Q ORIGINALBITMAP 731Q DYOFFSET 721Q DXOFFSET 711Q YOFFSET 701Q XOFFSET 672Q EDITBMCLOSEFN 667Q CLOSEFN 660Q EDITBMBUTTONFN 655Q BUTTONEVENTFN 646Q EDITBMREPAINTFN 643Q REPAINTFN 634Q EDITBMRESHAPEFN 631Q RESHAPEFN 622Q EDITBMSCROLLFN 617Q SCROLLFN 607Q BM 525Q SCREENHEIGHT 467Q SCREENWIDTH 444Q NORMALGRIDSQUARE 436Q NORMALGRIDSQUARE 402Q SCREENHEIGHT 364Q SCREENWIDTH 356Q BITMAP 347Q BITMAP 257Q HEIGHT 250Q WIDTH 226Q REPLACE 223Q INPUT 206Q ScreenBitMap 170Q ScreenBitMap 116Q BITMAPTYPE# 105Q EDITBM 54Q BITMAPTYPE# 44Q CursorBitMap 33Q CursorBitMap 24Q CursorBitMap 15Q CursorBitMap 6 CursorBitMap) ( 577Q "Bitmap Editor" 567Q "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 42Q RESETSTATE P 41Q MACROY P 37Q OLDVALUE P 36Q POS P 22Q ORIGBM P 21Q PAINTW P 20Q NEWGRIDSIZE P 17Q BITMAPHEIGHT P 16Q BITMAPWIDTH P 15Q GRIDY0 P 14Q GRIDX0 P 13Q EXTENT P 12Q DISPLAYREGION P 11Q DYOFFSET P 10Q DXOFFSET P 7 YOFFSET P 6 XOFFSET P 5 WREGION P 4 BITSHIGH P 3 BITSWIDE P 2 BM P 1 GRIDINTERIOR P 0 GRIDSPEC I 0 W F 43Q EDITBMWINDOWMENU F 44Q RESETVARSLST F 45Q GRIDSIZEMENU) #@g @g @g @g @g @ @g @g @g @g @g @ 0H_H_J_J_I@ @ JHI@KL JO@ @ WF`WF7`dodi dg dgjdndh_&dO& cF gKLMN@g l@g O@g Ml @gOK@g O<Mldjj_(dO(O(^ @gOL@g O<Ml@g _*dO*O*_,jO,O,j_ OjNOOOjOOOON*OO#NKO@g OLO@g {@gJ@g NK@g _.dO.O._0jO0O0j_ @gJ@g OL@g _2dO2O2_4jO4O4j_ Ijg@ J@g @g @j@g @g nhg @g HKLg@ JHKLjd@ +`ljY@ J 1"gO>hhWHcH_@og g_DO@cHgO@ OD@ @ ```8`dodi dg dgjdndh_6dO6  dg@gi kdg@gg VdgJKLo dg]@g _$d9 #`NO$OO$JNOKLgg &O$NOJNOKL ddJNOKLggj i?g3@g _$ J i& `O$O$J O$hdJ @ h@JHIKL dgJKLo dghddJNOKLggj igJ i@ hDIjg@ @g HKLg@ J@g @g @j@g @g nhg dg@g E@gi HKLg@ J@g @g @j@g @g nhg @g IIIkIkIjg@ JHKLjd@ J@g @g @j@g @g nhg ;dgdWJ`WJ8`dodldg dgjdndh_8dO8 cJ 3_ @gO @ dgJ@ dg`Ol`OlO O h _" JjdO" O" `dododi dg dgjdndh_:dO: ?O"jdJ O" h_"@JHIKL gJHI@ @gi @ h(3322Q UPDATE/BM/DISPLAY/SELECTED/REGION 3314Q PUTWINDOWPROP 3303Q READHOTSPOT 3263Q \EDITBM/PUTUP/DISPLAY 3244Q CLOSEW 3236Q BKBITBLT 3224Q MENU 3125Q PAINTW 3117Q BKBITBLT 3106Q OPENW 3101Q CREATEW 3071Q HEIGHTIFWINDOW 3064Q WIDTHIFWINDOW 3017Q UPDATE/SHADE/DISPLAY 2777Q EDITBMRESHAPEFN 2772Q PUTWINDOWPROP 2747Q MENU 2626Q BKBITBLT 2613Q GETWINDOWUSERPROP 2604Q GETWINDOWUSERPROP 2573Q GETWINDOWUSERPROP 2564Q GETWINDOWUSERPROP 2553Q RESETGRID 2537Q DSPFILL 2473Q PUTWINDOWPROP 2460Q BKBITBLT 2445Q GETWINDOWUSERPROP 2436Q GETWINDOWUSERPROP 2425Q GETWINDOWUSERPROP 2416Q GETWINDOWUSERPROP 2405Q GRID 2371Q PUTWINDOWPROP 2357Q GETWINDOWUSERPROP 2332Q BKBITBLT 2317Q GETWINDOWUSERPROP 2310Q GETWINDOWUSERPROP 2277Q GETWINDOWUSERPROP 2270Q GETWINDOWUSERPROP 2257Q GRID 2243Q GETWINDOWUSERPROP 2233Q DSPFILL 2212Q UPDATE/BM/DISPLAY/SELECTED/REGION 2203Q \CLEARBM 2166Q BKBITBLT 2132Q \EDITBMHOWMUCH 2102Q \EDITBM/PUTUP/DISPLAY 2060Q UPDATE/BM/DISPLAY/SELECTED/REGION 2052Q BKBITBLT 2040Q BKBITBLT 2021Q REGIONP 2012Q \CLEARBM 2002Q GETWINDOWUSERPROP 1761Q BKBITBLT 1734Q BKBITBLT 1713Q BKBITBLT 1652Q REGIONP 1642Q GETWINDOWUSERPROP 1623Q \EDITBMHOWMUCH 1573Q PUTWINDOWPROP 1546Q PUTWINDOWPROP 1527Q MENU 1417Q UPDATE/BM/DISPLAY/SELECTED/REGION 1407Q UPDATE/BM/DISPLAY/SELECTED/REGION 1401Q ERROR! 1372Q APPLY 1342Q EDITBMBUTTONFNA0019 1303Q CURSOR 1300Q CURSORCREATE 1275Q CURSORHOTSPOT 1270Q UPDATE/BM/DISPLAY/SELECTED/REGION 1246Q RESETGRID 1232Q GRID 1216Q GETWINDOWUSERPROP 1206Q BKBITBLT 1173Q GETWINDOWUSERPROP 1164Q GETWINDOWUSERPROP 1153Q GETWINDOWUSERPROP 1144Q GETWINDOWUSERPROP 1133Q DSPFILL 1121Q PUTWINDOWPROP 1063Q GETWINDOWUSERPROP 1046Q GETWINDOWUSERPROP 1024Q PUTWINDOWPROP 766Q GETWINDOWUSERPROP 752Q GETWINDOWUSERPROP 725Q GETWINDOWUSERPROP 704Q GETWINDOWUSERPROP 607Q PUTWINDOWPROP 552Q GETWINDOWUSERPROP 530Q GETWINDOWUSERPROP 510Q PUTWINDOWPROP 451Q GETWINDOWUSERPROP 427Q GETBOXPOSITION 413Q GETWINDOWUSERPROP 402Q GETWINDOWUSERPROP 366Q GETWINDOWUSERPROP 340Q MENU 230Q INSIDE? 225Q LASTMOUSEY 221Q LASTMOUSEX 207Q \SHADEBITS 174Q INSIDE? 171Q LASTMOUSEY 165Q LASTMOUSEX 117Q \INSUREWINDOW 113Q GETWINDOWUSERPROP 104Q GETWINDOWUSERPROP 75Q GETWINDOWUSERPROP 66Q GETWINDOWUSERPROP 57Q GETWINDOWUSERPROP 46Q \INSUREWINDOW 42Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (3310Q FINISHEDFLG 3271Q Cursor_ 3172Q DEFAULTMENUHELDFN 3163Q CLRPROMPT 3131Q MENUTYPE# 3051Q SCREENHEIGHT 3040Q SCREENWIDTH 3027Q Paint 3007Q ShowAsTile 2765Q GRIDSQUARE 2713Q DEFAULTMENUHELDFN 2704Q CLRPROMPT 2661Q MENUTYPE# 2650Q MENUTYPE# 2636Q GridSize_ 2622Q REPLACE 2610Q BMDISPLAYWIDTH 2601Q BMDISPLAYBOTTOM 2570Q DYOFFSET 2561Q DXOFFSET 2533Q REPLACE 2470Q GRIDON 2454Q REPLACE 2442Q BMDISPLAYWIDTH 2433Q BMDISPLAYBOTTOM 2422Q DYOFFSET 2413Q DXOFFSET 2400Q POINT 2365Q GRIDON 2354Q GRIDON 2342Q GridOnOff 2326Q REPLACE 2314Q BMDISPLAYWIDTH 2305Q BMDISPLAYBOTTOM 2274Q DYOFFSET 2265Q DXOFFSET 2252Q POINT 2240Q GRIDON 2227Q REPLACE 2175Q WHOLE 2161Q REPLACE 2156Q TEXTURE 2136Q VISIBLE 2112Q Clear 2025Q ScreenBitMap 1777Q ORIGINALBITMAP 1770Q WHOLE 1754Q REPLACE 1751Q TEXTURE 1707Q REPLACE 1704Q INPUT 1657Q ScreenBitMap 1637Q ORIGINALBITMAP 1627Q VISIBLE 1603Q Reset 1570Q KILL 1565Q FINISHEDFLG 1556Q Stop 1542Q FINISHEDFLG 1533Q OK 1524Q EDITBMMENU 1472Q DEFAULTMENUHELDFN 1463Q CLRPROMPT 1441Q MENUTYPE# 1434Q EDITBMMENU 1427Q MENUTYPE# 1423Q EDITBMMENU 1362Q CURSOR 1346Q ERROR 1337Q INTERNAL 1311Q CURSOR 1255Q LASTMOUSEBUTTONS 1225Q POINT 1213Q GRIDON 1202Q REPLACE 1170Q BMDISPLAYWIDTH 1161Q BMDISPLAYBOTTOM 1150Q DYOFFSET 1141Q DXOFFSET 1127Q REPLACE 1060Q BMDISPLAYHEIGHT 1043Q BMDISPLAYHEIGHT 1035Q BITMAP 1031Q DYOFFSET 763Q BMDISPLAYWIDTH 747Q BMDISPLAYWIDTH 741Q BITMAP 735Q DXOFFSET 722Q BMDISPLAYHEIGHT 701Q BMDISPLAYWIDTH 547Q BMDISPLAYBOTTOM 525Q DYOFFSET 515Q YOFFSET 446Q DXOFFSET 436Q XOFFSET 410Q DYOFFSET 377Q BMDISPLAYBOTTOM 363Q DXOFFSET 343Q Move 304Q DEFAULTMENUHELDFN 275Q CLRPROMPT 253Q MENUTYPE# 242Q MENUTYPE# 154Q BITMAP 144Q BITMAP 110Q DISPLAYREGION 101Q DYOFFSET 72Q DXOFFSET 63Q YOFFSET 54Q XOFFSET 37Q BITSHIGH 30Q BITSWIDE 21Q BM 12Q GRIDINTERIOR 3 GRIDSPEC) ( 3147Q "Put change into bitmap?" 3137Q ((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.")) 2667Q (3 4 5 6 7 10Q 14Q 20Q 24Q 30Q 34Q 40Q) 2127Q "CLEAR how much?" 1620Q "RESET how much?" 1447Q ((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.")) 1334Q (EDITBMBUTTONFNA0019) 261Q ((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 16Q EXTENTWIDTH P 15Q EXTENTHEIGHT P 14Q BITMAPHEIGHT P 13Q BMDISPLAYHEIGHT P 12Q BMDISPLAYBOTTOM P 11Q BMDISPLAYWIDTH P 10Q BITMAPWIDTH P 7 GRIDINTERIOR P 6 GRIDSQUARE P 5 EDITAREABITHEIGHT P 4 EDITAREABITWIDTH P 3 BMWINTERIORHEIGHT P 2 BMWINTERIORWIDTH P 1 MINCOMMANDAREAWIDTH P 0 BM I 3 ZEROBMFLG I 2 OLDREGION I 1 OLDIMAGE I 0 BMEDITWINDOW) @g l0H_H_@g Z@g Ol@g l_dOO[@g 'JOKO_ dO O d``dll^JNdOO\@gL KNdOO]@gM NMl_OJI_"dO"O"_@g@g OL_$dO$O$ @g@g OM_&dO&O& JLNlOMNlLNMNh_@gO @gO @gO @g@g O_ @gjOOOh @gOONdh O@g M_OJL@ ,_@g@g OO @g OO OO @ h(667Q EDITBMREPAINTFN 663Q PUTWINDOWPROP 660Q CREATEREGION 651Q MINUS 640Q GETWINDOWUSERPROP 631Q MINUS 620Q GETWINDOWUSERPROP 600Q \INSUREWINDOW 561Q GETWINDOWPROP 550Q PUTWINDOWPROP 523Q PUTWINDOWPROP 500Q PUTWINDOWPROP 470Q GETWINDOWPROP 455Q PUTWINDOWPROP 444Q PUTWINDOWPROP 433Q PUTWINDOWPROP 364Q PUTWINDOWPROP 342Q GETWINDOWUSERPROP 327Q PUTWINDOWPROP 305Q GETWINDOWUSERPROP 240Q PUTWINDOWPROP 214Q PUTWINDOWPROP 120Q PUTWINDOWPROP 72Q GETWINDOWPROP 55Q GETWINDOWPROP 45Q GETWINDOWPROP 6 GETWINDOWUSERPROP) (635Q YOFFSET 615Q XOFFSET 611Q EXTENT 556Q HEIGHT 527Q GRIDSPEC 504Q DISPLAYREGION 465Q HEIGHT 461Q BMDISPLAYHEIGHT 450Q BMDISPLAYWIDTH 437Q BMDISPLAYBOTTOM 426Q GRIDINTERIOR 337Q YOFFSET 333Q YOFFSET 302Q XOFFSET 276Q XOFFSET 234Q BITSHIGH 210Q BITSWIDE 157Q NORMALGRIDSQUARE 151Q NORMALGRIDSQUARE 115Q GRIDSQUARE 67Q HEIGHT 52Q HEIGHT 42Q WIDTH 32Q BITMAP 22Q 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 5 X P 3 YOFFSET P 2 XOFFSET P 1 Y I 6 W I 5 ORGY I 4 ORGX I 3 HEIGHT I 2 WIDTH I 1 GRIDSPEC I 0 BM) rE CkEjFg Fg IHhCذDBkDjMLIkYBذ@MJIKhkMI`gAFg jgF Mk](151Q SHADEGRIDBOX 136Q GETWINDOWUSERPROP 27Q GETWINDOWUSERPROP 20Q GETWINDOWUSERPROP) (144Q POINT 133Q GRIDON 126Q REPLACE 123Q DARKBITSHADE 24Q YOFFSET 15Q XOFFSET) () \READBMDIMENSIONS D1 (P 1 HEIGHT P 0 WIDTH) k oi i X3oi i kH%oi i kI(oi i oi i Y3oHI (150Q BITMAPCREATE 130Q READ 123Q PRIN1 112Q TERPRI 105Q PRIN1 65Q TERPRI 60Q PRIN1 40Q TERPRI 33Q PRIN1 17Q READ 12Q PRIN1) NIL ( 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) K@d`d $3 @ @dild ld @ l}ll2l l lnld  n,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(506Q CREATETEXTUREFROMBITMAP 460Q ERROR! 451Q RESETRESTORE 436Q EDITSHADEA0003 415Q EDITSHADEREPAINTFN 410Q PUTWINDOWPROP 377Q PUTWINDOWPROP 366Q PUTWINDOWPROP 355Q PUTWINDOWPROP 344Q PUTWINDOWPROP 340Q CREATEREGION 314Q PUTWINDOWPROP 310Q CREATEREGION 244Q PUTWINDOWPROP 233Q PUTWINDOWPROP 220Q PUTWINDOWPROP 156Q BITMAPHEIGHT 151Q BITMAPWIDTH 141Q \INSUREWINDOW 134Q CREATEW 131Q GETBOXREGION 107Q CREATEREGION 73Q CREATEREGION 60Q \ILLEGAL.ARG 53Q BITMAPCREATE 43Q BITMAPCREATE 25Q \BITMAPFROMTEXTURE 14Q CREATETEXTUREFROMBITMAP) (444Q ERROR 433Q INTERNAL 404Q YOFFSET 373Q XOFFSET 362Q SHADEREGION 351Q SHADEBM 321Q GRIDINTERIOR 251Q GRIDSPEC 240Q QUITREGION 230Q EDITSHADEREPAINTFN 225Q REPAINTFN 215Q \RUNNING.PROCESS 212Q PROCESS 5 BITMAPTYPE#) ( 430Q (EDITSHADEA0003) 125Q "Indicate position of Shade edit window.") \BITMAPFROMTEXTURE D1 (P 6 Y P 4 X P 0 SHADE I 0 FIXP) ld !ljLK{ljNMi@`lNlLlYIjIdCko IJo IIJjHLNkNk^Lk\H(142Q RAID 121Q RAID 5 BITMAPCREATE) (155Q ARRAYP 147Q ARRAYP 126Q ARRAYP 103Q ARRAYP 70Q ARRAYP 42Q BITMASKARRAY) ( 137Q (Check-failure: (IGREATERP (fetch (ARRAYP LENGTH) of \BITMAPFROMTEXTUREA0002) \BITMAPFROMTEXTUREA0001)) 116Q (Check-failure: (AND (ARRAYP \BITMAPFROMTEXTUREA0002) (EQ 0 (fetch (ARRAYP ORIG) of \BITMAPFROMTEXTUREA0002)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of \BITMAPFROMTEXTUREA0002))))) EDITSHADEREPAINTFN D1 (P 3 BMHEIGHT P 2 BMWIDTH P 1 SHADE P 0 GRIDSPEC I 0 WIN) u@g @g "I ZI [@g goh@ HHHJHKln@ IHJKjd@ HJKg@ @g Ig@ h(161Q DSPFILL 151Q GETWINDOWUSERPROP 142Q GRID 127Q RESETGRID 114Q GRAYBOXAREA 60Q SHOWBUTTON 41Q GETWINDOWUSERPROP 31Q BITMAPHEIGHT 24Q BITMAPWIDTH 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (155Q TEXTURE 146Q SHADEREGION 135Q POINT 44Q QUIT 36Q QUITREGION 12Q SHADEBM 3 GRIDSPEC) ( 50Q "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 4 Y P 3 X P 2 INTENSITY P 1 YPIXEL P 0 XPIXEL I 5 BITSHIGH I 4 BITSWIDE I 3 W I 2 GRIDINTERIOR I 1 GRIDSPEC I 0 BM)  `l]j)MHDC [A dNN_jOO hjXIEC \A _dOO_jOOjYBKL @HCg ICg `lj`jZ@Cg Cg CjCg Cg nhg HIJgACg jgC +(326Q SHADEGRIDBOX 313Q GETWINDOWUSERPROP 274Q BKBITBLT 261Q GETWINDOWUSERPROP 252Q GETWINDOWUSERPROP 241Q GETWINDOWUSERPROP 232Q GETWINDOWUSERPROP 177Q GETWINDOWUSERPROP 166Q GETWINDOWUSERPROP 153Q INSIDE? 112Q GRIDYCOORD 105Q LASTMOUSEY 66Q \FZEROP 41Q GRIDXCOORD 34Q LASTMOUSEX 5 GETMOUSESTATE) (321Q POINT 310Q GRIDON 303Q REPLACE 270Q REPLACE 256Q BMDISPLAYWIDTH 247Q BMDISPLAYBOTTOM 236Q DYOFFSET 227Q DXOFFSET 214Q DARKBITSHADE 203Q LASTMOUSEBUTTONS 174Q YOFFSET 163Q XOFFSET 11Q LASTMOUSEBUTTONS) () READHOTSPOT D1 (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 AIZA AlI[A AlC JK`gACg jgC L`l]jLMBBC C L`jhJ7C A ZC A [`gACg FjF @JK hK@JKhdjjk`gACg jgC gC [(415Q SHADEGRIDBOX 402Q SHADEGRIDBOX 367Q GETWINDOWUSERPROP 354Q SHOULDNT 322Q CURSOR 317Q CURSORCREATE 307Q \FZEROP 277Q GETWINDOWUSERPROP 260Q GRIDYCOORD 254Q LASTMOUSEY 247Q GRIDXCOORD 243Q LASTMOUSEX 220Q INSIDE? 215Q LASTMOUSEY 211Q LASTMOUSEX 163Q GETMOUSESTATE 154Q GETMOUSESTATE 151Q SHADEGRIDBOX 136Q GETWINDOWUSERPROP 116Q CURSORPOSITION 100Q BOTTOMOFGRIDCOORD 60Q LEFTOFGRIDCOORD 45Q CURSOR 37Q \BACKGROUND 32Q \FZEROP 2 GETMOUSESTATE) (410Q POINT 375Q POINT 364Q GRIDON 357Q REPLACE 350Q DARKBITSHADE 274Q GRIDON 267Q REPLACE 264Q NOTINUSEGRAY 227Q LASTMOUSEBUTTONS 167Q LASTMOUSEBUTTONS 144Q POINT 133Q GRIDON 126Q REPLACE 123Q NOTINUSEGRAY 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) () EXPANDBITMAP D1 (P 16Q Y P 14Q X P 12Q I P 10Q C P 7 I P 5 NUW P 4 NUH P 3 SCR P 2 NU P 1 BMW P 0 BMH I 2 HEIGHTFACTOR I 1 WIDTHFACTOR I 0 BITMAP) BAlbBkb@@BAI]BH\ ZAlHkjdONy@HOk@JJOkJJ` Bk k_O JjOJjOOMkgg Ok԰Ok_OB_JjIkj OO4Ak_N @OjJKjkHgg KkԻOk԰Ok_LjHkOOBkjON!JjOJjKk[Mkgg Ok_Om_(454Q BKBITBLT 344Q BKBITBLT 234Q BKBITBLT 166Q \FAST4BIT 46Q BITMAPCREATE) (450Q REPLACE 445Q INPUT 340Q REPLACE 335Q INPUT 230Q REPLACE 225Q INPUT 163Q \4BITEXPANSIONTABLE 156Q BITMAP 146Q BITMAP 133Q BITMAP 125Q BITMAP 115Q BITMAP 101Q BITMAP 26Q BITMAP 20Q BITMAP) () SHRINKBITMAP D1 (P 12Q X P 10Q Y P 6 DESTINATION P 5 SCRATCH P 4 WIDTH P 3 HEIGHT P 2 HFACTOR P 1 WFACTOR P 0 BITSPP I 3 DESTINATIONBITMAP I 2 HEIGHTFACTOR I 1 WIDTHFACTOR I 0 BITMAP) @ !AlBk@ @ LKJH C LIKJH jN KkjOO!@jOMjOJLkgg Ok_Lkj OO!MOjNOIjkKgg Ok_N(221Q BKBITBLT 143Q BKBITBLT 77Q BLTSHADE 67Q BITMAPCREATE 47Q BITMAPCREATE 34Q BITMAPWIDTH 25Q BITMAPHEIGHT 3 BITSPERPIXEL) (215Q PAINT 212Q INPUT 137Q PAINT 134Q INPUT) () \FAST4BIT D1 (L (3 MAP 2 N 1 B 0 A)) bjd@HкBIhAICJ(BIkYAICJC(BIkYAICJ(BIkYAICJ(IkԹHkԸNIL NIL () (PRETTYCOMPRINT HLDISPLAYCOMS) (RPAQQ HLDISPLAYCOMS ((* GRID functions) (FNS GRID GRIDXCOORD GRIDYCOORD LEFTOFGRIDCOORD BOTTOMOFGRIDCOORD EDITBMSCROLLFN SHADEGRIDBOX) (* Low level compatibility and extensions) (FNS INSIDE? ) (COMS (* Mouse selection code) (FNS MOUSESTATE-EXPR MOUSESTATE-NAME) (PROP ARGNAMES MOUSESTATE LASTMOUSESTATE UNTILMOUSESTATE KEYSETSTATE LASTKEYSETSTATE) (EXPORT (DECLARE: DOCOPY (MACROS MOUSESTATE LASTMOUSESTATE UNTILMOUSESTATE KEYSETSTATE LASTKEYSETSTATE)) (DECLARE: DONTCOPY (MACROS WITHIN)) (ADDVARS (GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS)))) (* High Level Display utilities) (FNS DECODEBUTTONS) (FNS PTDIFFERENCE PTPLUS) (COMS (* User interaction for regions, etc) ( FNS GETPOSITION GETBOXPOSITION DSPYSCREENTOWINDOW DSPXSCREENTOWINDOW GETREGION \GETREGION.PACKPTS \GETREGION.CHECKBASEPT \GETREGION.CHECKOPPT \GETREGIONTRACKWITHBOX \UPDATEXYANDBOX GETBOXREGION \TRACKWITHBOX MOVEBOX DRAWGRAYBOX BLTHLINE BLTVLINE SETCORNER) (FNS MOUSECONFIRM) (CURSORS MOUSECONFIRMCURSOR)) (FNS NEAREST/PT/ON/GRID PTON10GRID NEAREST/MULTIPLE) (EXPORT (MACROS IABS)) ( UGLYVARS DASHEDSHADE) (CURSORS CROSSHAIRS EXPANDINGBOX FORCEPS BOXCURSOR LOCKEDSPOT OLDEXPANDINGBOX LowerLeftCursor UpperRightCursor UpperLeftCursor LowerRightCursor) (FNS \SW2BM COMPOSEREGS TRANSLATEREG) (COMS (* Bitmap and shade editors) (FNS EDITBM EDITBMCLOSEFN TILEAREA EDITBMBUTTONFN \EDITBM/PUTUP/DISPLAY \EDITBMHOWMUCH EDITBMRESHAPEFN EDITBMREPAINTFN UPDATE/SHADE/DISPLAY UPDATE/BM/DISPLAY/SELECTED/REGION SHOWBUTTON RESETGRID \READBMDIMENSIONS EDITSHADE \BITMAPFROMTEXTURE EDITSHADEREPAINTFN GRAYBOXAREA \SHADEBITS READHOTSPOT WBOX \CLEARBM) (DECLARE: DONTCOPY (RECORDS BUTTON) (MACROS BITMASK UPDATE/BM/DISPLAY)) (DECLARE: DONTEVAL@LOAD DOCOPY (VARS (DARKBITSHADE 23130) (NORMALGRIDSQUARE 16) (NOTINUSEGRAY 42405) (EDITBMMENU) (EDITBMWINDOWMENU) (GRIDSIZEMENU) ( CLICKWAITTIME 250))) (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS DARKBITSHADE NORMALGRIDSQUARE NOTINUSEGRAY EDITBMMENU CLICKWAITTIME)) (CONSTANTS (GRIDTHICKNESS 2) (MINGRIDSQUARE 8) (MAXGRIDWIDTH 199) (MAXGRIDHEIGHT 175) (BMWINDOWSHADE 33410))) (FNS EXPANDBITMAP SHRINKBITMAP \FAST4BIT) (UGLYVARS \4BITEXPANSIONTABLE))) (PUTPROPS MOUSESTATE ARGNAMES (BUTTONFORM)) (PUTPROPS LASTMOUSESTATE ARGNAMES (BUTTONFORM)) (PUTPROPS UNTILMOUSESTATE ARGNAMES (BUTTONFORM INTERVAL)) (PUTPROPS KEYSETSTATE ARGNAMES (BUTTONFORM)) (PUTPROPS LASTKEYSETSTATE ARGNAMES (BUTTONFORM)) (DECLARE: EVAL@COMPILE (PUTPROPS MOUSESTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) ( MOUSESTATE-EXPR (CAR ARGS) T)))) (PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS) T))) (PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* time argument is given and is not T or NIL; compile in time keeping loop.) (LIST (QUOTE PROG) (LIST (LIST (QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) (LIST (QUOTE NUMBERP) (CADR ARGS)) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE ) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP (CLOCK0 NOWTIME) TIMEOUT) (RETURN NIL)) (T (\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) NIL (QUOTE LP) (LIST (QUOTE COND) ( LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (\BACKGROUND)) (QUOTE ( GO LP))))))) (PUTPROPS KEYSETSTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) ( MOUSESTATE-EXPR (CAR ARGS))))) (PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS))))) (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS) (RPAQ MOUSECONFIRMCURSOR (CURSORCREATE (READBITMAP) 8 8)) (16 16 "GOOL" "D@@D" "ELID" "ELID" "ELID" "ELID" "ELID" "ELID" "ELID" "D@@D" "D@@D" "D@@D" "D@@D" "D@@D" "D@@D" "GOOL") (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A))))) (READVARS DASHEDSHADE) ({ (READBITMAP) (16 16 "@@OO" "@@OO" "@@OO" "@@OO" "@@OO" "@@OO" "@@OO" "@@OO" "OO@@" "OO@@" "OO@@" "OO@@" "OO@@" "OO@@" "OO@@" "OO@@") }) (RPAQ CROSSHAIRS (CURSORCREATE (READBITMAP) 7 7)) (16 16 "@@@@" "@GL@" "AMG@" "CAAH" "FA@L" "DA@D" "LA@F" "HA@B" "OOON" "HA@B" "LA@F" "DA@D" "FA@L" "CAAH" "AMG@" "@GL@") (RPAQ EXPANDINGBOX (CURSORCREATE (READBITMAP) 0 13)) (16 16 "@@@@" "@@@@" "H@@@" "L@@@" "N@@@" "O@@@" "OHNG" "OLLC" "ONKM" "O@BD" "MHBD" "IHKM" "@LLC" "@LNG" "@F@@" "@F@@") (RPAQ FORCEPS (CURSORCREATE (READBITMAP) 7 15)) (16 16 "@NG@" "@JE@" "@NG@" "@DB@" "@FF@" "@CL@" "@AH@" "@AH@" "@CL@" "@FF@" "ALCH" "BDBD" "BDBD" "BDBD" "BDBD" "AHAH") (RPAQ BOXCURSOR (CURSORCREATE (READBITMAP) 7 7)) (16 16 "@@@@" "@@@@" "COOL" "COOL" "C@@L" "C@@L" "C@@L" "C@@L" "C@@L" "C@@L" "C@@L" "C@@L" "COOL" "COOL" "@@@@" "@@@@") (RPAQ LOCKEDSPOT (CURSORCREATE (READBITMAP) 7 7)) (16 16 "@@@@" "@@@@" "COOL" "COOL" "C@@L" "C@@L" "CCLL" "CCLL" "CCLL" "CCLL" "C@@L" "C@@L" "COOL" "COOL" "@@@@" "@@@@") (RPAQ OLDEXPANDINGBOX (CURSORCREATE (READBITMAP) 7 7)) (16 16 "@@@@" "OHCN" "N@@N" "O@AN" "KHCJ" "IMGB" "@ON@" "@DD@" "@LF@" "@DD@" "@ON@" "IMGB" "KHCJ" "O@AN" "N@@N" "OHCN") (RPAQ LowerLeftCursor (CURSORCREATE (READBITMAP) 0 0)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "H@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "OOL@" "OON@") (RPAQ UpperRightCursor (CURSORCREATE (READBITMAP) 15 15)) (16 16 "@COO" "@AOO" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@A" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ UpperLeftCursor (CURSORCREATE (READBITMAP) 0 15)) (16 16 "OOL@" "OOH@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "L@@@" "H@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ LowerRightCursor (CURSORCREATE (READBITMAP) 15 0)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@A" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@@@C" "@COO" "@GOO") (RPAQQ DARKBITSHADE 23130) (RPAQQ NORMALGRIDSQUARE 16) (RPAQQ NOTINUSEGRAY 42405) (RPAQQ EDITBMMENU NIL) (RPAQQ EDITBMWINDOWMENU NIL) (RPAQQ GRIDSIZEMENU NIL) (RPAQQ CLICKWAITTIME 250) (RPAQQ GRIDTHICKNESS 2) (RPAQQ MINGRIDSQUARE 8) (RPAQQ MAXGRIDWIDTH 199) (RPAQQ MAXGRIDHEIGHT 175) (RPAQQ BMWINDOWSHADE 33410) (CONSTANTS (GRIDTHICKNESS 2) (MINGRIDSQUARE 8) (MAXGRIDWIDTH 199) (MAXGRIDHEIGHT 175) (BMWINDOWSHADE 33410)) (READVARS \4BITEXPANSIONTABLE) ({Y16 SMALLPOSP 0 0 15 240 255 3840 3855 4080 4095 61440 61455 61680 61695 65280 65295 65520 65535 }) (PUTPROPS HLDISPLAY COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL