(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 5-Mar-87 17:54:50" ("compiled on " {DSK}LYRIC>4045XLPSTREAM.;1) "21-Jan-87 21:13:09" tcompl'd in "Xerox Lisp 18-Feb-87 ..." dated "18-Feb-87 20:00:06") (FILECREATED " 5-Mar-87 16:36:48" {DSK}LYRIC>4045XLPSTREAM.;1 135338 changes to%: (FNS \4045XLPINIT \DRAWPOINT.4045XLP \DRAWARC.4045XLP 4045XLPPRINT 4045XLP.HELP.GET.PORT 4045XLP.INIT.RS232 4045XLP.INIT.TTY 4045XLP.INIT.CENTRONICS) (VARS 4045XLPSTREAMCOMS) previous date%: "22-Jan-87 11:25:46" {DANTE}4045>LYRIC>4045XLPSTREAM.;2) \4045XLPINITA0021 :D4 NIL oNIL NIL ( 3 4.1666665) \4045XLPINITA0033 :D4 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) 5Bdgð˜¿A lÖgð—A lÖBµA lÖA lÖ (50 \ILLEGAL.ARG 42 BITMAPHEIGHT 35 BITMAPWIDTH 24 BITMAPHEIGHT 11 BITMAPWIDTH) (18 HEIGHT 4 WIDTH) () \4045XLPINITA0062 :D4 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @NIL NIL () \4045XLPINITA0069 :D4 (L (2 FDEV 1 RECOG 0 NAME)) @NIL NIL () \4045XLPINITA0071 :D4 (L (0 NAME)) @NIL NIL () \4045XLPINIT :D4 (F 2 DEFAULTFONT F 3 BOLDFONT F 4 LITTLEFONT F 5 ITALICFONT F 6 TINYFONT F 7 BIGFONT F 8 COMMENTFONT F 9 TEXTFONT) U`dg¿dg¿dg¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dgL¿dgX¿dg¿dg¿dg¿dg@¿dgB¿dg¿dg¿dg ¿dg"¿dg$¿dg(¿dg&¿dg,¿dg¿dg*¿dg2¿dg4¿dgD¿dg<¿dg:¿dgV¿dgT¿dgR¿dgP¿dgN¿dgJ¿dgH¿dgF¿dg>¿dg8¿dg6¿dg0¿dg.¿`gghHdI¿djÏ¿djÏ¿djÏ0¿dg¿dg¿dgB¿dg¿dg\¿dgD¿dg¿dg`¿dg^¿dg¿dg¿dg¿dg ¿dg¿dg*¿dg,¿dg.¿dgR¿dg<¿dg>¿dgP¿dgN¿dgL¿dgF¿dg@¿dg:¿dg8¿dg6¿dg4¿dg2¿dg0¿dg(¿dg¿dg¿dg¿dg¿o`RgoSgoUgoVgoWgoWgoWgoTgo`³Agggn Œghg`ghghghghh¿¿`³;hln HdI¿dlPÍ¿dnøÍ¿dnrÍ¿dkÍ¿hdh(805 \ALLOCPAGEBLOCK 796 CREATE.MONITORLOCK 786 4045XLP.HELP.GET.PORT 719 SETFONTCLASSCOMPONENT 708 SETFONTCLASSCOMPONENT 696 SETFONTCLASSCOMPONENT 684 SETFONTCLASSCOMPONENT 672 SETFONTCLASSCOMPONENT 661 SETFONTCLASSCOMPONENT 650 SETFONTCLASSCOMPONENT 639 SETFONTCLASSCOMPONENT) (849 \4045XLP.BITMAPREC 790 \4045XLP.BITMAPREC 782 4045XLP.DEFAULTS 768 LANDSCAPE 763 WINDOWTITLE 758 PRINTHEADER 753 PRINTERRORS 749 PROMPTWINDOW 746 MESSAGESTREAM 741 SLUG 734 LANGUAGE 730 {RS232} 727 PORT 722 4045XLP.DEFAULTS 712 4045XLP 701 4045XLP 689 4045XLP 677 4045XLP 665 4045XLP 654 4045XLP 643 4045XLP 632 4045XLP 628 IMAGESTREAMTYPES 624 IMAGESTREAMTYPES 617 4045XLPFDEV 611 \GENERIC.RENAMEFILE 604 NILL 597 NILL 590 NILL 583 NILL 576 \GENERIC.READCHAR 569 \GENERIC.WRITECHAR 562 \GENERIC.PEEKCHAR 555 \GENERIC.UNREADCHAR 548 \GENERIC.READP 541 \ILLEGAL.DEVICEOP 534 NILL 527 \GENERIC.CHARSET 520 \ILLEGAL.DEVICEOP 513 \IS.NOT.RANDACCESSP 506 \IS.NOT.RANDACCESSP 499 \NONPAGEDBOUTS 492 \ILLEGAL.DEVICEOP 485 \PAGEDBACKFILEPTR 478 \ILLEGAL.DEVICEOP 471 4045.OUTCHARFN 464 \ILLEGAL.DEVICEOP 457 NILL 450 NILL 443 NILL 436 \4045XLPINITA0071 429 \4045XLPINITA0069 422 \ILLEGAL.DEVICEOP 415 NILL 408 \GENERATENOFILES 401 NILL 394 \ILLEGAL.DEVICEOP 387 \4045XLPINITA0062 380 NILL 373 NILL 366 NILL 331 PRINTER 328 4045XLP 324 |FDEVTYPE#| 321 \4045XLPIMAGEOPS 315 NILL 308 NILL 301 NILL 294 NILL 287 NILL 280 NILL 273 NILL 266 NILL 259 NILL 252 NILL 245 NILL 238 NILL 231 NILL 224 \4045XLPINITA0033 217 \DSPCLIPPINGREGION.4045XLP 210 \SCALEDBITBLT.4045XLP 203 \CHARWIDTH.4045XLP 196 \STRINGWIDTH.4045XLP 189 \DSPSPACEFACTOR.4045XLP 182 NEWPAGE.4045XLP 175 4045XLP 168 \DSPTOPMARGIN.4045XLP 161 \DSPBOTTOMMARGIN.4045XLP 154 NEWLINE.4045XLP 147 \4045XLPINITA0021 140 \MOVETO.4045XLP 133 \BITBLT.4045XLP 126 \BLTSHADE.4045XLP 119 \FILLPOLYGON.4045XLP 112 \DRAWPOLYGON.4045XLP 105 \DRAWELLIPSE.4045XLP 98 \FILLCIRCLE.4045XLP 91 \DRAWCIRCLE.4045XLP 84 \DRAWPOINT.4045XLP 77 \DRAWARC.4045XLP 70 \DRAWCURVE.4045XLP 63 \DRAWLINE.4045XLP 56 \DSPLINEFEED.4045XLP 49 \DSPRIGHTMARGIN.4045XLP 42 \DSPLEFTMARGIN.4045XLP 35 \DSPFONT.4045 28 \DSPYPOSITION.4045XLP 21 \DSPXPOSITION.4045XLP 14 \CLOSE4045XLPSTREAM 7 4045XLP 2 |IMAGEOPSTYPE#|) ( 716 (TITAN 8 BRR) 705 (TITAN 10 MRR) 693 (TITAN 8 BRR) 681 (TITAN 12 BRR) 669 (TITAN 6 BRR) 658 (TITAN 10 BRR) 647 (TITAN 10 BRR) 636 (TITAN 10 MRR) 621 (4045XLP (OPENSTREAM OPEN4045XLPSTREAM) (FONTCREATE \CREATE4045FONT) (FONTSAVAILABLE \SEARCH4045FONTS) (CREATECHARSET \CREATECHARSET.4045))) OPEN4045XLPSTREAM :D4 (P 6 4045XLPSTREAM P 5 4045XLPDEFAULTFONT P 0 LandscapeP I 1 OPTIONS I 0 4045XLPFILE) uAg'³Ag'©g`´i€hAHšgl glZˆgl gjg ld` ¿dkÏ0¿dg(¿d`.¿H ¹dI0¿@ghoºdJ¿dh¿H’l–ls»dKÍ¿`¼dLÍ4¿dh2¿dg*¿dg&¿dg$¿dj¿dj¿djÏQ¿dkÏ@¿djÍ¿dlÏ¿dh¿djÏR¿dg ¿NNÉ NÉ gN jN NAg'ið²Ag'µ@ o@g „Ag'NgAg'µ g`n ŒðNHN H˜Nd ¿MN MÈN N N N(369 \MEDIUMMODE.4045XLP 365 BEGINPAGE.4045XLP 361 DSPLINEFEED 351 DSPFONT 345 Landscape.4045XLP 342 4045XLPIn2700ModeP 335 FixMargins.4045XLP 332 4045XLPIn2700ModeP 326 STREAMPROP 292 CONCAT 289 GETFILEINFO 278 FULLNAME 257 4045XLPPageNumber 252 4045XLP.Error 245 SendFileHeading.4045XLP 237 FULLNAME 223 \SETACCESS 112 OPENSTREAM 94 CreateImageData.4045XLP 57 FONTCREATE) (355 FONTDESCRIPTOR 317 4045XLP.DEFAULTS 314 LANGUAGE 308 MODE 304 2700MODE 297 HEADING 286 CREATIONDATE 271 DOCUMENT.NAME 262 HEADING 248 CLEAR 231 STREAM 220 OUTPUT 168 \STREAM.NOT.OPEN 161 \STREAM.NOT.OPEN 154 \EOSERROR 139 \STREAM.DEFAULT.MAXBUFFERS 104 OUTPUT 87 \4045XLPIMAGEOPS 80 4045.OUTCHARFN 67 4045XLPFDEV 53 4045XLP 49 MRR 44 TITAN 38 MRR 33 TITAN 18 4045XLP.DEFAULTS 15 LANDSCAPE 10 LANDSCAPE 3 PORTRAIT) ( 282 " " 109 ((TYPE BINARY))) \CLOSE4045XLPSTREAM :D4 (I 0 4045XLPSTREAM) *@ g`™@ ”@ ¿o@É @É @(38 CLOSEF 32 \SEND4045XLPCOMMAND 21 ENDPAGE.4045XLP 16 4045XLP.PRINT.ERRORPAGE 3 ENDPAGE.4045XLP) (9 4045XLP.DEFAULTS 6 PRINTERRORS) ( 26 "+X") 4045.OUTCHARFN :D4 (P 1 NSCODE P 0 4045XLPDATA I 1 CHARCODE I 0 4045XLPSTREAM) R@É0AµHÉAÐÈYddlð™hlÿñ²íA°ñl ð”@ Idl ðž¿@d @ ¿ lð”@ I@H(79 4045.OUTCHARFN1 72 NEWPAGE.4045XLP 63 \DSPXPOSITION.4045XLP 59 NEWLINE.4045XLP 55 \DSPXPOSITION.4045XLP 42 NEWLINE.4045XLP) NIL () 4045.OUTCHARFN1 :D4 (P 5 TRANSCODE P 4 YPOS P 3 NEWXPOS P 2 CLIPPINGREGION P 1 SLUG P 0 BACKINGSTREAM I 2 4045XLPDATA I 1 4045XLPSTREAM I 0 NSCODE) ÒAÉg`3BÉ S@ãBÉð¦B@ã ¿BÉ@lÿåÐÈ]dlÿð²g`•@A ¿I‘I½BBÉMlÿål ð“BÉ‰BÉMlÿåÐÈÔ^¿N[dBÈñ”A ¿BÉ\KJJkÙØýñ´IKJñ´CdJJkÙØýñ´3dJñ´,AdÈkØÍMã_jð³O•O ¦HMã ¿HMlÿå (207 BOUT 198 BOUT 191 \FZEROP 117 NEWLINE.4045XLP 63 4045XLP.Error 31 \CHANGECHARSET.4045XLP) (76 4045XLPDATA 72 4045XLPDATA 55 4045XLP.DEFAULTS 52 PRINTERRORS 8 4045XLP.DEFAULTS 5 SLUG) () \CREATE4045FONT :D4 (P 1 FD P 0 CSINFO I 4 DEVICE I 3 ROTATION I 2 FONTFACE I 1 SIZE I 0 FAMILY) JÀClZð¨Cnð¢±•`dD¿d@¿dA¿dB¿B ºdJÏ¿dCÍ¿`É»dK ¿do"¿dlÍ¿dlÍ¿dlÍ¿dl'Í¿dlÍ¿ni ¼dL(¿¹`dlÍ ¿dlÍ¿oÉ½dM¿l ¾dN¿¸±¡`dl(Í ¿dl Í¿oÉ_¿dO¿l _¿dO¿¸`dD¿d@¿dA¿dB¿B _¿dOÏ¿dCÍ¿`É_¿dO ¿do"¿dl Í¿dl Í¿dlÍ¿dl2Í¿dl(Í¿ni _¿dO(¿¹IÉ(HI(310 \ALLOCBLOCK 236 \FACECODE 198 \ALLOCBLOCK 152 \ALLOCBLOCK 112 \ALLOCBLOCK 44 \FACECODE) (254 \ASCIITONS 211 |FONTDESCRIPTORTYPE#| 165 |CHARSETINFOTYPE#| 122 |CHARSETINFOTYPE#| 59 \ASCIITONS 19 |FONTDESCRIPTORTYPE#|) ( 270 4.1666665 182 (ARRAY 256 (QUOTE WORD) 30 0) 139 (ARRAY 256 (QUOTE WORD) 22 0) 72 4.1666665) \CREATECHARSET.4045 :D4 (P 0 CSINFO I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY) ]@ClZð¦Cnð²*`oÉ¹dI¿dlÍ ¿dlÍ¿l ºdJ¿`oÉ»dK¿dl(Í ¿dl Í¿l H(87 \ALLOCBLOCK 47 \ALLOCBLOCK) (57 |CHARSETINFOTYPE#| 17 |CHARSETINFOTYPE#|) ( 62 (ARRAY 256 (QUOTE WORD) 30 0) 22 (ARRAY 256 (QUOTE WORD) 22 0)) \SEARCH4045FONTS :D4 (P 6 FONTFILE P 4 THISFONT P 3 FONTSFOUND P 2 DIR P 0 FILENAMEPATTERN I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY) r@AB`2IµK£Iºh„IºI¹gJgH Mµ°Ù^D ¼@gð¥@Lð²&Agð¦ALð²Bgð¦BLô™LK £LK»M]°À(102 MEMBER 58 \FONTINFOFROMFILENAME 42 DIRECTORY 39 PACKFILENAME 5 \FONTFILENAME) (88 * 75 * 63 * 35 BODY 31 DIRECTORY 8 DISPLAYFONTDIRECTORIES) () \CHANGECHARSET.4045XLP :D4 (L (1 CHARSET 0 4045XLPDATA)) PAdjð•¿`°6l!ð”`°-Adl&ð•¿`°!lîð”`°Adlïð”¿`Šlñð“`‚`X@HÉ@AhNIL (65 \NSTO4045NULL 61 \NSTO4045C361 53 \NSTO4045C357 41 \NSTO4045C356 32 \NSTO4045C46 20 \NSTO4045C41 11 \NSTO4045C0) () \DSPXPOSITION.4045XLP :D4 (I 1 XPOSITION I 0 4045XLPSTREAM) @É0ÉAš@A@É0É¿(16 SETXY.4045XLP) NIL () \DSPYPOSITION.4045XLP :D4 (I 1 YPOSITION I 0 4045XLPSTREAM) @É0ÉAš@dÉ0ÉA¿(16 SETXY.4045XLP) NIL () \DSPBOTTOMMARGIN.4045XLP :D4 (L (1 YPOSITION 0 4045XLPSTREAM)) @É0ÈA–@É0AÍ¿NIL NIL () \DSPTOPMARGIN.4045XLP :D4 (L (1 YPOSITION 0 4045XLPSTREAM)) @É0ÈA–@É0AÍ¿NIL NIL () \DSPLEFTMARGIN.4045XLP :D4 (I 1 XPOSITION I 0 4045XLPSTREAM) @É0ÈA›@É0AÍ¿@ ¿(17 \FIXLINELENGTH.4045XLP) NIL () \DSPRIGHTMARGIN.4045XLP :D4 (I 1 XPOSITION I 0 4045XLPSTREAM) @É0ÈA›@É0AÍ¿@ ¿(17 \FIXLINELENGTH.4045XLP) NIL () \DSPCLIPPINGREGION.4045XLP :D4 (L (1 REGION 0 4045XLPSTREAM) P 1 \INTERRUPTABLE) @É0HÉ A—HA NIL NIL () \DSPSPACEFACTOR.4045XLP :D4 (P 0 4045XLPDATA I 1 FACTOR I 0 4045XLPSTREAM) !@É0HÉA²HAHÉÈ Ö ¿HA¿(22 FIXR) NIL () \DSPLINEFEED.4045XLP :D4 (P 0 4045XLPDATA I 1 DELTAY I 0 4045XLPSTREAM) @É0HÈAŸAd3–¿HAÍ¿ ¿(25 \ILLEGAL.ARG) NIL () \DSPFONT.4045 :D4 (P 2 OLDFONT P 1 Landscape P 0 4045XLPDATA I 1 FONT I 0 4045XLPSTREAM) É@É0@ÉHÉZA¢±¸dAg µJA bð’±¡I²"Ag dlZð¥dnð’¿i¿h³AglZŽAg jðªAgjb¿HAHI”oƒoÉHdÉHÉÈ Ö H`ÉH` Ag gð²Jg gð³@ Jg gð”@ ¿@ J(197 \FIXLINELENGTH.4045XLP 192 \MEDIUMMODE.4045XLP 183 FONTPROP 175 \BOLDMODE.4045XLP 165 FONTPROP 152 FONTPROP 145 \CHANGECHARSET.4045XLP 128 FIXR 92 FONTCOPY 81 FONTPROP 49 FONTPROP 32 FONTCOPY 25 \COERCEFONTDESC) (186 BOLD 180 WEIGHT 168 BOLD 162 WEIGHT 155 BOLD 149 WEIGHT 142 \DEFAULTCHARSET 134 \ASCIITONS 88 ROTATION 78 ROTATION 71 ROTATION 46 ROTATION 22 4045XLP) ( 111 (ARRAY 256 (QUOTE WORD) 30 0) 106 (ARRAY 256 (QUOTE WORD) 22 0)) BEGINPAGE.4045XLP :D4 (P 1 PageNum P 0 4045XLPDATA I 0 4045XLPSTREAM) 0@É0h@ kØ@ @jÍ@I @HÈHÈHÉÈÕh(44 SETXY.4045XLP 25 4045XLP.Print.Heading 13 4045XLPPageNumber 7 4045XLPPageNumber) (38 FONTDESCRIPTOR) () ENDPAGE.4045XLP :D4 (P 1 4045XLPBITMAP P 0 4045XLPDATA I 0 4045XLPSTREAM) @@É0`¹HÊjð³o ¿Ijd@jdl ¿H ¿@Él @Éi (61 FORCEOUTPUT 54 BOUT 45 4045XLP.RELEASE.BITMAP 40 \ScaledBltBigBitmap.4045XLP 27 4045XLP.PROMPT) (8 \4045XLP.BITMAPREC) ( 24 "Formatting the drawing ...") NEWPAGE.4045XLP :D4 (I 0 4045XLPSTREAM) @ @ (7 BEGINPAGE.4045XLP 3 ENDPAGE.4045XLP) NIL () NEWLINE.4045XLP :D4 (P 1 NEWYPOS P 0 4045XLPDATA I 0 4045XLPSTREAM) *@É0HÉHÈÙYdHÈýñ”@ ‡@HÈI¿@jÍj(33 SETXY.4045XLP 24 NEWPAGE.4045XLP) NIL () SETXY.4045XLP :D4 (I 2 Y I 1 X I 0 4045XLPSTREAM) p@É0A@É0B@ ²/@É²on öBl'ØÙoA °9oA oB °'@ÉŸoA on öŽoA onäBÙ@É h(108 \SEND4045XLPCOMMAND 102 CONCAT 90 FIXR 74 FIXR 60 FIXR 52 FIXR 42 FIXR 15 4045XLPIn2700ModeP) NIL ( 94 "," 86 "p" 78 "," 70 "p" 56 "," 48 "a" 38 "," 26 "a") \MOVETO.4045XLP :D4 (I 2 Y I 1 X I 0 4045XLPSTREAM) @AB(5 SETXY.4045XLP) NIL () \BOLDMODE.4045XLP :D4 (I 0 4045XLPSTREAM) @ ”oƒo@Éi(20 \SEND4045XLPCOMMAND 3 4045XLPIn2700ModeP) NIL ( 13 "W" 8 "b") \MEDIUMMODE.4045XLP :D4 (I 0 4045XLPSTREAM) @ ”oƒo@Éi(20 \SEND4045XLPCOMMAND 3 4045XLPIn2700ModeP) NIL ( 13 "&" 8 "p") \FIXLINELENGTH.4045XLP :D4 (L (0 4045XLPSTREAM)) "@É0!@HÈHÈÙHÉÈ$ÛYkñ‘Il ZÍJNIL NIL () \CHARWIDTH.4045XLP :D4 (I 1 CHARCODE I 0 4045XLPSTREAM) 0Al ð•@É0É@É0ÉHÉ(AãàÐÉµ AãHhÉAlÿåÐÈ(36 \CREATECHARSET) NIL () \STRINGWIDTH.4045XLP :D4 (I 2 RDTBL I 1 STRING I 0 4045XLPSTREAM) A@É0ÉB@É0É(14 \STRINGWIDTH.GENERIC) NIL () CreateImageData.4045XLP :D4 (I 0 LANDSCAPE) |@²>`dn `Í¿dnNÍ¿do ¿dk¿dj¿dj¿dl3Í¿dl–Í¿dldÍ¿`dn¸Í¿dn `Í¿do ¿dk¿dj¿dj¿dl3Í¿dl–Í¿dldÍ¿NIL (65 |4045XLPDATATYPE#| 5 |4045XLPDATATYPE#|) ( 85 (0 0 2550 3300) 25 (0 0 3300 2550)) FixMargins.4045XLP :D4 (I 2 2700ModeP I 1 LandscapeP I 0 4045XLPSTREAM) NB´KA²!on öojojojonä°onäojojojon ö @É (75 \SEND4045XLPCOMMAND 69 CONCAT) NIL ( 62 "," 57 "," 52 "," 47 "," 40 "m" 31 "," 26 "," 21 "," 16 "," 9 "m") 4045XLP.Error :D4 (I 1 4045XLPSTREAM I 0 ERRCODE) 3@dgð–¿Ahh¦AÉAdÉhA @h HII(40 \APPEND2 33 4045XLPPageNumber) (26 STREAM 18 STREAM 4 CLEAR) () 4045XLPPageNumber :D4 (I 1 4045XLPSTREAM I 0 Number) @•A@@AÉNIL (11 STREAM) () 4045XLPIn2700ModeP :D4 (I 0 4045XLPSTREAM) @g (6 STREAMPROP) (3 2700MODE) () \SEND4045XLPCOMMAND :D4 (P 1 C I 2 NOCR I 1 BACKINGSTREAM I 0 STRING) kAl @QHdÊjð£ ÈkÙ»HdÊjð£ É¼KHÈØºHdÊjð£ ‚Ê‡lDð]¿KkØ[Jñ³M•LKÐÈ‚LKÂ¹AI °æBµAl (104 BOUT 92 BOUT 58 %%ARRAY-TYPE-NUMBER 37 %%ARRAY-BASE 20 %%ARRAY-OFFSET 5 BOUT) NIL () MakePosition.4045XLP :D4 (P 1 YPOS P 0 XPOS I 3 LANDSCAPE I 2 2700MODE I 1 TOP I 0 LEFT) ,B—C•n öAÙ€@B•C‘@ŒAŠC“n ö‚näAÙHoI(41 CONCAT) NIL ( 37 ",") 4045XLP.SCALEBRUSH :D4 (L (0 BRUSH)) M@µg@dlñ²7kÙlÛdlñ³(¿l°#@dlñŸkÙlÛdlñ«¿l‡lð’l€khlð²øl°õNIL (6 ROUND) () Landscape.4045XLP :D4 (P 0 BACKINGSTREAM I 1 2700MODE? I 0 4045XLPSTREAM) +@ÉoH A”oƒoHi¿Hi @ii(35 FORCEOUTPUT 29 \SEND4045XLPCOMMAND 13 \SEND4045XLPCOMMAND) NIL ( 24 "F9" 19 "9" 9 "+9XCP14iso-L") SendFileHeading.4045XLP :D4 (P 1 CH I 0 BACKINGSTREAM) _oQHdÊjð£ ÈkÙ»HdÊjð£ É¼KHÈØºHdÊjð£ ‚Ê‡lDð]¿KkØ[Jñ³M•LKÐÈ‚LKÂ¹@I °æh(89 BOUT 55 %%ARRAY-TYPE-NUMBER 34 %%ARRAY-BASE 17 %%ARRAY-OFFSET) NIL ( 3 "+P% +P% +X% ") 4045XLP.Print.Heading :D4 (I 1 PAGENUM I 0 4045XLPSTREAM) 4@É´/l–@É“n ’‚nN@@É@ o@ A@ @ @ (49 TERPRI 45 TERPRI 41 PRIN1 36 PRIN1 28 PRIN1 21 MOVETO) NIL ( 32 " Page: ") 4045XLP.EncodedSixelofBitmap :D4 (P 2 StartOfSixelRun P 1 SixelsRemaining P 0 WordsToSkip I 1 Sixel# I 0 BASEPTR) „AlÛlÚ!AlÜ¹@HÐºIdjð–¿JÊ°bkð•JÊe°YIdlð¿JÊÃààJÊä°Elð•JÊ%°;Idlð–¿JÊ…°.lðžJÊáààààJÊä°Idlð•¿JÊEŒlð”JÊ¥ƒI l?Ø(126 SHOULDNT) NIL () \BLTSHADE.4045XLP :D4 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 4045XLPSTREAM I 0 TEXTURE) .@Hdnÿÿðš¿ABCDE jð¡H¡h@ABCDEFGl (43 \BLTSHADE.GENERICPRINTER 20 \BLACKBOX.4045XLP) NIL () \4045XLP.ROUND.BITMAP :D4 (P 1 NEWBITMAP P 0 SOURCEREGION I 4 HEIGHT I 3 WIDTH I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBM) NABCDjd@ @ HlØlÛlÚH @ABIjdHHgg I(74 BKBITBLT 46 BITMAPCREATE 22 INTERSECTREGIONS 19 CREATEREGION 16 BITMAPHEIGHT 12 BITMAPWIDTH 6 CREATEREGION) (70 REPLACE 67 INPUT) () \SCALEDBITBLT.4045XLP :D4 (P 6 SCALE P 5 SIXEL.WIDTH P 4 WordWidth P 3 WIDTH.ROUNDED P 2 HEIGHT P 1 BACKINGSTREAM P 0 EXPANDED.SOURCEBITMAP I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 4045XLPSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) ƒG²Gkð³GlðªGdlð¢ ¿@ABFµ@ Gµ@ CÉ¹H H !KlÛ½HÈ¼Gµlo ¿NDNJÚEØKJC ¿HJMLI ¿o i(127 4045XLP.PROMPT 119 \GENERICBITBLT.4045XLP 109 \WINDOWCMD.4045XLP 94 4045XLP.PROMPT 66 BITMAPWIDTH 59 BITMAPHEIGHT 48 \4045XLP.ROUND.BITMAP 44 BITMAPHEIGHT 36 BITMAPWIDTH 25 \ILLEGAL.ARG) NIL ( 124 "done." 91 "Formatting bitmap...") \GENERICBITBLT.4045XLP :D4 (P 9 I P 7 Sixel P 5 PRESENTBYTE P 4 PREVBYTE P 3 BYTECOUNT P 2 CurrRow P 1 ROW I 4 BACKINGSTREAM I 3 WORDWIDTH I 2 SIXEL.WIDTH I 1 HEIGHT I 0 EXPANDED.SOURCEBITMAP) fAk@Éj$IHó’±ÕBkÙjONó’±¶JO ½LMðœKdnÿð¦kÔ»±•Kjð’±‰Kdkð—¿DL °} Q OdÊjð£ ÈkÙ_¿OdÊjð£ É_¿OOÈØ_¿OdÊjð£ ‚Ê‡lDð_¿OkØ_Oñ³O—OOÐÈ„OOÂ_¿DO °ÛDL ¿k[¿M¼OkÔ_±ÿJJCÐº¿IkÔY±ÿ+Kkð³yL´|K Q OdÊjð£ ÈkÙ_¿OdÊjð£ É_¿OOÈØ_¿OdÊjð£ ‚Ê‡lDð_¿OkØ_Oñ³O—OOÐÈ„OOÂ_¿DO °ÛDL h(354 BOUT 346 BOUT 300 %%ARRAY-TYPE-NUMBER 272 %%ARRAY-BASE 252 %%ARRAY-OFFSET 237 MKSTRING 217 BLOCK 194 BOUT 186 BOUT 140 %%ARRAY-TYPE-NUMBER 112 %%ARRAY-BASE 92 %%ARRAY-OFFSET 77 MKSTRING 72 BOUT 36 4045XLP.EncodedSixelofBitmap) NIL () \BITBLT.4045XLP :D4 (P 5 WordWidth P 4 SIXEL.WIDTH P 3 WIDTH.ROUNDED P 2 HEIGHT P 1 BACKINGSTREAM P 0 EXPANDED.SOURCEBITMAP I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 4045XLPSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) Q@ABFG CÉ¹H H !KlÛ¼HÈ½o lDJlÚEØKJC HJLMI o (78 4045XLP.PROMPT 71 \GENERICBITBLT.4045XLP 62 \WINDOWCMD.4045XLP 46 4045XLP.PROMPT 27 BITMAPWIDTH 20 BITMAPHEIGHT 9 \4045XLP.ROUND.BITMAP) NIL ( 75 "done." 43 "Formatting bitmap...") \BLACKBOX.4045XLP :D4 (P 1 4045XLPDATA P 0 BACKINGSTREAM I 4 HEIGHT I 3 WIDTH I 2 BOTTOM I 1 LEFT I 0 4045XLPSTREAM) @É@É0@ ²G@É²%on öDBØÙoAoCoD H oAoBoCoD H @É²%oAon öBDØÙoCoD H oAonäBDØÙoCoD H (157 \SEND4045XLPCOMMAND 153 CONCAT 122 \SEND4045XLPCOMMAND 118 CONCAT 82 \SEND4045XLPCOMMAND 78 CONCAT 53 \SEND4045XLPCOMMAND 49 CONCAT 12 4045XLPIn2700ModeP) NIL ( 148 "," 143 "," 132 "," 127 "x" 113 "," 108 "," 97 "," 92 "x" 73 "," 68 "," 63 "," 58 "x" 44 "," 39 "," 34 "," 23 "y") \WINDOWCMD.4045XLP :D4 (P 1 2700MODE P 0 Landscape I 5 4045XLPSTREAM I 4 HEIGHT I 3 WIDTH I 2 TOP I 1 LEFT I 0 MAGNIFICATION) QEÉE E ²o@oABIHoCo°o@oABIHoCoD EÉ (78 \SEND4045XLPCOMMAND 72 CONCAT 58 MakePosition.4045XLP 31 MakePosition.4045XLP 13 4045XLPIn2700ModeP 6 4045XLPIn2700ModeP) NIL ( 67 "," 62 "," 51 ";" 46 "vw" 40 "," 35 "," 24 ";" 19 "gw") 4045XLP.RESET :D4 (I 1 PORTTO? I 0 STREAM) (@µj` ¿`i ¿A´i É0 °ò(36 4045XLP.RELEASE.BITMAP 30 4045XLP.RELEASE.PORT 22 RELEASE.MONITORLOCK 12 BLTSHADE) (16 \4045XLP.BITMAPREC 6 \4045XLP.BITMAPREC) () 4045XLP.GETBMSTR :D4 (P 1 BITMAP P 0 4045XLPDATA I 0 4045XLPSTREAM) D@É0HÊjð²/H ¿`¹@É™Ilfn`nûˆIlPnønr¿`i¿`(51 ChangePageBitmap.4045XLP 17 4045XLP.GET.BITMAP) (61 \4045XLP.BITMAPREC 55 \4045XLP.BITMAPREC 21 \4045XLP.BITMAPREC) () 4045XLP.GET.BITMAP :D4 (I 0 4045XLPDATA) ` @kÏ¿kjðhðj` (28 BLTSHADE 7 OBTAIN.MONITORLOCK) (22 \4045XLP.BITMAPREC 2 \4045XLP.BITMAPREC) () 4045XLP.RELEASE.BITMAP :D4 (I 0 4045XLPDATA) @jÏ¿jdðhð`h` (23 RELEASE.MONITORLOCK) (18 \4045XLP.BITMAPREC 13 \4045XLP.BITMAPREC) () \ScaledBltBigBitmap.4045XLP :D4 (P 6 SCALE P 5 WordWidth P 4 SIXEL.WIDTH P 3 WIDTH P 2 HEIGHT P 1 BACKINGSTREAM I 6 SCALE I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 4045XLPSTREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) €F²Fkð¬Flð§Fdlð²¿@ lÜHjðµH´H ¤@ ¿CÉ@ @ !KlÛ¼@È½Fµlo NDNJÚEØKJC @JLMI o i(124 4045XLP.PROMPT 117 \GENERICBITBLT.4045XLP 108 \WINDOWCMD.4045XLP 94 4045XLP.PROMPT 67 BITMAPWIDTH 60 BITMAPHEIGHT 49 \ILLEGAL.ARG 43 \FZEROP 23 BITMAPWIDTH) NIL ( 121 "done." 91 "Formatting bitmap...") ChangePageBitmap.4045XLP :D4 (I 3 HEIGHT I 2 WIDTH I 1 RASTERWIDTH I 0 BITMAP) &@AÍ@BÍ@CÍ`@ g` (35 DSPOPERATION 21 DSPCREATE) (28 \4045XLP.BITMAPREC 25 PAINT 14 \4045XLP.BITMAPREC) () \DRAWPOINT.4045XLP :D4 (P 0 NEWBRUSH I 4 OPERATION I 3 BRUSH I 2 Y I 1 X I 0 4045XLPSTREAM) C AkØlÛBkØlÛH@ D (28 DRAWPOINT 23 4045XLP.GETBMSTR 3 4045XLP.SCALEBRUSH) NIL () \DRAWARC.4045XLP :D4 (P 0 NEWBRUSH I 7 DASHING I 6 BRUSH I 5 NDEGREES I 4 STARTANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 4045XLPSTREAM) (F AkØlÛBkØlÛCkØlÛDEHG@ (37 DRAWARC 33 4045XLP.GETBMSTR 3 4045XLP.SCALEBRUSH) NIL () \DRAWCIRCLE.4045XLP :D4 (P 0 NEWBRUSH I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 Y I 1 X I 0 4045XLPSTREAM) %D AkØlÛBkØlÛCkØlÛHE@ (34 DRAWCIRCLE 30 4045XLP.GETBMSTR 3 4045XLP.SCALEBRUSH) NIL () \FILLCIRCLE.4045XLP :D4 (I 4 TEXTURE I 3 RADIUS I 2 Y I 1 X I 0 4045XLPSTREAM) AkØlÛBkØlÛCkØlÛD@ (26 FILLCIRCLE 22 4045XLP.GETBMSTR) NIL () \DRAWPOLYGON.4045XLP :D4 (I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 POINTS I 0 4045XLPSTREAM) ABC D@ (14 DRAWPOLYGON 10 4045XLP.GETBMSTR 5 4045XLP.SCALEBRUSH) NIL () \FILLPOLYGON.4045XLP :D4 (P 4 GOODPTLST I 2 TEXTURE I 1 POINTS I 0 4045XLPSTREAM) ;@A°$d[kØlÛKkØlÛ¸IµHhZY„HhY¿µÝJLB@ (56 FILLPOLYGON 53 4045XLP.GETBMSTR) NIL () \DRAWELLIPSE.4045XLP :D4 (I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 MAJOR I 3 MINOR I 2 Y I 1 X I 0 4045XLPSTREAM) )AkØlÛBkØlÛCkØlÛDkØlÛEF G@ (38 DRAWELLIPSE 34 4045XLP.GETBMSTR 28 4045XLP.SCALEBRUSH) NIL () \DRAWCURVE.4045XLP :D4 (P 2 GOODKTLIST P 0 NEWBRUSH I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 4045XLPSTREAM) BC !0A°$dYkØlÛIkØlÛ»LµKh]\„Kh\¿µÝMZBHD@ (63 DRAWCURVE 59 4045XLP.GETBMSTR 3 4045XLP.SCALEBRUSH) NIL () \DRAWLINE.4045XLP :D4 (P 0 HALFWIDTH I 8 DASHING I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 4045XLPSTREAM) j ElÛEjð³XE•E ³NGAC ³8BD ³1AkØlÛBkØlÛCkØlÛDkØlÛHkñ‘H€kg@ GG ‰@ABCDE ¿@CD(103 \MOVETO.4045XLP 96 \DRAWLINE1.4045XLP 85 DRAWLINE 77 4045XLP.GETBMSTR 37 EQP 30 EQP 19 \FZEROP) (73 PAINT) () \DRAWLINE1.4045XLP :D4 (P 6 AXIS P 5 len P 4 YPos P 3 XPos P 2 2700Mode P 1 LandscapeP P 0 BACKINGSTREAM I 5 width I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 4045XLPSTREAM) Ë @É@É@ cAC ²YAEkÙlÛÙ[BD \DBÙ_¿jOñ¢OƒjOÙkØ]J–I”oƒo^J“I¡J£LMÔ¼NKLJIoMoE H BD ´YAC [BEkÙlÛÙ\CAÙ_¿jOñ¢OƒjOÙlØ]J–I”oƒo^J“I¡J£LEÔ¼NKLJIoMoE H (200 \SEND4045XLPCOMMAND 196 CONCAT 182 MakePosition.4045XLP 118 MIN 111 EQP 105 \SEND4045XLPCOMMAND 101 CONCAT 87 MakePosition.4045XLP 33 MIN 17 EQP 9 4045XLPIn2700ModeP) NIL ( 191 "," 186 "," 163 "x" 158 "y" 96 "," 91 "," 68 "y" 63 "x") 4045XLPFILEPA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 I P 0 STRM I 0 SI::*CLEANUP-FORMS* F 3 SI::*RESETFORMS* F 4 FILE F 5 NOOPEN) wTgiXµU²%h ´ügHd hhdSc¿Hj °oTgglXhSc¿lkJIó³H ³µoJ H ð´©JkÔZ°åH (116 FULLNAME 101 NTHCHARCODE 91 EOFP 67 OPENSTREAM 49 SETFILEPTR 31 GETFILEPTR 21 RANDACCESSP 10 \GETSTREAM) (62 OLD 59 INPUT 26 SETFILEPTR 6 INPUT) ( 97 "+P% +P% +X% " 55 (PROGN (CLOSEF? OLDVALUE))) 4045XLPFILEP :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 NOOPEN I 0 FILE F 2 LISPXHIST) #@g gðµRg ¿ (32 CL:VALUES-LIST 28 SI::RESETUNWIND 25 \MVLIST 22 4045XLPFILEPA0001 6 UNPACKFILENAME) (19 SI::RESETUNWIND 9 4045XLP 3 EXTENSION) () 4045XLP.BITMAPSCALE :D4 (L (1 HEIGHT 0 WIDTH)) kNIL NIL () 4045XLPPRINTA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 2 half P 1 CPY I 0 SI::*CLEANUP-FORMS* F 3 OUT F 4 FILE F 5 IN F 6 SI::*RESETFORMS* F 7 HOST F 8 PRINTOPTIONS) Í`hgT oWo g`¦Wg'œWg'µT ¿oTggoc hVcoWggochVcWg'µkkU lÛIHó³-USJ¿nè ¿US ¿Sl ¿Si ¿¿IkÔY°ÓT oWo (202 4045XLP.PROMPT 199 CONCAT 186 FULLNAME 174 BLOCK 170 FORCEOUTPUT 164 BOUT 157 COPYBYTES 151 BLOCK 144 COPYBYTES 127 GETEOFPTR 104 OPENSTREAM 76 OPENSTREAM 57 4045XLP.PRINTHEADERPAGE 29 4045XLP.PROMPT 26 CONCAT 13 FULLNAME 9 OBTAIN.MONITORLOCK) (118 %#COPIES 97 NEW 94 OUTPUT 69 OLD 66 INPUT 50 DOCUMENT.NAME 43 BREAK.PAGE 35 4045XLP.DEFAULTS 32 PRINTHEADER 6 WITH.MONITOR 2 4045XLP.MONITOR) ( 196 " -- done." 190 " on " 101 ((TYPE BINARY) (SEQUENTIAL T) (DON'TCACHE T)) 89 (PROGN (BOUT OLDVALUE (CHARCODE FF)) (FORCEOUTPUT OLDVALUE T) (CLOSEF? OLDVALUE)) 73 ((SEQUENTIAL T) (DON'TCACHE T)) 62 (PROGN (CLOSEF? OLDVALUE)) 23 " -- in progress" 17 " on ") 4045XLPPRINT :D4 (P 4 SI::*RESETFORMS* P 3 SI::*LOCKED-MONITOR* P 2 IN P 1 OUT P 0 HOST I 2 PRINTOPTIONS I 1 FILE I 0 PORT) @@ µ g`!A¡h g ¿ Bg'šA ¿A (61 FULLNAME 56 DELFILE 53 CLOSEF? 50 FULLNAME 39 CL:VALUES-LIST 35 SI::MONITOR-UNWIND 32 \MVLIST 29 4045XLPPRINTA0001 3 4045XLP.CHECK.OUTPUTFILE) (44 DELETE 26 SI::MONITOR-UNWIND 11 4045XLP.DEFAULTS 8 PORT) () 4045XLPBITMAPFILEA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 11 SCALE P 9 4045XLPSTREAM P 8 CLIP P 7 SCALING P 6 SCALE P 5 WINDOWTITLE P 4 PORT P 3 BOTTOM P 2 LEFT P 1 H P 0 W I 0 SI::*CLEANUP-FORMS* F 12 SI::*RESETFORMS* F 13 REGION F 14 BITMAP F 15 OUTPUTFILE F 16 ROTATION F 17 TITLE) gWµqWÈWµcWÈWµXjWµOjW µWg`µW"F W ²oW hWc¿W µ+oLg _hWc°s°²°ª°Ÿ°’djð¥dnhð’¿i¿h²oLgo_hWc°5W dlZð¥dnð’¿i¿h²oLgo_hWc„W ¿hO _oOµVO ¿h^M›jMjhiO ¿WJKOjOHNÖÕlÛ jOINÖÕlÛ HIhdddN O O _¿HOÖOñ¯IOÖOñ£O°–O_°…(318 CLOSEF 313 NEWPAGE.4045XLP 308 SCALEDBITBLT 297 MAX 280 MAX 257 FLUSHRIGHT 240 \ILLEGAL.ARG 221 DSPCLIPPINGREGION 214 \ILLEGAL.ARG 198 OPENIMAGESTREAM 151 OPENIMAGESTREAM 89 OPENIMAGESTREAM 65 4045XLP.GET.PORT 54 4045XLP.CHECK.OUTPUTFILE 30 4045XLP.CHECK.OUTPUTFILE) (191 4045XLP 144 4045XLP 86 4045XLP 40 4045XLP.DEFAULTS 37 WINDOWTITLE) ( 227 (4 2 1) 195 (LANDSCAPE T) 187 (PROGN (CLOSEF? OLDVALUE)) 148 (PORTRAIT T) 140 (PROGN (CLOSEF? OLDVALUE)) 82 (PROGN (CLOSEF? OLDVALUE)) 60 (PROGN (4045XLP.RELEASE.PORT))) 4045XLPBITMAPFILE :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 OUTPUTFILE F 2 LISPXHIST) A¥b¿Rg ¿ (27 CL:VALUES-LIST 23 SI::RESETUNWIND 20 \MVLIST 17 4045XLPBITMAPFILEA0001 4 SCREENBITMAP) (14 SI::RESETUNWIND) () 4045XLP.PRINTTEXTA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 1 INFILE P 0 IMAGESTREAM I 0 SI::*CLEANUP-FORMS* F 2 SI::*RESETFORMS* F 3 FILE F 4 IMAGEFILE F 5 FONTS F 6 IMAGETYPE F 7 HEADING F 8 OPTIONS) ¬ o oSggoYhRcT ŸoS hRc¿oTµghghgI VW³gI oIg h€hgI gihW XhRcIHUo I H h(166 CLOSEF 162 CLOSEF 158 4045XLP.PROMPT 151 COPY.TEXT.TO.IMAGE 137 OPENIMAGESTREAM 134 \APPEND2 131 \APPEND2 117 FULLNAME 105 CONCAT 102 GETFILEINFO 91 FULLNAME 79 PACKFILENAME 48 4045XLP.GET.PORT 39 4045XLP.CHECK.OUTPUTFILE 27 OPENSTREAM 9 4045XLP.PROMPT) (120 LANDSCAPE 113 DOCUMENT.NAME 99 CREATIONDATE 87 HEADING 74 BODY 70 VERSION 66 EXTENSION 20 OLD 17 INPUT) ( 155 "done." 95 " " 60 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) 44 (PROGN (4045XLP.RELEASE.PORT)) 24 ((BINARY T) (SEQUENTIAL T)) 13 (PROGN (CLOSEF? OLDVALUE)) 6 "Formatting TEXT file for print...") 4045XLP.PRINTTEXT :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 6 OPTIONS I 5 TABS I 4 FONTS I 3 HEADING I 2 IMAGETYPE I 1 IMAGEFILE I 0 FILE F 2 LISPXHIST) Rg ¿ (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 4045XLP.PRINTTEXTA0001) (6 SI::RESETUNWIND) () 4045XLP.HOSTNAMEP :D4 (I 0 PRINTERNAME) o@ ´g(7 STRPOS) (12 4045XLP) ( 3 "4045XLP") 4045XLP.CHECK.OUTPUTFILE :D4 (P 0 HOST I 0 FILE) ,@g Hgð¬Hgð¦Hgð´gHg(41 PACK* 9 U-CASE 6 UNPACKFILENAME) (38 } 34 { 28 CENTRONICS 22 TTY 16 RS232 3 HOST) () 4045XLP.PRINTHEADERPAGEA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 0 OUTSTREAM I 0 SI::*CLEANUP-FORMS* F 1 FILE F 2 SI::*RESETFORMS*) £og`goXhRcHjnÐjg`ið³g`˜g`‰o jhiH ¿H ¿H QÃ‘Q¥Q ²"H ¿jQjhiH ¿H ¿H ¿H °QH ¿jQ µQjhiH ¿H ¿H ¿H ¿joQ “†Qg jhiH ¿H ¿H ¿jo jhiH ¿H ¿H jo` jhiH ¿H ldn,ldn¸lgH n ’n,n ’n¸lgH n jn,n jn¸lgH n Qn,n Qn¸lgH lŒn,lŒn¸lgH l¥n,l¥n¸lgH Hl HÉ h(415 FORCEOUTPUT 409 BOUT 403 DRAWLINE 383 DRAWLINE 363 DRAWLINE 341 DRAWLINE 319 DRAWLINE 297 DRAWLINE 277 TERPRI 272 FLUSHRIGHT 264 CONCAT 253 TERPRI 248 TERPRI 243 FLUSHRIGHT 235 CONCAT 232 DATE 223 TERPRI 218 TERPRI 213 FLUSHRIGHT 205 CONCAT 202 GETFILEINFO 194 DATE 190 STRINGP 180 \MEDIUMMODE.4045XLP 175 TERPRI 170 TERPRI 165 FLUSHRIGHT 154 FULLNAME 148 \BOLDMODE.4045XLP 142 \MEDIUMMODE.4045XLP 137 TERPRI 132 TERPRI 127 FLUSHRIGHT 116 \BOLDMODE.4045XLP 110 WINDOWP 99 TERPRI 94 TERPRI 89 FLUSHRIGHT 81 CONCAT 78 USERNAME 40 SETXY.4045XLP 24 OPENIMAGESTREAM) (398 PAINT 378 PAINT 358 PAINT 336 PAINT 314 PAINT 292 PAINT 261 4045XLPSTREAM.VERSION 199 CREATIONDATE 103 BITMAP 68 4045XLP.DEFAULTS 65 PRINTHEADER 59 4045XLP.DEFAULTS 56 PRINTHEADER 47 4045XLP.DEFAULTS 44 PRINTHEADER 17 4045XLP 12 4045XLP.DEFAULTS 9 PORT) ( 258 "Xerox 4045 Print Service Version " 229 "Printed: " 186 "Created: " 75 "For: " 21 (PORTRAIT T) 6 (PROGN (CLOSEF OLDVALUE))) 4045XLP.PRINTHEADERPAGE :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 2 LISPXHIST) Rg ¿ (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 4045XLP.PRINTHEADERPAGEA0001) (6 SI::RESETUNWIND) () 4045XLP.PRINT.ERRORPAGE :D4 (P 5 ErrString P 4 Char P 3 Page P 2 Error P 0 ERRS I 0 4045XLPSTREAM) òh@ H´~lÈnônünôlg@ lÈn¸nün¸lg@ lÈ@ nü@ @ ¿@ ¿@ ¿jojhi@ ¿@ ¿@ ¿@ H²jojhi@ ¿HAIµiºKJð³'@ ¿@ ¿o@ ¿J[@ ¿@ ¿@ ¿J¼oLãoLlÿåo ½h@ M@ Øh@ ñ”@ ¿M@ ¿IY°”(234 PRIN1 228 TERPRI 222 DSPRIGHTMARGIN 216 STRINGWIDTH 211 DSPXPOSITION 205 CONCAT 179 TERPRI 174 TERPRI 169 PRIN1 161 PRIN1 152 TERPRI 147 TERPRI 124 FLUSHRIGHT 108 TERPRI 103 TERPRI 98 TERPRI 93 FLUSHRIGHT 79 TERPRI 74 TERPRI 69 TERPRI 65 DSPRIGHTMARGIN 58 DSPLEFTMARGIN 52 DRAWLINE 31 DRAWLINE 4 4045XLP.Error) (47 PAINT 26 PAINT) ( 201 "] " 193 "," 187 "[" 157 "Page: " 116 "Unknown characters: [charset,charcode]" 85 "4045XLPStream Printing Errors") 4045XLP.PROMPT :D4 (P 0 MESSAGESTREAM I 0 PROMPTSTRING) )g`H´oH @H oH H (38 TERPRI 34 PRIN1 26 PRIN1 21 PRIN1) (5 4045XLP.DEFAULTS 2 MESSAGESTREAM) ( 30 " ]" 17 "[4045XLP: ") 4045XLP.HELP.GET.PORT :D4 (P 0 PORT) “l goohdo Hdgð²8¿i oi i oi i oi i oi i gH—Hdgð–¿o°gð”g°Hgð”o‡¿H h (144 4045XLP.SET.PARAMETERS 138 \ILLEGAL.ARG 133 RINGBELLS 90 4045XLP.INIT.PORT 86 TERPRI 82 PRIN1 74 TERPRI 70 PRIN1 62 TERPRI 58 PRIN1 50 TERPRI 46 PRIN1 38 TERPRI 22 ASKUSER) (123 CENTRONICS 117 {TTY} 112 TTY 100 RS232 93 PORT 30 SERVER 4 R) ( 129 "{CENTRONICS}" 107 "{RS232}" 78 "to do this." 66 "See the documentation on using 4045XLP.SET.PARAMETERS" 54 "the server machine before using the software." 42 "You must set the PORT parameter to the address of " 18 (CONFIRMFLG T AUTOCOMPLETEFLG T PROMPTCONFIRMFLG T) 12 ((R "s232" EXPLAINSTRING "Rs232 - Use the RS232 port for the 4045" RETURN (QUOTE RS232)) (T "ty" EXPLAINSTRING "Tty - Use the Tty port for the 4045" RETURN (QUOTE TTY)) (C "entronics" EXPLAINSTRING "Centronics - Use the Centronics port for the 4045" RETURN (QUOTE CENTRONICS)) (S "erver" EXPLAINSTRING "Server - use a server address for the 4045" RETURN (QUOTE SERVER))) 8 "Which port would you like to use for the 4045? ") 4045XLP.GET.PORT :D4 (P 0 MONITOR I 0 file) ` g`“@ H(21 4045XLP.PRINTHEADERPAGE 5 OBTAIN.MONITORLOCK) (14 4045XLP.DEFAULTS 11 PRINTHEADER 2 4045XLP.MONITOR) () 4045XLP.RELEASE.PORT :D4 (I 0 EVENIFNOTMINE) ` (5 RELEASE.MONITORLOCK) (2 4045XLP.MONITOR) () 4045XLP.INIT.PORT :D4 (I 0 PORT) Û@ dgð³dgð³dgð«dgð¥dgð–¿±°dgð«dgð¥dgð–¿±—dgð³dgð«dgð¥dgð•¿°w¿g`dgð³dgð«dgð¥dgð•¿°Odgð«dgð¥dgð•¿°7dgð³dgð«dgð¥dgð•¿°¿o@µ g` i(215 PROMPTPRINT 212 CONCAT 191 4045XLP.INIT.CENTRONICS 160 4045XLP.INIT.TTY 136 4045XLP.INIT.RS232 96 4045XLP.INIT.CENTRONICS 64 4045XLP.INIT.TTY 39 4045XLP.INIT.RS232 3 U-CASE) (207 4045XLP.DEFAULTS 204 PORT 185 CENT 179 {CENT} 173 CENTRONICS 166 {CENTRONICS} 154 PRINTER 148 TTY 142 {TTY} 130 {RS232C} 124 RS232C 118 RS232 111 {RS232} 105 4045XLP.DEFAULTS 102 PORT 90 {CENT} 84 {CENTRONICS} 78 CENT 71 CENTRONICS 58 {TTY} 52 DLTTY 46 TTY 33 {RS232} 27 DLRS232C 21 DLRS232 14 RS232C 7 RS232) ( 198 "Error bad port specification") 4045XLP.INIT.RS232 :D4 (F 0 \RS232C.READY) &o P˜o °n%€lgko h(34 RS232C.INIT 15 RS232C.SET.PARAMETERS 6 FILESLOAD) (25 NONE) ( 30 (1 17 19) 12 ((BaudRate . 9600) (Parity . NONE) (FlowControl 1 17 19) (BitsPerSerialChar . 8) (StopBits . 1)) 3 (DLRS232C)) 4045XLP.INIT.TTY :D4 (F 0 \TTY.READY) $o P—o n%€lgko (33 TTY.INIT 15 TTY.SET.PARAMETERS 6 FILESLOAD) (24 NONE) ( 29 (1 17 19) 12 ((BaudRate . 9600) (Parity . NONE) (FlowControl 1 17 19) (BitsPerSerialChar . 8) (StopBits . 1)) 3 (DLTTY)) 4045XLP.INIT.CENTRONICS :D4 NIL o (9 CENTRONICS.RESET 6 FILESLOAD) NIL ( 3 (CENTRONICS)) 4045XLP.SET.PARAMETERS :D4 (P 2 STREAM P 1 VALUE P 0 PARAM I 0 PARAMETERS) ù@±ìdH¹Hdgð²¿I¢±ÓgI`±Ådgð²¿Invn Œh¢±¯gI`±¡dgð²$¿I ‘I‰I ´I gJ`°xdgðŸ¿gI´i`°adgðœ¿gI`°Ndgðœ¿gI`°;dgð²¿I3¢I³-gI`° dgðž¿gI´i`ˆgð¤H ¿µ‚±ÿ`(233 \ILLEGAL.ARG 223 PUTASSOC 201 PUTASSOC 174 PUTASSOC 155 PUTASSOC 136 PUTASSOC 113 PUTASSOC 100 GETSTREAM 94 WINDOWP 87 STREAMP 72 PUTASSOC 36 PUTASSOC) (246 4045XLP.DEFAULTS 227 printout 220 4045XLP.DEFAULTS 213 LANDSCAPE 207 LANDSCAPE 198 4045XLP.DEFAULTS 194 SLUG 180 SLUG 171 4045XLP.DEFAULTS 167 WINDOWTITLE 161 WINDOWTITLE 152 4045XLP.DEFAULTS 148 PRINTHEADER 142 PRINTHEADER 133 4045XLP.DEFAULTS 126 PRINTERRORS 120 PRINTERRORS 110 4045XLP.DEFAULTS 106 MESSAGESTREAM 79 MESSAGESTREAM 69 4045XLP.DEFAULTS 65 LANGUAGE 43 LANGUAGE 33 4045XLP.DEFAULTS 29 PORT 17 PORT) () 4045XLP.GET.PARAMETERS :D4 (P 3 KEY I 0 PARAMETERS) +@²%@@°d[`¸IµHhZY„HhY¿µçJ`NIL (40 4045XLP.DEFAULTS 14 4045XLP.DEFAULTS) () (PRETTYCOMPRINT 4045XLPSTREAMCOMS) (RPAQQ 4045XLPSTREAMCOMS ((VARS (4045XLPSTREAM.VERSION 1.5)) (* ;;; "Main stream functions") (FNS \4045XLPINIT OPEN4045XLPSTREAM \CLOSE4045XLPSTREAM 4045.OUTCHARFN 4045.OUTCHARFN1) (* ;;; "Font methods") (FNS \CREATE4045FONT \CREATECHARSET.4045 \SEARCH4045FONTS \CHANGECHARSET.4045XLP) (* ;;; "DSPxx fns") (FNS \DSPXPOSITION.4045XLP \DSPYPOSITION.4045XLP \DSPBOTTOMMARGIN.4045XLP \DSPTOPMARGIN.4045XLP \DSPLEFTMARGIN.4045XLP \DSPRIGHTMARGIN.4045XLP \DSPCLIPPINGREGION.4045XLP \DSPSPACEFACTOR.4045XLP \DSPLINEFEED.4045XLP \DSPFONT.4045) (* ;;; "Stream manipulation functions") ( FNS BEGINPAGE.4045XLP ENDPAGE.4045XLP NEWPAGE.4045XLP NEWLINE.4045XLP SETXY.4045XLP \MOVETO.4045XLP \BOLDMODE.4045XLP \MEDIUMMODE.4045XLP \FIXLINELENGTH.4045XLP \CHARWIDTH.4045XLP \STRINGWIDTH.4045XLP) (* ;;; "Misc. stream functions") (FNS CreateImageData.4045XLP FixMargins.4045XLP 4045XLP.Error 4045XLPPageNumber 4045XLPIn2700ModeP \SEND4045XLPCOMMAND MakePosition.4045XLP 4045XLP.SCALEBRUSH Landscape.4045XLP SendFileHeading.4045XLP 4045XLP.Print.Heading) (* ;;; "Bitmap Functions") (FNS 4045XLP.EncodedSixelofBitmap \BLTSHADE.4045XLP \4045XLP.ROUND.BITMAP \SCALEDBITBLT.4045XLP \GENERICBITBLT.4045XLP \BITBLT.4045XLP \BLACKBOX.4045XLP \WINDOWCMD.4045XLP) (* ; "Page bitmap fns") ( FNS 4045XLP.RESET 4045XLP.GETBMSTR 4045XLP.GET.BITMAP 4045XLP.RELEASE.BITMAP \ScaledBltBigBitmap.4045XLP ChangePageBitmap.4045XLP) (* ;;; "Drawing algorithms") (FNS \DRAWPOINT.4045XLP \DRAWARC.4045XLP \DRAWCIRCLE.4045XLP \FILLCIRCLE.4045XLP \DRAWPOLYGON.4045XLP \FILLPOLYGON.4045XLP \DRAWELLIPSE.4045XLP \DRAWCURVE.4045XLP \DRAWLINE.4045XLP \DRAWLINE1.4045XLP) (* ;;; "Default Printing Code") (FNS 4045XLPFILEP 4045XLP.BITMAPSCALE 4045XLPPRINT 4045XLPBITMAPFILE 4045XLP.PRINTTEXT 4045XLP.HOSTNAMEP 4045XLP.CHECK.OUTPUTFILE 4045XLP.PRINTHEADERPAGE 4045XLP.PRINT.ERRORPAGE 4045XLP.PROMPT) (* ;;; "Port initializing and parameter setting code") (FNS 4045XLP.HELP.GET.PORT 4045XLP.GET.PORT 4045XLP.RELEASE.PORT 4045XLP.INIT.PORT 4045XLP.INIT.RS232 4045XLP.INIT.TTY 4045XLP.INIT.CENTRONICS 4045XLP.SET.PARAMETERS 4045XLP.GET.PARAMETERS) (* ;;; "Records") (RECORDS 4045XLP.PARAMETERS) (DECLARE%: EVAL@LOAD DONTCOPY (RECORDS SIXEL 4045XLPDATA 4045XLPBITMAP) (FUNCTIONS 4045XLP.Set.Pagenumber 4045XLP.Set.Errorlist 4045XLP.Clear.Errorlist 4045XLP.Set.LandscapeMode 4045XLP.Set.Heading 4045XLP.Get.Heading \4045XLPBackingStream 4045XLP.HAS.BITMAP 4045XLPPage 4045XLPGetErrors 4045XLPLandscapeP)) (INITRECORDS 4045XLPDATA SIXEL 4045XLPBITMAP) (* ;;; "Variables and initialization") (* ;; "The NSTO4045Cxxx arrays contain the mappings from the charset specified by xxx to the (one) charset of 4045.0 C0 allows charcodes <32 for special commands ie. esc's and LF's etc." ) (VARS \ASCIITOASCII \NSTO4045NULL \NSTO4045C41 \NSTO4045C357 \NSTO4045C356 \NSTO4045C361 \NSTO4045C46 \NSTO4045C0 \4045WIDTHSARRAY (LINESPERPAGE 57)) (INITVARS (4045XLP.MONITOR ( CREATE.MONITORLOCK (QUOTE 4045XLP))) (\4045XLP.BITMAPREC) (4045XLP.DEFAULTS)) (ADDVARS (PRINTERTYPES ( (4045XLP) (CANPRINT (4045XLP)) (STATUS TRUE) (SEND 4045XLPPRINT) (HOSTNAMEP 4045XLP.HOSTNAMEP) ( BITMAPSCALE 4045XLP.BITMAPSCALE) (BITMAPFILE (4045XLPBITMAPFILE FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PRINTFILETYPES (4045XLP (TEST 4045XLPFILEP) (EXTENSION (4045XLP)) (CONVERSION ( TEXT 4045XLP.PRINTTEXT TEDIT (LAMBDA (FILE PFILE) (SETQ FILE (OPENTEXTSTREAM FILE)) ( TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE 4045XLP)) (CLOSEF? FILE) PFILE) TEDIT \TEDIT.HARDCOPY))))) (* ;;; "Initializing stuff") (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS ( 4045XLPFileHeading (CONCAT (CHARACTER (CHARCODE ESC)) "+P" (CHARACTER (CHARCODE LF)) (CHARACTER ( CHARCODE ESC)) "+P" (CHARACTER (CHARCODE LF)) (CHARACTER (CHARCODE ESC)) "+X" (CHARACTER (CHARCODE LF) ))) (4045XLPDefaultScale (FQUOTIENT 300 72)) (4045XLPDefaultSpaceFactor 1) (4045XLPDefaultRegionBottom 100) (4045XLPDefaultXPosition 0) (4045XLPDefaultYPosition 0) (4045XLPDefaultRegionLeft 150) ( 4045XLPDefaultPageWidth 2550) (4045XLPDefaultPageHeight 3300) (4045XLPDefaultLineFeedHeight 51) ( 4045XLPLandscapePageBMRaster 102) (4045XLPLandscapePageBMWidth 1632) (4045XLPLandscapePageBMHeight 1275) (4045XLPDefaultLandscapeCharsPerLine 150) (4045XLPDefaultLandscapeTop 2400) ( 4045XLPDefaultLandscapeRight 3150) (4045XLPLandscapeHeading 2450) (4045XLPDefaultLandscapeRegion ( CREATEREGION 0 0 3300 2550)) (4045XLPDefaultLandscapeFontHeight 39) (4045XLPDefaultLandscapeFontAscent 31) (4045XLPDefaultLandscapeFontDescent 8) (4045XLPDefaultLandscapeFontBox 22) ( 4045XLPDefaultLandscapeFontDX 4) (4045XLPDefaultLandscapeFontWidths (ARRAY 256 (QUOTE WORD) 22 0)) ( 4045XLPPortraitHeading 3150) (4045XLPPortraitPageBMRaster 80) (4045XLPPortraitPageBMWidth 1272) ( 4045XLPPortraitPageBMHeight 1650) (4045XLPDefaultPortraitCharsPerLine 115) (4045XLPDefaultPortraitTop 3000) (4045XLPDefaultPortraitRight 2400) (4045XLPDefaultPortraitRegion (CREATEREGION 0 0 2550 3300)) ( 4045XLPDefaultPortraitFontHeight 50) (4045XLPDefaultPortraitFontAscent 40) ( 4045XLPDefaultPortraitFontDescent 10) (4045XLPDefaultPortraitFontBox 32) (4045XLPDefaultPortraitFontDX 4) (4045XLPDefaultPortraitFontWidths (ARRAY 256 (QUOTE WORD) 30 0)) (4045XLPPageBitmapPages 516) ( 4045XLP.DOTSPERPOINT (FQUOTIENT 300 72)) 4045XLP.DOTSPERMICA)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( \4045XLPINIT) (pushnew DEFAULTPRINTINGHOST (QUOTE 4045XLP)) (SETQ DEFAULTPRINTERTYPE (QUOTE 4045XLP))) ))) (RPAQQ 4045XLPSTREAM.VERSION 1.5) (ASSOCRECORD 4045XLP.PARAMETERS (PORT LANGUAGE WINDOWTITLE MESSAGESTREAM PRINTERRORS PRINTHEADER SLUG LANDSCAPE)) (/DECLAREDATATYPE (QUOTE 4045XLPDATA) (QUOTE (WORD WORD WORD WORD WORD FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((4045XLPDATA 0 (BITS . 15)) ( 4045XLPDATA 1 (BITS . 15)) (4045XLPDATA 2 (BITS . 15)) (4045XLPDATA 3 (BITS . 15)) (4045XLPDATA 4 ( BITS . 15)) (4045XLPDATA 5 (FLAGBITS . 0)) (4045XLPDATA 6 POINTER) (4045XLPDATA 8 POINTER) ( 4045XLPDATA 10 POINTER) (4045XLPDATA 12 POINTER) (4045XLPDATA 14 POINTER) (4045XLPDATA 16 POINTER) ( 4045XLPDATA 18 POINTER) (4045XLPDATA 20 POINTER) (4045XLPDATA 22 POINTER) (4045XLPDATA 24 POINTER))) ( QUOTE 26)) (RPAQ \ASCIITOASCII (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 NIL)))) (RPAQ \NSTO4045NULL (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL))) ) (RPAQ \NSTO4045C41 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 48 255 255 45 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 194 205 255 255 255 255 255 255 255 255 255 255 255 255 255 111 111 111 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL)))) (RPAQ \NSTO4045C357 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 32 45 45 45 45 45 39 186 170 171 187 32 32 32 32 255 255 60 62 174 172 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 111 111 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 124 45 43 124 45 43 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL)))) (RPAQ \NSTO4045C356 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 124 255 126 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL))) ) (RPAQ \NSTO4045C361 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 49473 49729 49985 50241 50497 50753 51265 51777 52801 49731 49987 51011 52035 53059 53060 49477 49733 49989 50501 51013 51269 52805 53061 255 49991 50759 51015 52039 49992 49481 49737 49993 50249 50505 51017 51273 52809 49994 52043 49740 52044 53068 49742 50254 52046 53070 49487 49743 49999 50255 50511 51279 52559 49746 52050 53074 49747 50003 52051 53075 52052 53076 49493 49749 50005 50261 50517 50773 51285 51797 52565 52821 50007 49497 49753 50009 51289 49754 51034 53082 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 49505 49761 50017 50273 50529 50785 51297 51809 52833 49763 50019 51043 52067 53091 53092 49509 49765 50021 50533 51045 51301 52837 53093 49767 50023 50791 51047 255 50024 49513 49769 50025 50281 50537 255 51305 52841 50026 52075 49772 52076 53100 49774 50286 52078 53102 49519 49775 50031 50287 50543 51311 52591 49778 52082 53106 49779 50035 52083 53107 52084 53108 49525 49781 50037 50293 50549 50805 51317 51829 52597 52853 50039 49529 49785 50041 51321 49786 51066 53114 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL)))) (RPAQ \NSTO4045C46 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 65 66 255 255 255 69 255 70 90 72 255 73 75 255 77 78 255 79 255 255 80 255 255 84 89 255 88 255 255 255 255 255 97 251 255 121 255 255 255 255 255 255 255 105 107 255 255 118 255 111 255 255 112 255 255 255 117 255 120 255 119 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 NIL)))) (RPAQ \NSTO4045C0 (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (255 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 161 162 163 164 165 255 167 255 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 255 193 194 195 196 197 198 199 200 255 202 203 204 205 206 207 208 209 210 211 212 213 255 255 255 255 255 255 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 NIL)))) (RPAQ \4045WIDTHSARRAY (READARRAY-FROM-LIST 256 (QUOTE SMALLPOSP) 0 (QUOTE (30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 NIL)))) (RPAQQ LINESPERPAGE 57) (RPAQ? 4045XLP.MONITOR (CREATE.MONITORLOCK (QUOTE 4045XLP))) (RPAQ? \4045XLP.BITMAPREC) (RPAQ? 4045XLP.DEFAULTS) (ADDTOVAR PRINTERTYPES ((4045XLP) (CANPRINT (4045XLP)) (STATUS TRUE) (SEND 4045XLPPRINT) (HOSTNAMEP 4045XLP.HOSTNAMEP) (BITMAPSCALE 4045XLP.BITMAPSCALE) (BITMAPFILE (4045XLPBITMAPFILE FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR PRINTFILETYPES (4045XLP (TEST 4045XLPFILEP) (EXTENSION (4045XLP)) (CONVERSION (TEXT 4045XLP.PRINTTEXT TEDIT (LAMBDA (FILE PFILE) (SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE 4045XLP)) (CLOSEF? FILE) PFILE) TEDIT \TEDIT.HARDCOPY)))) (\4045XLPINIT) (pushnew DEFAULTPRINTINGHOST (QUOTE 4045XLP)) (SETQ DEFAULTPRINTERTYPE (QUOTE 4045XLP)) (PUTPROPS 4045XLPSTREAM COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL