(FILECREATED " 7-Nov-85 23:54:11" ("compiled on " {ERIS}LIBRARY>C150STREAM.;9) "17-Oct-85 18:58:44" recompiled changes: C150.RESET \C150.ASSURE.COLOR in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED " 7-Nov-85 23:45:16" {ERIS}LIBRARY>C150STREAM.;9 89612 changes to: (VARS C150COLORMAP C150STREAMCOMS) (FNS \C150.ASSURE.COLOR C150.RESET) previous date: " 7-Nov-85 11:33:44" {ERIS}LIBRARY>C150STREAM.;8) C150.SEPARATOR D1 (P 7 DASH P 2 C P 0 SEPR.LENGTH I 0 BACKINGSTREAM) dloHo QIkټILIػICjhi^Lk\KNMLMLº@J!HkONh@l!Ok_(20Q CONCAT) NIL ( 15Q " " 10Q "g0") C150.SETMARGINS D1 (P 3 CHAR P 1 RIGHTCODE P 0 LEFTCODE I 2 C150RIGHT I 1 C150LEFT I 0 BACKINGSTREAM) AoAoABAoAl j BBl BoBdAl l j @l!@ll!HQJkٽJMJؼJCjhi_Mk]LONMNM»@K!@l !@l!@lr!IQJkٽJMJؼJCjhi_Mk]LONMNM»@K!@l !(101Q CONCAT 42Q CONCAT) NIL ( 57Q .5 30Q .5 15Q 9.0 6 .5) \C150.ALLWHITESPACE D1 (P 14Q MaxColor P 0 MaxX I 2 STARTINGSCAN I 1 TABLES I 0 BITMAP) @ k l@ k Okghj Aj(Ak(Al(Al(BlB__OO,Hj_ONI@OOhi*Ok_Om_Oj__OO/IO(!JO(kKO(kLO(kMO(khOk_i(42Q ARRAY 21Q EXPT 16Q BITSPERPIXEL 3 BITMAPWIDTH) (35Q POINTER) () \C150.BUFFER.DOT D1 (L (2 BUFFER 1 X 0 DOT)) BA@*NIL NIL () \C150.MICROLINEFEED D1 (P 1 CHAR I 0 BACKINGSTREAM) ?oQHkٻHKHغHCjhi]Kk[JMLKLK¹@I!hNIL NIL ( 3 "k1") \C150.SENDLINE D1 (P 7 BYTE.TO.SEND P 6 BYTE P 1 CHAR I 3 BUFFER I 2 COLOR I 1 LINE# I 0 BACKINGSTREAM) oBlAll0 C lo QHkٻHKHغHCjhi]Kk[JMLKLK¹@I!C kjd# NM9jl__OOOCNO(O _Om_@O!Nl^h(211Q LLSH 140Q ARRAYSIZE 43Q CONCAT 26Q ARRAYSIZE 22Q CHARACTER) NIL ( 40Q " " 3 "g") \C150.SENDLINEINFO D1 (P 1 CHAR I 3 LINE# I 2 LENGTHINBYTES I 1 COLOR I 0 BACKINGSTREAM) RoACl0 Bo QHkٻHKHغHCjhi]Kk[JMLKLK¹@I!h(26Q CONCAT 16Q CHARACTER) NIL ( 23Q " " 3 "g") \C150INITA0017 D1 NIL oNIL NIL ( 3 1.666667) \C150INITA0033 D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) ABdgh@ A gh@ A Bd@ A h@ A  (76Q \ILLEGAL.ARG 70Q BITMAPHEIGHT 64Q DSPSCALE 56Q BITMAPWIDTH 52Q DSPSCALE 40Q BITMAPHEIGHT 34Q DSPSCALE 20Q BITMAPWIDTH 14Q DSPSCALE) (25Q HEIGHT 4 WIDTH) () \C150INITA0038 D1 (I 0 STREAM) @ @l lHNIL (3 STREAM) () \C150INITA0041 D1 (I 2 Y I 1 X I 0 STREAM) +@&@AlH@&@BlHNIL (35Q IMAGEOPS 30Q STREAM 10Q IMAGEOPS 3 STREAM) () \C150INIT D1 (F 0 IMAGESTREAMTYPES F 1 PRINTERTYPES F 2 PRINTFILETYPES) `dgdgdg dg dgdgdgdgdgdgdgdgdgdgdgdgdg"dg*dg,dg0dg8dg.dg2dg4dgdgBdgHdgFdgDdg@dg:dg6dg(dg&dg$dg ggghgghgghgghhPcghgghhgghgghgghghhghhhQco ggg ggghgghhhRcgog i(676Q DEFAULTFONT 622Q PUTPROP 606Q ADDTOVAR) (673Q NEW 664Q C150 644Q C150 641Q EXTENSION 633Q NILL 630Q TEST 625Q C150 617Q C150 614Q PRINTERTYPE 611Q C150 557Q BITMAPFILE 550Q BITMAPSCALE 542Q SEND.TO.C150 537Q SEND 531Q NILL 526Q PROPERTIES 520Q TRUE 515Q STATUS 505Q C150 502Q CANPRINT 475Q C150 455Q \CREATECHARSET.C150 452Q CREATECHARSET 444Q \SEARCHC150FONTFILES 441Q FONTSAVAILABLE 433Q \CREATEC150FONT 430Q FONTCREATE 422Q OPENC150STREAM 417Q OPENSTREAM 414Q C150 411Q \C150IMAGEOPS 403Q \C150INITA0041 374Q \C150INITA0038 365Q NILL 356Q NILL 347Q NILL 340Q \C150INITA0033 331Q NILL 322Q NILL 313Q NILL 304Q NILL 275Q POLYSHADE.BLT 266Q \DSPRESET.C150 257Q \DSPCLIPPINGREGION.C150 250Q \CHARWIDTH.C150 241Q \STRINGWIDTH.C150 232Q \DSPOPERATION.C150 223Q \DSPBACKCOLOR.C150 214Q \DSPCOLOR.C150 205Q C150 176Q NILL 167Q \C150INITA0017 160Q NEWPAGE.C150 151Q \BLTSHADE.C150 142Q \BITBLT.C150 133Q \DRAWCIRCLE.C150 124Q \DRAWELLIPSE.C150 115Q \DRAWLINE.C150 106Q \FILLCIRCLE.C150 77Q \DRAWCURVE.C150 70Q \CLOSEFN.C150 61Q \DSPYPOSITION.C150 52Q \DSPXPOSITION.C150 43Q \DSPLINEFEED.C150 34Q \DSPRIGHTMARGIN.C150 25Q \DSPLEFTMARGIN.C150 16Q \DSPFONT.C150 7 C150 2 IMAGEOPSTYPE#) ( 670Q (CLASSIC 12Q MRR) 603Q (DEFAULTPRINTINGHOST (C150 C150))) \CREATECHARSET.C150 D1 (P 7 XLATEDFAM P 6 XFONT P 5 NEWFONT P 4 REALFONT P 3 USERFONT P 2 NEWCSINFO P 1 TRANSL I 7 NOSLUG? I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 10Q CSINFO) `AHjhdCj@ABCgE M0CjCo oC @ABjgiE ^d(EEN cd C Y[K@KEKdAK8KEK+I\%L@LABCDLEFG ZMHXCBdg$@AgBBBjgiE ^XBg!@ABgBBjgiE ^G`AHShGF$FF (EEN cd (EEN cd Y[K@KEKdAK8KEK+I\%L@LABCDLEFG ZdHXZh(673Q \CREATECHARSET.C150 562Q \SFMAKEITALIC 553Q \CREATECHARSET 534Q \SFMAKEBOLD 524Q \CREATECHARSET 505Q \BUILDSLUGCSINFO 425Q FONTCREATE 355Q FONTCREATE 271Q \CREATECHARSET.C150 160Q \SFROTATECSINFO 145Q \CREATECHARSET 121Q FONTCREATE 103Q ERROR 72Q MEMB 42Q \READC150FONTFILE) (500Q FONTDESCRIPTOR 472Q FONTDESCRIPTOR 464Q FONTDESCRIPTOR 433Q MISSINGC150FONTCOERCIONS 417Q C150 400Q REGULAR 366Q ITALIC 347Q C150 325Q MEDIUM 314Q BOLD 113Q C150 35Q C150 2 C150FONTCOERCIONS) ( 77Q "only implemented rotations are 0, 90 and 270." 67Q (132Q 416Q)) CREATEC150BUFFER D1 (P 2 PAGES P 1 RASTERWIDTH P 0 BITWIDTH I 1 HEIGHT I 0 WIDTH) F@l1HlYAl`dldIdHdAJ oJ dK(75Q HELP 63Q \ALLOCPAGEBLOCK) (31Q BITMAPTYPE#) ( 71Q "Can't allocate C150 buffer - pages needed = ") NEWLINE.C150 D1 (P 1 NEWYPOS P 0 C150DATA I 0 C150STREAM) *@(HHYH$@ @H @I (47Q \DSPYPOSITION.C150 42Q \DSPXPOSITION.C150 32Q NEWPAGE.C150) (3 STREAM) () NEWPAGE.C150 D1 (P 0 DD I 0 C150STREAM F 1 \C150COLORTABLE F 2 C150COLORMAP) "@(H@QR c @ (37Q STARTPAGE.C150 33Q \DUMPPAGEBUFFER.C150 26Q COLORMAP.TO.C150TABLE) (14Q \DISPLAYDATA 3 STREAM) () OPENC150STREAM D1 (P 3 C150STREAM P 2 BACKINGSTREAM P 1 HEIGHT P 0 WIDTH I 1 OPTIONS I 0 C150FILE F 4 \C150.FRAMEBUFFER F 5 \C150DEFAULTDEVICE) ` ` o` @g ggUg@ bnn(@g T HI c KJ Kg Kg.Kk0kjhK`&Kg (jdHI  Kghh jK HK jK lK K K(310Q STARTPAGE.C150 304Q DSPBACKCOLOR 276Q DSPCOLOR 271Q DSPRIGHTMARGIN 264Q DSPLEFTMARGIN 257Q STREAMPROP 243Q CREATEREGION 221Q \GETSTREAM 124Q DSPCREATE 117Q CREATEC150BUFFER 104Q OPENSTREAM 60Q PACKFILENAME 40Q FILENAMEFIELD 30Q ERROR 15Q OPENP 5 STREAMP) (251Q COLORMAPCACHE 234Q \DISPLAYDATA 231Q \DISPLAYDATA 224Q STREAM 216Q OUTPUT 210Q \C150IMAGEOPS 205Q STREAM 167Q STREAM 161Q \DSPPRINTCHAR.C150 156Q STREAM 150Q \OUTCHARFN.C150 145Q STREAM 136Q STREAM 127Q \C150STREAM 101Q OUTPUT 54Q BODY 50Q HOST 43Q LPT 35Q HOST 25Q \C150STREAM 12Q \C150STREAM 2 \C150STREAM) ( 22Q "Sorry - you can only have one C150 stream open at one time") C150.RESET D1 (F 0 \C150STREAM) hcg (13Q CENTRONICS.RESET 10Q CLOSEF?) (5 {CENTRONICS}) () SEND.TO.C150 D1 (I 2 PRINTOPTIONS I 1 FILE I 0 HOST) Aggg@gg  (27Q COPYFILE 24Q PACKFILENAME) (20Q C150 15Q EXTENSION 11Q NAME 6 LPT 3 HOST) () STARTPAGE.C150 D1 (P 3 PAGEBUFFER P 2 FONTASCENT P 1 CREG P 0 DD I 0 C150STREAM) T@g (1H H Hh@ K @H @IIkJk (121Q \DSPYPOSITION.C150 76Q \DSPXPOSITION.C150 64Q BLTSHADE 60Q DSPBACKCOLOR 6 \GETSTREAM) (71Q \DISPLAYDATA 50Q \DISPLAYDATA 41Q FONTDESCRIPTOR 34Q \DISPLAYDATA 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \BITBLT.C150 D1 (L (15Q CLIPPEDSOURCEBOTTOM 14Q CLIPPEDSOURCELEFT 13Q CLIPPINGREGION 12Q TEXTURE 11Q OPERATION 10Q SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTSTRM 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 34Q \SYSPILOTBBT) @C(@I_I"I$I#_I%GQLG_dOONG_dOOOOG_dOO_MOG_dOOO_DdLLEdNNFDFdOO_GEGdMMDAZEB[GLJ_dOOdjjGNK_dOOdjjH@_ dkO lO O OJ_"dO"O"GF_$dO$O$_@MK_&dO&O&GG_(dO(O(]OLdNhGIbHdOOlLO_JLO_JGgGO bW8`W8`c8MNOLOMKLJ@MLO*O.O*O, GgO*@O6O4OO2O0O.O,GG O*@O6O4OO2O0O,GGG kGGgoG MNOLNKLJGGdg6@LNOO0O.O,O*I` I` O gGdggo i(1273Q ERROR 1261Q SHOULDNT 1231Q \BWTOCOLORBLT 1223Q COLORNUMBERP 1204Q COLORNUMBERP 1112Q ERROR 1054Q \BITBLTSUB 1021Q \BITBLT.MERGE 647Q COLORTEXTUREFROMCOLOR#) (1254Q ERASE 1247Q INVERT 1236Q PAINT 1220Q BLACKCOLOR 1210Q \DISPLAYDATA 1201Q WHITECOLOR 1171Q \DISPLAYDATA 1144Q REPLACE 1077Q INPUT 765Q MERGE 753Q PILOTBBT 741Q PILOTBBT 724Q BITMAP 707Q BITMAP 670Q PILOTBBTTYPE# 660Q PILOTBBTTYPE# 636Q MERGE 217Q BITMAP 64Q \DISPLAYDATA 53Q \DISPLAYDATA 44Q \DISPLAYDATA 35Q \DISPLAYDATA 25Q \DISPLAYDATA 11Q STREAM 3 BITMAP) ( 1270Q "not implemented to blt between bitmaps of different pixel size." 1105Q "SourceType not implemented from B&W to color bitmaps.") \BLTCHAR.C150 D1 (P 10Q CSINFO P 7 HEIGHTMOVED P 6 YPOS P 5 RIGHT P 4 LEFT P 3 NEWX P 2 CURX P 1 ROTATION P 0 CHAR8CODE I 2 C150DATA I 1 C150STREAM I 0 CHARCODE)  B>@B@ @lB IjB1JBH[Bl A BZBHػBKB"dJJ\B#dKK]dLB*[ jBdk#KLKMLKBHLJKjvfdl,KL\KMLKBHLJKjv6l.KL\KMLKBHLJKjvhBBHB (@ @B IdlZ3ANO OjBHABO kNO O O n2ANO OjBHABO AO O O o (637Q ERROR 627Q BKBITBLT 560Q \DSPYPOSITION.C150 541Q BKBITBLT 472Q \DSPYPOSITION.C150 447Q \CREATECHARSET 406Q SHOULDNT 74Q \DSPPRINTCR/LF.C150 14Q \CHANGECHARSET.C150) NIL ( 634Q "Not implemented to rotate by other than 0, 90 or 270") \BLTSHADE.C150 D1 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 STREAM 0 TEXTURE)) B A( BCH"H$H#H%GPIG_dOOKG_dOOLOgG_dOOJOG_dOOH^]BdIICdKKDBDdLLECEdJJLIJKh@dA 3 @Mi @Mlll@A bMIYML\@M b````JK__LIOO OhIhNINJOgFH@ i(476Q \BITBLTSUB 356Q COLORTEXTUREFROMCOLOR# 337Q \C150.ASSURE.COLOR 313Q COLORNUMBERP 277Q DSPBACKCOLOR) (463Q TEXTURE 452Q BITMAP 432Q PILOTBBT 417Q PILOTBBT 404Q \SYSPILOTBBT 400Q PILOTBBTTYPE# 374Q \SYSPILOTBBT 367Q PILOTBBTTYPE# 363Q \SYSPILOTBBT 202Q BITMAP 174Q \DISPLAYDATA 121Q WIDTH 43Q \DISPLAYDATA 34Q \DISPLAYDATA 25Q \DISPLAYDATA 16Q \DISPLAYDATA 3 STREAM) () \C150.CRLF D1 (I 0 STREAM) @l !@l !NIL NIL () \CHANGECHARSET.C150 D1 (P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) @*k@j@ (A9A@ 0@ @`@`@A "@I@I@I0@A>IHJn@'I @@I @I JJ@BлHKHKh(236Q \SFFixY 126Q \GETCOLORCSINFO 46Q \CREATECHARSET) (272Q PILOTBBT 261Q PILOTBBT 117Q BITMAP 112Q \DISPLAYDATA 106Q WHITECOLOR 76Q \DISPLAYDATA 72Q BLACKCOLOR 62Q \DISPLAYDATA 54Q \DISPLAYDATA 14Q BITMAP 7 \DISPLAYDATA) () \CHARWIDTH.C150 D1 (L (1 CHARCODE 0 C150STREAM)) @(ANIL NIL () \CLOSEFN.C150 D1 (P 0 DD I 0 C150STREAM F 1 \C150COLORTABLE F 2 C150COLORMAP) '@(H@QR c @ (44Q CLOSEF 33Q \DUMPPAGEBUFFER.C150 26Q COLORMAP.TO.C150TABLE) (37Q STREAM 14Q \DISPLAYDATA 3 STREAM) () \CREATEC150FONT D1 (P 2 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) k`dgd@dAdBdjdjdjdC@ABCghHdIni HdI(J(EEJi J(147Q \CREATECHARSET 113Q \ALLOCBLOCK) (64Q C150 7 C150 2 FONTDESCRIPTORTYPE#) () \READC150FONTFILEA0001 D1 (NAME ERRORSET F 0 STRM F 1 FAMILY F 2 SIZE F 3 RESETY F 4 FACE F 5 CSINFO) PQRT c ci(6 \READACFONTFILE) NIL () \READC150FONTFILE D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 STRM P 3 CSINFO P 2 FONTFILE P 1 EXT I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 10Q LISPXHIST F 11Q RESETVARSLST) W`AHdMdhH@ABIE i` Zg W!Wog hg_ OK(123Q ERROR! 114Q RESETRESTORE 101Q \READC150FONTFILEA0001 57Q OPENSTREAM 44Q FINDFILE 35Q \FONTFILENAME) (107Q ERROR 76Q INTERNAL 54Q INPUT 41Q C150FONTDIRECTORIES 2 C150FONTEXTENSIONS) ( 73Q (\READC150FONTFILEA0001)) \DRAWCIRCLE.C150 D1 (L (5 DASHING 4 BRUSH 3 RADIUS 2 CENTERY 1 CENTERX 0 DISPLAYSTREAM)) ,Cd3jC bC Cjh`1`jCkClH@(DlD#+O(A_NBhO&$_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_O&_6OBO"O _OB_8OB_@OB_ ,LMOO(OO@OtOxO" OhOOpO_^O4WO*NQOO0JO.OCOO6NOODOFO> -NOOO(OO@OtOxO" jOV~jOTO OH_HOLOJ_JOPkOR_ZON_NOPOR_PjOR_ROVOTjOPkk _VORll jOXjOTkk _XOZkk OT_TjOV$OHjjO _ jOL_LOPON_ZjON_NOZON_POZlOR_RjOVOZ_VOTOX_XOTOZOVk_T/(2731Q RSH 2712Q RSH 2675Q RSH 2656Q RSH 2544Q \BBTCURVEPT 2467Q \FBITMAPBIT 2374Q \BBTCURVEPT 2320Q \FBITMAPBIT 2150Q MOVETO 2001Q RSH 1770Q RSH 1743Q RSH 1673Q RSH 1642Q RSH 1555Q RSH 1526Q RSH 1450Q RSH 1442Q RSH 1413Q RSH 1330Q ABS 1323Q ABS 1310Q FIXR 1275Q FIXR 1262Q FIXR 1234Q FIXR 1216Q FIXR 1161Q FIXR 1155Q SQRT 1117Q FIXR 1042Q SHOULDNT 724Q SHOULDNT 520Q \GETBRUSHBBT 460Q \GETBRUSH 443Q \GETCOLORBRUSH 423Q DSPCOLOR 364Q DSPBACKCOLOR 344Q \GETCOLORBRUSH 125Q SIN 121Q COS 101Q \ILLEGAL.ARG 40Q MOVETO 17Q FIXR 13Q FIXR 7 FIXR 3 FIXR) (2160Q \\BRUSHBBT.GLOBALRESOURCE 732Q BITMAP 615Q INVERT 610Q INVERT 572Q BITMAP 554Q BITMAP 542Q BITMAP 530Q BITMAP 502Q BITMAP 470Q BITMAP 446Q BITMAP 430Q BLACK 377Q REPLACE 371Q WHITE 354Q ERASE 313Q BITMAP 303Q REPLACE 276Q ERASE 270Q ERASE 262Q INVERT 204Q \\BRUSHBBT.GLOBALRESOURCE 142Q STREAM 112Q PILOTBBTTYPE# 105Q \\BRUSHBBT.GLOBALRESOURCE) () \DRAWLINE.C150 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 C150STREAM) @(Ad3 Bd3 Cd3 Dd3 Ek3 E FH"gFdgdgdgF HH"H#kH$H%k@G@ CD@ (202Q MOVETO 173Q \CLIPANDDRAWLINE 167Q \C150.ASSURE.COLOR 135Q \ILLEGAL.ARG 65Q FIXR 50Q FIXR 40Q FIXR 30Q FIXR 20Q FIXR) (125Q ERASE 117Q INVERT 110Q PAINT 100Q REPLACE 3 STREAM) () \DSPBACKCOLOR.C150 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) () \DSPCLIPPINGREGION.C150 D1 (P 1 \INTERRUPTABLE P 0 DD I 1 REGION I 0 C150STREAM) L@g (H A4Al Ad3ihAo HA H H (110Q \SFFixY 103Q \SFFixClippingRegion 66Q ERROR 35Q EQLENGTH 6 \GETSTREAM) (16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) ( 63Q " is not a REGION.") \DSPCOLOR.C150 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) () \C150.ASSURE.COLOR D1 (P 0 LEVELS I 1 C150STREAM I 0 COLOR#) @d3 j@l@@@ l@ X o@ b@ l@b@ @ X8@ @X/@d`# kjJIK@JkhԻJkZKl HA @o (235Q ERROR 223Q \C150.LOOKUPRGB 214Q \ILLEGAL.ARG 153Q BITMAPWIDTH 132Q RGBP 123Q HLSTORGB 116Q HLSP 76Q LENGTH 63Q ERROR 50Q \LOOKUPCOLORNAME 35Q \ILLEGAL.ARG) (145Q BITMAPTYPE#) ( 232Q "not available in color map" 57Q "Unknown color name") \C150.LOOKUPRGB D1 (P 4 CM P 3 I P 1 INDEX P 0 CACHE I 1 C150STREAM I 0 RGB F 5 LEVELS) lAg @H Y$ll kj`KJhYd @IH ILKg U$LKg ULKg UKiKk[(130Q \GENERIC.COLORLEVEL 112Q \GENERIC.COLORLEVEL 75Q \GENERIC.COLORLEVEL 61Q PUTASSOC 30Q EXPT 16Q SASSOC 6 STREAMPROP) (125Q BLUE 107Q GREEN 72Q RED 36Q C150COLORMAP 3 COLORMAPCACHE) () \DSPFONT.C150 D1 (P 3 \INTERRUPTABLE P 2 OLDFONT P 1 XFONT P 0 DD I 1 FONT I 0 C150STREAM) E@(!H ZA2Agi H A YJHI HjI@H (101Q \SFFixFont 43Q FONTCOPY 32Q \COERCEFONTDESC) (66Q FONTDESCRIPTOR 26Q C150 14Q \DISPLAYDATA 3 STREAM) () \DSPLEFTMARGIN.C150 D1 (P 1 \INTERRUPTABLE P 0 DD I 1 XPOSITION I 0 C150STREAM) /@(HA AddmHA@  (53Q \ILLEGAL.ARG 46Q \SFFIXLINELENGTH) (3 STREAM) () \DSPLINEFEED.C150 D1 (P 0 DD I 1 DELTAY I 0 C150STREAM) @(HAAd3HA (34Q \ILLEGAL.ARG) (3 STREAM) () \DSPOPERATION.C150 D1 (P 3 \INTERRUPTABLE P 0 DD I 1 OPERATION I 0 C150STREAM) @g (!HAnAgAgAgAdgl HAH*H YAdgkglAglj QIJgAgjk @(72Q \LISPERROR 6 \GETSTREAM) (174Q ERASE 167Q INVERT 150Q INVERT 137Q PAINT 126Q ERASE 115Q \DISPLAYDATA 107Q \DISPLAYDATA 63Q ERASE 54Q INVERT 45Q REPLACE 36Q PAINT 25Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) () \DSPPRINTCHAR.C150 D1 (P 2 TABWIDTH P 1 SPACEWIDTH P 0 DD I 1 CHARCODE I 0 STREAM) @(Adl dl dl @ @jwl A@ nAl Cl @ IZHHJ ZH Hl @ @@JI'@@l AA@H jA@H kjh(224Q \BLTCHAR.C150 213Q \BLTCHAR.C150 142Q \DSPPRINTCR/LF.C150 127Q \DISPLAYSTREAMINCRXPOSITION 121Q IMOD 73Q CHARWIDTH 55Q \DSPPRINTCR/LF.C150 34Q \DSPPRINTCR/LF.C150) (176Q STREAM 172Q STREAM 153Q STREAM 147Q STREAM 107Q \DISPLAYDATA 41Q STREAM 3 STREAM) () \DSPPRINTCR/LF.C150 D1 (P 7 X P 6 CLIPREG P 5 FONT P 4 ROTATION P 3 Y P 2 AMOUNT/BELOW P 1 BTM P 0 DD I 1 DS I 0 CHARCODE) A(QHH \jrH @l 9H2[AkKALdlZNnNNk؆o HLdlZjHُnHo _A *@l H2[AkKHA HH[A h(272Q DSPYPOSITION 255Q DSPXPOSITION 217Q DSPXPOSITION 210Q ERROR 144Q \DSPYPOSITION.C150 141Q ERROR) (234Q \DISPLAYDATA 151Q \DISPLAYDATA 62Q \DISPLAYDATA 33Q FONTDESCRIPTOR 26Q \DISPLAYDATA 14Q \DISPLAYDATA 3 STREAM) ( 205Q "Only rotations supported are 0, 90 and 270" 136Q "Only rotations supported are 0, 90 and 270") \DSPRESET.C150 D1 (P 3 FONTASCENT P 2 FONT P 1 CREG P 0 DD I 0 C150STREAM) @g (1H YH Zd[Jdj @H @IIkKk HdlZ@IK @I /n"@IIkK @IIk o Hh@ I h(237Q \CLEARBM 233Q DSPBACKCOLOR 222Q ERROR 212Q \DSPYPOSITION.C150 172Q \DSPXPOSITION.C150 143Q \DSPYPOSITION.C150 133Q \DSPXPOSITION.C150 112Q \DSPYPOSITION.C150 66Q \DSPXPOSITION.C150 6 \GETSTREAM) (47Q FONTDESCRIPTOR 40Q FONTDESCRIPTOR 31Q \DISPLAYDATA 16Q \DISPLAYDATA 11Q STREAM 3 OUTPUT) ( 217Q "only supported rotations are 0, 90 and 270") \DSPRIGHTMARGIN.C150 D1 (P 2 \INTERRUPTABLE P 1 OLDRM P 0 DD I 1 XPOSITION I 0 C150STREAM) 4@(HYA#AddmIHA@  I(60Q \ILLEGAL.ARG 53Q \SFFIXLINELENGTH) (3 STREAM) () \DSPXPOSITION.C150 D1 (P 0 DD I 1 XPOSITION I 0 C150STREAM) )@(HAAd3HA@j (45Q \ILLEGAL.ARG) (14Q \DISPLAYDATA 3 STREAM) () \DSPYPOSITION.C150 D1 (P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 DISPLAYSTREAM) 3@(HA$Ad3HAHn>Hn' (57Q \ILLEGAL.ARG) (3 STREAM) () \DUMPPAGEBUFFER.C150 D1 (P 27Q I P 22Q XPOSITION P 20Q COLOR.ARRAY.BASE P 17Q COLOR P 15Q SUBSCAN P 13Q I P 11Q FIRSTLINE P 10Q BLANKLINES P 7 SCANLINE P 5 PrintingTimer P 4 PrintingTimeInSeconds P 3 LINEBYTES P 2 MAXY P 1 MAXX P 0 BACKINGSTREAM I 2 COLOR.TABLES I 1 C150STREAM I 0 BITMAP F 30Q C150.CLIPBUFFER) sA A @ k@ k@ lkl LH H jJji NO@BO Ok_O"h_W0O k_OH Ok԰j_lj OOMg MlMl LljOOsBO(_ HOKO IjO$O"HHljdO(O&+O*O @O$O(OOhlO( _*O(k_(O*!O$l_$Ok_Ok_VH Om_W0OkO.O,H O.k_.h(546Q \C150.MICROLINEFEED 506Q \C150.MICROLINEFEED 424Q LLSH 333Q \C150.SENDLINEINFO 266Q \DAYTIME0 247Q BLOCK 242Q TIMEREXPIRED? 200Q \C150.MICROLINEFEED 141Q BLOCK 126Q \C150.ALLWHITESPACE 100Q C150.SEPARATOR 74Q C150.SETMARGINS 63Q \DAYTIME0 42Q BITMAPWIDTH 31Q BITMAPHEIGHT 20Q BITMAPWIDTH 3 CENTRONICS.RESET) (315Q ARRAYP 237Q SECONDS 7 STREAM) () \FILLCIRCLE.C150 D1 (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 C150STREAM) aCd3jC bC `*`a@(jCkClHO%k_O$_O"_O#k_O_ O_"_4D`DO4kDd@ Y`IDO6Z`JD3 DO6b}ll _,_2Dl[dKdO2Dl\dLdO2Dl]dMdO2Dl^dNdO,h _,_2O"_$O"_&Oj OO&nOjOk 0OO,dll_0kOO,dll_.kÿOk OO dgkglO glj QOO gjk @Ok A_(B_*O"O*_*O"OkO"Ok__CjOO(O*O(O$O&OOOOO0O.O2O4 lOk_OjOOOk_OOOl؇OOl_Oj7OO(OO*O(OO$O&OOOOO0O.O2O4 AB@ hHOO(OO*OO(OO$O&OOOOO0O.O2O4 OO(OO*OO(OO$O&OOOOO0O.O2O4 Ok_jO:Ok_OdOkOOlرA(1457Q \LINEBLT 1405Q \LINEBLT 1324Q MOVETO 1315Q \LINEBLT 1150Q \LINEBLT 516Q \ILLEGAL.ARG 327Q BITMAPCREATE 232Q COLORTEXTUREFROMCOLOR# 227Q COLORNUMBERP 224Q DSPCOLOR 22Q \ILLEGAL.ARG 12Q FIXR) (1332Q \\BRUSHBBT.GLOBALRESOURCE 1064Q BITMAP 1050Q BITMAP 1033Q BITMAP 1012Q PILOTBBT 774Q ERASE 753Q INVERT 741Q PAINT 730Q ERASE 667Q BITMAP 636Q BITMAP 614Q PILOTBBT 572Q PILOTBBT 561Q PILOTBBT 547Q BITMAP 535Q BITMAP 523Q BITMAP 507Q \\BRUSHBBT.GLOBALRESOURCE 334Q BITMAP 264Q BITMAPTYPE# 237Q BITMAPTYPE# 176Q BITMAPTYPE# 164Q BITMAP 155Q \DISPLAYDATA 132Q \DISPLAYDATA 120Q \DISPLAYDATA 106Q \DISPLAYDATA 72Q \DISPLAYDATA 47Q STREAM 37Q PILOTBBTTYPE# 26Q \\BRUSHBBT.GLOBALRESOURCE) () \OUTCHARFN.C150 D1 (I 1 CHARCODE I 0 C150STREAM) <Adl @ @jjl @d @ Al @j@ @A!(65Q NEWPAGE.C150 44Q \DSPXPOSITION.C150 40Q NEWLINE.C150 34Q \DSPXPOSITION.C150 12Q NEWLINE.C150) (56Q STREAM 16Q STREAM) () \SEARCHC150FONTFILES D1 (P 7 FONTFILE P 6 DIR P 4 THISFONT P 3 FONTSFOUND P 2 FILENAMEPATTERN P 1 E I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) f`AHKHhHH@ABI `MMhMMgNgJ dOg \K LK(130Q MEMBER 123Q \FONTINFOFROMFILENAME 104Q DIRECTORY 101Q PACKFILENAME 35Q \FONTFILENAME) (120Q DISPLAY 75Q BODY 71Q DIRECTORY 41Q DISPLAYFONTDIRECTORIES 2 DISPLAYFONTEXTENSIONS) () \STRINGWIDTH.C150 D1 (P 0 WIDTHSBASE I 2 RDTBL I 1 STR I 0 C150STREAM) A@(XBH (20Q \STRINGWIDTH.GENERIC) NIL () COLORMAP.TO.C150TABLE D1 (P 5 MAGENTATABLE P 4 CYANTABLE P 3 BLACKTABLE P 2 TABLETABLE P 0 SIZE I 0 COLORMAP) @ lghj Hgjd Hgjd Hgjd Hgjd Hkj2 ONjLOk@O(l*_MOk@O(l*_IOk@O(l*_Ok&Ok OkLOj*MOj*IOj*KOk*Ok_JjK*JkM*JlI*JlL*J(100Q ARRAY 64Q ARRAY 50Q ARRAY 34Q ARRAY 20Q ARRAY 3 ARRAYSIZE) (73Q SMALLP 57Q SMALLP 43Q SMALLP 27Q SMALLP 13Q POINTER) () (PRETTYCOMPRINT C150STREAMCOMS) (RPAQQ C150STREAMCOMS ((CONSTANTS \C150PointsPerInch \C150RealBPP) (FNS C150.SEPARATOR C150.SETMARGINS \C150.ALLWHITESPACE \C150.BUFFER.DOT \C150.MICROLINEFEED \C150.SENDLINE \C150.SENDLINEINFO \C150INIT \CREATECHARSET.C150) (FNS CREATEC150BUFFER NEWLINE.C150 NEWPAGE.C150 OPENC150STREAM C150.RESET SEND.TO.C150 STARTPAGE.C150 \BITBLT.C150 \BLTCHAR.C150 \BLTSHADE.C150 \C150.CRLF \CHANGECHARSET.C150 \CHARWIDTH.C150 \CLOSEFN.C150 \CREATEC150FONT \READC150FONTFILE \DRAWCIRCLE.C150 \DRAWCURVE.C150 \DRAWELLIPSE.C150 \DRAWLINE.C150 \DSPBACKCOLOR.C150 \DSPCLIPPINGREGION.C150 \DSPCOLOR.C150 \C150.ASSURE.COLOR \C150.LOOKUPRGB \DSPFONT.C150 \DSPLEFTMARGIN.C150 \DSPLINEFEED.C150 \DSPOPERATION.C150 \DSPPRINTCHAR.C150 \DSPPRINTCR/LF.C150 \DSPRESET.C150 \DSPRIGHTMARGIN.C150 \DSPXPOSITION.C150 \DSPYPOSITION.C150 \DUMPPAGEBUFFER.C150 \FILLCIRCLE.C150 \OUTCHARFN.C150 \SEARCHC150FONTFILES \STRINGWIDTH.C150) (VARS MISSINGC150FONTCOERCIONS (\C150COLORTABLE) ( \C150.FRAMEBUFFER) (\C150STREAM) C150COLORMAP C150FONTCOERCIONS C150FONTDIRECTORIES C150FONTEXTENSIONS ) (INITVARS (C150.CLIPBUFFER T) (\C150DEFAULTDEVICE (QUOTE CENTRONICS))) (FNS COLORMAP.TO.C150TABLE) ( FILES COLOR XXGEOM XXFILL) (P (IF (NOT (GETD (QUOTE POLYSHADE.BLT))) THEN (* A fix for KOTO, which is not necessary in n>) (MOVD (QUOTE POLYSHADE.DISPLAY) (QUOTE POLYSHADE.BLT)))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\C150INIT)) (FILES CENTRONICS)) (DECLARE: EVAL@LOAD DONTCOPY (FILES (LOADFROM ) ADISPLAY LLDISPLAY)) (MACROS \C150BackingStream))) (RPAQQ \C150PointsPerInch 120) (RPAQQ \C150RealBPP 4) (CONSTANTS \C150PointsPerInch \C150RealBPP) (RPAQQ MISSINGC150FONTCOERCIONS (((GACHA) (MODERN)) ((TIMESROMAN) (MODERN)) ((HELVETICA) (MODERN)))) (RPAQQ \C150COLORTABLE NIL) (RPAQQ \C150.FRAMEBUFFER NIL) (RPAQQ \C150STREAM NIL) (RPAQ C150COLORMAP (READARRAY 16 (QUOTE POINTER) 0)) ((0 0 0) (0 0 255) (0 255 0) (255 0 0) (255 255 0) (255 0 255) (0 255 255) (255 255 255) (0 0 0) (0 0 255) (0 255 0) (255 0 0) (255 255 0) (255 0 255) (0 255 255) (255 255 255) NIL) (RPAQQ C150FONTCOERCIONS NIL) (RPAQQ C150FONTDIRECTORIES NIL) (RPAQQ C150FONTEXTENSIONS (C150FONT)) (RPAQ? C150.CLIPBUFFER T) (RPAQ? \C150DEFAULTDEVICE (QUOTE CENTRONICS)) (FILESLOAD COLOR XXGEOM XXFILL) (IF (NOT (GETD (QUOTE POLYSHADE.BLT))) THEN (* A fix for KOTO, which is not necessary in n>) (MOVD (QUOTE POLYSHADE.DISPLAY) (QUOTE POLYSHADE.BLT))) (\C150INIT) (FILESLOAD CENTRONICS) (DEFMACRO \C150BackingStream (C150STREAM) (BQUOTE (fetch (STREAM F1) of , C150STREAM))) (PUTPROPS C150STREAM COPYRIGHT ("Xerox Corporation" 1985)) NIL