(FILECREATED "26-Jun-85 17:18:02" ("compiled on " {ICE}LISP>ACE-EDIT.;2) "19-Mar-85 14:34:17" recompiled changes: ACE.EDIT.FRAME ACE.EDIT.SETUP.EDIT.MENU ACEGETREGIONFACTOR ACESCALEREGION ACE.EDIT.LINEART ACE.EDIT.LINEART.ADJ ACE.EDIT.MOVE.REGION ACE.EDIT.PAINT ACE.EDIT.PUTDOWN.BITMAP ACE.EDIT.POINT&CODE in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "26-Jun-85 17:13:33" {ICE}LISP>ACE-EDIT.;2 60249 changes to: (FNS ACE.EDIT.MOVE.REGION ACE.EDIT.PUTDOWN.BITMAP ACE.EDIT.SETUP.EDIT.MENU ACE.EDIT.PAINT ACE.EDIT.FRAME ACE.EDIT.POINT&CODE ACE.EDIT.LINEART ACE.EDIT.LINEART.ADJ ACEGETREGIONFACTOR ACESCALEREGION) (VARS ACE-EDITCOMS) previous date: " 2-May-85 21:02:41" {ICE}LISP>ACE>ACE-EDIT.;20) ACE.EDITA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 PRESENT.BM F 2 RESETY) 1gh` `h`g ` hPcQ ci(53Q ACE.EDIT.FRAME 37Q DSPCLIPPINGREGION 31Q GETWINDOWUSERPROP 11Q DSPCLIPPINGREGION) (34Q ACE.SEQ.WINDOW 26Q SEQUENCE.CLIPPING.REGION 23Q ACE.CONTROL.WINDOW 14Q ACE.SEQ.WINDOW 6 ACE.SEQ.WINDOW 2 DSPCLIPPINGREGION) () ACE.EDIT D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 AFTER.BM P 1 PRESENT.BM P 0 BEFORE.BM I 0 FLG F 6 LISPXHIST F 7 RESETVARSLST) 0go g g ``h`` X`` ``h`` `g &V!Wog hg] MLI 9HJ4HJ`HI`HI`` `IJ`` `` h(336Q ACE.QUICKDRAW&UPD 333Q LDIFF 320Q ACE.COMPILE.FRAME.ACE 276Q ACE.COMPILE.FRAME.ACE 231Q ACE.EDIT.FRAME 221Q ERROR! 213Q RESETRESTORE 201Q ACE.EDITA0001 157Q GETWINDOWUSERPROP 145Q ACE.RECONSTRUCT.FRAME 142Q LDIFF 110Q ACE.RECONSTRUCT.FRAME 105Q LDIFF 72Q ACE.RECONSTRUCT.FRAME 67Q LDIFF 36Q ACE.CHECKSTUFF 22Q ACE.CHECKSTUFF 14Q ACE.UPD.CONTROL.WINDOW) (330Q ACE.FRAME.TAIL 325Q ACE.CURRENT.SEQUENCE 315Q ACE.AREA.THRESHOLD 312Q ACE.VERTICAL.BLOCK 303Q ACE.FRAME.TAIL 273Q ACE.AREA.THRESHOLD 270Q ACE.VERTICAL.BLOCK 261Q ACE.CURRENT.FRAME 250Q ACE.CURRENT.FRAME 207Q ERROR 176Q INTERNAL 154Q SEQUENCE.CLIPPING.REGION 151Q ACE.CONTROL.WINDOW 136Q ACE.FRAME.TAIL 133Q ACE.CURRENT.SEQUENCE 125Q ACE.FRAME.TAIL 114Q ACE.CURRENT.SEQUENCE 102Q ACE.FRAME.TAIL 77Q ACE.CURRENT.SEQUENCE 64Q ACE.CURRENT.FRAME 61Q ACE.CURRENT.SEQUENCE 52Q ACE.CURRENT.SEQUENCE 47Q ACE.CURRENT.FRAME 33Q FRAME 17Q SEQ 5 OPERATION) ( 173Q (ACE.EDITA0001) 11Q "EDIT") ACE.EDIT.FRAME D1 (I 0 ABITMAP) 4@jd```hdgg gi ` dg@ dg@ dg@ dg@ dg@ dg@ ~dg@ odg@ `dg@j Pdgg ?dgg .dgg dgg dg@ dg@ dgigoi h(454Q ACE.CONFIRMIT 420Q EDIT.SEQ.3D 401Q EDIT.SEQ.2D 362Q ACESCALEREGION 341Q ACESCALEREGION 320Q ACESCALEREGION 277Q ACESCALEREGION 256Q ACE.EDIT.TEXTURE.REGION 236Q ACE.EDIT.TEXTURE.REGION 217Q ACE.EDIT.TEXTURE.AREA 200Q ACE.EDIT.TEXT 162Q ACE.EDIT.COMBINE.REGION 144Q ACE.EDIT.MOVE.REGION 126Q ACE.EDIT.LINEART 110Q EDITBM 72Q ACE.EDIT.PAINT 53Q MENU 50Q ACE.EDIT.SETUP.EDIT.MENU 37Q ACE.UPD.CONTROL.WINDOW 27Q BITBLT) (437Q ABORT 430Q QUIT 411Q 3D 372Q 2D 357Q Y 351Q SCALEREGY 336Q X 330Q SCALEREGX 315Q XY 307Q SCALEREGXY 274Q SWEEP 266Q SCALEREG 246Q CLEAR 227Q TEXTURE.REG 210Q TEXTURE.AREA 171Q TEXT 153Q COMBINE.REG 135Q MOVE.REG 117Q LINEART 101Q EDITBM 63Q PAINT 43Q ACE.EDIT.FRAME.MENU 33Q FRAME 23Q REPLACE 20Q INPUT 13Q ACE.SEQ.WINDOW.YOFF 10Q ACE.SEQ.WINDOW.XOFF 5 ACE.SEQ.WINDOW) ( 450Q "Click LEFT to Ignore Changes.") ACE.EDIT.SETUP.EDIT.MENU D1 NIL F`dodi dodidg dgjdndhHdI NIL (103Q ACE.EDIT.FRAME.MENU 50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 2 MENUTYPE#) ( 25Q "Edit Options" 10Q (("Paint" (QUOTE PAINT) "Does standard Paint on Frame") ("Line Art" (QUOTE LINEART) "Enter lines through various devices") ("Text" (QUOTE TEXT) "Put text into frame") ("Edit Bits" (QUOTE EDITBM) "Calls the Bitmap Editor on Frame") (" " NIL "Just a Spacer") ("Move Region" (QUOTE MOVE.REG) "Move a rectangular region in Frame") ("Combine Region" (QUOTE COMBINE.REG) "Combine any region on screen into Frame") ("Texture Area Fill" (QUOTE TEXTURE.AREA) "Fills a Bounded area with a Texture.") ("Texture Region Fill" (QUOTE TEXTURE.REG) "Texture a region within Frame") ("Scale region" (QUOTE SCALEREG) "Change size of a region in the frame" (SUBITEMS ("To a new region" (QUOTE SCALEREG)) ("In x and y" (QUOTE SCALEREGXY)) ("In x only" (QUOTE SCALEREGX)) ("In y only" (QUOTE SCALEREGY)))) ("Clear Region" (QUOTE CLEAR) "Erases a specified Region") (" " NIL "Just a Spacer") ("Compile frame" (QUOTE QUIT) "Exits the editor and compiles the frame.") ("Quit - ABORT" (QUOTE ABORT) "Stops Editor; Frames and Seq NOT changed"))) ACEGETREGIONFACTOR D1 (P 0 TEMPREGION I 1 H I 0 W) %oi hddg Xd@HA(23Q GETREGION 12Q ACE.TELLEM) (20Q ACE.EDIT.MOVE.REGION.ASST) ( 6 "Select desired size for new region") ACESCALEREGION D1 (P 2 NEWBM P 1 TEMPBM P 0 TEMPREGION I 0 TYPE F 3 ABITMAP) 0oi hddg XdHk YSHh` `Hh` `Ijdhdgg @dgIHH 9gIo o"@dgIo ldgIldo  ZIjdSHh` `Hh` `hdgg JjdSHh` `Hh` `hdgg h(431Q BITBLT 410Q DSPYOFFSET 403Q \INSUREWINDOW 364Q DSPXOFFSET 357Q \INSUREWINDOW 342Q BITBLT 321Q DSPYOFFSET 314Q \INSUREWINDOW 275Q DSPXOFFSET 270Q \INSUREWINDOW 252Q ACE.SCALE.BITMAP 246Q RNUMBER 223Q RNUMBER 175Q RNUMBER 156Q ACEGETREGIONFACTOR 131Q BITBLT 105Q DSPYOFFSET 100Q \INSUREWINDOW 61Q DSPXOFFSET 54Q \INSUREWINDOW 41Q BITMAPCREATE 23Q GETREGION 12Q ACE.TELLEM) (425Q REPLACE 422Q INPUT 414Q ACE.SEQ.WINDOW.YOFF 400Q ACE.SEQ.WINDOW 370Q ACE.SEQ.WINDOW.XOFF 354Q ACE.SEQ.WINDOW 336Q ERASE 333Q INPUT 325Q ACE.SEQ.WINDOW.YOFF 311Q ACE.SEQ.WINDOW 301Q ACE.SEQ.WINDOW.XOFF 265Q ACE.SEQ.WINDOW 231Q Y 210Q X 163Q XY 136Q SWEEP 125Q REPLACE 122Q INPUT 111Q ACE.SEQ.WINDOW.YOFF 75Q ACE.SEQ.WINDOW 65Q ACE.SEQ.WINDOW.XOFF 51Q ACE.SEQ.WINDOW 20Q ACE.EDIT.MOVE.REGION.ASST) ( 243Q "%% scale in y" 220Q "%% scale in x" 201Q "%% scale in y" 172Q "%% scale in x" 6 "Select a Region inside the Sequence") ACE.EDIT.LINEARTA0001 D1 (NAME ERRORSET P 3 MODE P 2 BRUSH P 1 DEVICE P 0 POINT&CODE F 4 ABITMAP F 5 MACROY) @g Ydgoi ogoi og og og I Xdg!THIJK l ldg g`ljhc i(204Q ACE.EDIT.LINEART.ADJ 167Q TIMEREXPIRED? 155Q \CLOCK0 146Q ACE.EDIT.LINEART.DRAW 123Q ACE.EDIT.POINT&CODE 116Q ACE.TELLEM 103Q ACE.TELLEM 70Q ACE.TELLEM 55Q ACE.TELLEM 30Q ACE.TELLEM 10Q ACE.UPD.CONTROL.WINDOW) (212Q \EM.KBDAD3 177Q OPTIONS 164Q MILLISECONDS 131Q VERTEX 113Q L 100Q L 65Q L 42Q MM1201 15Q MOUSE 5 DEVICE) ( 110Q "To exit, use right button, or stylus + barrel (tablet)" 75Q "Right button selects drawing options" 62Q "BARREL Stops; IDLES (Square cursor)" 51Q "STYLUS Draws (puts down Vertices)" 35Q "MIDDLE Stops drawing; IDLES (Square cursor)" 24Q "LEFT button Draws (puts Vertices)") ACE.EDIT.LINEART D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 ABITMAP F 4 RESETVARSLST F 5 ACE.EDIT.LINEART.SQUARE.CURSOR) ;U 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q ACE.EDIT.LINEARTA0001 3 CURSOR) (52Q CURSOR 42Q ERROR 33Q INTERNAL 11Q CURSOR) ( 30Q (ACE.EDIT.LINEARTA0001)) ACE.EDIT.LINEART.DRAW D1 (P 3 TEMP.CURSOR P 2 STUPID.DSP.FOR.ABITMAP P 1 LASTPOINT P 0 LASTVERTEX I 4 MODE I 3 BRUSH I 2 DEVICE I 1 POINT&CODE I 0 ABITMAP F 4 CROSSHAIRS) @@ T IHIC AdgDH9A`A`H`H`CD` AAHHCDJ AhY#gK h`ljAHIC B b(206Q ACE.EDIT.POINT&CODE 201Q ACE.EDIT.LINEART.TRACKLINE 152Q CURSOR 130Q DRAWLINE 105Q DRAWLINE 24Q ACE.EDIT.LINEART.TRACKLINE 13Q CURSOR 6 DSPCREATE) (157Q \EM.KBDAD3 144Q TOGGLE 101Q ACE.SEQ.WINDOW 73Q ACE.SEQ.WINDOW.YOFF 65Q ACE.SEQ.WINDOW.XOFF 57Q ACE.SEQ.WINDOW.YOFF 50Q ACE.SEQ.WINDOW.XOFF 33Q VERTEX) () ACE.EDIT.LINEART.ADJ D1 (F 2 BRUSH F 3 MODE) `A`dodi dodg dgjdndhHdI  drdggcdggcdggcdggcdkkcdllcdllcdllcdllcgh(106Q MENU) (265Q QUIT 172Q ERASE 164Q ERASE 155Q REPLACE 147Q REPLACE 140Q INVERT 132Q INVERT 123Q PAINT 115Q PAINT 103Q ACE.EDIT.LINEART.ADJ.MENU 50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 7 MENUTYPE# 2 ACE.EDIT.LINEART.ADJ.MENU) ( 32Q "Drawing Adjustments" 15Q (("Replace Mode" (QUOTE REPLACE) "Puts bits there") ("Paint Mode" (QUOTE PAINT) "Cause lines to OR with background") ("Invert Mode" (QUOTE INVERT) "Lines will XOR with background") ("Erase Mode" (QUOTE ERASE) "Erases whats there") (" " NIL "Ah! you found the magic command: nothing") ("Line width 1" 1 "Sets the Brush width to 1 pixel") ("Line width 2" 2 "Brush width 2 pixels") ("Line width 3" 3 "Brush width 3 pixels") ("Line width 4" 4 "Brush width 4 pixels") ("Line width 5" 5 "Brush width 5 pixels") ("Quit" (QUOTE QUIT) "Returns to Edit menu"))) ACE.EDIT.LINEART.TRACKLINE D1 (I 2 BRUSH I 1 POINT I 0 VERTEX) +@(A%@`@`A`A`Bg` (50Q DRAWLINE) (44Q ACE.SEQ.WINDOW 41Q INVERT 34Q ACE.SEQ.WINDOW.YOFF 26Q ACE.SEQ.WINDOW.XOFF 20Q ACE.SEQ.WINDOW.YOFF 12Q ACE.SEQ.WINDOW.XOFF) () ACE.EDIT.MOVE.REGION D1 (P 1 TEMP.BM P 0 TEMP.REGION I 0 ABITMAP) )0oi hddg XdHk Y@Hh` `Hh` `Ijdhdgg `B`dodi dodidg dgjdndhdJ  }dg8Ijd@Hh` `Hh` `hdgg;g:Ijd@Hh` `Hh` `hdgg I@ h(445Q ACE.EDIT.PUTDOWN.BITMAP 437Q BITBLT 416Q DSPYOFFSET 411Q \INSUREWINDOW 372Q DSPXOFFSET 365Q \INSUREWINDOW 323Q DSPYOFFSET 316Q \INSUREWINDOW 277Q DSPXOFFSET 272Q \INSUREWINDOW 241Q MENU 131Q BITBLT 105Q DSPYOFFSET 100Q \INSUREWINDOW 61Q DSPXOFFSET 54Q \INSUREWINDOW 41Q BITMAPCREATE 23Q GETREGION 12Q ACE.TELLEM) (433Q INVERT 430Q INPUT 422Q ACE.SEQ.WINDOW.YOFF 406Q ACE.SEQ.WINDOW 376Q ACE.SEQ.WINDOW.XOFF 362Q ACE.SEQ.WINDOW 345Q XOR 340Q ERASE 335Q INPUT 327Q ACE.SEQ.WINDOW.YOFF 313Q ACE.SEQ.WINDOW 303Q ACE.SEQ.WINDOW.XOFF 267Q ACE.SEQ.WINDOW 251Q ERASE 236Q ACE.EDIT.MOVE.MENU 207Q DEFAULTMENUHELDFN 200Q CLRPROMPT 141Q MENUTYPE# 134Q ACE.EDIT.MOVE.MENU 125Q REPLACE 122Q INPUT 111Q ACE.SEQ.WINDOW.YOFF 75Q ACE.SEQ.WINDOW 65Q ACE.SEQ.WINDOW.XOFF 51Q ACE.SEQ.WINDOW 20Q ACE.EDIT.MOVE.REGION.ASST) ( 164Q "Do What with Old Image?" 147Q ((Erase (QUOTE ERASE) "NAND the old image") (Invert (QUOTE XOR) "XOR the old image with itself") (Nothing NIL "Just leave the old image as is")) 6 "Select a region inside the sequence") ACE.EDIT.COMBINE.REGION D1 (P 1 TEMP.REGION P 0 TEMP.BM I 0 ABITMAP) < oi YdIk X`IIHjdhdgg H@ h(70Q ACE.EDIT.PUTDOWN.BITMAP 63Q BITBLT 33Q BITMAPCREATE 15Q GETREGION 12Q ACE.TELLEM) (57Q REPLACE 54Q INPUT 37Q ScreenBitMap) ( 6 "Select a Region from Screen") ACE.EDIT.TEXTA0025 D1 (NAME ERRORSET F 0 USERSTRING F 1 MACROY) hdd`hdo cci(17Q PROMPTFORWORD) (5 ACE.SEQ.WINDOW) ( 13Q (15Q 33Q 12Q)) ACE.EDIT.TEXTA0026 D1 (NAME ERRORSET F 0 USERSTRING F 1 DUMB.DSP.FOR.BM F 2 MACROY) PdQ ci(6 PRIN1) NIL () ACE.EDIT.TEXT D1 (P 20Q RESETSTATE P 17Q MACROY P 15Q OLDVALUE P 11Q FONT P 10Q POINT&CODE P 7 POSITION P 6 USERSTRING P 5 BMY P 4 BMX P 3 FONT.FACE P 2 FONT.SIZE P 1 FONT.FAMILY P 0 DUMB.DSP.FOR.BM I 0 ABITMAP F 21Q RESETVARSLST) b@  ``_`@`dododi dg dgjdndh_dO O Yddg.h` g h` g h` g goi JdIh`F`dododi dldg dgjdndh_dO O Zgoi Ke`L`dododi dldldg dgjdndh_dO O [goi IJKhdi _oi og g _goi OOL`M`` LMH O` 1gOhhW"c"_og g_ Oc"gO O OH 1gOhhW"c"_og g_ Oc"gO O oi h(1136Q ACE.TELLEM 1123Q ERROR! 1114Q APPLY 1064Q ACE.EDIT.TEXTA0026 1025Q DSPFONT 1015Q ERROR! 1006Q APPLY 756Q ACE.EDIT.TEXTA0025 717Q DSPFONT 706Q MOVETO 677Q MOVETO 644Q ACE.TELLEM 623Q ACE.EDIT.POINT&CODE 614Q ACE.TELLEM 601Q ACE.TELLEM 563Q FONTCREATE 550Q ACE.ASKEM 532Q MENU 402Q ACE.ASKEM 364Q MENU 234Q ACE.ASKEM 215Q FONTPROP 207Q DSPFONT 177Q FONTPROP 171Q DSPFONT 161Q FONTPROP 153Q DSPFONT 132Q MENU 11Q GETMOUSESTATE 3 DSPCREATE) (1104Q DSPFONT 1070Q ERROR 1061Q INTERNAL 1033Q DSPFONT 776Q DSPFONT 762Q ERROR 753Q INTERNAL 725Q DSPFONT 714Q ACE.SEQ.WINDOW 674Q ACE.SEQ.WINDOW 670Q ACE.SEQ.WINDOW.YOFF 663Q ACE.SEQ.WINDOW.XOFF 631Q VERTEX 620Q MOUSE 611Q L 536Q OTHER 525Q ACE.EDIT.TEXT.FACE.MENU 473Q DEFAULTMENUHELDFN 464Q CLRPROMPT 416Q MENUTYPE# 411Q ACE.EDIT.TEXT.FACE.MENU 370Q OTHER 357Q ACE.EDIT.TEXT.SIZE.MENU 325Q DEFAULTMENUHELDFN 316Q CLRPROMPT 256Q MENUTYPE# 251Q ACE.EDIT.TEXT.SIZE.MENU 222Q OTHER 212Q FACE 204Q ACE.SEQ.WINDOW 174Q SIZE 166Q ACE.SEQ.WINDOW 156Q FAMILY 150Q ACE.SEQ.WINDOW 140Q SAME 125Q ACE.EDIT.TEXT.FONT.MENU 73Q DEFAULTMENUHELDFN 64Q CLRPROMPT 32Q MENUTYPE# 25Q ACE.EDIT.TEXT.FONT.MENU 17Q LASTMOUSEY 14Q LASTMOUSEX) ( 1132Q "Can't find any such Font. Aborted." 1056Q (ACE.EDIT.TEXTA0026) 750Q (ACE.EDIT.TEXTA0025) 640Q "A RETURN Stops Text." 606Q "Position Mouse and Click LEFT." 575Q "Ready to start Entering Text." 544Q "Enter a Font Face: " 434Q "Select a Font Face" 424Q (("Standard" (QUOTE STANDARD) "Normal font face") ("Italic" (QUOTE ITALIC) "A standard face in italic") ("Expanded" (QUOTE MRE)) ("Bold" (QUOTE BOLD) "A heavy bold face") ("Bold Italic" (QUOTE BIR)) ("Compressed" (QUOTE MRC)) (" " NIL) ("* Other *" (QUOTE OTHER)) (" " NIL)) 376Q "Enter a Font Size: " 274Q "Select Font Size" 264Q (6 10Q 12Q 14Q 16Q 20Q 22Q 30Q 44Q ("* Other *" (QUOTE OTHER))) 230Q "Enter a Font Family: " 50Q "Select a Font Family" 40Q ((Classic (QUOTE CLASSIC)) (Cream (QUOTE CREAM)) (Gacha (QUOTE GACHA)) (Helvetica (QUOTE HELVETICA)) (Modern (QUOTE MODERN)) (TimesRoman (QUOTE TIMESROMAN)) (" " NIL) ("* Same *" (QUOTE SAME) "Use same descriptor as last time") ("* Other *" (QUOTE OTHER)))) ACE.EDIT.TEXTURE.REGION D1 (P 1 SHADEREGION P 0 OPERATION I 1 SHADE I 0 ABITMAP) 0A$` bdgboi YAjgE`=`dodi dodg dgjdndhdJ  XIdh` IIh` hdd`IIIIgHA```` hdd@I`I`IIgHA h(363Q BITBLT 320Q BITBLT 314Q CREATEREGION 242Q DSPYOFFSET 235Q \INSUREWINDOW 217Q DSPXOFFSET 212Q \INSUREWINDOW 177Q MENU 62Q GETREGION 57Q ACE.TELLEM 37Q EDITSHADE 23Q MENU 15Q ACE.EDIT.CREATE.MENU.TEXTURES) (355Q TEXTURE 340Q ACE.SEQ.WINDOW.YOFF 331Q ACE.SEQ.WINDOW.XOFF 311Q ACE.SEQ.HEIGHT 306Q ACE.SEQ.WIDTH 303Q ACE.SEQ.WINDOW.YOFF 300Q ACE.SEQ.WINDOW.XOFF 273Q TEXTURE 252Q ACE.SEQ.WINDOW 232Q ACE.SEQ.WINDOW 207Q ACE.SEQ.WINDOW 174Q ACE.EDIT.PUTDOWN.MENU 145Q DEFAULTMENUHELDFN 136Q CLRPROMPT 104Q MENUTYPE# 77Q ACE.EDIT.PUTDOWN.MENU 72Q REPLACE 31Q OTHER 20Q ACE.EDIT.TEXTURE.MENU 10Q ACE.EDIT.TEXTURE.MENU) ( 127Q "Select a Drawing Mode" 112Q (("Paint" (QUOTE PAINT) "ORs with Frame") ("Replace" (QUOTE REPLACE) "Puts onto Frame") ("Invert" (QUOTE INVERT) "XORs with Frame") ("Erase" (QUOTE ERASE) "NANDs with Frame")) 53Q "Select a Region in the Sequence") ACE.EDIT.TEXTURE.AREAA0001 D1 (NAME ERRORSET F 0 SEED.POINT F 1 TEMP.BM F 2 SHADE F 3 MACROY) QRPPQPP k ci(23Q ACE.FILLWITHTEXTURE 15Q BITMAPBIT) NIL () ACE.EDIT.TEXTURE.AREA D1 (P 6 RESETSTATE P 5 MACROY P 3 OLDVALUE P 2 TEMP.BM P 1 SEED.POINT P 0 BOUNDING.REGION I 1 SHADE I 0 ABITMAP F 7 RESETVARSLST) 0oi hddg Xoi Yoi A` bgbHI oi og hAoi hIHIHHHk Z@Hh` `Hh` `Jjdhdgg oi ` 1gKhhWcog gLcgL NJjd`Hh` Hh` hdgg oi :Jjd@Hh` `Hh` `hdgg oi h(601Q ACE.TELLEM 570Q BITBLT 547Q DSPYOFFSET 542Q \INSUREWINDOW 523Q DSPXOFFSET 516Q \INSUREWINDOW 477Q ACE.CONFIRMIT 467Q BITBLT 452Q DSPYOFFSET 445Q \INSUREWINDOW 432Q DSPXOFFSET 425Q \INSUREWINDOW 404Q ERROR! 376Q APPLY 352Q ACE.EDIT.TEXTURE.AREAA0001 316Q CURSOR 310Q ACE.TELLEM 300Q BITBLT 254Q DSPYOFFSET 247Q \INSUREWINDOW 230Q DSPXOFFSET 223Q \INSUREWINDOW 210Q BITMAPCREATE 154Q ACE.TELLEM 140Q ACE.TELLEM 125Q ACE.TELLEM 113Q INSIDEP 103Q EDITSHADE 71Q MENU 63Q ACE.EDIT.CREATE.MENU.TEXTURES 50Q ACE.TELLEM 37Q GETPOSITION 34Q ACE.TELLEM 23Q GETREGION 12Q ACE.TELLEM) (564Q REPLACE 561Q INPUT 553Q ACE.SEQ.WINDOW.YOFF 537Q ACE.SEQ.WINDOW 527Q ACE.SEQ.WINDOW.XOFF 513Q ACE.SEQ.WINDOW 463Q REPLACE 460Q INPUT 442Q ACE.SEQ.WINDOW 422Q ACE.SEQ.WINDOW 414Q ACE.SEQ.WINDOW 367Q CURSOR 356Q ERROR 347Q INTERNAL 324Q CURSOR 313Q WAITINGCURSOR 274Q REPLACE 271Q INPUT 260Q ACE.SEQ.WINDOW.YOFF 244Q ACE.SEQ.WINDOW 234Q ACE.SEQ.WINDOW.XOFF 220Q ACE.SEQ.WINDOW 135Q L 76Q OTHER 66Q ACE.EDIT.TEXTURE.MENU 56Q ACE.EDIT.TEXTURE.MENU 20Q ACE.EDIT.MOVE.REGION.ASST) ( 575Q "Texture Area Fill Aborted." 473Q "Click LEFT to Confirm Fill as Shown." 344Q (ACE.EDIT.TEXTURE.AREAA0001) 304Q "Texturing Area..." 150Q "No Shade selected. Aborted." 132Q "Texture Area Fill Aborted." 121Q "Your Seed Point lies Outside of your Region." 44Q "Select a Fill Shade." 30Q "Select a Starting Point Inside the Region." 6 "Select a Maximum Bounding Region.") ACE.EDIT.PAINTA0001A0010 D1 (NAME ERRORSET F 0 WINDOW F 1 MACROY) P ci(3 HARDCOPYW) NIL () ACE.EDIT.PAINTA0001 D1 (NAME ERRORSET P 10Q RESETSTATE P 7 MACROY P 5 OLDVALUE P 3 HOTY P 2 HOTX P 1 DS P 0 BRUSH F 11Q PAINTCOMMANDMODE F 12Q PAINTCOMMANDBRUSH F 13Q PAINTCOMMANDSHADE F 14Q RESETVARSLST F 15Q WINDOW F 16Q PAINTCOMMANDMENU F 17Q RESETY F 20Q ABITMAP)  ghhhWcPW Wg XW YWd`d hdd`jdldggj Hjd`jdldgg HdlllZHdlll[ `ljcHcHcn`lj`l@j>hI I I `` W`W4`dodidg dgjdndhdL c dgWcdgWcdgWWdgWWdg:WgWWW h W``W jd``gg cig` 1gMhhWcog g_NcgN O`dlj}WdgWnhWg@HjdId JI Khdgg HjdId JI KhdggW %HjdId JI KhdgWW `ljHjdId JI Khdg`kjgW (1310Q BITBLT 1257Q LASTMOUSEY 1251Q LASTMOUSEX 1222Q BITBLT 1203Q LASTMOUSEY 1175Q LASTMOUSEX 1162Q BITBLT 1142Q LASTMOUSEY 1134Q LASTMOUSEX 1123Q BITBLT 1105Q LASTMOUSEY 1077Q LASTMOUSEX 1015Q ERROR! 1006Q APPLY 760Q ACE.EDIT.PAINTA0001A0010 724Q TTYDISPLAYSTREAM 702Q BITBLT 645Q PUTWINDOWPROP 636Q COPY 575Q PAINTW.READBRUSHSIZE 546Q PAINTW.READBRUSHSHAPE 521Q PAINTW.READMODE 476Q PAINTW.READBRUSHSHADE 464Q MENU 361Q WHICHW 347Q INSIDE? 344Q LASTMOUSEY 340Q LASTMOUSEX 334Q DSPCLIPPINGREGION 233Q ACE.GET.DEVICE.STATE&CURSOR 227Q CURSORHOTSPOT 156Q BITBLT 130Q BITBLT 101Q \GETBRUSH 57Q \INSUREWINDOW 43Q GETWINDOWUSERPROP 32Q TOTOPW 5 CURSOR) (1301Q ERASE 1271Q LASTMOUSEBUTTONS 1266Q INPUT 1230Q LASTMOUSEBUTTONS 1212Q MERGE 1154Q PAINT 1151Q MERGE 1117Q ERASE 1114Q INPUT 1064Q REPLACE 1044Q REPLACE 1025Q LASTMOUSEBUTTONS 777Q TTYDISPLAYSTREAM 764Q ERROR 755Q INTERNAL 732Q TTYDISPLAYSTREAM 721Q PROMPTWINDOW 711Q HARDCOPY 676Q REPLACE 673Q INPUT 670Q ACE.SEQ.HEIGHT 665Q ACE.SEQ.WIDTH 656Q ACE.SEQ.WINDOW.YOFF 653Q ACE.SEQ.WINDOW.XOFF 625Q PAINTBRUSH 613Q QUIT 563Q SIZE 536Q SHAPE 513Q MODE 470Q SHADE 433Q DEFAULTMENUHELDFN 424Q CLRPROMPT 402Q MENUTYPE# 371Q MENUTYPE# 356Q LASTMOUSEY 353Q LASTMOUSEX 314Q \EM.KBDAD2 302Q LASTMOUSEBUTTONS 237Q \EM.KBDAD3 205Q BITMAP 163Q BITMAP 152Q REPLACE 147Q INPUT 137Q CursorBitMap 123Q REPLACE 120Q TEXTURE 110Q CursorBitMap 72Q BITMAPTYPE# 40Q PAINTBRUSH 2 CURSOR) ( 752Q (ACE.EDIT.PAINTA0001A0010) 410Q ((HardCopy (QUOTE HARDCOPY) "Makes a press file of the window and prints it") (SetMode (QUOTE MODE) "Allows specification of how new bits are merged") (SetShade (QUOTE SHADE) "Allows specification of new shade.") (SetShape (QUOTE SHAPE) "Allows specification of brush shape") (SetSize (QUOTE SIZE) "Allows specification of the brush size") (QUIT (QUOTE QUIT) "Exits painting mode"))) ACE.EDIT.PAINT D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 WINDOW P 1 ORIG.REGION P 0 ORIG.CURSOR I 0 ABITMAP F 6 LISPXHIST F 7 RESETVARSLST) xoi og og og @jd```hdgg h` `Zd ZV!Wog hg] Mh(164Q ERROR! 155Q RESETRESTORE 143Q ACE.EDIT.PAINTA0001 122Q \INSUREWINDOW 107Q DSPCLIPPINGREGION 100Q CURSOR 75Q BITBLT 45Q ACE.TELLEM 33Q ACE.TELLEM 21Q ACE.TELLEM 7 ACE.TELLEM) (151Q ERROR 140Q INTERNAL 115Q ACE.SEQ.WINDOW 104Q ACE.SEQ.WINDOW 71Q REPLACE 66Q INPUT 61Q ACE.SEQ.WINDOW.YOFF 56Q ACE.SEQ.WINDOW.XOFF 53Q ACE.SEQ.WINDOW 42Q L 30Q L 16Q L) ( 135Q (ACE.EDIT.PAINTA0001) 37Q "To Quit, select Quit from Menu." 25Q "Right (Mouse) or Left Shift for Menu." 13Q "Middle (Mouse), Barrel (Tablet) Erases." 3 "Left (Mouse), Stylus (Tablet) Paints.") ACE.FILLWITHTEXTURE D1 (P 0 COPYBM I 4 BoundaryValue I 3 Y I 2 X I 1 Texture I 0 BitmapOrWindow) M@ HBCDd @jdHjdhdgg HjdHjdhdggA Hjd@jdhdgg h(111Q BITBLT 66Q BITBLT 42Q BITBLT 17Q ACE.SCANLINESEEDFILL 3 COPYALL) (105Q PAINT 102Q INPUT 61Q TEXTURE 56Q MERGE 36Q INVERT 33Q INPUT) () ACE.SCANLINESEEDFILL D1 (P 13Q Xcoord P 11Q Xcoord P 10Q YMax P 7 XMax P 6 XRight P 5 XLeft P 4 SaveY P 3 SaveX P 2 STACK P 1 Ycoord P 0 Xcoord I 4 FillValue I 3 BoundaryValue I 2 Y I 1 X I 0 BitmapOrWindow) _ @d`d k_@ g k_@g k_AB JZJdJ\L@KLD OKk OO#@OL C@OLD Ok_OkپjKk jO%@OL C@OLD Om_OkؽOLOLkعNM OO>@OI C+OdN@OkI C@OkI DOI JOk_Lj/LkٹNM OO>@OI C+OdN@OkI C@OkI DOI JOk_(516Q CREATEPOSITION 505Q BITMAPBIT 471Q BITMAPBIT 444Q BITMAPBIT 372Q CREATEPOSITION 361Q BITMAPBIT 345Q BITMAPBIT 320Q BITMAPBIT 242Q BITMAPBIT 226Q BITMAPBIT 162Q BITMAPBIT 146Q BITMAPBIT 116Q BITMAPBIT 66Q CREATEPOSITION 54Q GETWINDOWPROP 40Q GETWINDOWPROP 30Q BITMAPHEIGHT 17Q BITMAPWIDTH) (51Q HEIGHT 35Q WIDTH 10Q BITMAPTYPE#) () ACE.EDIT.CREATE.MENU.TEXTURES D1 (P 6 TEXTURE P 0 TEMP.BM) 0`@o4dhddl$dk XldldggN HNhLKh]K&Moh dIdodi dldg dgjdndhdJ (117Q \NCONC2 56Q BITBLT 34Q BITMAPCREATE) (163Q DEFAULTMENUHELDFN 154Q CLRPROMPT 51Q REPLACE 46Q TEXTURE 5 MENUTYPE#) ( 132Q "Texture Menu" 112Q ("* Other *" (QUOTE OTHER) "Make your own shade") 15Q (177777Q 104042Q 125125Q 174210Q 122645Q 7760Q 175372Q 63146Q 177720Q 104155Q 17Q 11110Q 102041Q 2241Q 1 7310Q 7007Q)) ACE.EDIT.PUTDOWN.BITMAP D1 (P 5 OLD.Y P 4 OLD.X P 1 POINT P 0 MODE I 1 TARGET.BM I 0 IMAGE.BM) |@oi  @jd`d \` ]hdggh```` g`h` ``h` ` `lj`lZjJJ @jd`LMhdggh```` ` ` Y`B`dodi dodidg dgjdndhdK  X@jd`IIhdgHh```` @jdAI`I`hdgH h@jd`LMhdggh```` (566Q BITBLT 562Q CREATEREGION 520Q BITBLT 466Q BITBLT 462Q CREATEREGION 421Q MENU 306Q LASTMOUSEY 300Q LASTMOUSEX 271Q BITBLT 265Q CREATEREGION 222Q GETMOUSESTATE 216Q \FZEROP 157Q ACE.UPD.CONTROL.WINDOW 146Q DSPYOFFSET 141Q \INSUREWINDOW 122Q DSPXOFFSET 115Q \INSUREWINDOW 77Q GETMOUSESTATE 73Q BITBLT 67Q CREATEREGION 36Q LASTMOUSEY 27Q LASTMOUSEX 12Q ACE.TELLEM) (557Q ACE.SEQ.HEIGHT 554Q ACE.SEQ.WIDTH 551Q ACE.SEQ.WINDOW.YOFF 546Q ACE.SEQ.WINDOW.XOFF 542Q INVERT 537Q INPUT 530Q ACE.SEQ.WINDOW 513Q INPUT 505Q ACE.SEQ.WINDOW.YOFF 477Q ACE.SEQ.WINDOW.XOFF 457Q ACE.SEQ.HEIGHT 454Q ACE.SEQ.WIDTH 451Q ACE.SEQ.WINDOW.YOFF 446Q ACE.SEQ.WINDOW.XOFF 441Q INPUT 430Q ACE.SEQ.WINDOW 416Q ACE.EDIT.PUTDOWN.MENU 367Q DEFAULTMENUHELDFN 360Q CLRPROMPT 321Q MENUTYPE# 314Q ACE.EDIT.PUTDOWN.MENU 303Q ACE.SEQ.WINDOW 275Q ACE.SEQ.WINDOW 262Q ACE.SEQ.HEIGHT 257Q ACE.SEQ.WIDTH 254Q ACE.SEQ.WINDOW.YOFF 251Q ACE.SEQ.WINDOW.XOFF 245Q INVERT 242Q INPUT 233Q ACE.SEQ.WINDOW 177Q LASTMOUSEBUTTONS 163Q LASTMOUSEBUTTONS 152Q ACE.SEQ.WINDOW.YOFF 136Q ACE.SEQ.WINDOW 132Q LASTMOUSEY 126Q ACE.SEQ.WINDOW.XOFF 112Q ACE.SEQ.WINDOW 106Q LASTMOUSEX 103Q CURSOR 64Q ACE.SEQ.HEIGHT 61Q ACE.SEQ.WIDTH 56Q ACE.SEQ.WINDOW.YOFF 53Q ACE.SEQ.WINDOW.XOFF 47Q INVERT 44Q INPUT 33Q ACE.SEQ.WINDOW 23Q ACE.SEQ.WINDOW) ( 344Q "Select a Drawing Mode" 327Q (("Paint" (QUOTE PAINT) "ORs with Frame") ("Replace" (QUOTE REPLACE) "Puts onto Frame") ("Invert" (QUOTE INVERT) "XORs with Frame") ("Erase" (QUOTE ERASE) "NANDs with Frame")) 6 "Click Left to paste down image.") ACE.EDIT.MOVE.REGION.ASST D1 (I 2 EXTRA I 1 MOVE I 0 FIXED) A@h` `@h` `AB `h` `h` `` @ @@`h` `h` `` @AB `h` `h` `` A AA`h` `h` `` (361Q ACE.RETURN.CLOSEST.VERTEX 356Q CREATEREGION 344Q DSPYOFFSET 337Q \INSUREWINDOW 324Q DSPXOFFSET 317Q \INSUREWINDOW 301Q INSIDEP 275Q CREATEREGION 263Q DSPYOFFSET 256Q \INSUREWINDOW 243Q DSPXOFFSET 236Q \INSUREWINDOW 224Q ACE.NEW.SEQ.ASST 215Q ACE.RETURN.CLOSEST.VERTEX 212Q CREATEREGION 200Q DSPYOFFSET 173Q \INSUREWINDOW 160Q DSPXOFFSET 153Q \INSUREWINDOW 135Q INSIDEP 131Q CREATEREGION 117Q DSPYOFFSET 112Q \INSUREWINDOW 77Q DSPXOFFSET 72Q \INSUREWINDOW 60Q ACE.NEW.SEQ.ASST 45Q DSPYOFFSET 40Q \INSUREWINDOW 22Q DSPXOFFSET 15Q \INSUREWINDOW) (353Q ACE.SEQ.HEIGHT 350Q ACE.SEQ.WIDTH 334Q ACE.SEQ.WINDOW 330Q ACE.SEQ.WINDOW.YOFF 314Q ACE.SEQ.WINDOW 310Q ACE.SEQ.WINDOW.XOFF 272Q ACE.SEQ.HEIGHT 267Q ACE.SEQ.WIDTH 253Q ACE.SEQ.WINDOW 247Q ACE.SEQ.WINDOW.YOFF 233Q ACE.SEQ.WINDOW 227Q ACE.SEQ.WINDOW.XOFF 207Q ACE.SEQ.HEIGHT 204Q ACE.SEQ.WIDTH 170Q ACE.SEQ.WINDOW 164Q ACE.SEQ.WINDOW.YOFF 150Q ACE.SEQ.WINDOW 144Q ACE.SEQ.WINDOW.XOFF 126Q ACE.SEQ.HEIGHT 123Q ACE.SEQ.WIDTH 107Q ACE.SEQ.WINDOW 103Q ACE.SEQ.WINDOW.YOFF 67Q ACE.SEQ.WINDOW 63Q ACE.SEQ.WINDOW.XOFF 51Q ACE.SEQ.WINDOW.YOFF 35Q ACE.SEQ.WINDOW 26Q ACE.SEQ.WINDOW.XOFF 12Q ACE.SEQ.WINDOW) () ACE.EDIT.POINT&CODE D1 (P 2 YCOOR P 1 XCOOR P 0 POINT&CODE I 0 DEVICE) 0@ `h` `Y`h` `Zo Xd;`j @ HogHogHog@dgg`` gIJ HIJ(223Q ACE.UPD.CONTROL.WINDOW 211Q \SETCURSORPOSITION 120Q FLIPCURSOR 113Q ACE.GET.DEVICE.STATE 106Q EQP 76Q FLIPCURSOR 67Q DECODEBUTTONS 52Q DSPYOFFSET 45Q \INSUREWINDOW 25Q DSPXOFFSET 20Q \INSUREWINDOW 6 ACE.GET.DEVICE.STATE) (215Q CURSOR 206Q LASTMOUSEY 203Q LASTMOUSEX 176Q MM1201 171Q MOUSE 163Q OPTIONS 147Q TOGGLE 133Q VERTEX 102Q LASTMOUSEBUTTONS 56Q ACE.SEQ.WINDOW.YOFF 42Q ACE.SEQ.WINDOW 36Q LASTMOUSEY 31Q ACE.SEQ.WINDOW.XOFF 15Q ACE.SEQ.WINDOW 11Q LASTMOUSEX) ( 155Q (RIGHT) 142Q (MIDDLE) 126Q (LEFT) 64Q (LEFT MIDDLE RIGHT)) ACE.GET.DEVICE.STATE D1 (P 0 POINT&CODE I 0 DEVICE) T@dgCg>k Xdl@j0dljkkjljHHh(115Q \EVENTKEYS 31Q ACE.MM1201POLL 15Q GETMOUSESTATE) (120Q LASTKEYBOARD 111Q LASTMOUSEY 102Q LASTMOUSEX 73Q LASTMOUSEBUTTONS 22Q MM1201 7 MOUSE) () ACE.GET.DEVICE.STATE&CURSORA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) `o`g ` `g ` hPcg`h` ``h` ` ci(132Q ACE.UPD.CW.MULE 121Q DSPYOFFSET 114Q \INSUREWINDOW 75Q DSPXOFFSET 70Q \INSUREWINDOW 43Q DSPLEFTMARGIN 34Q GETWINDOWUSERPROP 22Q DSPCLIPPINGREGION 14Q GETWINDOWUSERPROP) (125Q ACE.SEQ.WINDOW.YOFF 111Q ACE.SEQ.WINDOW 105Q LASTMOUSEY 101Q ACE.SEQ.WINDOW.XOFF 65Q ACE.SEQ.WINDOW 61Q LASTMOUSEX 56Q ACE.CURSOR 40Q ACE.CONTROL.WINDOW 31Q INFO.CLIP.REGION 26Q ACE.CONTROL.WINDOW 17Q ACE.CONTROL.WINDOW 11Q INFO.CLIP.REGION 6 ACE.CONTROL.WINDOW) ( 3 (PROGN (DSPCLIPPINGREGION (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION)) ACE.CONTROL.WINDOW) (DSPLEFTMARGIN (fetch (REGION LEFT) of (WINDOWPROP ACE.CONTROL.WINDOW (QUOTE NORMAL.CLIP.REGION))) ACE.CONTROL.WINDOW))) ACE.GET.DEVICE.STATE&CURSOR D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 POINT&CODE P 0 DEVICE F 5 LISPXHIST F 6 RESETVARSLST)  `g XddgMgHk Ydl@j9dljkkjljII`` U!Vog hg\ Lh(205Q ERROR! 176Q RESETRESTORE 164Q ACE.GET.DEVICE.STATE&CURSORA0001 141Q \EVENTKEYS 135Q \SETCURSORPOSITION 43Q ACE.MM1201POLL 27Q GETMOUSESTATE 13Q GETWINDOWUSERPROP) (172Q ERROR 161Q INTERNAL 144Q LASTKEYBOARD 132Q LASTMOUSEY 127Q LASTMOUSEX 123Q LASTMOUSEY 114Q LASTMOUSEX 105Q LASTMOUSEBUTTONS 34Q MM1201 21Q MOUSE 10Q ACE.DEVICE 5 ACE.CONTROL.WINDOW) ( 156Q (ACE.GET.DEVICE.STATE&CURSORA0001)) ACE.EDIT.REDRAW.ABITMAP D1 (I 0 ABITMAP) @jd```hdgg (27Q BITBLT) (23Q REPLACE 20Q INPUT 13Q ACE.SEQ.WINDOW.YOFF 10Q ACE.SEQ.WINDOW.XOFF 5 ACE.SEQ.WINDOW) () ACE.SCALE.BITMAP D1 (P 50Q NX P 46Q NX P 44Q NY P 42Q NY P 40Q X P 36Q Y P 27Q ONLINE P 26Q ENDY P 25Q ENDX P 24Q YSTART P 23Q XSTART P 22Q NEWWORD P 21Q ORIGWORD P 20Q NEWBASE P 17Q ORIGBASE P 16Q NEWRASTERWIDTH P 15Q NEWBITMAPBASE P 14Q NEWHEIGHT-1 P 13Q NEWBITMAP P 12Q BITMAPBASE P 11Q RASTERWIDTH P 10Q HEIGHT-1 P 7 BITMAPHEIGHT P 6 BITMAPWIDTH P 5 YROUND P 4 XROUND P 3 DELTAY P 2 DELTAX P 1 YFACTOR P 0 XFACTOR I 1 FACTOR I 0 BITMAP F 51Q BITMASKARRAY) X)@d` @^@_AdddXY AAYA HHojظIIojع`dHHX`dIIYleHldHlۃHl2leIldIlۃIl2LJNkHldMKOkIldk _Ok_@_@_Ok_O_O_OjOUO.HLO&Hld_&O(IMKld_,MO(Ild_(LNkHld_*O,kO("ODOBWO