(FILECREATED " 2-Dec-84 09:32:58" ("compiled on " {ERIS}SOURCES>ADISPLAY.;5) "26-Nov-84 13:19:50" bcompl'd in "INTERLISP-D 26-Nov-84 ..." dated "26-Nov-84 13:43:24") (FILECREATED "30-Nov-84 18:30:02" {ERIS}SOURCES>ADISPLAY.;5 142917 changes to: (FNS \CURVESLOPE PARAMETRICSPLINE) (VARS ADISPLAYCOMS) previous date: "30-Oct-84 10:41:32" {ERIS}HARMONY>SOURCES>ADISPLAY.;2) \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) `AG/AGظBGBGBGAGٺdJ:J6GGG AGYлBKBKBGAGټdLLI GGGHнBMBMG" C@MBG$lCCBDBG$l@Eك@EHIIG$lHH5BG$l@@bBjBDG@HdIIBG&( Hk QHIgijk @BjvAGBG"BG"!G"G AGBHBHBG&( Hl QHIgjk @PC@%BCBDB@EHII'B@BjBDF@HdIIBjvNIL (732Q PILOTBBT 722Q PILOTBBT 712Q PILOTBBT 664Q PILOTBBT 657Q PILOTBBT 647Q PILOTBBT 623Q INVERT 600Q STREAM 565Q PILOTBBT 554Q PILOTBBT 523Q PILOTBBT 511Q PILOTBBT 460Q INVERT 436Q STREAM 405Q PILOTBBT 375Q PILOTBBT 350Q PILOTBBT 265Q PILOTBBT 260Q PILOTBBT 235Q PILOTBBT 211Q PILOTBBT 200Q PILOTBBT 165Q BITMAP 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`d @@BIlIdlsHlHlfjljONVlj OO@@OIOH j(K`lOlOl\LMOk_Ok_KIllH@lHdld ljOOj2jOlOOl!@jdKOjIHgg OI__K(346Q BKBITBLT 261Q BITMAPCREATE 133Q BITMAPBIT 14Q \ILLEGAL.ARG) (342Q REPLACE 337Q INPUT 174Q ARRAYP 166Q ARRAYP 143Q BITMASKARRAY 27Q BITMAP 21Q BITMAP 5 BITMAPTYPE#) () PRINTBITMAP D1 (L (1 FILE 0 BITMAP)) @@`0@l@-X` oi @i oi i hoA H A kA H A Hd kkA 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`$IIddIdd 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) @Ag @@djbA Il" HJлHKBIHjl@ IHjll@ IHkl@ IHkll@ HkXIl" kٰ(173Q \BOUT 156Q \BOUT 140Q \BOUT 121Q \BOUT 103Q \BOUT 53Q \BOUT 44Q TERPRI 14Q GETSTREAM) (31Q BITMAP 20Q BITMAP 11Q OUTPUT 3 BITMAP) () \GETINTEGERPART D1 (L (0 FRACT)) '@ljjk@dnnHHNIL NIL () \CONVERTTOFRACTION D1 (P 1 BOX P 0 RESULT I 0 FLOAT)  @ojXdlYH I(30Q \PUTFIXP) NIL ( 7 1048576.0) CARET D1 (I 0 NEWCARET) `-g@x`h  @di?`dghOHH hdd`hh-o` !gh@ 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`lj`dl@j hA`b^`g S@Pb HA@C`l@j`lj`dl@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_NOON[_OOOON_O_O_OOOO\_O_OOOO_O_kOkOiNI^OI_J JNONOkOOk AhJ 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``@A7`l`l j@dPjAd`(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@"IHhJK IH(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 hABCD HX 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@DB@@khNIL NIL () \AREAINREGIONP D1 (L (4 TOP 3 RGHT 2 BTM 1 LFT 0 REGION)) 1A@h(B@h@@Ch@@DhNIL NIL () CURSORP D1 (L (0 X)) ;@7@H`H&@!@dd@dd@NIL (15Q BITMAPTYPE#) () CURSORBITMAP D1 NIL `NIL (2 CursorBitMap) () CreateCursorBitMap D1 (I 0 ARRAY) /ld 1HYljKJIK@Kk(nKk[H(5 BITMAPCREATE) NIL () CREATEREGION D1 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT)) @ABChNIL NIL () REGIONP D1 (I 0 X) $@l @dddih@(5 EQLENGTH) NIL () INTERSECTREGIONS D1 (L (0 REGIONS)) eHjooodh@aIZdIk[I\dIk]Hl_OdNJKfLMaJLKJkMLkhaYdJILIIdIkKIkػIIkMIIkؽOk_hNIL NIL ( 24Q 17777777777Q 20Q -7777777777Q 14Q -7777777777Q) UNIONREGIONS D1 (L (0 REGIONS)) eHjhp@YdZIIk[I\IIk]Hl_OdNJLKJkMLkhaYdJILIIdIkKIkػIIkMIIkؽOk_NIL NIL () REGIONSINTERSECTP D1 (L (1 REGION2 0 REGION1)) @@AAk0A@@k"@AAkA@@khNIL NIL () SUBREGIONP D1 (L (1 SMALLREGION 0 LARGEREGION)) BA@h8A@h,@@AAh@@AAhNIL NIL () EXTENDREGION D1 (L (1 INCLUDEREGION 0 REGION)) @dA@@A@A@A@@@A@AAdAk@@k@AAk@kAAk@@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)) @@kAH@@AH@NIL NIL () EXTENDREGIONTOP D1 (L (1 NEWTOP 0 REG)) #@@kAH@@AH@NIL NIL () INSIDEP D1 (I 2 Y I 1 POSORX I 0 REGION) R@ h@ bAdddBdd@AB A @AA AdddB (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@ABC Ah(27Q STRINGWIDTH 11Q DSPYPOSITION 4 DSPXPOSITION) (33Q FONTDESCRIPTOR 15Q FONTDESCRIPTOR) () \BRUSHBITMAP D1 (I 1 BRUSHWIDTH I 0 BRUSHSHAPE) m``@dgj,gk$@dglgl@dgl lAdkk#llAdll lllll(((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@jd khBAnHIIB@nHIIBj Bk kjhBA AdgdggdgdggHJdgkglJglj QHIgJgjk @B(234Q SHOULDNT 30Q BITMAPBIT) (313Q ERASE 306Q INVERT 267Q INVERT 256Q PAINT 245Q ERASE 227Q ERASE 221Q ERASE 213Q INVERT 205Q PAINT 177Q PAINT 171Q REPLACE 140Q PILOTBBT 107Q BITMAP 103Q PILOTBBT 52Q BITMAP 45Q \DISPLAYDATA 41Q PILOTBBT 15Q BITMAP 3 BITMAP) () \InitCurveBrushes D1 (P 4 TEMP P 3 SPECS P 2 I) lg `lk#Hlg `kMKhJI`JKK \*LKjM JkغHX_LNONkؾM]_`NO*NkؾM](103Q BITMAPCREATE 40Q ARRAY 7 ARRAY) (176Q \CurveBrushIndexArray 112Q BITMAP 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 HBdd HCdd HDdd HEkdE FH"gFdgdgdgF HH"H#kH$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 AdddihA AAA@ h@ YIH@ @(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) d Fk*EghG bgb GdG nb@BDl@Dkb0@G%G@DbAdCCXGGAdCCYh`G G`G hjdF@dGGbHdGGXBGkغdJJ@IdGGHkgEG `ACDlADkb0AG|GADbn@dBBXG^G@dBBYO`G G`G hjdFHdGGXAdGGbIdGGHkCGkغdJJAgEG `Dk@ABCEFGGGGGG @BjJJjJACjJJjJMDlDkAJbCJbADkACML@MBNEFGGGGGG MkؽNkؾDlDk@JbBJb@Dk@BMdL9ANCEFGGGGGG MkؽNkؾ(1127Q \CLIPANDDRAWLINE1 1014Q \CLIPANDDRAWLINE1 650Q \CLIPANDDRAWLINE1 614Q \PUTUPCOLORCURSOR 604Q BKBITBLT 505Q \TOTOPWDS 470Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 336Q \PUTUPCOLORCURSOR 322Q BKBITBLT 223Q \TOTOPWDS 206Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 60Q COLORNUMBERP 55Q DSPCOLOR 31Q COLORNUMBERP 26Q DSPBACKCOLOR) (607Q \COLORCURSORDOWN 575Q TEXTURE 476Q \TOPWDS 462Q \COLORCURSORBM 325Q \COLORCURSORDOWN 313Q TEXTURE 214Q \TOPWDS 200Q \COLORCURSORBM 37Q PAINT 15Q ERASE 3 BITMAP) () \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)  EQ@B@BbLbACbLbB@Y\CAiCAACZ]F@xBGrKGAjCGCbAG\EkR`G G`G @EAkIJIJIJLMKjHـHDEH `(@ABC@AFGGG BCFGGG  OdOj𣿱Oj`G G`G EdkWOEOkOOKOOOOIJIdJdO@LIKOAAOMJKjHـHDEH mdldl^OEOkOOKOOOOIJIdJdO@LIKOAAOMJKjHـHDEHEG `hOjlOdl@IJGA _G_:l@IJAG _G_ KAJIF@ ؉AJIF@ _F_OOFGGG _Odl@IJAG _G_=l@IJGA _G_#KAJIG@ ؊AJIG@ _G_OOFGGG _(1260Q \CLIPCODE 1230Q \GREATESTPTAT 1214Q \GREATESTPTAT 1165Q \GREATESTPTAT 1133Q \GREATESTPTAT 1103Q \CLIPCODE 1054Q \LEASTPTAT 1041Q \LEASTPTAT 1013Q \LEASTPTAT 761Q \LEASTPTAT 726Q \PUTUPCOLORCURSOR 715Q SHOULDNT 710Q \DRAWCOLORLINE1 540Q \DRAWLINE1 401Q \TOTOPWDS 364Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 317Q \CLIPCODE 302Q \CLIPCODE 254Q \PUTUPCOLORCURSOR 244Q \DRAWLINE1 172Q \TOTOPWDS 155Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (721Q \COLORCURSORDOWN 700Q BITMAP 671Q BITMAP 564Q BITMAP 531Q BITMAP 424Q BITMAP 406Q BITMAP 372Q \TOPWDS 356Q \COLORCURSORBM 250Q \COLORCURSORDOWN 235Q BITMAP 200Q BITMAP 163Q \TOPWDS 147Q \COLORCURSORBM 133Q BITMAP 3 BITMAP) () \CLIPCODE D1 (L (5 BOTTOM 4 TOP 3 RIGHT 2 LEFT 1 Y 0 X)) ;B@ADlEAl k@CADlEAl lADlEAljNIL NIL () \LEASTPTAT D1 (L (2 THISB 1 DB 0 DA)) @AB@@kAkB@AANIL NIL () \GREATESTPTAT D1 (L (2 THISB 1 DB 0 DA)) @ABk@@kAB@AANIL 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) 3 GAG@@lDGEGdglgkjFBkCk;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))   `AlHHIDBEdjNGkjJI?@H@BFDb Kk[G$FBb @CbHXj@kbnJkZhkOGkjJI@Hn@BFDb Kk[GFBb @CbHXj@kbnJkZGkjJI@H@BFDb Kk[GFBb @CbHXj@kbnJkZEdjPGkjJIR@H@DFBb #Kk[G5FDb HXj@kbn@CbJkZkSGkjJI@Hn@DFBb #Kk[GFDb HXj@kbn@CbJkZGkjJI@H@DFBb #Kk[GFDb HXj@kbn@CbJkZNIL (23Q ARRAYP 15Q ARRAYP 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) ~0CdddjC bC Cjh`4`jCkClH@(DlD#+O(A_NB_PhO&$_2O&%_0O&#_.O&"_,O&_*O&dgdggg_JO*_Vk[DOVlllOV _>OJgh@ g_Rg_JD Dd@ g_RDOROV _TD _>O*_DO*_@O>O&O$ _$O>_BO>_FO>_4O$O*k_LO&gg_JOVdkO,O4_86lO,O4_8O._HOVlO,O4_8O._HO>_6O2O6_:O0O6_A B C D TJjKjHI@ hkJJ kKKEJKjb EddE `>`_E E JdKdjdk@(FlF!0O&_6OBO"O _OB_8OB_@OB_ ,LMOO(OO@OtOxO" OhOOpO_^O4WO*NQOO0JO.OCOO6NOODOFO> -NOOO(OO@OtOxO" `jOVjOTuO OH_HOLOJ_JOPk OR_ZON_NOPOR_PjOR_ROVOTjOPkk _VORll jOXjOTkk _XOZkk OT_TjOVOHjjO _ jOL_LOPON_ZjON_NOZON_POZl OR_RjOVOZ_VOTOX_XOTOZOVk _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!hddihDD HA djdk>A AddAdddoA AAC@ lxA AddAdddoA A#AddAdddoA 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@HAH (40Q BKBITBLT 3 \GETBRUSH) (30Q BITMAP 17Q BITMAP) () \LINEWITHBRUSH D1 (L (7 BBT 6 DISPLAYSTREAM 5 DASHLST 4 BRUSH 3 Y2 2 X2 1 Y1 0 X1) P 40Q \INTERRUPTABLE) !iEdF(DlDFLK$_K%_K#_K"KKdgdggg_*M_2k[DO2lllO2 _O*ghF g_.g_*D DdF g_.DO.O2 _0D _M_$M_ OKG bO_"O_&O_GMk_,Kgg_*O2dkNO_4lNO_O_(O2lNO_O_(O_OO_OO_O2dk@O_4Kb9l@O_4Kb O2l@O_4KbBO4KbAO_6KbCO6KbF`F @BB@bbCAbbB@k_8CAk_LO:O8@B&H@AFlLIJkZjHhIEYO8O>O:_>!AOO8_>@kbACH@AFlLIJkZjHhIEYO:O>O8_>@kbBO>O:_>AOO:_>!AOO8_>@kb]ACHU@OOO@IAOCOA=GO @AO*O,O$ )@AGNOOOO(OMOOOO"O O$O&O0O2K IJkZjHhIEYO:O>O8_>@kbBO>O:_>AONjo _Njo _Njo _A2Njo _Njo _ Njo _Njo _Oko*Nll_*_(O*O(AOko*Nll O@O>lNAOkOl(Ok(o ONk(o*OkOl(Ok(o ONk(o*Nll O@O>O Nko*ONko*ONko*kNl O>O@AON(ONk(o ONl(_"ON(ONk(o ONl(_$JNkO"oOk(ONl(O k(O Nl(o*KNkO$oOk(ONl(O k(O Nl(o*Nlk_2_0O2O0jJO2OO2(O O2(JNk(*KO2OO2(O O2(KNk(*O2k_2_BO@O_>O@k_@OO*ooOO*k(*O*k_*OO@OO@k(OO@k( *O@k_@OO@OO@k(OO@(o OO@k(oOO@k(OO@k(*OO@OO@k(OO@(o OO@k(oOO@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(oOk(o*OkOl(Ol(oOk(o*Nll_._,O.O,cOO.OO.l(OO.k(oOO.(oOO.k(OO.k(*OO.OO.l(OO.k(oOO.(oOO.k(OO.k(*O.k_.JNJk(*KNKk(*Nkk_:_8O:O8HO:OO:k(OO:(JO:(oJO:k(o*IO:OO:k(OO:(KO:(oKO:k(o*LO:JO:k(JO:(*MO:KO:k(KO:(*O:k_:JkKkJNKNo****lNk_6_4O4O6SJO6OO6k(JO6k(OO6k(*KO6OO6k(KO6k(OO6k(*O6k_6NOOHIJKLMh(1660Q FMINUS 1555Q FMINUS 1465Q FMINUS 1422Q FMINUS 1271Q ERROR 726Q FMINUS 670Q FMINUS 514Q FMINUS 451Q FMINUS 311Q ARRAY 275Q ARRAY 261Q ARRAY 245Q ARRAY 227Q ARRAY 214Q ARRAY 201Q ARRAY 146Q ARRAY 133Q ARRAY 121Q ARRAY 107Q ARRAY 75Q ARRAY 63Q ARRAY 51Q ARRAY 37Q ARRAY 25Q LENGTH 13Q LAST) NIL ( 2532Q 0.0 2442Q 6.0 2426Q 2.0 2372Q 6.0 2356Q 2.0 2232Q 6.0 2216Q 2.0 2144Q 6.0 2130Q 2.0 2051Q 6.0 2036Q 2.0 2012Q 6.0 1777Q 2.0 1572Q 6.0 1551Q 2.0 1502Q 6.0 1461Q 2.0 1350Q 1.0 1344Q 4.0 1264Q "bad knot" 1065Q 4.0 1030Q 6.0 1011Q 4.0 754Q 6.0 722Q 2.0 664Q 2.0 615Q 0.0 602Q 0.0 567Q 1.0 530Q 6.0 510Q 2.0 465Q 6.0 445Q 2.0 363Q 1.0 323Q 4.0 306Q 0.0 272Q 0.0 256Q 0.0 242Q 0.0 224Q 0.0 211Q 0.0 176Q 0.0 143Q 0.0 130Q 0.0 116Q 0.0 104Q 0.0 72Q 0.0 60Q 0.0 46Q 0.0 34Q 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@WzGظAW|GػHW\_jOOjOKW^_jOOjO_kOkW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^HcfKchHo Ko D bE b F b G bG bG bGk_4_2O4O2IDDFFGJEEGGGH_K_I XOټJ [OٽjLLjLjMMjM_dOO^dk.HW\_jOOjOKW^_ jO O jO _"kO"kW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^HcfKchNkLN MN O _O _Nj_0_.O0O.PO O _,_*W\_$jO$O$jO$O,W^_&jO&O&jO&_(kO(kW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^O*cfO,chOLOMO0k_0O4k_4G,BW\_6jO6O6jO6CW^_8jO8O8jO8_:kO:kW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^BcfC7BWzGCW|G_D_BW\_jO>O>jO>_@kO@kW\dWjW^WlklklW`-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^OBcfODchG BCG GWfdjW\WhdjW^_N_LW\_FjOFOFjOFONW^_HjOHOHjOH_JkOJkW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^OLcfONchWfdjW\WhdjW^_X_VW\_PjOPOPjOPOXW^_RjORORjOR_TkOTkW\dWjW^WlklklĿW`GW\W^G lG-`G G `G W\WnZWpW\SW^WrLWtW^EGWvW\W^WWWx .W\W^GWWzWnWpWWWW|WrWtWWvWxWWWG `Wb!WdkcdjW`hc`WbW~cbcdW\cjW^clWfc\Whc^OVcfOXchh(4573Q \PUTUPCOLORCURSOR 4563Q \BBTCURVEPT 4505Q \FBITMAPBIT 4424Q \TOTOPWDS 4407Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 4071Q \PUTUPCOLORCURSOR 4061Q \BBTCURVEPT 4003Q \FBITMAPBIT 3722Q \TOTOPWDS 3705Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 3461Q MOVETO 3344Q \PUTUPCOLORCURSOR 3334Q \BBTCURVEPT 3256Q \FBITMAPBIT 3175Q \TOTOPWDS 3160Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2657Q \PUTUPCOLORCURSOR 2647Q \BBTCURVEPT 2571Q \FBITMAPBIT 2510Q \TOTOPWDS 2473Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2142Q \PUTUPCOLORCURSOR 2132Q \BBTCURVEPT 2054Q \FBITMAPBIT 1773Q \TOTOPWDS 1756Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1565Q \GETINTEGERPART 1560Q \GETINTEGERPART 1527Q \CONVERTTOFRACTION 1517Q \CONVERTTOFRACTION 1511Q \CONVERTTOFRACTION 1502Q \CONVERTTOFRACTION 1364Q \PUTUPCOLORCURSOR 1354Q \BBTCURVEPT 1276Q \FBITMAPBIT 1215Q \TOTOPWDS 1200Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 741Q \GETINTEGERPART 730Q \GETINTEGERPART 633Q \CONVERTTOFRACTION 623Q \CONVERTTOFRACTION 613Q \CONVERTTOFRACTION 603Q \CONVERTTOFRACTION 574Q \CONVERTTOFRACTION 565Q \CONVERTTOFRACTION 560Q \CONVERTTOFRACTION 546Q \CONVERTTOFRACTION 434Q \PUTUPCOLORCURSOR 424Q \BBTCURVEPT 346Q \FBITMAPBIT 265Q \TOTOPWDS 250Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (4567Q \COLORCURSORDOWN 4415Q \TOPWDS 4401Q \COLORCURSORBM 4065Q \COLORCURSORDOWN 3713Q \TOPWDS 3677Q \COLORCURSORBM 3340Q \COLORCURSORDOWN 3166Q \TOPWDS 3152Q \COLORCURSORBM 3007Q \DISPLAYDATA 2772Q \DISPLAYDATA 2653Q \COLORCURSORDOWN 2501Q \TOPWDS 2465Q \COLORCURSORBM 2136Q \COLORCURSORDOWN 1764Q \TOPWDS 1750Q \COLORCURSORBM 1360Q \COLORCURSORDOWN 1206Q \TOPWDS 1172Q \COLORCURSORBM 430Q \COLORCURSORDOWN 256Q \TOPWDS 242Q \COLORCURSORBM 60Q \DISPLAYDATA 42Q \DISPLAYDATA) ( 554Q .5 542Q .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(AlA&5=OtO$_&O%_$O#_"O"_ O_Odgdggg_O_:k[AO:lllO: _OghD g_6g_A AdD g_6AO6O: _8A _O_0O_(OOC bO_O_O_COk_4Ogg_O:dkO O_*6lO O_*O"_2O:lO O_*O"_2O_O&O_,O$O_.D`D @k(@k( @kk@O~O|C@O~(_b@O~(_d@O~k(_f@O~k(_h@O~(_P@O~(_V@O~(_l@O~(_r@O~(_n@O~(_tOfOb_vjOvOvjOvOhOd_xjOxOxjOx_zdOzOzl_Jdl@k_LOJ_N_Ll@_NOL_JoOJ_\d_^O\_`On_TO`Ot_ZOLkO\OPOlO^oOnO`o_PO^OlO`On_RO\OVO^OroO`Oto_VO^OrO`Ot_XO)ObOdOfOhOPOVOROXOTOZOJOOChOD A`D D`D ObOdOfOhOPOVOROXOTOZOJOOChdD `koOL_KLOnOlOPOb MNOtOrOVOd OLkjoOnOOtOO`OnoO`OtoHOOOO_KOl _fMOl _hO\OPO^OloO_PO^OlO`On_RO\OVO^OroO_VO^OrO`Ot_XO(ObOdOfOhOPOVOROXOTOZl@OOChOD EI`D D`D ObOdOfOhOPOVOROXOTOZl@OOChdD `Of_bOh_dOlO_lOrO_rLOl _PNOl _VOk_O~k_~OjddddddddddOOCiOD 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) < WWWWWWt lk__OOHJXIKع_WټjLLjLIWٽjMMjM_kOkWdW$WW&klklW}h`h `h WW(ZW*WSWW,LW.WEW0W2WWWBWFW4 .WWW0WHWJW(W*WNW@WW:WD `W !W"kc"jWhcW WPc c"Wc$Wc&WcWcOcIcOk_h(356Q \PUTUPCOLORCURSOR 346Q \BBTCURVEPT 270Q \FBITMAPBIT 207Q \TOTOPWDS 176Q \IFCOLORDS\TAKEDOWNCOLORCURSOR) (352Q \COLORCURSORDOWN 202Q \TOPWDS 171Q \COLORCURSORBM) () \CURVESLOPE D1 (P 3 PARAMS P 2 DY P 1 DX P 0 #KNOTS I 1 ENDFLG I 0 KNOTS) @ 1HjHdkol@@@@A@Hdll 'Hl@@@h@@@@h [dk(YKk(ZAI J IJ(204Q MINUS 200Q MINUS 150Q PARAMETRICSPLINE 76Q REVERSE 73Q NLEFT 3 LENGTH) NIL ( 23Q (1 . 0)) \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)) =0oDXddYdHZH@CXIACYJBCZHIoJoIJJhNIL NIL ( 57Q 6.0 51Q 2.0 6 1.0) \FILLCIRCLE.DISPLAY D1 (P 35Q \INTERRUPTABLE P 34Q \INTERRUPTABLE P 33Q \INTERRUPTABLE P 32Q NBITS P 31Q GRAYBASE P 30Q GRAYWIDTH P 27Q GRAYHEIGHT P 26Q TEXTUREBM P 25Q CY P 24Q CX P 23Q RASTERWIDTH P 22Q DESTINATIONBASE P 21Q DestinationBitMap P 20Q OPERATION P 17Q LEFT P 16Q RIGHT P 15Q BOTTOM P 14Q TOP P 13Q FCBBT P 12Q D P 11Q Y P 10Q X P 7 DISPLAYDATA P 0 \BRUSHBBT I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 DISPLAYSTREAM) CdddjC bC `.`a@(jCkClHO%k_O$_O"_O#k_O_ O_"_4D`DO4kDd@ Y`IDO6Z`JDdDO6b}ll _,_2Dl[dKdO2Dl\dLdO2Dl]dMdO2Dl^dNdO,h _,_2O"_$O"_&Oj OO&nOjOk 0OO,dll_0kOO,dll_.kÿOk OO dgkglO glj QOO gjk @Ok AO_(BO_*O"O*_*O"OkO"Ok__@`@ CjU`@ @`@ OO(O*O(O$O&OOOOO0O.O2O4 `Ok_OjOOOk_OOOl؇OOl_OjX`@ @`@ OO(OO*O(OO$O&OOOOO0O.O2O4 `AB@ hH`@ @`@ OO(OO*OO(OO$O&OOOOO0O.O2O4 OO(OO*OO(OO$O&OOOOO0O.O2O4 `Ok_jOOk_OdOkOOlر(1670Q \PUTUPCOLORCURSOR 1660Q \LINEBLT 1606Q \LINEBLT 1534Q \TOTOPWDS 1521Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1475Q MOVETO 1465Q \PUTUPCOLORCURSOR 1455Q \LINEBLT 1406Q \TOTOPWDS 1373Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1256Q \PUTUPCOLORCURSOR 1246Q \LINEBLT 1205Q \TOTOPWDS 1172Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1147Q \TOTOPWDS 532Q \ILLEGAL.ARG 343Q BITMAPCREATE 242Q COLORTEXTUREFROMCOLOR# 237Q COLORNUMBERP 234Q DSPCOLOR 32Q \ILLEGAL.ARG 22Q FIXR) (1664Q \COLORCURSORDOWN 1526Q \TOPWDS 1514Q \COLORCURSORBM 1504Q \\BRUSHBBT.GLOBALRESOURCE 1461Q \COLORCURSORDOWN 1400Q \TOPWDS 1366Q \COLORCURSORBM 1252Q \COLORCURSORDOWN 1177Q \TOPWDS 1165Q \COLORCURSORBM 1141Q \TOPWDS 1120Q BITMAP 1104Q BITMAP 1067Q BITMAP 1054Q \DISPLAYDATA 1040Q \DISPLAYDATA 1026Q PILOTBBT 1010Q ERASE 767Q INVERT 755Q PAINT 744Q ERASE 703Q BITMAP 652Q BITMAP 630Q PILOTBBT 606Q PILOTBBT 575Q PILOTBBT 563Q BITMAP 551Q BITMAP 537Q BITMAP 523Q \\BRUSHBBT.GLOBALRESOURCE 350Q BITMAP 274Q BITMAPTYPE# 247Q BITMAPTYPE# 206Q BITMAPTYPE# 174Q BITMAP 165Q \DISPLAYDATA 142Q \DISPLAYDATA 130Q \DISPLAYDATA 116Q \DISPLAYDATA 102Q \DISPLAYDATA 57Q STREAM 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) FAFbCGGbACBGGBhDEB@H@HG@BG HICI@H@HGdk%@A@AG @CAkbl*@Ab@AG @CkA5Gl+@Ab@AG @CkA@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 (6 BITMAP 3 BITMAP) () BITSPERPIXEL D1 (L (0 BITMAP)) @NIL (6 BITMAP 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) CCg b(@H bhddC@@@@gBHAH6 (100Q BKBITBLT 6 \GETSTREAM) (60Q TEXTURE 20Q \DISPLAYDATA 13Q STREAM 3 OUTPUT) () INVERTW D1 (I 1 SHADE I 0 WIN) h@ Ang@ @(21Q DSPFILL 4 DSPCLIPPINGREGION) (15Q INVERT) () \DSPCOLOR.DISPLAY D1 (P 1 NOWCOLOR P 0 DD I 1 COLOR I 0 STREAM) N@g (HYA d'` A IHA``@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 (HYA d'` A IH`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 (H2g@ @dlH@dgh2 (74Q \ILLEGAL.ARG 6 \GETSTREAM) (61Q OFF 54Q \DISPLAYDATA 34Q OFF 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () DSPCLEOL D1 (P 0 DD I 3 HEIGHT I 2 YPOS I 1 XPOS I 0 DISPLAYSTREAM) i`@ @g b(hdd@AdHbBd H@HAٹjIIjCdjHgg (146Q BKBITBLT 17Q \GETSTREAM 7 \CARET.DOWN) (142Q REPLACE 137Q TEXTURE 76Q FONTDESCRIPTOR 31Q \DISPLAYDATA 24Q STREAM 14Q OUTPUT 2 \CARET.UP) () DSPRUBOUTCHAR D1 (I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 STREAM) 7A A@bbBbhbb@g b(@ABCDhi (64Q \DSPMOVELR 36Q \GETSTREAM 3 DISPLAYSTREAMP) (50Q \DISPLAYDATA 43Q STREAM 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@D BhChFJIhj{BdHbCdHbEBIbHBjIbH`@ F4H !CKKJBC@ hjd@BLIMgg B@ i(266Q DSPXPOSITION 260Q BKBITBLT 235Q MOVETO 173Q \CARET.DOWN 63Q SHOULDNT 41Q \STREAMCHARWIDTH 27Q CHARCODEP 6 \GETSTREAM) (254Q REPLACE 251Q TEXTURE 221Q FONTDESCRIPTOR 212Q FONTDESCRIPTOR 166Q \CARET.UP 20Q \DISPLAYDATA 13Q STREAM 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 \CURVESLOPE \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 ( OPENLAMBDA (X) (AND (type? BITMAP X) 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