(FILECREATED "12-Sep-84 10:04:22" ("compiled on " {ERIS}SOURCES>ADISPLAY.;20) "11-Sep-84 18:05:21" recompiled changes: \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY in "INTERLISP-D 11-Sep-84 ..." dated "11-Sep-84 18:23:14") (FILECREATED "12-Sep-84 10:02:43" {ERIS}SOURCES>ADISPLAY.;20 139008 changes to: (FNS DSPCOLOR DSPBACKCOLOR \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY) (VARS ADISPLAYCOMS) previous date: "28-Aug-84 16:03:28" {ERIS}SOURCES>ADISPLAY.;19) \BBTCURVEPT D1 (I 23Q DISPLAYDATA I 22Q NBITS I 21Q COLORBRUSHBASE I 20Q BRUSHRASTERWIDTH I 17Q RASTERWIDTH I 16Q DESTINATIONBASE I 15Q BRUSHBASE I 14Q TOP I 13Q BOTTOMMINUSBRUSH I 12Q BRUSHHEIGHT I 11Q DestinationBitMap I 10Q TOPMINUSBRUSH I 7 NBITSRIGHTPLUS1 I 6 RIGHTPLUS1 I 5 LEFTMINUSBRUSH I 4 BRUSHWIDTH I 3 LEFT I 2 BBT I 1 Y I 0 X) ÞPGAñ²/AGØ¸BGÒÍ¿BGÓÍ¿BGAGÙºdJñ²/¿J°+G¸GG AGÙYÚÐ»BKÒÍ¿BKÓÍ¿BGIÙÍ ¿GGGÈHÙÚÐ¼BLÒÍ¿BLÓÍG"¢±C@ñ²MBG$lð‘CCàààÍ¿BDBG$lð“@EÙƒ@EÙàààHIÍ¿IÙààG$lð‘HHàÍ°5BG$lð‘@@àààbÍ¿BjÍ¿BDG@ÙHdIñ‘¿IÍ¿BG&É(É HkÏ Q¿HIgðið‘j€kÏ @Bjv¿GAñ²BG"ÒÍ¿BG"ÓÍ¿°!G"G AGÙÚÐBHÒÍ¿BHÓÍBG&É(É HlÏ Q¿HIgð¡j€kÏ @°PC@ñ²%BCÍ¿BDB@EÙHIÍ¿IÙÍ°'B@Í¿BjÍ¿BDF@ÙHdIñ‘¿IÍ¿BjvNIL (706Q PILOTBBT 676Q PILOTBBT 666Q PILOTBBT 640Q PILOTBBT 633Q PILOTBBT 623Q PILOTBBT 577Q INVERT 544Q PILOTBBT 533Q PILOTBBT 502Q PILOTBBT 470Q PILOTBBT 437Q INVERT 367Q PILOTBBT 357Q PILOTBBT 332Q PILOTBBT 247Q PILOTBBT 242Q PILOTBBT 217Q PILOTBBT 173Q PILOTBBT 162Q PILOTBBT 132Q PILOTBBT 121Q PILOTBBT 110Q PILOTBBT 45Q PILOTBBT 33Q PILOTBBT 21Q PILOTBBT) () CREATETEXTUREFROMBITMAP D1 (P 11Q Y P 7 X P 3 TEXTURE P 2 TEXTHEIGHT P 1 W P 0 H I 0 BITMAP) è @d`ð¤ ¿@È@ÈBIlð§Idlð²m¿Hlð¥Hlð²`j»ljONñ³Plj OOñ³:@OIÜOHÜjð³"K`lOÙlÚOØlå½\ÉLÈMØÐÈä»OkØ_°ÅOkØ_°°KIlð–lHñ‘@lHdlñ‘¿d »ljO²Ojð³2jOó”lOƒOlñ³!@jdKOjIHgg ¿OI_Ø_¿°ÈK(330Q BKBITBLT 243Q BITMAPCREATE 123Q BITMAPBIT 12Q \ILLEGAL.ARG) (324Q REPLACE 321Q INPUT 133Q BITMASKARRAY 5 BITMAPTYPE#) () PRINTBITMAP D1 (L (1 FILE 0 BITMAP)) ƒ@@`ð³0@lð™@-X`ð³ oi ¿@i ¿oi ¿i hoA ¿H A ¿kA ¿H A Hd kð³¿kA ¿H A ¿HA oA h(177Q PRIN1 167Q \WRITEBITMAP 161Q PRIN2 155Q BITSPERPIXEL 150Q SPACES 136Q BITSPERPIXEL 131Q PRIN2 125Q BITMAPHEIGHT 120Q SPACES 112Q PRIN2 106Q BITMAPWIDTH 101Q PRIN1 67Q TERPRI 62Q PRIN1 51Q PRIN1 43Q PRIN1) (30Q BITMAPTYPE# 10Q BITMAPTYPE#) ( 173Q ")" 75Q "(" 56Q " is not a BITMAP." 37Q "******** ") PRINTCURSOR D1 (P 0 CUR I 0 VAR) z @g XY`ð²$I²Id¥d¡žId¥d¡³ oi ¿@i ¿oi ¿i hg@goHHhh H h(166Q PRINTBITMAP 161Q PRINT 122Q TERPRI 115Q PRIN1 104Q PRIN1 76Q PRIN1 11Q EVALV) (133Q CURSORCREATE 127Q RPAQ 21Q BITMAPTYPE# 6 PRINTCURSOR) ( 137Q (READBITMAP) 111Q " is not a CURSOR." 72Q "******** ") \WRITEBITMAP D1 (P 3 LIM P 2 W P 1 OFD P 0 BASE I 1 FILE I 0 BITMAP) z@ÉAg @È@Èdjñ´bA ¿Il" ¿HJÐ»HKð³BIHjÂââââl@Ø ¿IHjÂlål@Ø ¿IHkÂââââl@Ø ¿IHkÂlål@Ø ¿HkÐX°¾Il" ¿kÙ°(162Q \BOUT 145Q \BOUT 127Q \BOUT 110Q \BOUT 72Q \BOUT 42Q \BOUT 33Q TERPRI 11Q GETSTREAM) (6 OUTPUT) () \GETINTEGERPART D1 (L (0 FRACT)) '@Èlåjð‘j€k@Èââââdnñ–nÙHÙHØNIL NIL () \CONVERTTOFRACTION D1 (P 1 BOX P 0 RESULT I 0 FLOAT) @oêjØXd™¿lYH I(30Q \PUTFIXP) NIL ( 7 1048576.0) CARET D1 (I 0 NEWCARET) ƒ`µ-g@²x`”h ¿ ¿@dið²?¿`dgð²¿h°OHH°Ë žhdd`hh°-o` °!gð’h°@ ›hdd@hh…@l ¿(174Q \LISPERROR 151Q CURSORP 133Q ERROR 101Q CURSORP 31Q CARETRATE 26Q CARETRATE 22Q \CARET.DOWN) (177Q \CARET.DEFAULT 140Q OFF 130Q DEFAULTCARET 110Q DEFAULTCARET 50Q OFF 44Q DEFAULTCARET 15Q \CARET.UP 7 OFF 2 \CARET.DEFAULT) ( 125Q "DEFAULTCARET is not a cursor") \CARET.CREATE D1 (L (0 CURSOR)) hdd`hhNIL (5 DEFAULTCARET) () \CARET.DOWN D1 (P 0 \INTERRUPTABLE I 2 UNLESSOCCLUDED I 1 INTERVAL I 0 STREAM) a`´\@² `³`@d`ð”Éð´;`B ´`h¿`³â`lð“`‚l Aµ`ö(127Q \CLOCK0 57Q \CARET.SHOW) (135Q \CARET.FORCED.OFF.RATE 120Q \CARET.TIMER 110Q \CARET.TIMER 102Q \CARET.UP 72Q \CARET.UP 64Q \CARET.UP 53Q \CARET.UP 40Q WINDOW 33Q WINDOWTYPE# 24Q \CARET.UP 12Q \CARET.UP 2 \CARET.UP) () \CARET.FLASH? D1 (I 3 OFFRATE I 2 ONRATE I 1 CARET I 0 STREAM F 0 TtyDisplayStream) ©`²?`g ´3h``Èl@åjðµ`Èlåjðµ`d–Èl@åjðhA¦`b´^`g ´S@µPb ´HA@C`Èl@åjðµ`Èlåjðµ`d–Èl@åjð´`lð“`‚l Bµ`öi(236Q \CLOCK0 212Q \CARET.FLASH 136Q DISPLAYSTREAMP 123Q TIMEREXPIRED? 77Q \CARET.DOWN 15Q TIMEREXPIRED?) (244Q \CARET.ON.RATE 227Q \CARET.TIMER 217Q \CARET.TIMER 176Q \EM.KBDAD4 162Q \EM.KBDAD3 146Q \EM.KBDAD2 120Q MILLISECONDS 115Q \CARET.TIMER 106Q \CARET.DEFAULT 63Q \EM.KBDAD4 47Q \EM.KBDAD3 33Q \EM.KBDAD2 23Q \CARET.UP 12Q MILLISECONDS 7 \CARET.TIMER 2 \CARET.UP) () \CARET.SHOW D1 (P 13Q CLIPVAR P 12Q CLIPREG P 11Q CARETBMHEIGHT P 10Q CARETBMWIDTH P 7 CWY P 6 CWX P 5 CARETBM P 4 CBMY P 3 CBMX P 2 CARETWIN P 1 DD P 0 DS I 1 UNLESSOCCLUDED I 0 CARET) ö@HÉ(H jd@e@^@_M _MÈ_IÉ _d_NñOONÙ[Ù_¿O¾OOOØNÙ_ñ”O_¿O_Oñ²OOOÙ\Ù_¿O_¿OOOØOÙ_ñ”O_¿kOñ¤kOñ‘iNIÉØ^OIÉØ_J ²JNONOkÙØOOkÙØ ¨A‘hJ ¿MKL`NOOOgg i(362Q BKBITBLT 332Q TOTOPW 321Q \AREAVISIBLE? 272Q OPENWP 47Q BITMAPWIDTH 16Q WFROMDS) (356Q INVERT 353Q INPUT 341Q ScreenBitMap 261Q \DISPLAYDATA 247Q \DISPLAYDATA 65Q \DISPLAYDATA 55Q BITMAP 10Q STREAM) () CARETRATE D1 (I 1 OFFRATE I 0 ONRATE F 0 DEFAULTCARETRATE) I`d`ð£`@¢A²7`lð“`‚l jö¿@d¡µPjØ¿Ad¡µ`¿(43Q \CLOCK0) (105Q \CARET.OFF.RATE 102Q \CARET.ON.RATE 65Q \CARET.ON.RATE 34Q \CARET.TIMER 24Q \CARET.TIMER 13Q \CARET.OFF.RATE 6 \CARET.OFF.RATE 2 \CARET.ON.RATE) () \CARET.FLASH.AGAIN D1 (I 1 CARET I 0 STREAM) `dAd@`¿¿(25Q \CARET.FLASH) (15Q \CARET.UP 2 \CARET.UP) () \CARET.FLASH.MULTIPLE D1 (P 3 CARET P 2 STR I 3 OFFRATE I 2 ONRATE I 1 CARETS I 0 STREAMS) 0@ABC´A@"Iµ…ºHµh»JK ¿I¹H¸°å(45Q \CARET.FLASH.AGAIN 10Q \CARET.FLASH?) NIL () \CARET.FLASH D1 (P 0 \INTERRUPTABLE I 3 UNLESSOCCLUDED I 2 RATE I 1 STREAM I 0 CARET) A@A@hA @Ù@hA @Ù@Bµ`@C ´@i(67Q \CARET.SHOW 32Q DSPYPOSITION 11Q DSPXPOSITION) (75Q \CARET.UP 56Q \CARET.OFF.RATE) () \AREAVISIBLE? D1 (P 0 WPTR I 4 TOP I 3 RGHT I 2 BTM I 1 LFT I 0 WIN) 9`@ÉABCD ³hÉABCD ³ñHÉX´ Hd@ð²äi(44Q \REGIONOVERLAPAREAP 23Q \AREAINREGIONP) (52Q WINDOW 32Q WINDOW 11Q WINDOW 2 TOPW) () \REGIONOVERLAPAREAP D1 (L (4 TOP 3 RGHT 2 BTM 1 LFT 0 REG)) +@Cñµ#A@@kÙØñµ@DñµB@@kÙØñhðNIL NIL () \AREAINREGIONP D1 (L (4 TOP 3 RGHT 2 BTM 1 LFT 0 REGION)) 1A@ýñhð´(B@ýñhð´@@ØCýñhð´@@ØDýñhðNIL NIL () CURSORP D1 (L (0 X)) 3@´/@`ð´&@´!@d¥d¡´@d¥d¡´@NIL (11Q BITMAPTYPE#) () CURSORBITMAP D1 NIL `NIL (2 CursorBitMap) () CreateCursorBitMap D1 (I 0 ARRAY) /ld 1HÉYlj»ºKJñ³IKÐ@KkØ(nÿÿåÍ¿KkØ[°éH(5 BITMAPCREATE) NIL () CREATEREGION D1 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT)) @ABChNIL NIL () REGIONP D1 (I 0 X) $@l ´@dd¥d¡•µñi¿h´@(5 EQLENGTH) NIL () INTERSECTREGIONS D1 (L (0 REGIONS)) µeHjð²ooodh@aIZdIØkÙ[I\dIØkÙ]Hl_¿¾OdNñ²¿JKñ³fLMñ³aJLKJÙkØMLÙkØhaYdJñ’ºILñ“I¼IdIkÙØKýñ™IkÙØ»IIkÙØMýñ›IIkÙØ½OkØ_°“hNIL NIL ( 24Q 17777777777Q 20Q -7777777777Q 14Q -7777777777Q) UNIONREGIONS D1 (L (0 REGIONS)) ›eHjð‘hp@YdZIIkÙØ[I\IIkÙØ]Hl_¿¾OdNñ²¿JLKJÙkØMLÙkØhaYdJýñ’ºILýñ“I¼IdIkÙØKñ™IkÙØ»IIkÙØMñ›IIkÙØ½OkØ_°NIL NIL () REGIONSINTERSECTP D1 (L (1 REGION2 0 REGION1)) @@AAkÙØñµ0A@@kÙØñµ"@AAkÙØñµA@@kÙØñhðNIL NIL () SUBREGIONP D1 (L (1 SMALLREGION 0 LARGEREGION)) BA@ýñhð´8A@ýñhð´,@@ØAAØýñhð´@@ØAAØýñhðNIL NIL () EXTENDREGION D1 (L (1 INCLUDEREGION 0 REGION)) š@dAñ²@@ØAÙ¿@A¿@Añ²@@@ØAÙ¿@A¿AdAkÙØ@@kÙØñ²¿@AAkÙØ@ÙkØ¿AAkÙØ@@kÙØñ²@AAkÙØ@ÙkØ@NIL NIL () EXTENDREGIONBOTTOM D1 (L (1 NEWBOTTOM 0 REG)) !@HAñ²@A¿@@HAÙØ@NIL NIL () EXTENDREGIONLEFT D1 (L (1 NEWLEFT 0 REG)) @HAñŸ@A¿@@HAÙØ@NIL NIL () EXTENDREGIONRIGHT D1 (L (1 NEWRIGHT 0 REG)) @@kÙØAHñ›@@AHÙØ@NIL NIL () EXTENDREGIONTOP D1 (L (1 NEWTOP 0 REG)) #@@kÙØAHñ@@AHÙØ@NIL NIL () INSIDEP D1 (I 2 Y I 1 POSORX I 0 REGION) R@ ˜h@ b°õAdd¥d¡²¿Bd¥d¡–@ABA ˜@AAAdd¥d¡‘¿B (117Q \ILLEGAL.ARG 74Q INSIDE? 63Q POSITIONP 56Q INSIDE? 11Q DSPCLIPPINGREGION 3 WINDOWP) NIL () STRINGREGION D1 (I 3 RDTBL I 2 PRIN2FLG I 1 STREAM I 0 STR) %hA hA AÈÙ@ABCAÈh(27Q STRINGWIDTH 11Q DSPYPOSITION 4 DSPXPOSITION) (33Q FONTDESCRIPTOR 15Q FONTDESCRIPTOR) () \BRUSHBITMAP D1 (I 1 BRUSHWIDTH I 0 BRUSHSHAPE) m``@dgð“¿j°,gð’k°$@dgð”¿l°gð’l@dgð“¿l‚ lÚAdkð“¿k°#lñ“l°Adlñ™lñ’l‹lˆlñ’llØ(((72Q \ILLEGAL.ARG) (61Q DIAGONAL 47Q VERTICAL 35Q HORIZONTAL 23Q SQUARE 12Q ROUND 5 \CurveBrushIndexArray 2 \CurveBrushArray) () \GETBRUSH D1 (I 0 BRUSH) @d`ð¬µ g@µk @ (35Q \BRUSHBITMAP 24Q \BRUSHBITMAP) (15Q ROUND 5 BITMAPTYPE#) () \GETBRUSHBBT D1 (I 2 BBT I 1 DISPLAYDATA I 0 BRUSHBM) ·@Èkð²@Èkðš@jdkð‘hBAÉÈàààànÿÿåÍB@ÈàààànÿÿåÍBjÍ BkÏ ¿kjðhðBAÉ AÉdgð¥dgð•¿g°dgð¥dgð”¿gƒ¿HJdgð“¿k°gð’l‰Jgð’l€jÏ Q¿HIgðJgðð‘j€kÏ @B(173Q SHOULDNT 22Q BITMAPBIT) (252Q ERASE 245Q INVERT 226Q INVERT 215Q PAINT 204Q ERASE 166Q ERASE 160Q ERASE 152Q INVERT 144Q PAINT 136Q PAINT 130Q REPLACE 77Q PILOTBBT 56Q PILOTBBT 33Q PILOTBBT) () \InitCurveBrushes D1 (P 4 TEMP P 3 SPECS P 2 I) ‹lg `lk#Hµlg `kMµHh»JIñ³â`JKK \*¿LÉ¼KjMµJkØºHX°·_¿LNÐOÍ¿NkØ¾M]°à_¿`NO*¿NkØ¾M]°¤(103Q BITMAPCREATE 40Q ARRAY 7 ARRAY) (173Q \CurveBrushIndexArray 72Q \CurveBrushArray 46Q BrushIndexList 43Q \CurveBrushIndexArray 35Q SMALLPOSP 15Q BrushInitializationList 12Q \CurveBrushArray 4 POINTER) () \DRAWLINE.DISPLAY D1 (P 0 DD I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 DISPLAYSTREAM) ¼@d`ð¤ ¿@É(Add¡¢ HÉØBdd¡¢ HÉØCdd¡¢ HÉØDdd¡¢ HÉØEµk‹d¡µE FµHÉ°"gð³Fdgð³dgð«dgð’¿F‚ HÉHÈ"HÈ#kÙHÈ$HÈ%kÙ@G CD@(271Q MOVETO 262Q \CLIPANDDRAWLINE 230Q \ILLEGAL.ARG 160Q FIXR 130Q FIXR 105Q FIXR 62Q FIXR 37Q FIXR 11Q \TOTOPWDS) (220Q ERASE 212Q INVERT 203Q PAINT 173Q REPLACE 134Q \DISPLAYDATA 111Q \DISPLAYDATA 66Q \DISPLAYDATA 43Q \DISPLAYDATA 16Q STREAM 4 \TOPWDS) () RELMOVETO D1 (I 2 STREAM I 1 DY I 0 DX) @hBg b ØB AhB ØB (35Q DSPYPOSITION 30Q DSPYPOSITION 22Q DSPXPOSITION 15Q DSPXPOSITION 10Q \GETSTREAM) (5 OUTPUT) () MOVETOUPPERLEFT D1 (P 0 ASCENT I 1 REGION I 0 WINDOW) Xh@ ÈAd².l ²Add¥d¡•µñi¿h¥A ´ AAAŒ@ h@ YIØHÙ@@(124Q MOVETO 105Q DSPCLIPPINGREGION 100Q DSPLEFTMARGIN 63Q \ILLEGAL.ARG 25Q EQLENGTH 4 DSPFONT) (7 FONTDESCRIPTOR) () \CLIPANDDRAWLINE D1 (P 6 J P 5 I P 3 \INTERRUPTABLE P 1 MAX P 0 MIN I 14Q COLOR I 13Q DS I 12Q TOP I 11Q BOTTOM I 10Q RIGHT I 7 LEFT I 6 BITMAP I 5 OPERATION I 4 WIDTH I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) a FÈkð³*Egð²hG b¿gb ¿°Gd¤G ‚nÿÿb¿@Bð¢±¤Dlñ˜@DkÙâÙb¿0@Gñ³%G@DØbýñ´AdCñ‘¿CXGñ«GAdCñ¡¿CYñ‘h`•G ¿G`ð¥G ¿hjdF@dGñ¢¿GbHdGñ¢¿GXBGkØºdJñ‘¿J@ÙIdGñ’¿GHÙkØgEG `´‚±´ACð¢±ªDlñ˜ADkÙâÙb¿0AGñ’±ÿ|GADØbýñ´‚±ÿn@dBñ‘¿BXGñ’±ÿ^G@dBñ¡¿BYñ’±ÿO`•G ¿G`ð¥G ¿hjdFHdGñ¢¿GXAdGñ¢¿GbIdGñ’¿GHÙkØCGkØºdJñ‘¿JAÙgEG `´Dkð²@ABCEFGGGGGG @BÙjJñ¡J‚jJÙACÙjJñ¡J‚jJÙñ²MDlñ²DkÙâAJÙb¿CJÙbADØkÙACMLñ’±þ…@MBNEFGGGGGG ¿MkØ½NkØ¾°ÚDlñ²DkÙâ@JÙb¿BJÙb@DØkÙ@BMdLñ’±þ9ANCEFGGGGGG ¿MkØ½NkØ¾°Ú(1124Q \CLIPANDDRAWLINE1 1011Q \CLIPANDDRAWLINE1 645Q \CLIPANDDRAWLINE1 611Q \PUTUPCOLORCURSOR 601Q BKBITBLT 502Q \TOTOPWDS 465Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 333Q \PUTUPCOLORCURSOR 317Q BKBITBLT 220Q \TOTOPWDS 203Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 55Q COLORNUMBERP 52Q DSPCOLOR 26Q COLORNUMBERP 23Q DSPBACKCOLOR) (604Q \COLORCURSORDOWN 572Q TEXTURE 473Q \TOPWDS 457Q \COLORCURSORBM 322Q \COLORCURSORDOWN 310Q TEXTURE 211Q \TOPWDS 175Q \COLORCURSORBM 34Q PAINT 12Q ERASE) () \CLIPANDDRAWLINE1 D1 (P 14Q CA2 P 13Q CA1 P 12Q CY2 P 11Q CX2 P 10Q CY1 P 7 CX1 P 6 \INTERRUPTABLE P 5 HALFDY P 4 HALFDX P 3 YMOVEUP P 2 DY P 1 DX P 0 BMRASTERWIDTH I 13Q COLOR I 12Q DS I 11Q TOP I 10Q BOTTOM I 7 RIGHT I 6 LEFT I 5 BITMAP I 4 OPERATION I 3 Y2 I 2 X2 I 1 Y1 I 0 X1) š EÈQ@Bñ²@¼Bb¿Lb¿A¼Cb¿Lb¿B@ÙYâ\CAñ”i»CAACÙZâ]F@ñ³oBGñ³iK—GAñ³aC†GCñ³YAGñ³SEÈkð²L`•G ¿G`ð¥G ¿@EÈAÙkÙIJIJIJñ‘L€MK“jHÙ€HDEÉH ¿`“¿±@ABC@AFGGG BCFGGG OdOåjð£¿±èOØjð¢±á`•G ¿G`ð¥G ¿EÈdkð²Q¿OEÈOÙkÙOOÙK”OOƒOOÙIJIdJñš¿dO@ÙÚLØIK“OA‚AOÙÚMØJÜK“jHÙ€HDEÉH °ddlð¥dlð²U¿OEÈOÙkÙOOÙK”OOƒOOÙIJIdJñš¿dO@ÙÚLØIK“OA‚AOÙÚMØJÜK“jHÙ€HDEÉHEÈG ƒ¿¿`´hOjð³lOdlñ²¿@IJGAÙØ_¿G_¿°:lñ²@IJAGÙØ_¿G_¿° KšAJIF@ÙØ‰AJIF@ÙÙ_¿F_¿OOFGGG _±þ¡Odlñ²¿@IJAGÙØ_¿G_¿°=lñ²@IJGAÙØ_¿G_¿°#K›AJIG@ÙØŠAJIG@ÙÙ_¿G_¿OOFGGG _¿±þ1(1222Q \CLIPCODE 1172Q \GREATESTPTAT 1156Q \GREATESTPTAT 1127Q \GREATESTPTAT 1075Q \GREATESTPTAT 1045Q \CLIPCODE 1016Q \LEASTPTAT 1003Q \LEASTPTAT 755Q \LEASTPTAT 723Q \LEASTPTAT 670Q \PUTUPCOLORCURSOR 657Q SHOULDNT 652Q \DRAWCOLORLINE1 513Q \DRAWLINE1 365Q \TOTOPWDS 350Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 303Q \CLIPCODE 266Q \CLIPCODE 240Q \PUTUPCOLORCURSOR 230Q \DRAWLINE1 164Q \TOTOPWDS 147Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (663Q \COLORCURSORDOWN 356Q \TOPWDS 342Q \COLORCURSORBM 234Q \COLORCURSORDOWN 155Q \TOPWDS 141Q \COLORCURSORBM) () \CLIPCODE D1 (L (5 BOTTOM 4 TOP 3 RIGHT 2 LEFT 1 Y 0 X)) ;B@ñŸADñ’lEAñ’l k@Cñ²ADñ’lEAñ’l lADñ’lEAñ’ljNIL NIL () \LEASTPTAT D1 (L (2 THISB 1 DB 0 DA)) @AñœB@Ú@âÙkÙAÛkØB@ÚAâØAÛNIL NIL () \GREATESTPTAT D1 (L (2 THISB 1 DB 0 DA)) @AñœBkØ@Ú@âÙkÙAÛB@ÚAâØAÛNIL NIL () \DRAWLINE1 D1 (I 12Q RASTERWIDTH I 11Q BITMAPBASE I 10Q MODE I 7 YINC I 6 CDL I 5 DY I 4 DX I 3 YLIMIT I 2 XLIMIT I 1 Y0 I 0 X0) 3GAGÚ@ââââØÐ@låDGEGdgð“¿l‡gð‘k€jFBkØCkØ;NIL (43Q ERASE 32Q INVERT) () \DRAWLINE.UFN D1 (L (10Q PIXELSINY 7 PIXELSINX 6 INITIALBUCKET 5 OPERATIONCODE 4 YDELTA 3 YINCR 2 XDELTA 1 FIRSTBIT 0 FIRSTADDR)) `AlåHÉHÈIØÐÈDBñ’±ïEdjð²N¿GkjJIñ³?@H@ÈäÍ¿BFDØbñ³KkØ[Gð³$FBÙb¿@CÐb¿HâXjð™@kÐb¿n€¸JkØZ°Áhkð²OGkjJIñ³ð@Hnÿÿæ@ÈåÍ¿BFDØbñ³KkØ[Gð³ÑFBÙb¿@CÐb¿HâXjð™@kÐb¿n€¸JkØZ°½GkjJIñ³£@H@ÈæÍ¿BFDØbñ³KkØ[Gð³ˆFBÙb¿@CÐb¿HâXjð™@kÐb¿n€¸JkØZ°ÁEdjð²P¿GkjJIñ’±ÿR@H@ÈäÍ¿DFBØbñ³#KkØ[Gð’±ÿ5FDÙb¿HâXjð™@kÐb¿n€¸@CÐb¿JkØZ°½kð²SGkjJIñ’±ÿ@Hnÿÿæ@ÈåÍ¿DFBØbñ³#KkØ[Gð’±þàFDÙb¿HâXjð™@kÐb¿n€¸@CÐb¿JkØZ°¹GkjJIñ’±þ°@H@ÈæÍ¿DFBØbñ³#KkØ[Gð’±þ“FDÙb¿HâXjð™@kÐb¿n€¸@CÐb¿JkØZ°½NIL (2 BITMASKARRAY) () \DRAWCIRCLE.DISPLAY D1 (L (5 DASHING 4 BRUSH 3 RADIUS 2 CENTERY 1 CENTERX 0 DISPLAYSTREAM) P 57Q \INTERRUPTABLE P 56Q \INTERRUPTABLE P 55Q \INTERRUPTABLE P 54Q \INTERRUPTABLE) ~0Cdd¥d¡š¿jC bñ”C Cjð‘h`µ4`ájCkCÙlÚH@É(Dlð´Dö#€+O(²A_N¿B_P±Ûh¿°ÍO&È$_2¿O&È%_0¿O&È#_.¿O&È"_,¿O&É_*¿O&Édgð¥dgð”¿gƒ¿g_J¿O*È_Vkð³[DOVlð’llÿOV_>¿OJgð²h@ µg_R¿g_J¿°D´ Dd¨@ µg_R¿DOROVÉ_T¿†D _>¿O*È_D¿O*É_@¿O>O&O$_$¿O>É_B¿O>È_F¿O>È_4¿O$³O*ÈkÙ_L¿O&Égð•g_J¿OVdkð™¿O,O4Ù_8°6lð²O,O4ââÙ_8¿O.àà_H°OVlð²O,O4âââÙ_8¿O.ààà_H‚¿O>È_6¿O2O6Ù_:¿O0O6Ù_<¿OVdkð²¿AO4âÙO&ÉØ_N°7lð²AO4âââÙO&ÉØ_N°OVlð²AO4ââââÙO&ÉØ_N‚¿BO6âÙO&ÉØ_P¿@`ð¤@ ¿Ckð¢±–O(ONOP@lO(± ,`”@ ¿@`ð¤@ ¿ONO8ñ²ZO.ONñ²SOPO:ñ²LO0OPñ²EO$³O@ONOPOJOLOD °.ONOPO$O,O4O8O.OHOA B C D TJjð£Kjð—HI@hkJñ’J° kKñ’K°E“JKð“jb Ed¥d¡¤E ¿`µ>`_E E JdÚKdÚjdk@É(Flð´Fú!ð0À¿O&É_6¿OBO"O_¿OBÉ_8¿OBÈ_@¿OBÈ_<¿O³O&ÈkÙ_F¿O"Égð•g_D¿Oxdkð™¿O(O<Ù_4°6lð²O(O<ââÙ_4¿O*àà_r°Oxlð²O(O<âââÙ_4¿O*ààà_r‚¿OBÈ_:¿O,O:Ù_0¿O.O:Ù_2¿Oxdkð²¿HO<âÙO"ÉØ_h°7lð²HO<âââÙO"ÉØ_h°Oxlð²HO<ââââÙO"ÉØ_h‚¿IO:âÙO"ÉØ_j¿@`ð¤@ ¿OOdêêOOdêêè_\¿OOdêêOOdêêè l _^¿OOOOÙk êê_`¿JKÚO\ ë _l¿OjOlØ_n¿OjOlÙ_p¿O\Olk ê l _b¿O`Olê l _d¿OOÚO\OldÚêé l _f¿O\ l _\¿O` l _`¿Ob Od ýñ¢±™j_HOdó²Lk_J_L¿jO\Ù_NO`Ù_PO^O`ØÙ_R¿ObO\O`Øk Ø_V¿jOVOdØÙ_T¿OVO^l Odk jOfÙØ±Ömÿ_J_L¿O\_NO`Ù_PO^jO`ÙØØ_R¿ObO`O\Ùk Ø_V¿OdOVÙ_T¿OVOfjOdk O^l±k_H¿j_JOdó²?k_L¿O^_NO`Ø_PO\O`ØØ_R¿jOdO^O`Øk ØÙ_V¿ObOVÙ_T¿OVOfjO\l °@mÿ_L¿jO^Ù_NO`Ø_PO`jO\ÙØØ_R¿OdO^O`Ùk Ø_V¿ObOVÙ_T¿OVO\l jOfObk ØÙØØ_X¿jOXó²)OOHØ_¿OOJØ_¿OVONÙ_V¿OTOPØ_T¿OVOXØ°'OO Ø_¿OOLØ_¿OVOPÙ_V¿OTORØ_T¿OXOTÙ_X¿jOóŸHI@OhO$²)OhOØOnOØ@lO$¿OhOÙOpOÙ@lO$¿±ì=`”@ ¿@`ð¤@ ¿OhOØOnOØ½\O4ñ²RO*Lñ²LMO0ñ²FO.Mñ²@O¯O6LMODOFO> °,LMOO(OO@OtOxO" ¿OhOÙOpOÙ_¿^O4ñ²WO*Nñ²QOO0ñ²JO.Oñ²CO³O6NOODOFO> °-NOOO(OO@OtOxO" ¿`“¿jOVó’±jOTó¢±þuO OHÙ_H¿OLOJÙ_J¿OPk ORÙ_ZONÙ_N¿OPORÙ_P¿jORÙ_R¿OVOTjOPkØk ÙØØ_VORlØl jOXÙjOTkØk ÙØØØ_X¿OZkØk OTÙ_T¿jOVó¢±ýÿOHjð—jO Ù_ ¿†jOLÙ_L¿OPONÙ_Z¿jONÙ_N¿OZONØ_P¿OZl ORÙ_R¿jOVÙOZÙ_VOTÙOXÙ_X¿OTOZÙOVk Ù_T¿±ÿ)(3253Q LSH 3210Q LSH 3110Q RSH 3071Q RSH 3054Q RSH 3035Q RSH 2766Q LSH 2716Q \PUTUPCOLORCURSOR 2706Q \BBTCURVEPT 2631Q \FBITMAPBIT 2536Q \BBTCURVEPT 2462Q \FBITMAPBIT 2375Q \TOTOPWDS 2362Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2262Q MOVETO 2113Q RSH 2102Q RSH 2055Q RSH 2005Q RSH 1754Q RSH 1667Q RSH 1640Q RSH 1562Q RSH 1554Q RSH 1525Q RSH 1442Q ABS 1435Q ABS 1425Q LSH 1420Q FIXR 1410Q LSH 1403Q FIXR 1373Q LSH 1366Q FIXR 1343Q LSH 1336Q FIXR 1323Q LSH 1316Q FIXR 1312Q LSH 1257Q FIXR 1253Q SQRT 1236Q LSH 1216Q LSH 1211Q FIXR 1144Q \TOTOPWDS 1111Q SHOULDNT 740Q SHOULDNT 534Q \GETBRUSHBBT 474Q \GETBRUSH 457Q \GETCOLORBRUSH 437Q DSPCOLOR 400Q DSPBACKCOLOR 360Q \GETCOLORBRUSH 136Q SIN 132Q COS 112Q \ILLEGAL.ARG 40Q MOVETO 17Q FIXR 13Q FIXR 7 FIXR 3 FIXR) (2712Q \COLORCURSORDOWN 2367Q \TOPWDS 2355Q \COLORCURSORBM 2272Q \\BRUSHBBT.GLOBALRESOURCE 1136Q \TOPWDS 1124Q \DISPLAYDATA 1100Q \DISPLAYDATA 1045Q \DISPLAYDATA 1015Q \DISPLAYDATA 746Q BITMAP 631Q INVERT 624Q INVERT 606Q BITMAP 570Q BITMAP 556Q BITMAP 544Q BITMAP 516Q BITMAP 504Q BITMAP 462Q BITMAP 444Q BLACK 413Q REPLACE 405Q WHITE 370Q ERASE 327Q BITMAP 317Q REPLACE 312Q ERASE 304Q ERASE 276Q INVERT 220Q \\BRUSHBBT.GLOBALRESOURCE 153Q STREAM 123Q PILOTBBTTYPE# 116Q \\BRUSHBBT.GLOBALRESOURCE) () \DRAWCURVE.DISPLAY D1 (P 3 LKNOT P 2 BBT P 1 DASHLST P 0 \BRUSHBBT I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 DISPLAYSTREAM) `µ`Dd²(d²!°h¿°îdd¡•µõi¿h’DµD HA djð’±Ìdkð²>¿A² Ad¥d¡ŸAdd¥d¡«¿oA ¿AAC@±‹lð²xA² Ad¥d¡ŸAdd¥d¡«¿oA ¿A²#Ad¥d¡²Add¥d¡¬¿oA ¿AAAACI@J ŒAB CIJ@ ¿@H¿(415Q \CURVE2 405Q PARAMETRICSPLINE 377Q \LINEWITHBRUSH 350Q ERROR 266Q ERROR 202Q DRAWPOINT 166Q ERROR 75Q LENGTH 65Q \ILLEGAL.ARG) (424Q \\BRUSHBBT.GLOBALRESOURCE 31Q \\BRUSHBBT.GLOBALRESOURCE 7 PILOTBBTTYPE# 2 \\BRUSHBBT.GLOBALRESOURCE) ( 342Q "bad knot" 261Q "bad knot" 161Q "bad knot") DRAWPOINT D1 (P 0 BRUSHBM I 3 WINDOW I 2 BRUSH I 1 Y I 0 X) B HjdC@HÈâÙAHÈâÙ (32Q BKBITBLT 3 \GETBRUSH) NIL () \LINEWITHBRUSH D1 (L (7 BBT 6 DISPLAYSTREAM 5 DASHLST 4 BRUSH 3 Y2 2 X2 1 Y1 0 X1) P 40Q \INTERRUPTABLE) !iEdFÉ(Dlð´DF¿õÀL’±âKÈ$_¿KÈ%_¿KÈ#_¿KÈ"¾KÉ½KÉdgð¥dgð”¿gƒ¿g_*¿MÈ_2kð³[DO2lð’llÿO2_¿O*gð²hF µg_.¿g_*¿°D´ Dd¨F µg_.¿DO.O2É_0¿†D _¿MÈ_$¿MÉ_ ¿OKGb¿OÉ_"¿OÈ_&¿OÈ_¿G³MÈkÙ_,¿KÉgð•g_*¿O2dkð˜¿NOÙ_°4lð²NOââÙ_¿Oàà_(°O2lð²NOâââÙ_¿Oààà_(‚¿OÈ_¿OOÙ_¿OOÙ_¿O2dkð²¿@Oâ_4ÙKÉØb°9lð²@Oâââ_4ÙKÉØb° O2lð²@Oââââ_4ÙKÉØb‚¿BO4ÙKÉØb¿AOâ_6ÙKÉØb¿CO6ÙKÉØb¿F`ð¤F ¿@BñŸB@b¿b¿CAb¿b¿B@ÙkØ_8CAñ–k_<¿CA†mÿ_<¿ACÙkØ_:O8O:ñ”O8O:ƒO:O8Üâ_>L¢±ÁO:O8ñ’±@Bñ’±&H˜@AFlL¿I²JkÙZjðœHhð¸IµEYºO8O>O:Ø_>ñ³!AO<Øb¿OO8Ù_>¿@kØb°¨ACñ’±ËH˜@AFlL¿I²JkÙZjðœHhð¸IµEYºO:O>O8Ø_>ñ³@kØbBñ’±’O>O:Ù_>¿AO<Øb¿OO:Ø_>ñ³!AO<Øb¿OO8Ù_>¿@kØb±ÿ]ACñ’±¢H²U@Oñ²OO@ñ²IAOñ²COAñ²=G¯O @AO*O,O$ °)@AGNOOOO(OMOOOO"O O$O&O0O2K ¿I²JkÙZjðœHhð¸IµEYºO:O>O8Ø_>ñ³@kØbBñ³O>O:Ù_>¿AO<Øb¿Oµ‚±#Njo_Njo_Njo_A²GNjo_¿Njo_ ¿Njo_¿Njo_¿@@ ©@ @b¿Oko*NlÙl_*¿_(¿O*O(ñ¢±öA²Oko*¿NlÙl O@O>ñ¢±ølNñ’±”A¢±ÜOkOl(Ok(oê ONkÙ(èèoê*¿OkOl(Ok(oê ONkÙ(èèoê*¿NlÙl O@O>ñ¢±³O NkÙo*¿ONkÙo*¿ONkÙo*¿kNlÙ O>O@ñ¢±ùA¢±«ON(ONkÙ(oê ONlÙ(èè_"¿ON(ONkÙ(oê ONlÙ(èè_$¿JNkÙO"oêOk(éONlÙ(éO k(O NlÙ(oèèë*¿KNkÙO$oêOk(éONlÙ(éO k(O NlÙ(oèèë*¿NlÙk_2¿_0¿O2O0ñ’±jJO2OO2(O O2(JNkÙ(êè*¿KO2OO2(O O2(KNkÙ(êè*¿O2kØ_2°Ç_B¿O@O<ñ’±ýÖOB²OBd¥d¡OBd¥d¡©oOB ¿OO@OB*¿OO@OB*¿O>_>¿O@kØ_@¿±ý€OO*ooOO*kÙ(ëé*¿O*kØ_*±ýéOO@OO@kÙ(OO@kÙ(ë *¿O@kØ_@±ýæOO@OO@kØ(OO@(oê OO@kÙ(èèoêOO@kÙ(OO@kÙ(ëé*¿OO@OO@kØ(OO@(oê OO@kÙ(èèoêOO@kÙ(OO@kÙ(ëé*¿O@kØ_@±ýÓO O@O O@kØ(OO@(èOO@(ë *¿OO@OO@(OO@kØ(éOO@(ë*¿OO@OO@(OO@kØ(éOO@(ë*¿O@kÙ_@¿±ý¬OkOl(Ol(oêéOk(èoê*¿OkOl(Ol(oêéOk(èoê*¿NlÙl_.¿_,¿O.O,ñ’±ýcOO.OO.lØ(OO.kØ(oêéOO.(èoêOO.kÙ(OO.kÙ(ëé*¿OO.OO.lØ(OO.kØ(oêéOO.(èoêOO.kÙ(OO.kÙ(ëé*¿O.kØ_.°‡JNJk(*¿KNKk(*¿NkÙk_:¿_8¿O:O8ñ’±ßHO:OO:kØ(OO:(éJO:(oêJO:kØ(èoëé*¿IO:OO:kØ(OO:(éKO:(oêKO:kØ(èoëé*¿LO:JO:kØ(JO:(é*¿MO:KO:kØ(KO:(é*¿O:kØ_:°ƒJkKkJNKNo****¿lNkÙ_6¿_4¿O4O6ñ’±ÿSJO6OO6kÙ(JO6kØ(éOO6kÙ(ë*¿KO6OO6kÙ(KO6kØ(éOO6kÙ(ë*¿O6kÙ_6¿°ºNOOHIJKLMh(1716Q FMINUS 1613Q FMINUS 1523Q FMINUS 1460Q FMINUS 1327Q ERROR 764Q FMINUS 726Q FMINUS 552Q FMINUS 507Q FMINUS 344Q LAST 337Q EQUAL 333Q LAST 322Q ARRAY 306Q ARRAY 272Q ARRAY 256Q ARRAY 240Q ARRAY 225Q ARRAY 212Q ARRAY 157Q ARRAY 144Q ARRAY 132Q ARRAY 120Q ARRAY 106Q ARRAY 74Q ARRAY 62Q ARRAY 50Q ARRAY 36Q LENGTH 23Q EQUAL 16Q LAST) NIL ( 2570Q 0.0 2500Q 6.0 2464Q 2.0 2430Q 6.0 2414Q 2.0 2270Q 6.0 2254Q 2.0 2202Q 6.0 2166Q 2.0 2107Q 6.0 2074Q 2.0 2050Q 6.0 2035Q 2.0 1630Q 6.0 1607Q 2.0 1540Q 6.0 1517Q 2.0 1406Q 1.0 1402Q 4.0 1322Q "bad knot" 1123Q 4.0 1066Q 6.0 1047Q 4.0 1012Q 6.0 760Q 2.0 722Q 2.0 653Q 0.0 640Q 0.0 625Q 1.0 566Q 6.0 546Q 2.0 523Q 6.0 503Q 2.0 421Q 1.0 361Q 4.0 317Q 0.0 303Q 0.0 267Q 0.0 253Q 0.0 235Q 0.0 222Q 0.0 207Q 0.0 154Q 0.0 141Q 0.0 127Q 0.0 115Q 0.0 103Q 0.0 71Q 0.0 57Q 0.0 45Q 0.0) \CURVE D1 (L (20Q DISPLAYSTREAM 17Q USERFN 16Q ENDING 15Q BBT 14Q DISPLAYDATA 13Q BRUSHBM 12Q N 11Q DDDY 10Q DDDX 7 DDY 6 DDX 5 DY 4 DX 3 Y1 2 X1 1 Y0 0 X0) P 55Q \INTERRUPTABLE F 56Q \OLDX F 57Q \OLDY F 60Q DASHON F 61Q DASHTAIL F 62Q DASHCNT F 63Q \CURX F 64Q \CURY F 65Q \OLDERX F 66Q \OLDERY F 67Q LEFTMINUSBRUSH F 70Q RIGHTPLUS1 F 71Q BOTTOMMINUSBRUSH F 72Q TOP F 73Q DESTINATIONBASE F 74Q RASTERWIDTH F 75Q BRUSHWIDTH F 76Q BRUSHHEIGHT F 77Q DASHLST F 100Q NBITS F 101Q BRUSHBASE F 102Q DestinationBitMap F 103Q HEIGHTMINUS1 F 104Q COLORBRUSHBASE F 105Q OPERATION F 106Q LEFT F 107Q NBITSRIGHTPLUS1 F 110Q BRUSHRASTERWIDTH F 111Q TOPMINUSBRUSH) µ.ððð,Gjð’±G”@¸A°@WzâÙGÉØ¸AW|âÙGÉØ»HW\Ù_¿jOñ¢OƒjOÙKW^Ù_¿jOñ¢OƒjOÙ_¿kñ§Okñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿Hcf¿Kch¿Hoè ¹Koè ºD b¿E b ¿F b¿G b¿G b¿G b¿Gk_4¿_2¿O4O2ñ’±IDö¿DFö¿FGö¿JEö¿EGö¿GGö¿H_¿K_¿I XOÙ¼J [OÙ½jLñ¡L‚jLÙjMñ¡M‚jMÙ_¿dOñ¢¿O^dkð¢±.¿HW\Ù_¿jOñ¢OƒjOÙKW^Ù_ ¿jO ñ¢O ƒjO Ù_"¿kñ§O"kñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿Hcf¿Kch¿Nkñ¢±LNë ¼MNë ½O _¿O _¿Nj_0¿_.¿O0O.ñ’±PO O _,¿_*W\Ù_$¿jO$ñ¢O$ƒjO$ÙO,W^Ù_&¿jO&ñ¢O&ƒjO&Ù_(¿kñ§O(kñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿O*cf¿O,ch¿OLö¿OMö¿O0kØ_0±þ¯O4kØ_4±üëG¢±,BW\Ù_6¿jO6ñ¢O6ƒjO6ÙCW^Ù_8¿jO8ñ¢O8ƒjO8Ù_:¿kñ§O:kñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿Bcf¿C±1BWzâÙGÉØCW|âÙGÉØ_D¿_BW\Ù_<¿jO<ñ¢O<ƒjO<ÙODW^Ù_>¿jO>ñ¢O>ƒjO>Ù_@¿kñ§O@kñ¢±ÝW\dWjÙW^WlÙkØlÚkØØlð’±±¿W`¢±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿OBcf¿ODch¿G —BCG ¿G´‚±‡WfdjW\ÙØØWhdjW^ÙØØ_N¿_LW\Ù_F¿jOFñ¢OFƒjOFÙONW^Ù_H¿jOHñ¢OHƒjOHÙ_J¿kñ§OJkñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿OLcf¿ONch¿WfdjW\ÙØØWhdjW^ÙØØ_X¿_VW\Ù_P¿jOPñ¢OPƒjOPÙOXW^Ù_R¿jORñ¢ORƒjORÙ_T¿kñ§OTkñ¢±ðW\dWjÙW^WlÙkØlÚkØØlð’±Ä¿W`¢±˜GŸW\W^G lG¿±…-`•G ¿G `ð¥G ¿W\Wnñ²ZWpW\ñ²SW^Wrñ²LWtW^ñ²EG³WvW\W^WŠW†Wx °.W\W^GWŒWzWnWpWŽW’W„W|WrWtW‚WvWxWWˆW€G ¿`“¿Wb²!WdkÙcdjð²W`hðc`¿WbµW~cbcd¿W\cj¿W^cl¿Wfc\¿Whc^¿OVcf¿OXchh(4557Q \PUTUPCOLORCURSOR 4547Q \BBTCURVEPT 4471Q \FBITMAPBIT 4410Q \TOTOPWDS 4373Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 4055Q \PUTUPCOLORCURSOR 4045Q \BBTCURVEPT 3767Q \FBITMAPBIT 3706Q \TOTOPWDS 3671Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 3445Q MOVETO 3330Q \PUTUPCOLORCURSOR 3320Q \BBTCURVEPT 3242Q \FBITMAPBIT 3161Q \TOTOPWDS 3144Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2651Q \PUTUPCOLORCURSOR 2641Q \BBTCURVEPT 2563Q \FBITMAPBIT 2502Q \TOTOPWDS 2465Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2134Q \PUTUPCOLORCURSOR 2124Q \BBTCURVEPT 2046Q \FBITMAPBIT 1765Q \TOTOPWDS 1750Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1557Q \GETINTEGERPART 1552Q \GETINTEGERPART 1521Q \CONVERTTOFRACTION 1511Q \CONVERTTOFRACTION 1503Q \CONVERTTOFRACTION 1474Q \CONVERTTOFRACTION 1356Q \PUTUPCOLORCURSOR 1346Q \BBTCURVEPT 1270Q \FBITMAPBIT 1207Q \TOTOPWDS 1172Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 733Q \GETINTEGERPART 722Q \GETINTEGERPART 625Q \CONVERTTOFRACTION 615Q \CONVERTTOFRACTION 605Q \CONVERTTOFRACTION 575Q \CONVERTTOFRACTION 566Q \CONVERTTOFRACTION 557Q \CONVERTTOFRACTION 552Q \CONVERTTOFRACTION 540Q \CONVERTTOFRACTION 426Q \PUTUPCOLORCURSOR 416Q \BBTCURVEPT 340Q \FBITMAPBIT 257Q \TOTOPWDS 242Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (4553Q \COLORCURSORDOWN 4401Q \TOPWDS 4365Q \COLORCURSORBM 4051Q \COLORCURSORDOWN 3677Q \TOPWDS 3663Q \COLORCURSORBM 3324Q \COLORCURSORDOWN 3152Q \TOPWDS 3136Q \COLORCURSORBM 2645Q \COLORCURSORDOWN 2473Q \TOPWDS 2457Q \COLORCURSORBM 2130Q \COLORCURSORDOWN 1756Q \TOPWDS 1742Q \COLORCURSORBM 1352Q \COLORCURSORDOWN 1200Q \TOPWDS 1164Q \COLORCURSORBM 422Q \COLORCURSORDOWN 250Q \TOPWDS 234Q \COLORCURSORBM) ( 546Q .5 534Q .5) \CURVE2 D1 (P 111Q \INTERRUPTABLE P 110Q D3YFACTOR P 107Q D3XFACTOR P 106Q DDDY/PER/SEG P 105Q DDDX/PER/SEG P 104Q TT P 103Q I P 101Q \INTERRUPTABLE P 100Q PERSEG P 77Q KNOT P 72Q DDDY P 71Q DDY P 70Q DY P 67Q DDDX P 66Q DDX P 65Q DX P 64Q Y1 P 63Q X1 P 62Q Y0 P 61Q X0 P 60Q D3 P 57Q D2 P 56Q D1 P 55Q D3Y P 54Q D2Y P 53Q DY P 52Q D3X P 51Q D2X P 50Q DX P 47Q POINTSPERSEG P 46Q NSEGS P 45Q NPOINTS P 44Q LKNOT P 43Q \OLDERY P 42Q \OLDERX P 41Q \OLDY P 40Q \OLDX P 37Q \CURY P 36Q \CURX P 35Q NBITS P 34Q COLORBRUSHBASE P 33Q COLOR P 32Q HEIGHTMINUS1 P 31Q NBITSRIGHTPLUS1 P 30Q RASTERWIDTH P 27Q TOPMINUSBRUSH P 26Q BOTTOMMINUSBRUSH P 25Q LEFTMINUSBRUSH P 24Q DESTINATIONBASE P 23Q BOTTOM P 22Q TOP P 21Q RIGHTPLUS1 P 20Q LEFT P 17Q BRUSHRASTERWIDTH P 16Q BRUSHBASE P 15Q BRUSHHEIGHT P 14Q BRUSHWIDTH P 13Q OPERATION P 12Q DestinationBitMap P 11Q BRUSHBM P 10Q USERFN P 7 DISPLAYDATA P 6 Y/PRIME/POLY P 5 YPOLY P 4 X/PRIME/POLY P 3 XPOLY P 2 DASHCNT P 1 DASHTAIL P 0 DASHON I 4 DISPLAYSTREAM I 3 BBT I 2 DASHLST I 1 BRUSH I 0 SPLINE) vJiBdl Él Él Él ÉDÉ(Alð´Aùð&ð5€=O’±tOÈ$_&¿OÈ%_$¿OÈ#_"¿OÈ"_ ¿OÉ_¿OÉdgð¥dgð”¿gƒ¿g_¿OÈ_:kð³[AO:lð’llÿO:_¿Ogð²hD µg_6¿g_¿°A´ Ad¨D µg_6¿AO6O:É_8¿†A _¿OÈ_0¿OÉ_(¿OOCb¿OÉ_¿OÈ_¿OÈ_¿C³OÈkÙ_4¿OÉgð•g_¿O:dkð™¿O OÙ_*°6lð²O OââÙ_*¿O"àà_2°O:lð²O OâââÙ_*¿O"ààà_2‚¿OÈ_¿O&OÙ_,¿O$OÙ_.¿D`ð¤D ¿@k(@k( @kÙk@O~O|ñ’±C@O~(_b¿@O~(_d¿@O~kØ(_f¿@O~kØ(_h¿@O~(_P¿@O~(_V¿@O~(_l¿@O~(_r¿@O~(_n¿@O~(_t¿OfObÙ_v¿jOvñ¢OvƒjOvÙOhOdÙ_x¿jOxñ¢OxƒjOxÙ_z¿dOzñ¢¿OzlÚâ_Jdl@ñ«¿k_L¿OJ_N¿°ââââââ_L¿l@_N¿OLàààààà_J¿oOJë_\dê_^O\ê_`Onê_T¿O`Otê_Z¿OLkð¢±ÌO\OPêOlO^oêêOnO`oêêèè_P¿O^OlêO`Onêè_R¿O\OVêO^OroêêO`Otoêêèè_V¿O^OrêO`Otêè_X¿O²)ObOdOfOhOPOVOROXOTOZOJOOChOD ¿±±A`”D ¿D`ð¤D ¿ObOdOfOhOPOVOROXOTOZOJOOChdD ¿`“¿±koOLë_€¿KLOnOlOPOb ¿MNOtOrOVOd ¿OLkÙjoOnO€êOtO€êO`OnoêêO`OtoêêHO†O„ñ’±OˆO€è_ˆ¿KOˆl_f¿MOˆl_h¿O\OPêO^OloêêOŽèè_P¿O^OlêO`Onêè_R¿O\OVêO^OroêêOèè_V¿O^OrêO`Otêè_X¿O²(ObOdOfOhOPOVOROXOTOZl@OOChOD ¿°EI`”D ¿D`ð¤D ¿ObOdOfOhOPOVOROXOTOZl@OOChdD ¿`“¿Of_b¿Oh_d¿OlOŠè_l¿OrOŒè_r¿LOˆl_P¿NOˆl_V¿O†kØ_†±þðO~kØ_~±ü¼O²jddddddddddOOCiOD ¿°9A`”D ¿D`ð¤D ¿jddddddddddOOCihD ¿`´h(2562Q \PUTUPCOLORCURSOR 2551Q \CURVE 2521Q \TOTOPWDS 2506Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2470Q \CURVE 2405Q EVALPOLY 2372Q EVALPOLY 2326Q \PUTUPCOLORCURSOR 2316Q \CURVE 2253Q \TOTOPWDS 2240Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2222Q \CURVE 2040Q EVALPOLY 2025Q EVALPOLY 1721Q LOADPOLY 1702Q LOADPOLY 1645Q \PUTUPCOLORCURSOR 1635Q \CURVE 1572Q \TOTOPWDS 1557Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1540Q \CURVE 712Q \CURVESTART 673Q \TOTOPWDS 626Q SHOULDNT 423Q \GETBRUSHBBT 364Q \GETBRUSH 347Q \GETCOLORBRUSH 327Q DSPCOLOR 270Q DSPBACKCOLOR 250Q \GETCOLORBRUSH 46Q ARRAY 34Q ARRAY 22Q ARRAY 10Q ARRAY) (2555Q \COLORCURSORDOWN 2513Q \TOPWDS 2501Q \COLORCURSORBM 2322Q \COLORCURSORDOWN 2245Q \TOPWDS 2233Q \COLORCURSORBM 1641Q \COLORCURSORDOWN 1564Q \TOPWDS 1552Q \COLORCURSORBM 665Q \TOPWDS 634Q BITMAP 517Q INVERT 512Q INVERT 474Q BITMAP 457Q BITMAP 445Q BITMAP 433Q BITMAP 406Q BITMAP 374Q BITMAP 352Q BITMAP 334Q BLACK 303Q REPLACE 275Q WHITE 260Q ERASE 217Q BITMAP 207Q REPLACE 202Q ERASE 174Q ERASE 166Q INVERT 57Q STREAM 51Q ARRAYP 37Q ARRAYP 25Q ARRAYP 13Q ARRAYP) ( 2124Q .5 2060Q .5 1767Q .1666667 1755Q .1666667 1733Q 0.0 1656Q 1.0 1444Q .1666667 1432Q .5 1370Q .1666667 1356Q .5 1275Q 1.0) \CURVEEND D1 (P 12Q I P 6 \INTERRUPTABLE P 3 DY P 2 DX P 1 Y P 0 X F 13Q \OLDX F 14Q \OLDY F 15Q \CURX F 16Q \CURY F 17Q DASHON F 20Q DASHTAIL F 21Q DASHCNT F 22Q \OLDERX F 23Q \OLDERY F 24Q LEFTMINUSBRUSH F 25Q RIGHTPLUS1 F 26Q BOTTOMMINUSBRUSH F 27Q TOP F 30Q BBT F 31Q DESTINATIONBASE F 32Q RASTERWIDTH F 33Q BRUSHRASTERWIDTH F 34Q BRUSHBASE F 35Q NBITS F 36Q DestinationBitMap F 37Q COLORBRUSHBASE F 40Q TOPMINUSBRUSH F 41Q OPERATION F 42Q DISPLAYDATA F 43Q HEIGHTMINUS1 F 44Q LEFT F 45Q BRUSHWIDTH F 46Q BRUSHHEIGHT F 47Q NBITSRIGHTPLUS1 F 50Q DASHLST) <WWWWÙWWÙt lk_¿_¿OOñ’±HJØXIKØ¹_WÙ¼jLñ¡L‚jLÙIWÙ½jMñ¡M‚jMÙ_¿kñ§Okñ¢±ÔWdW$ÙWW&ÙkØlÚkØØlð’±¨¿W²}h¾`”h ¿`”h ¿WW(ñ²ZW*Wñ²SWW,ñ²LW.Wñ²EW0³W2WWWBWFW4 °.WWW0WHWJW(W*WNW@WW:WD ¿`“¿W ²!W"kÙc"jð²Whðc¿W µWPc c"¿Wc$¿Wc&¿Wc¿Wc¿Oc¿Ic¿OkØ_±þæh(356Q \PUTUPCOLORCURSOR 346Q \BBTCURVEPT 270Q \FBITMAPBIT 207Q \TOTOPWDS 176Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (352Q \COLORCURSORDOWN 202Q \TOPWDS 171Q \COLORCURSORBM) () \CURVESTART D1 (L (1 Y 0 X) F 0 \OLDERX F 1 \OLDX F 2 \CURX F 3 \CURY F 4 \OLDERY F 5 \OLDY) @cdcdcAcdc dcNIL NIL () \FDIFS/FROM/DERIVS D1 (L (4 NSTEPS 3 RAD 2 DDDZ 1 DDZ 0 DZ)) =0oDëXddêYdHêZH@CêêXIACêêYJBCêêZHIoëJoëèèIJèJhNIL NIL ( 57Q 6.0 51Q 2.0 6 1.0) \FILLCIRCLE.DISPLAY D1 (P 33Q \INTERRUPTABLE P 32Q \INTERRUPTABLE P 31Q \INTERRUPTABLE P 30Q NBITS P 27Q GRAYBASE P 26Q GRAYWIDTH P 25Q GRAYHEIGHT P 24Q TEXTUREBM P 23Q CY P 22Q CX P 21Q RASTERWIDTH P 20Q DESTINATIONBASE P 17Q DestinationBitMap P 16Q OPERATION P 15Q LEFT P 14Q RIGHT P 13Q BOTTOM P 12Q TOP P 11Q FCBBT P 10Q D P 7 Y P 6 X P 5 DISPLAYDATA P 0 \BRUSHBBT I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 DISPLAYSTREAM) ’Cdd¥d¡š¿jC bñ”C `µ‚±`A@É(jCkCÙlÚHõMÈ%kÙ_¿MÈ$_¿MÈ"_¿MÈ#kÙ_¿MÉ_¿MÉ_È_0¿D`ðµ‚±ÃO0kð³Dd£@ `ðµ‚±¥DµMÉ6`ðµ‚±”Dd¡Dµ‚±‚MÉ6b´zll _(É_.DãââââlåYdáIààààdáäääÍ¿O.DãlåZdáJààààdáäääÍ¿O.Dââââlå[dáKààààdáäääÍ¿O.Dlå\dáLààààdáäääÍ¿O(Šh¿±þü _(É_.¿OÉ_ ¿OÈ_"¿OjÍ ¿OO"àààànÿÿåÍ¿OjÍ¿OkÏ 0¿OO(Èdlñ’¿l_,kÙÏƒ¿OO(Èdlñ’¿l_*kÙÏÃ¿OkÏ ¿OOdgð“¿k°gð’lŠOgð’l€jÏ Q¿OOgð¡j€kÏ @¿OkÍ ¿AMÉØ_$¿BMÉØ_&¿OÈO&Ù_&¿OÈOÙkÙOÈOÙkÙ_¿_¿@`ð¤@ ¿Cjð¢±H`”@ ¿@`ð¤@ ¿OO$O&O$O O"OOOOO,O*O.O0 ¿`“¿±…NàkØØ_¿±ùOjð¤NOñžNkØ¾ONOÙàlØ‡OOàÙlØ_¿Ojð²V`”@ ¿@`ð¤@ ¿OO$NÙO&O$NØO O"OOOOO,O*O.O0 ¿`“¿AB@¿hH¿`”@ ¿@`ð¤@ ¿OO$NÙO&OØO$NØO O"OOOOO,O*O.O0 ¿OO$NÙO&OÙO$NØO O"OOOOO,O*O.O0 ¿`“¿OkÙ_¿jOñ¢±ÿNkØ¾OdOØàkñ¢±þéNOÙàlØ±ÿ (1543Q \PUTUPCOLORCURSOR 1533Q \LINEBLT 1463Q \LINEBLT 1413Q \TOTOPWDS 1400Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1354Q MOVETO 1344Q \PUTUPCOLORCURSOR 1334Q \LINEBLT 1267Q \TOTOPWDS 1254Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1146Q \PUTUPCOLORCURSOR 1136Q \LINEBLT 1075Q \TOTOPWDS 1062Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1037Q \TOTOPWDS 462Q \ILLEGAL.ARG 276Q BITMAPCREATE 205Q COLORTEXTUREFROMCOLOR# 202Q COLORNUMBERP 177Q DSPCOLOR 32Q \ILLEGAL.ARG 22Q FIXR) (1537Q \COLORCURSORDOWN 1405Q \TOPWDS 1373Q \COLORCURSORBM 1363Q \\BRUSHBBT.GLOBALRESOURCE 1340Q \COLORCURSORDOWN 1261Q \TOPWDS 1247Q \COLORCURSORBM 1142Q \COLORCURSORDOWN 1067Q \TOPWDS 1055Q \COLORCURSORBM 1031Q \TOPWDS 737Q PILOTBBT 721Q ERASE 700Q INVERT 666Q PAINT 655Q ERASE 547Q PILOTBBT 525Q PILOTBBT 514Q PILOTBBT 453Q \\BRUSHBBT.GLOBALRESOURCE 232Q BITMAPTYPE# 211Q BITMAPTYPE# 153Q BITMAPTYPE# 47Q PILOTBBTTYPE# 36Q \\BRUSHBBT.GLOBALRESOURCE) () \LINEBLT D1 (I 15Q NBITS I 14Q GRAYBASE I 13Q GRAYHEIGHT I 12Q GRAYWIDTH I 11Q TOP I 10Q BOTTOM I 7 RIGHT I 6 LEFT I 5 RASTERWIDTH I 4 DESTINATIONBASE I 3 XRIGHT I 2 Y I 1 X I 0 BBT) ÷FAñ“Fb¿CGñ”Gb¿ACñ©BGñ¤GBñ‘hDEBÚÐ@HÒÍ¿@HÓÍG@BG HIÏC¿IÐ@HÒÍ¿@HÓÍGdkð²%¿@AÍ¿@AG Í¿@CAÙkØÍ°blð²*@AààbÍ¿@AG Í¿@CkØààAÙÍ°5Glð²+@AàààbÍ¿@AG Í¿@CkØàààAÙÍ‚¿@jvh(357Q SHOULDNT 332Q IMOD 252Q IMOD 177Q IMOD 104Q IMOD) (341Q PILOTBBT 324Q PILOTBBT 307Q PILOTBBT 261Q PILOTBBT 244Q PILOTBBT 230Q PILOTBBT 206Q PILOTBBT 171Q PILOTBBT 161Q PILOTBBT 140Q PILOTBBT 127Q PILOTBBT 66Q PILOTBBT 55Q PILOTBBT) () SCREENBITMAP D1 NIL `NIL (2 ScreenBitMap) () BITMAPP D1 (L (0 X)) @`ð´@NIL (4 BITMAPTYPE#) () BITMAPHEIGHT D1 (L (0 BITMAP)) @ÈNIL (3 BITMAP) () BITSPERPIXEL D1 (L (0 BITMAP)) @ÈNIL (3 BITMAP) () CLR D1 (I 0 DS F 0 TtyDisplayStream) hjd@µPjdhdggj (25Q BKBITBLT) (20Q REPLACE 15Q TEXTURE) () CLOSEDISPLAYSTREAM D1 NIL (2 \STOPDISPLAY) NIL () DSPFILL D1 (P 0 DD I 3 DISPLAYSTREAM I 2 OPERATION I 1 TEXTURE I 0 REGION) @Cg bÉ(@¥HÉ b¿hddC@@@@gBµHÉAµHÉ6 (75Q BKBITBLT 6 \GETSTREAM) (55Q TEXTURE 15Q \DISPLAYDATA 3 OUTPUT) () INVERTW D1 (I 1 SHADE I 0 WIN) h@ Aµnÿÿg@@(21Q DSPFILL 4 DSPCLIPPINGREGION) (15Q INVERT) () \DSPCOLOR.DISPLAY D1 (P 1 NOWCOLOR P 0 DD I 1 COLOR I 0 STREAM) N@g É(HÉYAµ dµ'` ¤A ¿IµHA`¿`@H ¿IA¿°ô(103Q \SFFixFont 53Q \ILLEGAL.ARG 46Q \POSSIBLECOLOR 6 \GETSTREAM) (76Q WHITECOLOR 67Q BLACKCOLOR 63Q \DISPLAYDATA 42Q WHITECOLOR 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \DSPBACKCOLOR.DISPLAY D1 (P 1 COLORCELL P 0 DD I 1 COLOR I 0 STREAM) N@g É(HÉYAµ dµ'` ¤A ¿IµH`A¿`@H ¿IA¿°ô(103Q \SFFixFont 53Q \ILLEGAL.ARG 46Q \POSSIBLECOLOR 6 \GETSTREAM) (76Q BLACKCOLOR 66Q WHITECOLOR 63Q \DISPLAYDATA 42Q BLACKCOLOR 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () DSPEOLFN D1 (P 0 DD I 1 DISPLAYSTREAM I 0 EOLFN) :Ag É(HÉ2µg@² @dlð²¿H@dgð‘¿h2¿ ¿(66Q \ILLEGAL.ARG 6 \GETSTREAM) (53Q OFF 46Q \DISPLAYDATA 26Q OFF 13Q \DISPLAYDATA 3 OUTPUT) () DSPCLEOL D1 (P 0 DD I 3 HEIGHT I 2 YPOS I 1 XPOS I 0 DISPLAYSTREAM) f`”@ ¿@g bÉ(hdd@Ad¡µHÉbBd¡µHÉ@ÈÙHÉAÙ¹jIñ¡I€jCd¡µjHÉÙgg (143Q BKBITBLT 17Q \GETSTREAM 7 \CARET.DOWN) (137Q REPLACE 134Q TEXTURE 73Q FONTDESCRIPTOR 26Q \DISPLAYDATA 14Q OUTPUT 2 \CARET.UP) () DSPRUBOUTCHAR D1 (I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 STREAM) 4A ²A@b¿b¿Bb¿hbb¿@g bÉ(¿@ABCDhi (61Q \DSPMOVELR 36Q \GETSTREAM 3 DISPLAYSTREAMP) (45Q \DISPLAYDATA 33Q OUTPUT) () \DSPMOVELR D1 (P 5 HEIGHT P 4 YPRIME P 3 FONT P 2 DEFAULTPOS? P 1 WIDTH P 0 DD I 6 ERASEFLG I 5 RIGHTWARDSFLG I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 DS) ·@g bÉ(A ‘AlM@DBhð´ChðF¥J£¿Iµhjð³{Bd¡¥HÉb¿Cd¡¥HÉb¿E™BIØbHÉñ‹BjIÙØbHÉýñ³Æ`”@ ¿F²4HÉ!CKÈÙKÈ½¼J¦BC@¿hjd@BLIMgg B@ i(263Q DSPXPOSITION 255Q BKBITBLT 232Q MOVETO 170Q \CARET.DOWN 60Q SHOULDNT 36Q \STREAMCHARWIDTH 24Q CHARCODEP 6 \GETSTREAM) (251Q REPLACE 246Q TEXTURE 216Q FONTDESCRIPTOR 207Q FONTDESCRIPTOR 163Q \CARET.UP 15Q \DISPLAYDATA 3 OUTPUT) () (PRETTYCOMPRINT ADISPLAYCOMS) (RPAQQ ADISPLAYCOMS ((COMS (* Interlisp-D dependent stuff.) (EXPORT (RECORDS REGION BITMAP BITMAPWORD POSITION CURSOR MOUSEEVENT)) (SYSRECORDS PILOTBBT \DISPLAYDATA) (CONSTANTS (BITSPERINTEGER 32)) (FNS \BBTCURVEPT) (FNS CREATETEXTUREFROMBITMAP PRINTBITMAP PRINTCURSOR \WRITEBITMAP) (FNS \GETINTEGERPART \CONVERTTOFRACTION) (CONSTANTS (INTEGERBITS 12))) (COMS * CARETCOMS) (COMS (* cursor functions not on LLDISPLAY) (FNS CURSORP CURSORBITMAP CreateCursorBitMap) (EXPORT (MACROS CURSORBITMAP) (CONSTANTS ( CURSORHEIGHT 16) (CURSORWIDTH 16)) (DECLARE: EVAL@COMPILE (ADDVARS (GLOBALVARS CursorBitMap)))) ( CURSORS \PROMPTFORWORD.CURSOR)) (COMS (* Region functions) (FNS CREATEREGION REGIONP INTERSECTREGIONS UNIONREGIONS REGIONSINTERSECTP SUBREGIONP EXTENDREGION EXTENDREGIONBOTTOM EXTENDREGIONLEFT EXTENDREGIONRIGHT EXTENDREGIONTOP INSIDEP STRINGREGION)) (COMS (* line and spline drawing.) (COMS (* Brushes and brush initialization) (FNS \BRUSHBITMAP \GETBRUSH \GETBRUSHBBT \InitCurveBrushes) (VARS BrushIndexList BrushInitializationList) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\InitCurveBrushes))) ( DECLARE: DONTCOPY (GLOBALVARS BrushIndexList BrushInitializationList \CurveBrushArray)) ( GLOBALRESOURCES \BRUSHBBT)) (* Lines) (FNS \DRAWLINE.DISPLAY RELMOVETO MOVETOUPPERLEFT) (FNS \CLIPANDDRAWLINE \CLIPANDDRAWLINE1 \CLIPCODE \LEASTPTAT \GREATESTPTAT \DRAWLINE1 \DRAWLINE.UFN) ( DECLARE: DONTCOPY (MACROS .DRAWLINEX. .DRAWLINEY.)) (* Curves) (FNS \DRAWCIRCLE.DISPLAY \DRAWELLIPSE.DISPLAY \DRAWCURVE.DISPLAY DRAWPOINT \LINEWITHBRUSH \LINEWITHBRUSH1) (FNS EVALPOLY LOADPOLY PARAMETRICSPLINE \CURVE \CURVE2 \CURVEEND \CURVESTART \FDIFS/FROM/DERIVS) (DECLARE: DONTCOPY (* Used by Press drawcurve) (EXPORT (RECORDS POLYNOMIAL SPLINE))) (DECLARE: DONTCOPY (EXPORT (MACROS HALF))) (DECLARE: DONTCOPY (MACROS \CURVEPT .SETUP.FOR.\BBTCURVEPT. \CIRCLEPTS \CURVESMOOTH)) ( DECLARE: DONTCOPY (EXPORT (MACROS \FILLCIRCLEBLT))) (FNS \FILLCIRCLE.DISPLAY \LINEBLT)) (COMS (* making and copying bitmaps) (FNS SCREENBITMAP BITMAPP BITMAPHEIGHT BITSPERPIXEL CLR) (EXPORT ( FILEPKGCOMS BITMAPS CURSORS)) (DECLARE: EVAL@COMPILE (EXPORT (MACROS SCREENBITMAP BITMAPP) (ADDVARS ( GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap))))) (COMS (* Display stream functions that are not needed in the primitive system) (FNS CLOSEDISPLAYSTREAM DSPFILL INVERTW) (FNS \DSPCOLOR.DISPLAY \DSPBACKCOLOR.DISPLAY DSPEOLFN) (EXPORT (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0)) (VARS (GRAYSHADE 43605) (BLACKCOLOR 0) (WHITECOLOR 7)) (ADDVARS (GLOBALVARS GRAYSHADE WHITECOLOR BLACKCOLOR))) (MACROS DSPRUBOUTCHAR) (FNS DSPCLEOL DSPRUBOUTCHAR \DSPMOVELR) (COMS (* for cursor) (BITMAPS \DefaultCursor) (DECLARE: DONTEVAL@LOAD DOCOPY (INITVARS (DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)))) ( DECLARE: DONTCOPY (GLOBALVARS DEFAULTCURSOR)))) (PROP DOPVAL \DRAWLINE.UFN) (PROP DOPCODE \MU.DRAWLINE ) (* MPL .. sorry, the following kludge is to get the DRAWLINE opcode to work. Move this somewhere better ASAP!) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\SETUFNENTRY (CAR (\FINDOP (QUOTE \MU.DRAWLINE))) ( FUNCTION \DRAWLINE.UFN) 9 0))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA) (NLAML) (LAMA UNIONREGIONS INTERSECTREGIONS))))) (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 ( ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) (PTOP ( IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM))) (RIGHT (IPLUS (fetch (REGION LEFT) of DATUM) (fetch (REGION WIDTH) of DATUM) -1)) (PRIGHT (IPLUS (fetch (REGION LEFT) of DATUM) ( fetch (REGION WIDTH) of DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY DATUM (FUNCTION NUMBERP)))) ( SYSTEM)) (DATATYPE BITMAP ((BITMAPBASE POINTER) (BITMAPRASTERWIDTH WORD) (BITMAPHEIGHT WORD) (BITMAPWIDTH WORD) (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) ( BitMapLoLoc WORD)) (* overlay inital pointer)) (SYSTEM)) (BLOCKRECORD BITMAPWORD ((BITS WORD)) (SYSTEM)) (RECORD POSITION (XCOORD . YCOORD) (TYPE? (AND (LISTP DATUM) (NUMBERP (CAR DATUM)) (NUMBERP (CDR DATUM )))) (SYSTEM)) (RECORD CURSOR (CURSORBITMAP . CURSORHOTSPOT) CURSORHOTSPOT _ (create POSITION) (ACCESSFNS (( CURSORHOTSPOTX (fetch (POSITION XCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM)) (replace (POSITION XCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM) with NEWVALUE)) (CURSORHOTSPOTY (fetch (POSITION YCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM)) (replace (POSITION YCOORD) of (fetch (CURSOR CURSORHOTSPOT) of DATUM) with NEWVALUE)))) (TYPE? (AND (type? BITMAP (fetch (CURSOR CURSORBITMAP) of ( LISTP DATUM))) (type? POSITION (fetch (CURSOR CURSORHOTSPOT) of DATUM)))) (SYSTEM)) (RECORD MOUSEEVENT (MOUSEX MOUSEY MOUSEBUTTONS KEYBOARD MOUSETIME) (SYSTEM)) (/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD))) (ADDTOVAR SYSTEMRECLST (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) ( PBTDESTBPL SIGNEDWORD) (PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (PBTHEIGHT WORD) (PBTFLAGS WORD) (NIL 5 WORD))) (DATATYPE \DISPLAYDATA ( DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET DDDestination DDClippingRegion DDFONT DDSlowPrintingCase DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED DDRightMargin DDLeftMargin DDScroll DDOPERATION DDSOURCETYPE (DDClippingLeft WORD) (DDClippingRight WORD) (DDClippingBottom WORD) (DDClippingTop WORD) (DDobsoletefield WORD) (DDHELDFLG FLAG) (XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN DDTexture DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN))) (RPAQQ BITSPERINTEGER 32) (CONSTANTS (BITSPERINTEGER 32)) (RPAQQ INTEGERBITS 12) (CONSTANTS (INTEGERBITS 12)) (RPAQQ CARETCOMS ((BITMAPS \DefaultCaret) (INITVARS (\CARET.UP NIL (* global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate))) (\CARET.DEFAULT NIL (* global = default caret to put up. An instance of CARET1 datatype)) (\CARET.TIMER (SETUPTIMER 0) (* time for next caret action)) (DEFAULTCARET (CONS \DefaultCaret (CONS 2 4))) (DEFAULTCARETRATE 333 (* default rate for flashing caret)) (\CARET.ON.RATE DEFAULTCARETRATE) (\CARET.OFF.RATE DEFAULTCARETRATE) (\CARET.FORCED.OFF.RATE 0)) (DECLARE: DONTCOPY (RECORDS CARET1)) (INITRECORDS CARET1) (FNS CARET \CARET.CREATE \CARET.DOWN \CARET.FLASH? \CARET.SHOW CARETRATE \CARET.FLASH.AGAIN \CARET.FLASH.MULTIPLE \CARET.FLASH) (* some declarations are on LLDISPLAY -- macro for \CHECKCARET and globalvar declaration for \CARET.UP) (GLOBALVARS \CARET.DEFAULT \CARET.ON.RATE \CARET.OFF.RATE DEFAULTCARET \CARET.TIMER \CARET.UP \CARET.FORCED.OFF.RATE) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS ( TTYBACKGROUNDFNS \CARET.FLASH?))) (FNS \AREAVISIBLE? \REGIONOVERLAPAREAP \AREAINREGIONP) (P (CARET T)) )) (RPAQ \DefaultCaret (READBITMAP)) (7 5 "A@@@" "CH@@" "FL@@" "LF@@" "HB@@") (RPAQ? \CARET.UP NIL (* global. NIL if no caret showing, otherwise a CARET1 record with CURSOR, stream, x, y, and RATE (= off rate))) (RPAQ? \CARET.DEFAULT NIL (* global = default caret to put up. An instance of CARET1 datatype)) (RPAQ? \CARET.TIMER (SETUPTIMER 0) (* time for next caret action)) (RPAQ? DEFAULTCARET (CONS \DefaultCaret (CONS 2 4))) (RPAQ? DEFAULTCARETRATE 333 (* default rate for flashing caret)) (RPAQ? \CARET.ON.RATE DEFAULTCARETRATE) (RPAQ? \CARET.OFF.RATE DEFAULTCARETRATE) (RPAQ? \CARET.FORCED.OFF.RATE 0) (ADDTOVAR TTYBACKGROUNDFNS \CARET.FLASH?) (CARET T) (PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) (RPAQQ CURSORHEIGHT 16) (RPAQQ CURSORWIDTH 16) (CONSTANTS (CURSORHEIGHT 16) (CURSORWIDTH 16)) (ADDTOVAR GLOBALVARS CursorBitMap) (RPAQ \PROMPTFORWORD.CURSOR (CURSORCREATE (READBITMAP) 0 15)) (16 16 "OOOL" "N@@F" "O@@C" "KH@A" "IOOA" "HOOA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "HAHA" "L@@C" "F@@F" "COOL") (RPAQQ BrushIndexList (1 2 3 4 5 1 2 6 7 8 1 9 10 11 12 1 13 14 15 16 1 17 18 19 20)) (RPAQQ BrushInitializationList ((1 1 32768) (16 2 384 384) (16 4 384 960 960 384) (16 8 960 2016 4080 4080 4080 4080 2016 960) (16 16 2016 8184 16380 32766 32766 65535 65535 65535 65535 65535 65535 32766 32766 16380 8184 2016) (16 4 960 960 960 960) (16 8 4080 4080 4080 4080 4080 4080 4080 4080) (16 16 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535 65535) (16 1 384) (16 1 960) (16 1 4080) (16 1 65535) (16 2 256 256) (16 4 256 256 256 256) (16 8 256 256 256 256 256 256 256 256) (16 16 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256) (16 2 128 256 ) (16 4 64 128 256 512) (16 8 16 32 64 128 256 512 1024 2048) (16 16 1 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768))) (\InitCurveBrushes) (/SETTOPVAL (QUOTE \\BRUSHBBT.GLOBALRESOURCE)) (PUTDEF (QUOTE BITMAPS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (VARS . X)))))) (PUTDEF (QUOTE CURSORS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (QUOTE PRINTCURSOR)))))))) (DECLARE: EVAL@COMPILE (PUTPROPS SCREENBITMAP MACRO (NIL ScreenBitMap)) (PUTPROPS BITMAPP MACRO ((X) ( type? BITMAP X)))) (ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap) (RPAQQ BLACKSHADE 65535) (RPAQQ WHITESHADE 0) (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0)) (RPAQQ GRAYSHADE 43605) (RPAQQ BLACKCOLOR 0) (RPAQQ WHITECOLOR 7) (ADDTOVAR GLOBALVARS GRAYSHADE WHITECOLOR BLACKCOLOR) (PUTPROPS DSPRUBOUTCHAR MACRO ((DS CHAR X Y TTBL) (\DSPMOVELR DS CHAR X Y TTBL NIL T))) (RPAQ \DefaultCursor (READBITMAP)) (16 16 "H@@@" "L@@@" "N@@@" "O@@@" "OH@@" "OL@@" "ON@@" "O@@@" "MH@@" "IH@@" "@L@@" "@L@@" "@F@@" "@F@@" "@C@@" "@C@@") (RPAQ? DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)) (PUTPROPS \DRAWLINE.UFN DOPVAL (9 \MU.DRAWLINE)) (PUTPROPS \MU.DRAWLINE DOPCODE (59 \MU.DRAWLINE 0 T -8 NIL \DRAWLINE.UFN)) (\SETUFNENTRY (CAR (\FINDOP (QUOTE \MU.DRAWLINE))) (FUNCTION \DRAWLINE.UFN) 9 0) (PUTPROPS ADISPLAY COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL