(FILECREATED " 3-Jan-84 01:24:04" ("compiled on " {PHYLUM}SOURCES>ADISPLAY.;116) " 3-Jan-84 00:51:55" bcompl'd in WORK dated " 3-Jan-84 01:00:58") (FILECREATED " 3-Jan-84 01:23:01" {PHYLUM}SOURCES>ADISPLAY.;116 131447 changes to: (VARS ADISPLAYCOMS) previous date: " 2-Jan-84 18:07:09" {PHYLUM}SOURCES>ADISPLAY.;115) \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 10Q Y P 6 X P 2 TEXTURE P 1 W P 0 H I 0 BITMAP) n @d`ð¤ ¿@È@Èj#ljNMñ³LljOOñ³8@NIÜOHÜjð³!J`lOÙlÚNØlå¼[ÉKÈLØÐÈäºOkØ_°ÇNkØ^°´J(70Q BITMAPBIT 12Q \ILLEGAL.ARG) (100Q BITMASKARRAY 5 BITMAPTYPE#) () READBITMAP D1 (P 6 BITSPERPIXEL P 5 W P 4 BM P 3 BASE P 2 STRM P 1 HEIGHT P 0 WIDTH I 0 FILE) Ê@ @ gð§o ¿@ @ @g CJ gð‘kƒ@ ^HÚlØââââ½HIN\É»Hjð³mIjð³hJ gð²PIdjñ²WJ ¿J l"ð²=Mdjñ²0KjJ l@ÙààààJ l@ÙäÇ¿KkJ l@ÙààààJ l@ÙäÇ¿KkÐ»kÙ°Ï¿J l"ð©¿o hkÙ°¨¿J ¿J l)ð²èL(276Q SKIPSEPRS 263Q ERROR 150Q SKIPSEPRS 130Q SKIPSEPRS 106Q BITMAPCREATE 65Q RATOM 52Q SKIPSEPRS 43Q GETSTREAM 34Q RATOM 30Q RATOM 23Q ERROR 7 READC 3 SKIPSEPRS) (133Q %" 55Q %" 40Q INPUT 12Q %() ( 260Q "BAD FORMAT OF BITMAP IN FILE" 20Q "BAD FORMAT OF BITMAP IN FILE") 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) 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¡•µõi¿h´@(5 EQLENGTH) NIL () INTERSECTREGIONS D1 NIL µ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 NIL ›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 X I 0 REGION) DAdd¥d¡²¿Bd¥d¡–@ABA ˜@AAAdd¥d¡‘¿B (101Q \ILLEGAL.ARG 56Q INSIDE? 45Q POSITIONP 40Q INSIDE?) 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@(252Q MOVETO 243Q \CLIPANDDRAWLINE 211Q \ILLEGAL.ARG 141Q FIXR 114Q FIXR 74Q FIXR 54Q FIXR 34Q FIXR 11Q \TOTOPWDS) (201Q ERASE 173Q INVERT 164Q PAINT 154Q REPLACE 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) Th@ ÈAd²*l ²A‰dd¡•µõi¿h¥A ´ AAAŒ@ h@ YIØHÙ@@(120Q MOVETO 101Q DSPCLIPPINGREGION 74Q DSPLEFTMARGIN 57Q \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ð`µ`h¿XjCkCÙlÚH@É(Dlð´Dö#€+O(™A_N¿B_P±šO&È$_2¿O&È%_0¿O&È#_.¿O&È"_,¿O&É_*¿O&Édgð¥dgð”¿gƒ¿g_J¿O*È_Vkð³XDOVlð’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¿OVdkð™¿O,O4Ù_8°6lð²O,O4ââÙ_8¿O.àà_H°OVlð²O,O4âââÙ_8¿O.ààà_H‚¿O>È_6¿O2O6Ù_:¿O0O6Ù_<¿OVdkðž¿AO4âÙO&ÉØ_N°/lðŸ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 ¿`µ`h¿_E E JdÚKdÚjdk@É(Flð´Fú!ð0À¿O&É_6¿OBO"O_¿OBÉ_8¿OBÈ_@¿OBÈ_<¿O¨O&ÈkÙ_F¿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°/lðŸ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¿±ÿ)(3153Q LSH 3110Q LSH 3010Q RSH 2771Q RSH 2754Q RSH 2735Q RSH 2666Q LSH 2616Q \PUTUPCOLORCURSOR 2606Q \BBTCURVEPT 2531Q \FBITMAPBIT 2436Q \BBTCURVEPT 2362Q \FBITMAPBIT 2275Q \TOTOPWDS 2262Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 2162Q MOVETO 2013Q RSH 2002Q RSH 1755Q RSH 1705Q RSH 1654Q RSH 1567Q RSH 1540Q RSH 1462Q RSH 1454Q RSH 1425Q RSH 1342Q ABS 1335Q ABS 1325Q LSH 1320Q FIXR 1310Q LSH 1303Q FIXR 1273Q LSH 1266Q FIXR 1243Q LSH 1236Q FIXR 1223Q LSH 1216Q FIXR 1212Q LSH 1157Q FIXR 1153Q SQRT 1136Q LSH 1116Q LSH 1111Q FIXR 1044Q \TOTOPWDS 1014Q SHOULDNT 662Q SHOULDNT 512Q \GETBRUSHBBT 460Q \GETBRUSH 446Q \GETCOLORBRUSH 426Q DSPCOLOR 367Q DSPBACKCOLOR 347Q \GETCOLORBRUSH 143Q SIN 137Q COS 112Q \ILLEGAL.ARG 40Q MOVETO 17Q FIXR 13Q FIXR 7 FIXR 3 FIXR) (2612Q \COLORCURSORDOWN 2267Q \TOPWDS 2255Q \COLORCURSORBM 2172Q \BRUSHBBT 1036Q \TOPWDS 433Q BLACK 402Q REPLACE 374Q WHITE 357Q ERASE 311Q REPLACE 304Q ERASE 276Q ERASE 270Q INVERT 130Q \BRUSHBBT 123Q PILOTBBTTYPE# 116Q \BRUSHBBT) () \DRAWCURVE.DISPLAY D1 (P 3 LKNOT P 2 BBT P 1 DASHLST I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 DISPLAYSTREAM) `µ`h¿XDd•d¢ HA djð’±ßdkð²>¿A² Ad¥d¡ŸAdd¥d¡«¿oA ¿AAC@±žlð²yA² Ad¥d¡ŸAdd¥d¡«¿oA ¿A²#Ad¥d¡²Add¥d¡¬¿oA ¿AAAACI@J °!BŸAA [ £KA€AB CIJ@ ¿@H¿(405Q \CURVE2 375Q PARAMETRICSPLINE 363Q EQUAL 356Q LAST 344Q \LINEWITHBRUSH 315Q ERROR 233Q ERROR 147Q DRAWPOINT 133Q ERROR 42Q LENGTH 32Q \ILLEGAL.ARG) (414Q \BRUSHBBT 17Q \BRUSHBBT 12Q PILOTBBTTYPE# 5 \BRUSHBBT) ( 307Q "bad knot" 226Q "bad knot" 126Q "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) 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ñ’±fJO2OO2(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Ø(lêéOO.(èoêOO.kÙ(OO.kÙ(ëé*¿OO.OO.lØ(OO.kØ(lêéOO.(èoêOO.kÙ(OO.kÙ(ëé*¿O.kØ_.°‹JNJk(*¿KNKk(*¿NkÙk_:¿_8¿O:O8ñ’±ÛHO:OO:kØ(OO:(éJO:(lêJO:kØ(èoëé*¿IO:OO:kØ(OO:(éKO:(lêKO:kØ(èoëé*¿LO:JO:kØ(JO:(é*¿MO:KO:kØ(KO:(é*¿O:kØ_:°‡JkKkJNKNo****¿lNkÙ_6¿_4¿O4O6ñ’±ÿWJO6OO6kÙ(JO6kØ(éOO6kÙ(ë*¿KO6OO6kÙ(KO6kØ(éOO6kÙ(ë*¿O6kÙ_6¿°ºNOOHIJKLMh(1671Q FMINUS 1566Q FMINUS 1476Q FMINUS 1433Q FMINUS 1302Q ERROR 737Q FMINUS 701Q FMINUS 525Q FMINUS 462Q FMINUS 317Q LAST 312Q EQUAL 306Q LAST 275Q ARRAY 261Q ARRAY 245Q ARRAY 231Q ARRAY 213Q ARRAY 200Q ARRAY 165Q ARRAY 132Q ARRAY 117Q ARRAY 105Q ARRAY 73Q ARRAY 61Q ARRAY 47Q ARRAY 35Q ARRAY 23Q ARRAY 11Q LENGTH) NIL ( 2533Q 0.0 2443Q 6.0 2375Q 6.0 2237Q 6.0 2153Q 6.0 2062Q 6.0 2047Q 2.0 2023Q 6.0 2010Q 2.0 1603Q 6.0 1562Q 2.0 1513Q 6.0 1472Q 2.0 1361Q 1.0 1355Q 4.0 1275Q "bad knot" 1076Q 4.0 1041Q 6.0 1022Q 4.0 765Q 6.0 733Q 2.0 675Q 2.0 626Q 0.0 613Q 0.0 600Q 1.0 541Q 6.0 521Q 2.0 476Q 6.0 456Q 2.0 374Q 1.0 334Q 4.0 272Q 0.0 256Q 0.0 242Q 0.0 226Q 0.0 210Q 0.0 175Q 0.0 162Q 0.0 127Q 0.0 114Q 0.0 102Q 0.0 70Q 0.0 56Q 0.0 44Q 0.0 32Q 0.0 20Q 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) W: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 I 4 TEXTURE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 DISPLAYSTREAM) Cdd¥d¡š¿jC bñ”C P`µ`h¿X@É(jCkCÙlÚHõMÈ%kÙ_¿MÈ$_¿MÈ"_¿MÈ#kÙ_¿MÉ_¿MÉ_È_0¿D`ð™DÉ_.¿D±O0kð³!Dd£@ bd`ð™É_.¿D±ˆDd¡©DµyMÈ&b´rll _(É_.DãââââlåYdáIààààdáäääÍ¿O.DãlåZdáJààààdáäääÍ¿O.Dââââlå[dáKààààdáäääÍ¿O.Dlå\dáLààààdáäääÍ¿O(‚ _(¿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Ø±ÿ (1520Q \PUTUPCOLORCURSOR 1510Q \LINEBLT 1440Q \LINEBLT 1370Q \TOTOPWDS 1355Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1331Q MOVETO 1321Q \PUTUPCOLORCURSOR 1311Q \LINEBLT 1244Q \TOTOPWDS 1231Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1123Q \PUTUPCOLORCURSOR 1113Q \LINEBLT 1052Q \TOTOPWDS 1037Q \IFCOLORDS\TAKEDOWNCOLORCURSOR 1014Q \TOTOPWDS 443Q \ILLEGAL.ARG 267Q BITMAPCREATE 214Q COLORTEXTUREFROMCOLOR# 211Q COLORNUMBERP 206Q DSPCOLOR 32Q \ILLEGAL.ARG 22Q FIXR) (1514Q \COLORCURSORDOWN 1362Q \TOPWDS 1350Q \COLORCURSORBM 1340Q \BRUSHBBT 1315Q \COLORCURSORDOWN 1236Q \TOPWDS 1224Q \COLORCURSORBM 1117Q \COLORCURSORDOWN 1044Q \TOPWDS 1032Q \COLORCURSORBM 1006Q \TOPWDS 714Q PILOTBBT 676Q ERASE 655Q INVERT 643Q PAINT 632Q ERASE 524Q PILOTBBT 502Q PILOTBBT 471Q PILOTBBT 223Q BITMAPTYPE# 155Q BITMAPTYPE# 53Q \BRUSHBBT 46Q PILOTBBTTYPE# 41Q \BRUSHBBT) () \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 NIL () BITSPERPIXEL D1 (L (0 BITMAP)) @ÈNIL NIL () 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È& (75Q BKBITBLT 6 \GETSTREAM) (55Q TEXTURE 15Q \DISPLAYDATA 3 OUTPUT) () MOVETO D1 (I 2 STREAM I 1 Y I 0 X) @Bg b AB (21Q DSPYPOSITION 14Q DSPXPOSITION 7 \GETSTREAM) (4 OUTPUT) () INVERTW D1 (I 0 WIN) h@ nÿÿg@@(16Q DSPFILL 4 DSPCLIPPINGREGION) (12Q INVERT) () DSPCOLOR D1 (P 1 NOWCOLOR P 0 DD I 1 DSP I 0 COLOR) JAg bÉ(HÉY@µ dµ'` ¤@ ¿IµH@`¿`AH ¿I@¿°ô(77Q \SFFixFont 47Q \ILLEGAL.ARG 42Q \POSSIBLECOLOR 6 \GETSTREAM) (72Q WHITECOLOR 63Q BLACKCOLOR 57Q \DISPLAYDATA 36Q WHITECOLOR 15Q \DISPLAYDATA 3 OUTPUT) () DSPBACKCOLOR D1 (P 1 COLORCELL P 0 DD I 1 DSP I 0 COLOR) JAg bÉ(HÉY@µ dµ'` ¤@ ¿IµH`@¿`AH ¿I@¿°ô(77Q \SFFixFont 47Q \ILLEGAL.ARG 42Q \POSSIBLECOLOR 6 \GETSTREAM) (72Q BLACKCOLOR 62Q WHITECOLOR 57Q \DISPLAYDATA 36Q BLACKCOLOR 15Q \DISPLAYDATA 3 OUTPUT) () DSPCLEOL D1 (P 0 DD I 3 HEIGHT I 2 YPOS I 1 XPOS I 0 DISPLAYSTREAM F 2 TtyDisplayStream) z@g bÉ(`´`´@Rð´`”R ¿i¿hdd@Ad¡µHÉbBd¡µHÉ@ÈÙHÉAÙ¹jIñ¡I€jCd¡µjHÉÙgg (167Q BKBITBLT 47Q \SHOWCARET 6 \GETSTREAM) (163Q REPLACE 160Q TEXTURE 117Q FONTDESCRIPTOR 54Q \CARETDOWN 42Q \CARETFLG 30Q \CARET 23Q \CARETFLG 15Q \DISPLAYDATA 3 OUTPUT) () 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 DD P 0 WIDTH I 6 ERASEFLG I 5 RIGHTWARDSFLG I 4 TTBL I 3 Y I 2 X I 1 CHAR I 0 DS F 6 TtyDisplayStream) ÉA ‘AlM@D@g bÉ(Bhð´ChðF¥J£¿Hµhjð’±Bd¡¥IÉb¿Cd¡¥IÉb¿E™BHØbIÉñ‹BjHÙØbIÉýñ³Ä`²`²@Vð`”V ¿i¿F²4IÉ!CKÈÙKÈ½¼J¦BC@¿hjd@BLHMgg B@ i(305Q DSPXPOSITION 277Q BKBITBLT 254Q MOVETO 205Q \SHOWCARET 55Q SHOULDNT 24Q \GETSTREAM 15Q \STREAMCHARWIDTH 3 CHARCODEP) (273Q REPLACE 270Q TEXTURE 240Q FONTDESCRIPTOR 231Q FONTDESCRIPTOR 212Q \CARETDOWN 200Q \CARETFLG 167Q \CARET 162Q \CARETFLG 33Q \DISPLAYDATA 21Q OUTPUT) () \SHOWCARET D1 (P 6 CBTM P 5 CLFT P 4 \INTERRUPTABLE P 3 CWY P 2 CWX P 1 CARETWIN P 0 DD I 1 FLASHINGFLG I 0 DS F 7 \DEFAULTTTYDISPLAYSTREAM) ¼@Wðµ‚±³@É(A`lð“`‚l `ö¿h¿HÉ`ÙºHÉ`Ù»A²V`@ Yð³K I ²?IJHÉØ]KHÉØ^MlØNlØ ²$`jd`MNldgg ¿`hð¿°!`hð¿`jd@JKldgg h(270Q BKBITBLT 214Q BKBITBLT 162Q \AREAVISIBLE? 127Q OPENWP 114Q WFROMDS 41Q \CLOCK0) (264Q INVERT 261Q INPUT 245Q \CARET 241Q \CARETFLG 234Q \CARETFLG 225Q \CARETFLG 220Q \CARETFLG 210Q INVERT 205Q INPUT 175Q ScreenBitMap 167Q \CARET 110Q TOPW 76Q \CARET 64Q \CARET 55Q \CARETDOWN 50Q \CARETFLASHTIME 44Q \CARETRATE 32Q \CARETFLASHTIME 22Q \CARETFLASHTIME) () \AREAVISIBLE? D1 (P 0 WPTR I 4 TOP I 3 RGHT I 2 BTM I 1 LFT I 0 WIN) 0`@ÉABCD ³hÉABCD ³ôHÉX´ Hd@ð²êi(36Q \REGIONOVERLAPAREAP 20Q \AREAINREGIONP) (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 () CARET D1 (I 0 NEWCARET F 0 TtyDisplayStream) {`”P ¿i`µg@²\@dgð²¿h¿``°áið—`¿@d`ð²)d²$dd¥d¡²dd¥d¡”¿l ¿(167Q \LISPERROR 7 \SHOWCARET) (160Q \CARET 110Q BITMAPTYPE# 76Q \CARET 73Q DEFAULTCARET 57Q \CARET 52Q \CARET 44Q \CARET 34Q OFF 24Q OFF 17Q \CARET 14Q \CARETDOWN 2 \CARETFLG) () (PRETTYCOMPRINT ADISPLAYCOMS) (RPAQQ ADISPLAYCOMS ((COMS (* Interlisp-D dependent stuff.) (EXPORT (RECORDS REGION BITMAP BITMAPWORD POSITION CURSOR MOUSEEVENT)) (CONSTANTS (BITSPERINTEGER 32)) (FNS \BBTCURVEPT) (FNS CREATETEXTUREFROMBITMAP READBITMAP PRINTBITMAP PRINTCURSOR \WRITEBITMAP) (FNS \GETINTEGERPART \CONVERTTOFRACTION) (CONSTANTS (INTEGERBITS 12))) (COMS (* cursor functions not on LLDISPLAY) (FNS CURSORP CURSORBITMAP CreateCursorBitMap) (EXPORT (MACROS CURSORBITMAP) (CONSTANTS (CURSORHEIGHT 16) ( CURSORWIDTH 16)) (DECLARE: EVAL@COMPILE (ADDVARS (GLOBALVARS CursorBitMap))))) (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 (create PILOTBBT)))) (* 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 (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 MOVETO INVERTW) (FNS DSPCOLOR DSPBACKCOLOR) (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 (* caret functions. Some are in LLDISPLAY but only those that are necessary when no caret is being displayed.) (FNS \SHOWCARET \AREAVISIBLE? \REGIONOVERLAPAREAP \AREAINREGIONP CARET) (BITMAPS \DefaultCaret \DefaultCursor) ( DECLARE: DONTEVAL@LOAD DOCOPY (INITVARS (DEFAULTCARET (CURSORCREATE \DefaultCaret 2 4)) (DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)) (\CARETDOWN T) (\CARETRATE 333) (\CARETFLASHTIME (SETUPTIMER 0)) (TIMERINTERVAL 250)) (P (CARET T))) (DECLARE: DONTCOPY (GLOBALVARS DEFAULTCARET DEFAULTCURSOR) (EXPORT (MACROS \CHECKCARET)))) (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 FIXP)))) ( 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))) (RPAQQ BITSPERINTEGER 32) (CONSTANTS (BITSPERINTEGER 32)) (RPAQQ INTEGERBITS 12) (CONSTANTS (INTEGERBITS 12)) (PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap)) (RPAQQ CURSORHEIGHT 16) (RPAQQ CURSORWIDTH 16) (CONSTANTS (CURSORHEIGHT 16) (CURSORWIDTH 16)) (ADDTOVAR GLOBALVARS CursorBitMap) (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) (RPAQQ \BRUSHBBT NIL) (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 \DefaultCaret (READBITMAP)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "A@@@" "CH@@" "FL@@" "LF@@" "HB@@" "@@@@" "@@@@") (RPAQ \DefaultCursor (READBITMAP)) (16 16 "H@@@" "L@@@" "N@@@" "O@@@" "OH@@" "OL@@" "ON@@" "O@@@" "MH@@" "IH@@" "@L@@" "@L@@" "@F@@" "@F@@" "@C@@" "@C@@") (RPAQ? DEFAULTCARET (CURSORCREATE \DefaultCaret 2 4)) (RPAQ? DEFAULTCURSOR (CURSORCREATE \DefaultCursor 0 15)) (RPAQ? \CARETDOWN T) (RPAQ? \CARETRATE 333) (RPAQ? \CARETFLASHTIME (SETUPTIMER 0)) (RPAQ? TIMERINTERVAL 250) (CARET T) (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