(FILECREATED "14-Dec-84 09:05:48" ("compiled on " {ERIS}SOURCES>PRESS.;13) "10-Dec-84 17:38:51" recompiled changes: \HACKBLTSHADE SETX.PRESS \PRESS.OUTCHARFN ENDVECRUN VECPUT \DRAWCURVE.PRESS.LINE in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:25:04") (FILECREATED "14-Dec-84 09:04:25" {ERIS}SOURCES>PRESS.;13 89737 changes to: (FNS SETX.PRESS \PRESS.OUTCHARFN ENDVECRUN VECPUT \HACKBLTSHADE \DRAWCURVE.PRESS.LINE) (VARS PRESSCOMS) previous date: " 3-Dec-84 17:59:12" {ERIS}SOURCES>PRESS.;6) \HACKBLTSHADE D1 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 DESTINATION I 0 TEXTURE) hddABCDEgF@G (22Q BKBITBLT) (12Q TEXTURE) () \SEARCHPRESSFONTSA0001 D1 (NAME ERRORSET L (0 NIL) P 3 WSTRM P 2 FONTSFOUND P 1 F F 4 RESETVARSLST F 5 RESETY F 6 FAMILY F 7 ROTATION F 10Q PSIZE F 11Q FACE) u`1HJc iHhHHI Igi [gKd hhhTcKj oIggl [hTcKVWWW J (160Q UNION 154Q \GETPRESSFONTNAMES 127Q OPENSTREAM 105Q SETFILEPTR 63Q GETFILEPTR 50Q \GETSTREAM 36Q INFILEP) (122Q OLD 117Q INPUT 56Q SETFILEPTR 44Q INPUT 2 PRESSFONTWIDTHSFILES) ( 113Q (PROGN (CLOSEF? OLDVALUE))) \SEARCHPRESSFONTS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \SEARCHPRESSFONTSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\SEARCHPRESSFONTSA0001)) \GETPRESSFONTNAMES D1 (P 11Q XROTATION P 10Q XFACE P 7 XSIZE P 6 XFAMILY P 5 XFACE P 4 TYPE P 3 FONTSFOUND P 2 NEXT P 1 FAMILYCODELST P 0 XFACECODE I 4 ROTATION I 3 FACE I 2 PSIZE I 1 FAMILY I 0 WSTRM F 16Q MICASPERPT) #CgC C h@ js @J @ J@ LlغLdl@ I  o AgANl@ ]H M Cg(CM !MC" O MC]_Ogi@ @ @ @ W _BgBO Oj YB_R@ @ _DgOD;NOMOghK&_OOOghO_O_ejK(277Q EQUAL 267Q EQUAL 247Q FIXR 164Q EQUAL 147Q \DECODEPRESSFACEBYTE 114Q ERROR 102Q FASSOC 36Q SETFILEPTR 25Q \PRESSFAMILYCODELST 17Q \FACECODE 12Q MEMB) (405Q * 352Q PRESS 327Q * 256Q * 154Q * 121Q * 6 *) ( 111Q "unknown code number in widths file") \PRESSFAMILYCODELST D1 (P 4 I P 2 TYPE P 1 PAIRS P 0 NEXT I 0 WSTRM) aj!@H @ H@ JlظJdk9@ @ @ k2LK@ _NOh^Lk\O&M IjI(123Q PACKC 10Q SETFILEPTR) NIL () \DECODEPRESSFACEBYTE D1 (L (0 FACECODE)) hl@b0l @@l bgl@@lbggXl@@lbgl@@lbggZ@kggYJIHhNIL (135Q REGULAR 131Q ITALIC 121Q MEDIUM 115Q BOLD 74Q LIGHT 54Q REGULAR 50Q COMPRESSED 27Q EXPANDED) () \CREATEPRESSFONTA0001 D1 (NAME ERRORSET L (0 NIL) P 34Q F P 16Q WIDTHSY P 15Q TEM P 14Q LASTCHAR P 13Q FIRSTCHAR P 12Q RELFLAG P 11Q FIXEDFLAGS P 10Q XLATEDFAM P 7 STRMCACHE P 6 WSTRM P 5 FD P 4 NSMICASIZE P 3 PRESSMICASIZE P 2 WIDTHS F 35Q PSIZE F 36Q FAMILY F 37Q FACE F 40Q RESETVARSLST F 41Q DEVICE F 42Q ROTATION F 43Q RESETY) ngjd W:n lHW:n o `dWBdW<dW:dW>W> HdIdWD``O6dWWDWBhMW<iO_gg_RO_ MOO  hBh8^j MNKL _%MOW:W>WDWBhMW<iO _ Oj_Nd MN N dnonMjN N dnoMN N dnonMN N dnoMJ M_M_OlMMdnoKnnMMKnMMdnoKnnMMKnMMMN _N Oll>N N _OOjOKn_OO_$_"O$O"tJO$O*O$k_$JOOOkN OO_(_&O(O&JdO((nO(j*O(k_(O*OO_,_*O,O*JO,JO,(Kn*O,k_,Okk+N N _MOOdjKnہOMcFiMngjd _OOOOkN OO_0_.O0O.OdO0(nO0j*O0k_0OOO_4_2O4O2OO4OO4(Kn*O4k_4(2045Q AIN 2021Q ARRAY 1574Q AIN 1023Q SETFILEPTR 1017Q \FIXPIN 725Q \FINDFONT 715Q SETFILEPTR 556Q \FINDFONT 546Q SETFILEPTR 471Q DREVERSE 416Q SETFILEPTR 373Q GETFILEPTR 361Q RANDACCESSP 344Q \FINDFONT 325Q COPYBYTES 321Q OPENSTREAM 302Q RANDACCESSP 264Q OPENSTREAM 240Q \GETSTREAM 225Q INFILEP 102Q \FACECODE 41Q FIXR 12Q ARRAY) (2014Q SMALLPOSP 2006Q FONTDESCRIPTOR 1746Q FONTDESCRIPTOR 1424Q FONTDESCRIPTOR 1416Q FONTDESCRIPTOR 1412Q FONTDESCRIPTOR 1373Q FONTDESCRIPTOR 1367Q FONTDESCRIPTOR 1331Q FONTDESCRIPTOR 1325Q FONTDESCRIPTOR 1306Q FONTDESCRIPTOR 1302Q FONTDESCRIPTOR 1244Q FONTDESCRIPTOR 1240Q FONTDESCRIPTOR 1223Q FONTDESCRIPTOR 1212Q FONTDESCRIPTOR 1202Q FONTDESCRIPTOR 1152Q FONTDESCRIPTOR 1116Q FONTDESCRIPTOR 1064Q FONTDESCRIPTOR 1030Q FONTDESCRIPTOR 764Q FONTDESCRIPTOR 735Q FONTDESCRIPTOR 666Q FONTDESCRIPTOR 645Q CENTURY 637Q CLASSIC 615Q FONTDESCRIPTOR 566Q FONTDESCRIPTOR 536Q FRUTIGER 527Q MODERN 502Q FONTDESCRIPTOR 460Q GACHA 452Q TERMINAL 446Q LOGO 440Q LOGOTYPE 432Q TIMESROMAN 424Q CLASSIC 366Q SETFILEPTR 316Q NEW 313Q BOTH 310Q {NODIRCORE} 257Q OLD 254Q INPUT 234Q INPUT 170Q HELVETICA 157Q MODERN 134Q PRESSFONTWIDTHSFILES 44Q FONTDESCRIPTORTYPE# 5 SMALLPOSP) ( 1345Q 200000Q 1260Q 200000Q 1172Q 200000Q 1136Q 200000Q 1105Q 200000Q 1050Q 200000Q 247Q (PROGN (CLOSEF? OLDVALUE)) 35Q 72.0) \CREATEPRESSFONT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CREATEPRESSFONTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CREATEPRESSFONTA0001)) PRESSBITMAP D1 (P 7 YPOS P 6 XPOS P 5 PRDATA P 4 HEIGHT P 3 WIDTH P 2 PRESSPAGEWIDTH P 1 PRESSPAGEHEIGHT P 0 PRSTREAM I 3 CLIPPINGREGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 10Q PRESSBITMAPREGION) @ WWSH(]BSCEA A JKol^ILol_jNjOdoi i jN NCk o jjOOj_C;jdKJo jLIo j bAWNWOBCH H CKJo jLIo(324Q MIN 305Q CLOSEF 301Q \WRITEPRESSBITMAP 252Q CREATEREGION 245Q MIN 231Q MIN 171Q ERROR 160Q EQUAL 130Q TERPRI 123Q PRIN1 47Q BITMAPHEIGHT 42Q BITMAPWIDTH 3 OPENPRSTREAM) (25Q STREAM) ( 334Q 35.14598 320Q 35.14598 241Q 35.14598 225Q 35.14598 166Q "Spruce cannot scale bitmaps. Try pressing to a full press printer." 117Q "Warning: Bitmap too large for Spruce PRESS page, will be clipped..." 72Q 35.14598 56Q 35.14598) FULLPRESSBITMAP D1 (P 7 YPOS P 6 XPOS P 5 PRDATA P 4 HEIGHT P 3 WIDTH P 2 PRESSPAGEWIDTH P 1 PRESSPAGEHEIGHT P 0 PRSTREAM I 3 CLIPPINGREGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 10Q PRESSBITMAPREGION) @ WWSH(]BobCA A JKBol^ILBol_jNjOGoi i KL bJKBol۾ILBol_jNjOo AWNWOBCH H Cq(266Q CLOSEF 262Q \WRITEPRESSBITMAP 235Q ERROR 154Q PRESS.BITMAPSCALE 146Q TERPRI 141Q PRIN1 61Q BITMAPHEIGHT 54Q BITMAPWIDTH 3 OPENPRSTREAM) (25Q STREAM) ( 232Q "Internal consistency check failed in FULLPRESSBITMAP." 204Q 35.14598 166Q 35.14598 135Q "Warning: Bitmap too large for PRESS page, will be scaled..." 107Q 35.14598 71Q 35.14598 36Q 1.0) SHOWREGION D1 (I 1 STREAM I 0 REGION) D@@A @jhdA j@hdA @ jhdA j@ hdA A(100Q RELDRAWTO 71Q MINUS 60Q RELDRAWTO 50Q MINUS 41Q RELDRAWTO 24Q RELDRAWTO 10Q MOVETO) NIL () SHOWPRESSBITMAPREGION D1 (P 0 STR F 1 PRESSBITMAPREGION) gg QH H (24Q CLOSEF 20Q SHOWREGION 10Q OPENIMAGESTREAM) (5 PRESS 2 {LPT}) () PRESSWINDOW D1 (P 4 HEIGHT P 3 WIDTH P 2 PTSTOMICAS P 1 BITMAP P 0 PRSTREAM I 0 W) ggogoh @ l#CI [I \H(H(] MJKlH H(H(^!NJLlH IhdH H (217Q CLOSEF 213Q \WRITEPRESSBITMAP 204Q DSPYPOSITION 132Q DSPXPOSITION 57Q BITMAPHEIGHT 52Q BITMAPWIDTH 41Q WINDOW.BITMAP 36Q WHICHW 30Q OPENPRSTREAM) (165Q PRESSDATA 157Q PRESSDATA 151Q STREAM 143Q PRESSDATA 136Q STREAM 113Q PRESSDATA 105Q PRESSDATA 77Q STREAM 71Q PRESSDATA 64Q STREAM 14Q BREAKPAGEFILENAME 5 HEADING 2 {CORE}WINDOW.PRESS) ( 20Q "Press Stream Window Image" 11Q "Press Stream Window Image") WINDOW.BITMAP D1 (P 1 BM P 0 REGION I 0 W) -@ @ HH Y@ hdI @ I(51Q OPENW 45Q BKBITBLT 35Q \INSUREWINDOW 30Q BITMAPCREATE 14Q CLOSEW 3 \INSUREWINDOW) NIL () \WRITEPRESSBITMAP D1 (P 23Q BM P 6 CURY P 5 CURX P 4 TOTCOUNT P 3 ELSTREAM P 2 HT P 1 WW P 0 PRDATA I 5 PRSTREAM I 4 CLIPPINGREGION I 3 SCALEFACTOR I 2 YPOS I 1 XPOS I 0 BITMAP) D~E(@@H[H]H^E E E EAB CobEk Ej EI__O OOl EJ EJl El El Ej El ECIl j__O OOl ECJl j__O OOl Ej Ek Ej Ej EI__O OOl Ej Ej EJ EJl Ej El E@JI\O 8_O O"jO$lOKl KLl E E EMN hD @DDO&hdDD O&bY(646Q BKBITBLT 614Q BITMAPCREATE 577Q SETXY.PRESS 571Q \ENTITYSTART.PRESS 565Q \ENTITYEND.PRESS 561Q \FIXPOUT 551Q \BOUT 470Q \BOUT 461Q \BOUT 454Q \BOUT 443Q \BOUT 435Q \BOUT 427Q \BOUT 421Q \BOUT 406Q \BOUT 365Q \BOUT 357Q \BOUT 352Q \BOUT 344Q \BOUT 336Q \BOUT 323Q \BOUT 276Q \BOUT 263Q \BOUT 233Q \BOUT 224Q \BOUT 217Q \BOUT 210Q \BOUT 202Q \BOUT 171Q \BOUT 162Q \BOUT 147Q \BOUT 126Q \BOUT 120Q \BOUT 102Q SETXY.PRESS 74Q \ENTITYSTART.PRESS 70Q \ENTITYEND.PRESS 64Q SHOW.PRESS) (521Q FDEV 514Q STREAM 475Q BITMAP 55Q PRESSDATA 46Q PRESSDATA 37Q PRESSDATA 26Q BITMAP 20Q BITMAP 12Q STREAM) ( 110Q 1.0) \BCPLSOUT.PRESS D1 (P 2 I P 0 NC I 2 N I 1 X I 0 STRM) JA BkbdBB@H HkJI@AJ) JkZBHkJI@j JkZh(77Q \BOUT 47Q \BOUT 27Q \BOUT 3 NCHARS) NIL () \PAGEPAD.PRESS D1 (P 1 PADDING P 0 P I 0 STRM) 2@ nHknYddjdk@HIk @j I(54Q \BOUT 46Q SETFILEPTR 3 GETFILEPTR) NIL () \ENTITYEND.PRESS D1 (P 2 DLLENGTH P 1 ELSTREAM P 0 PRDATA I 3 ETYPE I 2 YOFFSET I 1 XOFFSET I 0 PRSTREAM) h@(`HY@0@kKH\%L&ZI kjIl ICl IH j IH]%M&H^#N$ IJ IAj__O OOl IBj__O OOl IH__O OOl IH__O OOl IH H_ _O OO l IH!H_$_"O$ O"O$l Id H_&'O&(k_*_(O* O(O*l h(544Q \BOUT 531Q \BOUT 475Q GETFILEPTR 467Q \BOUT 454Q \BOUT 422Q \BOUT 407Q \BOUT 355Q \BOUT 342Q \BOUT 317Q \BOUT 304Q \BOUT 261Q \BOUT 246Q \BOUT 225Q \BOUT 212Q \BOUT 172Q \FIXPOUT 165Q \FIXPOUT 130Q \BOUT 110Q \BOUT 76Q \BOUT 63Q GETFILEPTR) (501Q PRESSDATA 436Q PRESSDATA 430Q PRESSDATA 371Q PRESSDATA 363Q PRESSDATA 325Q PRESSDATA 267Q PRESSDATA 150Q PRESSDATA 135Q PRESSDATA 115Q PRESSDATA 46Q PRESSDATA 33Q FDEV 26Q STREAM 17Q PRESSDATA 3 STREAM) () \PARTEND.PRESS D1 (P 2 PDSTREAM P 1 START P 0 PRDATA I 1 PARTTYPE I 0 PRSTREAM) @(qHZH[#K$YJA JAl JI JIl JHl#@ n Iٽ\M LMl J@ _^O NOl Hj h(205Q SETFILEPTR 172Q \BOUT 160Q \BOUT 146Q \PAGEPAD.PRESS 140Q \BOUT 127Q \BOUT 116Q \PUTFIXP 105Q GETFILEPTR 71Q \BOUT 60Q \BOUT 52Q \BOUT 41Q \BOUT) (177Q PRESSDATA 76Q PRESSDATA 23Q PRESSDATA 14Q PRESSDATA 3 STREAM) () \ENTITYSTART.PRESS D1 (P 0 PRDATA I 0 PRSTREAM) w@(AHhHl%@0@kI Hl'H[0KkJ Hl)@0@kL @HH h(163Q SETXY.PRESS 143Q \PUTFIXP 111Q \PUTFIXP 51Q \PUTFIXP) (156Q PRESSDATA 150Q PRESSDATA 131Q FDEV 124Q STREAM 115Q PRESSDATA 77Q FDEV 72Q STREAM 64Q PRESSDATA 55Q PRESSDATA 37Q FDEV 32Q STREAM 23Q PRESSDATA 14Q PRESSDATA 3 STREAM) () SETX.PRESS D1 (P 0 ELSTREAM I 1 X I 0 PRSTREAM) @@(jA AnTVHl HA HAl @(Ah(57Q \BOUT 46Q \BOUT 37Q \BOUT) (71Q PRESSDATA 64Q STREAM 10Q PRESSDATA 3 STREAM) () SETXY.PRESS D1 (P 1 ELSTREAM P 0 PRDATA I 2 Y I 1 X I 0 PRSTREAM) g@(HYjA Andl IA IAl HAjB BnIl IB IBl HBB(133Q \BOUT 122Q \BOUT 113Q \BOUT 61Q \BOUT 50Q \BOUT 41Q \BOUT) (140Q PRESSDATA 66Q PRESSDATA 14Q PRESSDATA 3 STREAM) () SETY.PRESS D1 (P 0 ELSTREAM I 1 Y I 0 PRSTREAM) @@(jA AnHl HA HAl @(Ah(57Q \BOUT 46Q \BOUT 37Q \BOUT) (71Q PRESSDATA 64Q STREAM 10Q PRESSDATA 3 STREAM) () SHOW.PRESS D1 (P 4 ELSTREAM P 3 CNT P 2 CURBYTE P 1 PRDATA I 0 PRSTREAM) @(@0@kH2I\JI])M*[dj_I%II II lp l!KLKkٰ$Ll Ll KlٻKlLl LK Il)J h(235Q \PUTFIXP 221Q \BOUT 213Q \BOUT 171Q \BOUT 162Q \BOUT 137Q \BOUT) (226Q PRESSDATA 125Q PRESSDATA 117Q PRESSDATA 105Q PRESSDATA 101Q PRESSDATA 71Q PRESSDATA 47Q PRESSDATA 37Q PRESSDATA 16Q FDEV 11Q STREAM 3 STREAM) () OPENPRSTREAM D1 (P 2 PRDATA P 1 OPT P 0 PRSTREAM I 1 OPTIONS I 0 PRFILE) $ @gglo `Ag Y[l KdddihI`_ggg dLggg dMAg dNdjdj_dOOOOOOOO OOO!Z`H&H joH Hg H`&HJ(Ag YJIHAg H H(440Q \STARTPAGE.PRESS 434Q SETUPFONTS.PRESS 431Q LISTGET 407Q LISTGET 346Q ERROR 343Q FULLNAME 330Q GETEOFPTR 162Q LISTGET 145Q OPENSTREAM 123Q OPENSTREAM 45Q EQLENGTH 36Q LISTGET 20Q OPENSTREAM) (426Q FONTS 415Q PRESSDATA 404Q HEADING 375Q STREAM 367Q \PRESSIMAGEOPS 364Q STREAM 356Q \PRESS.OUTCHARFN 353Q STREAM 320Q STREAM 314Q \NOIMAGEOPS 272Q PRESSDATA 251Q PRESSDATA 235Q PRESSDATA 222Q PRESSDATA 210Q PRESSDATA 157Q BREAKPAGEFILENAME 142Q OLD/NEW 137Q BOTH 134Q {NODIRCORE} 120Q OLD/NEW 115Q BOTH 112Q {NODIRCORE} 104Q DEFAULTPAGEREGION 33Q REGION 26Q PRESSDATATYPE# 6 NEW 3 OUTPUT) ( 337Q "can't convert existing file to Press" 14Q ((TYPE BINARY))) \CLOSEF.PRESS D1 (P 25Q DDRECORD P 24Q DDFILEPTR P 23Q DESCR P 22Q FDE P 21Q I P 1 PDSTREAM P 0 PRDATA I 0 PRSTREAM F 26Q USERNAME) <@ @(HYd jqH j"O `@j @j @k I@jI @ @ O(_*@lj @l/ @O*k_^O NOl @I __O OOl @H_#O$__O OOl @O*H_#O$__O OOl @l @l @o @j @k @j @k @l @l @l @l @l @l @O(n @H@ l4 @W,l @dg l( @ h_$_&@j @l @O$ @O$ @O& @O& @O&g l @O&g @O& @O&g ZK JKl @O&\M LMl O _ O"k_"(1051Q \BOUT 1040Q \BOUT 1020Q \BOUT 1007Q \BOUT 1000Q FONTPROP 766Q \BOUT 752Q \BOUT 747Q \FACECODE 744Q FONTPROP 732Q \BCPLSOUT.PRESS 725Q FONTPROP 713Q \BOUT 677Q \BOUT 663Q \BOUT 652Q \BOUT 640Q \BOUT 631Q \BOUT 613Q \PAGEPAD.PRESS 606Q \BCPLSOUT.PRESS 601Q GETFILEINFO 570Q \BCPLSOUT.PRESS 557Q \BCPLSOUT.PRESS 552Q FULLNAME 534Q SETFILEPTR 521Q \BOUT 512Q \BOUT 503Q \BOUT 474Q \BOUT 465Q \BOUT 456Q \BOUT 447Q \BOUT 441Q \BOUT 433Q \BOUT 425Q \BOUT 417Q \FIXPOUT 407Q IDATE 402Q \BOUT 373Q \BOUT 364Q \BOUT 351Q \BOUT 314Q \BOUT 301Q \BOUT 247Q \BOUT 234Q \BOUT 216Q GETFILEPTR 210Q \BOUT 176Q \BOUT 156Q \BOUT 147Q \BOUT 127Q GETFILEPTR 122Q \PAGEPAD.PRESS 115Q COPYBYTES 112Q GETFILEPTR 102Q \PARTEND.PRESS 74Q \BOUT 66Q \BOUT 27Q GETFILEPTR 3 \ENDPAGE.PRESS) (1027Q FONTDESCRIPTOR 775Q DEVICESIZE 761Q FONTDESCRIPTOR 741Q DEVICEFACE 722Q DEVICEFAMILY 706Q FONTDESCRIPTOR 672Q FONTDESCRIPTOR 576Q CREATIONDATE 542Q PRESSDATA 324Q PRESSDATA 255Q PRESSDATA 41Q PRESSDATA 20Q PRESSDATA 7 STREAM) ( 413Q -20000000000Q) \DRAWLINE.PRESS D1 (I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 PRSTREAM) @AB CD hhgEh D(30Q \DRAWCURVE.PRESS 12Q CREATEPOSITION 5 CREATEPOSITION) (21Q BUTT) () \ENDPAGE.PRESS D1 (P 0 ELSTREAM I 0 PRSTREAM) p@(1@ @ H0HkIjE@0@kJkj@j @j @j H@jH0HkK @j h(154Q \PARTEND.PRESS 146Q COPYBYTES 117Q \BOUT 111Q \BOUT 103Q \BOUT 25Q \ENTITYEND.PRESS 21Q SHOW.PRESS) (134Q FDEV 127Q STREAM 62Q FDEV 55Q STREAM 36Q FDEV 31Q STREAM 10Q PRESSDATA 3 STREAM) () NEWLINE.PRESS D1 (P 1 NEWYPOS P 0 PRDATA I 0 PRSTREAM) *@(HHYdH@ @ @HI h(46Q SETXY.PRESS 35Q SHOW.PRESS 30Q NEWPAGE.PRESS) NIL () NEWPAGE.PRESS D1 (I 0 PRSTREAM) @ @ (7 \STARTPAGE.PRESS 3 \ENDPAGE.PRESS) NIL () SETUPFONTS.PRESS D1 (P 2 FLG P 1 F I 1 FONTS I 0 PRSTREAM) LA`!HdHhHHIhddg J@I @I @ @(Ii(70Q \ENTITYEND.PRESS 63Q \DSPFONT.PRESS 53Q \DEFINEFONT.PRESS 43Q FONTCREATE) (102Q PRESSDATA 75Q STREAM 37Q PRESS 5 DEFAULTFONT) () \DEFINEFONT.PRESS D1 (P 0 PRDATA I 1 FONT I 0 PRSTREAM) m@(!AH XHAHHhHHkYIlHHkHjH Z J(22Q FASSOC) (141Q PRESSDATA 130Q PRESSDATA 113Q PRESSDATA 107Q PRESSDATA 63Q PRESSDATA 57Q PRESSDATA 44Q PRESSDATA 35Q PRESSDATA 30Q PRESSDATA 15Q PRESSDATA 3 STREAM) () \DSPBOTTOMMARGIN.PRESS D1 (L (1 YPOSITION 0 PRSTREAM)) @(A@(ANIL (25Q PRESSDATA 20Q STREAM 10Q PRESSDATA 3 STREAM) () \DSPFONT.PRESS D1 (P 2 FDENTRY P 1 OLDFONT P 0 PRDATA I 1 FONT I 0 PRSTREAM) z@(!HYAldAgi IA bW@ @A ZdH @ @ HJ HAHJlp HA nj HmA@ I(166Q \FIXLINELENGTH.PRESS 142Q ARRAY 125Q \BOUT 100Q \ENTITYSTART.PRESS 73Q \ENTITYEND.PRESS 52Q \DEFINEFONT.PRESS 45Q SHOW.PRESS 34Q FONTCOPY 25Q \COERCEFONTDESC) (155Q FONTDESCRIPTOR 21Q PRESS) () \DSPLEFTMARGIN.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @(A@(A@ (21Q \FIXLINELENGTH.PRESS) NIL () \DSPLINEFEED.PRESS D1 (P 0 PRDATA I 1 DELTAY I 0 PRSTREAM) &@(HAAdddHA (42Q \ILLEGAL.ARG) NIL () \DSPRIGHTMARGIN.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @( A@(A @ (21Q \FIXLINELENGTH.PRESS) NIL () \DSPTOPMARGIN.PRESS D1 (L (1 YPOSITION 0 PRSTREAM)) @(!A@(A!NIL (25Q PRESSDATA 20Q STREAM 10Q PRESSDATA 3 STREAM) () \DSPXPOSITION.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @(A@ @A (26Q SETX.PRESS 20Q SHOW.PRESS) (10Q PRESSDATA 3 STREAM) () \DSPYPOSITION.PRESS D1 (I 1 YPOSITION I 0 PRSTREAM) @(A@ @A (26Q SETY.PRESS 20Q SHOW.PRESS) (10Q PRESSDATA 3 STREAM) () \FIXLINELENGTH.PRESS D1 (P 1 LLEN P 0 PRDATA I 0 PRSTREAM) "@(@H HlA@ YkIl h(23Q CHARWIDTH) NIL () \PRESS.OUTCHARFN D1 (P 1 XPOS P 0 PRDATA I 1 CHARCODE I 0 PRSTREAM) Adl @ @jjl @h@ @ Al @j@ @(jHdHAع InTVHIjH@A @ @I h(174Q SETX.PRESS 166Q SHOW.PRESS 161Q \BOUT 66Q NEWPAGE.PRESS 45Q \DSPXPOSITION.PRESS 41Q NEWLINE.PRESS 35Q DSPXPOSITION 12Q NEWLINE.PRESS) (150Q PRESSDATA 137Q PRESSDATA 105Q PRESSDATA 73Q STREAM 57Q STREAM 16Q STREAM) () \STARTPAGE.PRESS D1 (P 2 HFONT P 1 CFONT P 0 PRDATA I 0 PRSTREAM) @(1HY@ HpH@J @HH!J H@ @ @Hn o@ HH"k["K@ @ @ @HH!I @I h(246Q \DSPFONT.PRESS 240Q SETXY.PRESS 207Q NEWLINE.PRESS 202Q NEWLINE.PRESS 175Q PRIN3 147Q PRIN3 136Q SETX.PRESS 117Q SHOW.PRESS 112Q PRIN3 77Q SETXY.PRESS 47Q \DSPFONT.PRESS 23Q \ENTITYSTART.PRESS) (232Q FONTDESCRIPTOR 224Q PRESSDATA 216Q PRESSDATA 160Q PRESSDATA 154Q PRESSDATA 125Q PRESSDATA 104Q PRESSDATA 71Q FONTDESCRIPTOR 63Q PRESSDATA 55Q PRESSDATA 37Q PRESSDATA 27Q PRESSDATA 14Q PRESSDATA 3 STREAM) ( 143Q "Page ") SHOWRECTANGLE.PRESS D1 (P 0 ELSTREAM I 2 HEIGHT I 1 WIDTH I 0 PRSTREAM) 5@(Hl HA HAl HB HBl h(61Q \BOUT 50Q \BOUT 42Q \BOUT 31Q \BOUT 23Q \BOUT) (10Q PRESSDATA 3 STREAM) () ENDVECRUN D1 (P 7 CH P 6 ORIGWASDISPLAYING P 5 WASDISPLAYING P 4 YPOS P 3 XPOS P 2 ORIGYPOS P 1 ORIGXPOS P 0 PRDATA I 1 HALFVECWIDTH I 0 PRSTREAM) @ @(aHjH.H0Ko Lo AKhALhLnA Kn A^]@IJ H,idAKNALILnA@Kn A6M @ @Ko Lo i@jOjO h]KOٻLO\@ @IJ HNkjHh,h(342Q SETXY.PRESS 333Q SHOW.PRESS 302Q \BOUT 277Q VECENCODE 256Q SETXY.PRESS 253Q FIXR 242Q FIXR 227Q SHOW.PRESS 144Q SETXY.PRESS 72Q FIXR 60Q FIXR 3 SHOW.PRESS) (364Q PRESSDATA 347Q PRESSDATA 151Q PRESSDATA 44Q PRESSDATA 35Q PRESSDATA 20Q PRESSDATA 7 STREAM) ( 247Q 6.614584 236Q 6.614584 66Q 6.614584 54Q 6.614584) VECENCODE D1 (L (1 DY 0 DX)) 4Aj@jAl@dAAl l@A@jAHdIIlNIL NIL () VECPUT D1 (P 2 YPOS P 1 XPOS P 0 PRDATA I 3 HALFVECWIDTH I 2 DY I 1 DX I 0 PRSTREAM) @(!HjjAHj"Aj@C HHjkjH.YH0ZHIA.HJB0HjfCJVJnCLCIGIn C=Hj'@ @Io Jo Hk@AB HjjHABH,,h(303Q \BOUT 300Q VECENCODE 260Q SETXY.PRESS 255Q FIXR 244Q FIXR 231Q SHOW.PRESS 53Q ENDVECRUN) (333Q PRESSDATA 324Q PRESSDATA 311Q PRESSDATA 265Q PRESSDATA 216Q PRESSDATA 145Q PRESSDATA 134Q PRESSDATA 123Q PRESSDATA 114Q PRESSDATA 105Q PRESSDATA 64Q PRESSDATA 60Q PRESSDATA 32Q PRESSDATA 14Q PRESSDATA 3 STREAM) ( 251Q 6.614584 240Q 6.614584) VECSKIP D1 (I 2 DY I 1 DX I 0 PRSTREAM F 0 VecCurX F 1 VecCurY) @ PAcQBc@ (21Q ENDVECRUN 3 ENDVECRUN) NIL () VECFONTINIT D1 (P 6 BRUSH P 5 FMLY P 1 WIDTHS) `ongkj RHJ0 oAd`dgdMdNdodjdI _O Oh_O&_OK Lh[HXL&(23Q ARRAY) (66Q PRESS 61Q FONTDESCRIPTORTYPE# 37Q \VecFontDir 16Q SMALLP 2 \VecFontDir) ( 110Q (MEDIUM REGULAR REGULAR) 51Q (4 10Q 20Q 40Q 100Q) 10Q (NEWVEC SNEWVEC HNEWVEC VNEWVEC)) \DRAWCIRCLE.PRESS D1 (P 0 R2RAD I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) fCo ACB AHBH ABC AHBH ACB AHBH ABC AHBH hiDE@ AB@ (143Q MOVETO 134Q DRAWCURVE 113Q CREATEPOSITION 102Q CREATEPOSITION 73Q CREATEPOSITION 62Q CREATEPOSITION 53Q CREATEPOSITION 42Q CREATEPOSITION 33Q CREATEPOSITION 22Q CREATEPOSITION 10Q FIXR) NIL ( 4 .7071068) \DRAWCURVE.PRESS D1 (P 5 KNOT P 1 LASTKNOT P 0 DASHLST I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 PRSTREAM) A@ Dd dddihDD AAAhbD"A l@AAAACD A@@A(d]o Mo KJh\J&LB DC A @II @(254Q SETXY.PRESS 242Q LAST 235Q \PRESSCURVE2 232Q \GETBRUSHFONT.PRESS 225Q PARAMETRICSPLINE 177Q CREATEPOSITION 174Q FIXR 162Q FIXR 135Q \DRAWCURVE.PRESS.LINE 103Q LENGTH 54Q \ILLEGAL.ARG 11Q SHOW.PRESS) NIL ( 170Q .1511811 156Q .1511811) \DRAWCURVE.PRESS.LINE D1 (P 7 TR P 6 LB P 5 DIST P 4 BOTTOM P 3 LEFT P 2 BACKOFF P 1 WIDTH P 0 SHAPE I 6 DASHING I 5 BRUSH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 PRSTREAM) g EdEkYHdgjghIlۺAC fAIlٻjKKInTVBdDDBD_NJ_jOOjOJ_niOOni_N]jv@KN @IM iBD aBIlټjLLIniAdCCAC_NJ_jOOjOJ_nTVOOnTV_N]j@NL @MI i(370Q SHOWRECTANGLE.PRESS 361Q SETXY.PRESS 230Q EQP 221Q SHOWRECTANGLE.PRESS 212Q SETXY.PRESS 55Q EQP) (37Q ROUND 27Q BUTT 2 ROUND) () \DRAWELLIPSE.PRESS D1 (P 1 COSOR P 0 SINOR I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 PRSTREAM) fE_oESo@AIDBHD AHCBIC AIDBHD AHCBIC hiFG AB@ h (142Q SIN 135Q COS 130Q MOVETO 122Q \DRAWCURVE.PRESS 105Q CREATEPOSITION 70Q CREATEPOSITION 53Q CREATEPOSITION 36Q CREATEPOSITION) NIL ( 15Q 1.0 6 0.0) \GETBRUSHFONT.PRESS D1 (P 0 LIST1 I 0 BRUSH) @dg/dg`&dg`dg`g`@dbko djdkHdlHdldldlHH(124Q FIXR 2 VECFONTINIT) (75Q \VecFontDir 70Q BUTT 61Q \VecFontDir 53Q VERTICAL 43Q \VecFontDir 35Q HORIZONTAL 26Q \VecFontDir 20Q SQUARE 11Q ROUND) ( 120Q .02845276) \PRESSCURVE2A0001 D1 (NAME ERRORSET P 47Q KNOT# P 45Q HALFVECWIDTH P 44Q DASHCNT P 43Q DASHLST P 42Q DASHON P 41Q DELTA P 40Q NEWT P 37Q TT P 36Q EXTRANEOUS P 35Q DUPLICATEKNOT P 34Q YWALLDT P 33Q XWALLDT P 32Q YDIFF P 31Q XDIFF P 30Q NEWYT P 27Q NEWXT P 26Q Y'T P 25Q X'T P 24Q YT P 23Q XT P 22Q DY P 21Q DX P 20Q IY P 17Q IX P 16Q Y0 P 15Q X0 P 14Q #KNOTS P 13Q Y''' P 12Q X''' P 11Q Y'' P 10Q X'' P 7 Y' P 6 X' P 5 Y P 4 X P 3 Y'POLY P 2 YPOLY P 1 X'POLY P 0 XPOLY F 50Q SPLINE F 51Q PRSTREAM F 52Q BRUSHFONT F 53Q RESETVARSLST F 54Q RESETY F 55Q DASHING) 5(gWTWR WRhhhWVcVl l l l WPWPWPWPWPWPWPWPWPWPk(WPk(%WTg _Ji_DWZ_F_HWROo Oo WR(kWR(jdOOkjWR(h,WR(O.WR(O0o_>l_BO _O _ Okk'ONOLHIOON(OON(NON(LON( JKOON(OON(OON(MON( HO>l _&JO>l _(oO>yIO>l _*KO>l _,O*o o_*O,o o_,O*o OBjOB_"O,o OBjOB_$OO"O&O*_6O O$O(O,_8O6O>O6_@O(O6O, O _$O>O8_@O&O8O* O_"O@o O:ONOko_@HO@l _.JO@l _0OO"O. _2O O$O0 _4OBkO2o O4o OB_BWRO"O$OJ OO"_O O$_ O@_>O._&O0_(lOBoO2oO4OB_BO>o_>ONk_NWROJ hcXi(1454Q ENDVECRUN 1314Q VECPUT 1267Q FGTP 1255Q FGTP 1233Q ABS 1215Q ABS 1177Q EVALPOLY 1164Q EVALPOLY 1130Q FGTP 1111Q FIXR 1056Q FIXR 760Q FGTP 734Q FGTP 713Q EQP 672Q EQP 656Q EVALPOLY 643Q EVALPOLY 615Q EVALPOLY 602Q EVALPOLY 571Q LOADPOLY 537Q LOADPOLY 463Q FIXR 453Q FIXR 303Q SETXY.PRESS 300Q FIXR 266Q FIXR 233Q FONTPROP 74Q ARRAY 62Q ARRAY 50Q ARRAY 36Q ARRAY 11Q DSPFONT) (425Q PRESSDATA 420Q STREAM 406Q PRESSDATA 401Q STREAM 370Q PRESSDATA 363Q STREAM 335Q PRESSDATA 330Q STREAM 316Q PRESSDATA 311Q STREAM 230Q SIZE 77Q ARRAYP 65Q ARRAYP 53Q ARRAYP 41Q ARRAYP 2 DSPFONT) ( 1427Q 1.0 1401Q .5 1371Q .5 1264Q 1.0 1252Q 1.0 1151Q 1.0 1125Q 1.0 755Q 0.0 731Q 0.0 720Q .0005 710Q 0.0 677Q .0005 667Q 0.0 624Q 1.0 436Q 0.0 274Q 6.614584 262Q 6.614584) \PRESSCURVE2 D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 BRUSHFONT I 2 DASHING I 1 SPLINE I 0 PRSTREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PRESSCURVE2A0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\PRESSCURVE2A0001)) \PRESSINITA0013 D1 (I 0 STREAM) @g (6 \UNIMPIMAGEOP) (3 FILLCIRCLE) () \PRESSINITA0015 D1 (I 0 STREAM) @g (6 \UNIMPIMAGEOP) (3 BLTSHADE) () \PRESSINITA0017 D1 (I 0 STREAM) @g (6 \UNIMPIMAGEOP) (3 BLTSHADE) () \PRESSINITA0019 D1 NIL oNIL NIL ( 3 35.27778) \PRESSINITA0027 D1 (I 1 CHARCODE I 0 STREAM) Ah@ (10Q CHARWIDTH 5 DSPFONT) NIL () \PRESSINITA0029 D1 (I 2 RDTBL I 1 STR I 0 STREAM) Ah@ Bd (12Q STRINGWIDTH 5 DSPFONT) NIL () \PRESSINITA0033 D1 (I 2 Y I 1 X I 0 STREAM) +@&@AlH@&@BlHNIL (35Q IMAGEOPS 30Q STREAM 10Q IMAGEOPS 3 STREAM) () \PRESSINIT D1 NIL `dgdgdgdgdgdg dg dgdgdgdgdgdgdgdgdg"dg$dg(dg&dg,dgdg8dg4dg2dg0dg.dg NIL (303Q \PRESSIMAGEOPS 275Q \PRESSINITA0033 266Q NILL 257Q NILL 250Q \PRESSINITA0029 241Q \PRESSINITA0027 232Q NILL 223Q NEWPAGE.PRESS 214Q PRESS 205Q \DSPTOPMARGIN.PRESS 176Q \DSPBOTTOMMARGIN.PRESS 167Q NEWLINE.PRESS 160Q \PRESSINITA0019 151Q \PRESSINITA0017 142Q \PRESSINITA0015 133Q \PRESSINITA0013 124Q \DRAWELLIPSE.PRESS 115Q \DRAWCIRCLE.PRESS 106Q \DRAWCURVE.PRESS 77Q \DRAWLINE.PRESS 70Q \DSPLINEFEED.PRESS 61Q \DSPRIGHTMARGIN.PRESS 52Q \DSPLEFTMARGIN.PRESS 43Q \DSPFONT.PRESS 34Q \DSPYPOSITION.PRESS 25Q \DSPXPOSITION.PRESS 16Q \CLOSEF.PRESS 7 PRESS 2 IMAGEOPSTYPE#) () MAKEPRESS D1 (I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE) @AgBCD (13Q TEXTTOIMAGEFILE) (4 PRESS) () PRESSFILEPA0001 D1 (NAME ERRORSET L (0 NIL) F 1 FILE F 2 RESETVARSLST F 3 LEN F 4 RESETY) TQg gQd hhoQggl hRcQSn nj/Qg H H jci(101Q \GETSTREAM 66Q SETFILEPTR 45Q OPENFILE 17Q GETFILEPTR 6 OPENP) (76Q INPUT 40Q OLD 35Q INPUT 12Q SETFILEPTR 3 INPUT) ( 31Q (PROGN (CLOSEF? OLDVALUE))) PRESSFILEP D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 LEN I 0 FILE F 4 LISPXHIST F 5 RESETVARSLST) I@ bd>g Hj1Hnj)T!Uog hg[ KJ@h(76Q ERROR! 70Q RESETRESTORE 56Q PRESSFILEPA0001 16Q GETFILEINFO 3 FINDFILE) (64Q ERROR 53Q INTERNAL 13Q LENGTH) ( 50Q (PRESSFILEPA0001)) PRESS.BITMAPSCALE D1 (I 1 HEIGHT I 0 WIDTH F 0 PRESSBITMAPREGION) PoAPo@l (33Q MIN) NIL ( 23Q .02845276 10Q .02845276) millsToMicas D1 (L (0 N)) @ll2NIL NIL () (PRETTYCOMPRINT PRESSCOMS) (RPAQQ PRESSCOMS ((FNS \HACKBLTSHADE) (P (MOVD? (QUOTE \HACKBLTSHADE) (QUOTE BLTSHADE))) (COMS (FNS \SEARCHPRESSFONTS \GETPRESSFONTNAMES \PRESSFAMILYCODELST \DECODEPRESSFACEBYTE \CREATEPRESSFONT) ( INITVARS (PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS))) (DECLARE: DONTCOPY (CONSTANTS noInfoCode))) (FNS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW WINDOW.BITMAP \WRITEPRESSBITMAP) (FNS \BCPLSOUT.PRESS \PAGEPAD.PRESS) (FNS \ENTITYEND.PRESS \PARTEND.PRESS \ENTITYSTART.PRESS SETX.PRESS SETXY.PRESS SETY.PRESS SHOW.PRESS) (FNS OPENPRSTREAM \CLOSEF.PRESS \DRAWLINE.PRESS \ENDPAGE.PRESS NEWLINE.PRESS NEWPAGE.PRESS SETUPFONTS.PRESS \DEFINEFONT.PRESS \DSPBOTTOMMARGIN.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS \DSPLINEFEED.PRESS \DSPRIGHTMARGIN.PRESS \DSPTOPMARGIN.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \FIXLINELENGTH.PRESS \PRESS.OUTCHARFN \STARTPAGE.PRESS SHOWRECTANGLE.PRESS) (COMS (* Drawcurve code) (FNS ENDVECRUN VECENCODE VECPUT VECSKIP VECFONTINIT \DRAWCIRCLE.PRESS \DRAWCURVE.PRESS \DRAWCURVE.PRESS.LINE \DRAWELLIPSE.PRESS \GETBRUSHFONT.PRESS \PRESSCURVE2) (INITVARS (\VecFontDir)) (CONSTANTS ( \MicasPerInch 2540)) (DECLARE: DONTCOPY (CONSTANTS (ScansPerIn 384) (PointsPerIn 72.27) (MicasPerScan (FQUOTIENT \MicasPerInch ScansPerIn)) (ScansPerMica (FQUOTIENT ScansPerIn \MicasPerInch)) ( ScansPerPoint (FQUOTIENT ScansPerIn PointsPerIn)) (PointsPerScan (FQUOTIENT PointsPerIn ScansPerIn)) ( MicasPerPoint (FQUOTIENT \MicasPerInch PointsPerIn)) (PointsPerMica (FQUOTIENT PointsPerIn \MicasPerInch)) (SPRUCEPAPERTOPSCANS 4096) (SPRUCEPAPERTOPMICAS (FIX (FQUOTIENT (FTIMES SPRUCEPAPERTOPSCANS \MicasPerInch) ScansPerIn))) (SPRUCEPAPERRIGHTMICAS (FIX (FTIMES 8.5 \MicasPerInch ))) (SPRUCEPAPERRIGHTSCANS (FIX (FTIMES 8.5 ScansPerIn)))))) (FNS \PRESSINIT) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\PRESSINIT))) (DECLARE: DONTCOPY (RECORDS PRESSDATA FONTDIRENTRY)) (INITRECORDS PRESSDATA) (INITVARS (DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765)) (PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch)) (TIMES 10 \MicasPerInch)))) (GLOBALVARS DEFAULTPAGEREGION) ( DECLARE: DONTCOPY (CONSTANTS (BYTESPERRECORD 512) (LISPENTITYTYPE 6) (MICASPERINCH \MicasPerInch)) (E (RESETSAVE (RADIX 8))) (CONSTANTS * PRESSOPS)) (COMS (FNS MAKEPRESS PRESSFILEP PRESS.BITMAPSCALE millsToMicas) (INITVARS (PRESSTABSTOPS (QUOTE (8000)))) (ALISTS (IMAGESTREAMTYPES PRESS)) (ADDVARS ( PRINTERTYPES ((PRESS SPRUCE PENGUIN DOVER) (CANPRINT (PRESS)) (STATUS PUP.PRINTER.STATUS) (PROPERTIES PUP.PRINTER.PROPERTIES) (SEND EFTP) (BITMAPSCALE NIL) (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((FULLPRESS RAVEN) (* same as PRESS but can scale bitmaps) (CANPRINT (PRESS) ) (STATUS TRUE) (PROPERTIES NILL) (SEND EFTP) (BITMAPSCALE PRESS.BITMAPSCALE) (BITMAPFILE ( FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (PRINTFILETYPES (PRESS (TEST PRESSFILEP) (EXTENSION (PRESS)) (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING) ( SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE PRESS)) ( CLOSEF? FILE) PFILE))))))))) (MOVD? (QUOTE \HACKBLTSHADE) (QUOTE BLTSHADE)) (RPAQ? PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS)) (RPAQ? \VecFontDir) (RPAQQ \MicasPerInch 2540) (CONSTANTS (\MicasPerInch 2540)) (\PRESSINIT) (/DECLAREDATATYPE (QUOTE PRESSDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD BYTE BYTE FIXP FIXP FIXP FIXP FLAG FLAG POINTER POINTER POINTER))) (RPAQ? DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765)) (RPAQ? PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch)) (TIMES 10 \MicasPerInch))) (RPAQ? PRESSTABSTOPS (QUOTE (8000))) (ADDTOVAR IMAGESTREAMTYPES (PRESS (OPENSTREAM OPENPRSTREAM) (FONTCREATE \CREATEPRESSFONT) ( FONTSAVAILABLE \SEARCHPRESSFONTS))) (ADDTOVAR PRINTERTYPES ((PRESS SPRUCE PENGUIN DOVER) (CANPRINT (PRESS)) (STATUS PUP.PRINTER.STATUS) ( PROPERTIES PUP.PRINTER.PROPERTIES) (SEND EFTP) (BITMAPSCALE NIL) (BITMAPFILE (PRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))) ((FULLPRESS RAVEN) (* same as PRESS but can scale bitmaps) ( CANPRINT (PRESS)) (STATUS TRUE) (PROPERTIES NILL) (SEND EFTP) (BITMAPSCALE PRESS.BITMAPSCALE) ( BITMAPFILE (FULLPRESSBITMAP FILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR PRINTFILETYPES (PRESS (TEST PRESSFILEP) (EXTENSION (PRESS)) (CONVERSION (TEXT MAKEPRESS TEDIT (LAMBDA (FILE PFILE FONTS HEADING) (SETQ FILE (OPENTEXTSTREAM FILE)) (TEDIT.FORMAT.HARDCOPY FILE PFILE T NIL NIL NIL (QUOTE PRESS)) (CLOSEF? FILE) PFILE))))) (PUTPROPS PRESS COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984)) NIL