(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "20-Nov-86 14:38:28" ("compiled on " {ERIS}SOURCES>PRESS.;128) "18-Nov-86 13:30:40" tcompl'd in "Xerox Lisp 18-Nov-86 ..." dated "18-Nov-86 14:45:01") (FILECREATED "20-Nov-86 14:22:50" {ERIS}SOURCES>PRESS.;128 143624 changes to%: (FNS \STRINGWIDTH.PRESS) previous date%: " 4-Aug-86 15:25:30" {ERIS}SOURCES>PRESS.;127) \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 8 PSIZE F 9 FACE) u`1HJc iHhHHI Igi [gKd hhhTcKj oIggl [hTcKVWWW J (112 UNION 108 \GETPRESSFONTNAMES 87 OPENSTREAM 69 SETFILEPTR 51 GETFILEPTR 40 \GETSTREAM 30 INFILEP) (82 OLD 79 INPUT 46 SETFILEPTR 36 INPUT 2 PRESSFONTWIDTHSFILES) ( 75 (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(29 ERROR! 24 RESETRESTORE 14 \SEARCHPRESSFONTSA0001) (20 ERROR 11 INTERNAL) ( 8 (\SEARCHPRESSFONTSA0001)) \GETPRESSFONTNAMES D1 (P 10 XROTATION P 9 XFACE P 8 XSIZE P 7 XFAMILY P 6 XFACE P 5 TYPE P 4 FONTSFOUND P 3 MICASIZE P 2 NEXT P 1 FAMILYCODELST P 0 XFACECODE I 4 ROTATION I 3 FACE I 2 PSIZE I 1 FAMILY I 0 WSTRM) 4CgC C h@ jBgh Bn lHt @J @ J@ MlԺMdl@ I o _AgAOl@ ^HN Cg&CN!NC"O NC^_Ohi@ @ @ @ _BgKOOjeK_^@ @ _DgODGOOlHo NOghL&_OOOghO_O_djL(245 FIXR 121 \DECODEPRESSFACEBYTE 91 ERROR 47 SETFILEPTR 21 \PRESSFAMILYCODELST 15 \FACECODE 10 MEMB) (278 * 251 PRESS 220 * 184 * 126 * 98 * 26 * 6 *) ( 241 2540.0 88 "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(83 PACKC 8 SETFILEPTR) NIL () \DECODEPRESSFACEBYTE D1 (L (0 FACECODE)) hl@b0l @@l bgl@@lbggXl@@lbgl@@lbggZ@kggYJIHhNIL (93 REGULAR 89 ITALIC 81 MEDIUM 77 BOLD 60 LIGHT 44 REGULAR 40 COMPRESSED 23 EXPANDED) () \CREATEPRESSFONTA0001 D1 (NAME ERRORSET L (0 NIL) P 2 FD F 3 FACE F 4 DEVICE F 5 FAMILY F 6 PSIZE F 7 RESETY F 8 ROTATION) l`dTdUdVdSS HdIdWdo"djdjdjni HdI(J(jJi Jci(99 \CREATECHARSET 74 \ALLOCBLOCK 27 \FACECODE) (2 |FONTDESCRIPTORTYPE#|) ( 49 35.27778) \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(29 ERROR! 24 RESETRESTORE 14 \CREATEPRESSFONTA0001) (20 ERROR 11 INTERNAL) ( 8 (\CREATEPRESSFONTA0001)) \CREATECHARSET.PRESSA0001 D1 (NAME ERRORSET P 53 SIZE P 52 LENGTH P 51 TYPE P 50 NEXT P 49 SIZE P 48 LENGTH P 47 TYPE P 46 NEXT P 45 SIZE P 44 LENGTH P 43 TYPE P 42 NEXT P 41 F P 39 CSINFO P 38 FD P 37 NSMICASIZE P 36 STRMCACHE P 35 XLATEDFAM P 34 FIXEDFLAGS P 33 RELFLAG P 32 FIRSTCHAR P 31 LASTCHAR P 30 TEM P 29 WIDTHSY P 28 WIDTHS P 27 PRESSMICASIZE P 0 WSTRM F 62 FAMILY F 63 SIZE F 64 FACE F 65 RESETVARSLST F 66 CHARSETHEIGHT F 67 DEVICE F 68 ROTATION F 69 RESETY F 70 FBBOX F 71 FOO) > p$W~n lH_6W~n o %`dWdW|dW~dWW dIdWdo"ni dJ(&`l dKl dL'`)OPdaW|dg0gIOP_RhOP_ROP_POR ORgi XMoORggl XhWcH Hggg X HOH_Hj1-W|iH <' gHd hhhWcHj jh_BGiHHOT H _VH _XOTOXOVl_TOVdlƿH H H _@H _>H H _Zj OZOZ oOJOZOJ H H ]jMM OZvdggdgggg_F OH _H_OLOFOhW|dgܿgXj j11OFiH ;j/h_BOLOFW~WWWhOLW|iHO\ H _^H _`O\O`O^l_\O^dl𲤿H H H _@H _>H H _bj ObOb oOJObOJ H H ^jNN ObUO_gg_FOH_OLOFO hhXj j15OFiH ;j/h_BOLOFW~WWWhOLW|iHOd H _fH _hOdOhOfl_dOfdl𲤿H H H _@H _>H H _jj OjOj oOJOjOJ H H _jOO OjRO_!OBj OBOB _BON_8Hd H H dnnkcONjH H dnnk H H cH H dnnkcOB$ONON OJn WOJncONWON H _DH ODllPH H _O@__OOO8OO<Ok_O>O@__OOO8OnOk_Hg O8O@O>O@k9Ol6_OlOnOpOrlOO>O@_ _O OO8O nO8O jO k_ OB1O>O@_$_"O$O" O8O$O8O$OJnO$k_$ODkkKH H H H ؀j_:ONOBO:djd O:OJnہO:ONciONl _&O&_:O>O@_*_(O*O(O:O*nO*k_*Hg O:O@O>O@k=Ot6_,OtOvOxOzlO,O>O@_0_.O0O.O:O0nO:O0jO0k_0OBWO>O@_4_2O4O2DO:O4O:O4OJnO4k_4(1620 \GETSTREAM 1567 \ALLOCBLOCK 1529 \FZEROP 1492 GETEOFPTR 1488 GETFILEPTR 1334 \GETSTREAM 1241 \FZEROP 1053 SETFILEPTR 1049 \FIXPIN 1031 \FZEROP 999 \FZEROP 974 ABS 957 \FZEROP 879 SETFILEPTR 821 \FAMILYCODE 807 SETFILEPTR 743 \FZEROP 721 ABS 704 \FZEROP 626 SETFILEPTR 568 \FAMILYCODE 554 SETFILEPTR 505 DREVERSE 457 \FZEROP 435 ABS 418 \FZEROP 340 SETFILEPTR 317 SETFILEPTR 298 GETFILEPTR 288 RANDACCESSP 281 \FAMILYCODE 260 COPYBYTES 256 OPENSTREAM 241 RANDACCESSP 227 OPENSTREAM 207 \GETSTREAM 196 INFILEP 127 \ALLOCBLOCK 116 \ALLOCBLOCK 98 \ALLOCBLOCK 70 \FACECODE 34 FIXR) (1646 FDEV 1641 STREAM 1617 INPUT 1562 CHARSETINFO 1511 CHARSETINFO 1360 FDEV 1355 STREAM 1331 INPUT 1183 CHARSETINFO 1176 CHARSETINFO 1147 CHARSETINFO 1142 CHARSETINFO 1080 CHARSETINFO 1039 CHARSETINFO 865 FONTDESCRIPTOR 841 FONTDESCRIPTOR 781 FONTDESCRIPTOR 767 CENTURY 761 CLASSIC 612 FONTDESCRIPTOR 588 FONTDESCRIPTOR 545 FRUTIGER 536 MODERN 515 FONTDESCRIPTOR 496 GACHA 490 TERMINAL 486 LOGO 480 LOGOTYPE 474 TIMESROMAN 468 CLASSIC 293 SETFILEPTR 253 NEW 250 BOTH 247 {NODIRCORE} 222 OLD 219 INPUT 203 INPUT 167 HELVETICA 158 MODERN 139 PRESSFONTWIDTHSFILES 110 |CHARSETINFOTYPE#| 40 |FONTDESCRIPTORTYPE#|) ( 963 0.02 710 0.02 424 0.02 214 (PROGN (CLOSEF? OLDVALUE)) 88 35.27778 30 72.0) \CREATECHARSET.PRESS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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 3 LISPXHIST F 4 RESETVARSLST) .Ejo S!Tog hgZ JI(41 ERROR! 36 RESETRESTORE 26 \CREATECHARSET.PRESSA0001 10 ERROR) (32 ERROR 23 INTERNAL) ( 20 (\CREATECHARSET.PRESSA0001) 7 "Press does not support NS characters.") 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 8 PRESSBITMAPREGION) @ WWSH(]BSCEA A JKol^ILol_jNjOboi i jNNCko jjOOj_C;jdKJo jLIo j bAWNWOBCH H CKJo jLIo(210 MIN 195 CLOSEF 191 \WRITEPRESSBITMAP 168 CREATEREGION 163 MIN 151 MIN 119 ERROR 88 TERPRI 83 PRIN1 39 BITMAPHEIGHT 34 BITMAPWIDTH 3 OPENPRSTREAM) (21 STREAM) ( 218 35.14598 206 35.14598 159 35.14598 147 35.14598 116 "Spruce cannot scale bitmaps. Try pressing to a full press printer." 79 "Warning: Bitmap too large for Spruce PRESS page, will be clipped..." 58 35.14598 46 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 8 PRESSBITMAPREGION) @ WWSH(]BobCA A JKBol^ILBol_jNjOGoi i KL bJKBol۾ILBol_jNjOo AWNWOBCH H Cq(182 CLOSEF 178 \WRITEPRESSBITMAP 157 ERROR 108 PRESS.BITMAPSCALE 102 TERPRI 97 PRIN1 49 BITMAPHEIGHT 44 BITMAPWIDTH 3 OPENPRSTREAM) (21 STREAM) ( 154 "Internal consistency check failed in FULLPRESSBITMAP." 132 35.14598 118 35.14598 93 "Warning: Bitmap too large for PRESS page, will be scaled..." 71 35.14598 57 35.14598 30 1.0) SHOWREGION D1 (I 1 STREAM I 0 REGION) D@@A @jhdA j@hdA @ jhdA j@ hdA A(64 RELDRAWTO 57 MINUS 48 RELDRAWTO 40 MINUS 33 RELDRAWTO 20 RELDRAWTO 8 MOVETO) NIL () SHOWPRESSBITMAPREGION D1 (P 0 STR F 1 PRESSBITMAPREGION) gg QH H (20 CLOSEF 16 SHOWREGION 8 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 (143 CLOSEF 139 \WRITEPRESSBITMAP 132 DSPYPOSITION 90 DSPXPOSITION 47 BITMAPHEIGHT 42 BITMAPWIDTH 33 WINDOW.BITMAP 30 WHICHW 24 OPENPRSTREAM) (117 PRESSDATA 111 PRESSDATA 105 STREAM 99 PRESSDATA 94 STREAM 75 PRESSDATA 69 PRESSDATA 63 STREAM 57 PRESSDATA 52 STREAM 12 BREAKPAGEFILENAME 5 HEADING 2 {CORE}WINDOW.PRESS) ( 16 "Press Stream Window Image" 9 "Press Stream Window Image") WINDOW.BITMAP D1 (P 1 BM P 0 REGION I 0 W) -@ @ HH Y@ hdI @ I(41 OPENW 37 BKBITBLT 29 \INSUREWINDOW 24 BITMAPCREATE 12 CLOSEW 3 \INSUREWINDOW) NIL () \WRITEPRESSBITMAP D1 (P 19 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) DE(@@H[H]H^E E E EAB CobEk Ej EI__O OOl EJ EJl El El Ej El ECIo __O OOl ECJo __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&bS(428 BKBITBLT 402 BITMAPCREATE 389 SETXY.PRESS 383 \ENTITYSTART.PRESS 379 \ENTITYEND.PRESS 375 \FIXPOUT 367 \BOUT 318 \BOUT 311 \BOUT 306 \BOUT 297 \BOUT 291 \BOUT 285 \BOUT 279 \BOUT 268 \BOUT 251 \BOUT 245 \BOUT 240 \BOUT 234 \BOUT 228 \BOUT 217 \BOUT 206 FIXR 193 \BOUT 182 \BOUT 171 FIXR 155 \BOUT 148 \BOUT 143 \BOUT 136 \BOUT 130 \BOUT 121 \BOUT 114 \BOUT 103 \BOUT 86 \BOUT 80 \BOUT 66 SETXY.PRESS 60 \ENTITYSTART.PRESS 56 \ENTITYEND.PRESS 52 SHOW.PRESS) (343 FDEV 338 STREAM 323 BITMAP 45 PRESSDATA 38 PRESSDATA 31 PRESSDATA 22 BITMAP 16 BITMAP 10 STREAM) ( 201 32.0 166 32.0 72 1.0) \BCPLSOUT.PRESS D1 (P 2 I P 0 NC I 2 N I 1 X I 0 STRM) LA BkbdBB@H HkJI@AJ JkZBHkJI@j JkZh(65 \BOUT 41 \BOUT 38 NTHCHARCODE 23 \BOUT 3 NCHARS) NIL () \PAGEPAD.PRESS D1 (P 1 PADDING P 0 P I 0 STRM) 2@ nHknYddjdk@HIk @j I(44 \BOUT 38 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) V@( HY@0@kKHl% ZI kjIl ICl IH j IHl% Hl# IJ IAj\M LMl IBj_^O NOl IH__O OOl IH__O OOl IH H__O OOl IH!H__O OOl Id Hl' k_"_ O" O O"l h(338 \BOUT 327 \BOUT 312 \GETBASEFIXP 303 GETFILEPTR 297 \BOUT 286 \BOUT 260 \BOUT 249 \BOUT 223 \BOUT 212 \BOUT 193 \BOUT 182 \BOUT 163 \BOUT 153 \BOUT 137 \BOUT 128 \BOUT 116 \FIXPOUT 111 \FIXPOUT 105 \GETBASEFIXP 96 \GETBASEFIXP 86 \BOUT 70 \BOUT 60 \BOUT 49 GETFILEPTR 43 \GETBASEFIXP) (307 PRESSDATA 272 PRESSDATA 266 PRESSDATA 235 PRESSDATA 229 PRESSDATA 199 PRESSDATA 169 PRESSDATA 100 PRESSDATA 91 PRESSDATA 75 PRESSDATA 38 PRESSDATA 27 FDEV 22 STREAM 15 PRESSDATA 3 STREAM) () \PARTEND.PRESS D1 (P 2 PDSTREAM P 1 START P 0 PRDATA I 1 PARTTYPE I 0 PRSTREAM) @(aHZHl# YJA JAl JI JIl JHl#@ n Iټ[L KLl J@ ]N MNl Hj h(126 SETFILEPTR 115 \BOUT 106 \BOUT 99 \PAGEPAD.PRESS 93 \BOUT 84 \BOUT 75 \PUTBASEFIXP 66 GETFILEPTR 55 \BOUT 46 \BOUT 40 \BOUT 31 \BOUT 24 \GETBASEFIXP) (120 PRESSDATA 60 PRESSDATA 19 PRESSDATA 12 PRESSDATA 3 STREAM) () \ENTITYSTART.PRESS D1 (P 0 PRDATA I 0 PRSTREAM) l@(AHh4HhHl%@0@kI Hl'H[0KkJ Hl)@0@kL @HH h(104 SETXY.PRESS 88 \PUTBASEFIXP 66 \PUTBASEFIXP 38 \PUTBASEFIXP) (99 PRESSDATA 93 PRESSDATA 78 FDEV 73 STREAM 56 FDEV 51 STREAM 45 PRESSDATA 28 FDEV 23 STREAM 3 STREAM) () SETX.PRESS D1 (P 0 ELSTREAM I 1 X I 0 PRSTREAM) Q@(jA1AnTV*A@(jHl HA HAl @(Ah(64 \BOUT 55 \BOUT 48 \BOUT) (74 PRESSDATA 69 STREAM 35 PRESSDATA 30 STREAM 8 PRESSDATA 3 STREAM) () SETXY.PRESS D1 (P 1 ELSTREAM P 0 PRDATA I 2 Y I 1 X I 0 PRSTREAM) g@(HYjA AnTVdl IA IAl HAjB BniIl IB IBl HBB(91 \BOUT 82 \BOUT 75 \BOUT 49 \BOUT 40 \BOUT 33 \BOUT) (96 PRESSDATA 54 PRESSDATA 12 PRESSDATA 3 STREAM) () SETY.PRESS D1 (P 0 ELSTREAM I 1 Y I 0 PRSTREAM) H@(jA.Ani'A@(jHl HA HAl @(Ah(61 \BOUT 52 \BOUT 45 \BOUT) (32 PRESSDATA 8 PRESSDATA 3 STREAM) () SHOW.PRESS D1 (P 4 ELSTREAM P 3 CNT P 2 CURBYTE P 1 PRDATA I 0 PRSTREAM) @(@0@kH"I\JIl) [dj_I%II II lp l!KLKkٰ$Ll Ll KlٻKlLl LK Il)J h(154 \PUTBASEFIXP 143 \BOUT 137 \BOUT 119 \BOUT 112 \BOUT 93 \BOUT 44 \GETBASEFIXP) (148 PRESSDATA 83 PRESSDATA 77 PRESSDATA 67 PRESSDATA 63 PRESSDATA 55 PRESSDATA 39 PRESSDATA 31 PRESSDATA 14 FDEV 9 STREAM 3 STREAM) () OPENPRSTREAM D1 (P 2 PRDATA P 1 OPT P 0 PRSTREAM I 1 OPTIONS I 0 PRFILE) / @gglo  `Ag'Y[l Kd3ihI`_ggg dLggg dMAg'dNjdnTVnrh_dO6dk2djdj_dOOOOOOOO OOO!Z`H&H joH Hg H`&HJ(Ag'YJIHAg' H H(299 \STARTPAGE.PRESS 295 SETUPFONTS.PRESS 245 ERROR 242 FULLNAME 231 GETEOFPTR 91 OPENSTREAM 73 OPENSTREAM 35 EQLENGTH 16 OPENSTREAM) (291 FONTS 282 PRESSDATA 275 HEADING 268 STREAM 262 \PRESSIMAGEOPS 259 STREAM 253 \OUTCHARFN.PRESS 250 STREAM 223 STREAM 219 \NOIMAGEOPS 201 PRESSDATA 184 PRESSDATA 172 PRESSDATA 161 PRESSDATA 151 PRESSDATA 101 DOCUMENT.NAME 88 OLD/NEW 85 BOTH 82 {NODIRCORE} 70 OLD/NEW 67 BOTH 64 {NODIRCORE} 58 DEFAULTPAGEREGION 27 REGION 22 |PRESSDATATYPE#| 6 NEW 3 OUTPUT) ( 238 "can't convert existing file to Press" 12 ((TYPE BINARY))) \BITBLT.PRESS D1 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT P 1 OLDY P 0 OLDX 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) ]C C DHEICJ CK @JKkGGGFG C CH CI iGGFG (89 INTERSECTREGIONS 86 CREATEREGION 74 \DSPYPOSITION.PRESS 68 \DSPXPOSITION.PRESS 62 \WRITEPRESSBITMAP 57 CREATEREGION 38 \DSPYPOSITION.PRESS 32 \DSPXPOSITION.PRESS 10 \DSPYPOSITION.PRESS 3 \DSPXPOSITION.PRESS) NIL () \BLTSHADE.PRESS D1 (P 1 DESTREGION P 0 REGION I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) )BCDE GHG H@ABCDEFGl (38 \BLTSHADE.GENERICPRINTER 18 INTERSECTREGIONS 6 CREATEREGION) NIL () \SCALEDBITBLT.PRESS D1 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT P 1 OLDY P 0 OLDX 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 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) ^C C DHEICJ CK @JKGGGGFG C CH CI iGGFG (90 INTERSECTREGIONS 87 CREATEREGION 75 \DSPYPOSITION.PRESS 69 \DSPXPOSITION.PRESS 63 \WRITEPRESSBITMAP 58 CREATEREGION 38 \DSPYPOSITION.PRESS 32 \DSPXPOSITION.PRESS 10 \DSPYPOSITION.PRESS 3 \DSPXPOSITION.PRESS) NIL () \BITMAPSIZE.PRESS D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) =BdgA gA BA A  (58 \ILLEGAL.ARG 48 BITMAPHEIGHT 39 BITMAPWIDTH 26 BITMAPHEIGHT 11 BITMAPWIDTH) (20 HEIGHT 4 WIDTH) () \CHARWIDTH.PRESS D1 (I 1 CHARCODE I 0 STREAM) 9A bdl @(4@(AlH(IIH Il(45 \CREATECHARSET 3 \PRESS.CONVERT.NSCHARACTER) NIL () \CLOSEF.PRESS D1 (P 19 DDRECORD P 18 DDFILEPTR P 17 DESCR P 16 FDE P 15 I P 1 PDSTREAM P 0 PRDATA I 0 PRSTREAM F 20 USERNAME) %@ @( HYd jiH j"OX@j @j @k I@jI @ @ O$_&@lj @l/ @O&k_^O NOl @I __O OOl @Hl# __O OOl @O&Hl# __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  @l @l @O"g l @O"g @l @O"g ZK JKl @O"\M LMl O_Ok_(530 \BOUT 521 \BOUT 505 \BOUT 496 \BOUT 489 FONTPROP 479 \BOUT 472 \BOUT 469 \FACECODE 466 FONTPROP 456 \BCPLSOUT.PRESS 451 FONTPROP 441 \BOUT 434 \BOUT 427 \BOUT 418 \BOUT 408 \BOUT 401 \BOUT 387 \PAGEPAD.PRESS 382 \BCPLSOUT.PRESS 377 GETFILEINFO 368 \BCPLSOUT.PRESS 359 \BCPLSOUT.PRESS 354 FULLNAME 340 SETFILEPTR 329 \BOUT 322 \BOUT 315 \BOUT 308 \BOUT 301 \BOUT 294 \BOUT 287 \BOUT 281 \BOUT 275 \BOUT 269 \BOUT 263 \FIXPOUT 255 IDATE 250 \BOUT 243 \BOUT 236 \BOUT 225 \BOUT 213 \GETBASEFIXP 200 \BOUT 189 \BOUT 178 \GETBASEFIXP 167 \BOUT 156 \BOUT 142 GETFILEPTR 136 \BOUT 126 \BOUT 110 \BOUT 103 \BOUT 87 GETFILEPTR 82 \PAGEPAD.PRESS 77 COPYBYTES 74 GETFILEPTR 66 \PARTEND.PRESS 60 \BOUT 54 \BOUT 23 GETFILEPTR 3 \ENDPAGE.PRESS) (512 FONTDESCRIPTOR 486 DEVICESIZE 463 DEVICEFACE 448 DEVICEFAMILY 374 CREATIONDATE 346 PRESSDATA 208 PRESSDATA 173 PRESSDATA 33 PRESSDATA 16 PRESSDATA 7 STREAM) ( 259 -2147483648) \DRAWLINE.PRESS D1 (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 PRSTREAM) 4 GABCDEF@GG @AB CD hhgEhG D(48 \DRAWCURVE.PRESS 31 CREATEPOSITION 26 CREATEPOSITION 18 DRAWDASHEDLINE) (38 BUTT) () \ENDPAGE.PRESS D1 (P 0 ELSTREAM I 0 PRSTREAM) p@(1@ @ H0HkIjE@0@kJkj@j @j @j H@jH0HkK @j h(108 \PARTEND.PRESS 102 COPYBYTES 79 \BOUT 73 \BOUT 67 \BOUT 21 \ENTITYEND.PRESS 17 SHOW.PRESS) (92 FDEV 87 STREAM 50 FDEV 45 STREAM 30 FDEV 25 STREAM 8 PRESSDATA 3 STREAM) () NEWLINE.PRESS D1 (P 1 NEWYPOS P 0 PRDATA I 0 PRSTREAM) *@(HHYdH@ @ @HI h(38 SETXY.PRESS 29 SHOW.PRESS 24 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(56 \ENTITYEND.PRESS 51 \DSPFONT.PRESS 43 \DEFINEFONT.PRESS 35 FONTCREATE) (66 PRESSDATA 61 STREAM 31 PRESS 5 DEFAULTFONT) () \DEFINEFONT.PRESS D1 (P 0 PRDATA I 1 FONT I 0 PRSTREAM) k@(!AH XHAHHhHHkYIlHHkHjH Z JNIL (95 PRESSDATA 86 PRESSDATA 73 PRESSDATA 69 PRESSDATA 49 PRESSDATA 45 PRESSDATA 34 PRESSDATA 27 PRESSDATA 22 PRESSDATA 13 PRESSDATA 3 STREAM) () \DSPBOTTOMMARGIN.PRESS D1 (I 1 YPOSITION I 0 PRSTREAM) @(A@(ANIL (21 PRESSDATA 16 STREAM 8 PRESSDATA 3 STREAM) () \DSPCLIPPINGREGION.PRESS D1 (P 1 \INTERRUPTABLE P 0 PRDATA I 1 REGION I 0 STREAM) 9@(H6A*Al Ad3ihAo HA6(45 ERROR 20 EQLENGTH) (3 STREAM) ( 42 " is not a REGION.") \DSPFONT.PRESS D1 (P 3 FDENTRY P 2 OLDFONT P 1 CSINFO P 0 PRDATA I 1 FONT I 0 PRSTREAM) @(1HZAdAgi JA bm@ A(jAi Y@A [dH @ @ HK HAHKlp HI@H2H HmA@ J(142 \FIXLINELENGTH.PRESS 126 \SETSPACE.PRESS 123 FIXR 101 \BOUT 80 \ENTITYSTART.PRESS 75 \ENTITYEND.PRESS 58 \DEFINEFONT.PRESS 52 \CREATECHARSET 39 SHOW.PRESS 30 FONTCOPY 23 \COERCEFONTDESC) (133 FONTDESCRIPTOR 106 CHARSETINFO 19 PRESS) () \DSPLEFTMARGIN.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @(A@(A@ (17 \FIXLINELENGTH.PRESS) NIL () \DSPLINEFEED.PRESS D1 (P 0 PRDATA I 1 DELTAY I 0 PRSTREAM) @(HAAd3HA (25 \ILLEGAL.ARG) NIL () \DSPRIGHTMARGIN.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @( A@(A @ (17 \FIXLINELENGTH.PRESS) NIL () \DSPSPACEFACTOR.PRESS D1 (P 0 PRDATA I 1 FACTOR I 0 STREAM) '@(H2A@ HA2@AH (35 \SETSPACE.PRESS 32 FIXR 15 SHOW.PRESS) NIL () \DSPTOPMARGIN.PRESS D1 (I 1 YPOSITION I 0 PRSTREAM) @(!A@(A!NIL (21 PRESSDATA 16 STREAM 8 PRESSDATA 3 STREAM) () \DSPXPOSITION.PRESS D1 (I 1 XPOSITION I 0 PRSTREAM) @(A@ @A (22 SETX.PRESS 16 SHOW.PRESS) (8 PRESSDATA 3 STREAM) () \DSPYPOSITION.PRESS D1 (I 1 YPOSITION I 0 PRSTREAM) @(A@ @A (22 SETY.PRESS 16 SHOW.PRESS) (8 PRESSDATA 3 STREAM) () \FIXLINELENGTH.PRESS D1 (P 1 LLEN P 0 PRDATA I 0 PRSTREAM) '@(@H HH$YkIl hNIL (22 FONTDESCRIPTOR 17 PRESSDATA) () \OUTCHARFN.PRESS D1 (P 3 CLIPPINGREGION P 2 NEWXPOS P 1 XPOS P 0 PRDATA I 1 CHARCODE I 0 PRSTREAM) Adl @ @jjl @h@ @ Al @j@ @(1HYA bIAl H4HAZIH6[AJKKk4HK'H4jHk4@ @IH @A @ Hj4jHJh(176 SHOW.PRESS 171 \BOUT 165 SETXY.PRESS 153 SHOW.PRESS 75 \PRESS.CONVERT.NSCHARACTER 54 NEWPAGE.PRESS 37 \DSPXPOSITION.PRESS 33 NEWLINE.PRESS 29 DSPXPOSITION 10 NEWLINE.PRESS) (189 PRESSDATA 160 PRESSDATA 126 PRESSDATA 101 PRESSDATA 68 PRESSDATA 59 STREAM 47 STREAM 14 STREAM) () \SETSPACE.PRESS D1 (P 1 ELSTREAM P 0 PRDATA I 1 S I 0 PRSTREAM) S@(1AH4h@(YAndAn`ػZK JKIl IA IAl HA4h(74 \BOUT 65 \BOUT 58 \BOUT 48 \BOUT) (25 PRESSDATA 20 STREAM 3 STREAM) () \STARTPAGE.PRESS D1 (P 3 SPACEFACTOR P 2 HFONT P 1 CFONT P 0 PRDATA I 0 PRSTREAM) @(AHY@ HoH2Hk2H@J @HH!J H@ @ @Hn o@ HH"k\"L@ @ @ HK2@HH!I @I h(150 \DSPFONT.PRESS 144 SETXY.PRESS 120 NEWLINE.PRESS 115 NEWLINE.PRESS 110 PRIN3 88 PRIN3 79 SETX.PRESS 67 SHOW.PRESS 62 PRIN3 54 SETXY.PRESS 36 \DSPFONT.PRESS 13 \ENTITYSTART.PRESS) (138 FONTDESCRIPTOR 97 PRESSDATA 93 PRESSDATA 48 FONTDESCRIPTOR) ( 84 "Page ") \STRINGWIDTH.PRESSA0001 D1 (I 1 CC I 0 DUMMY F 0 TOTALWIDTH F 1 STREAM F 2 WIDTHSBASE) A bPAl Q(4RAlc(3 \PRESS.CONVERT.NSCHARACTER) NIL () \STRINGWIDTH.PRESS D1 (P 23 CSET P 22 WIDTHSBASE P 21 TOTALWIDTH P 16 C P 14 CSET P 13 ESC P 12 ESCWIDTH P 11 WIDTHSBASE P 10 TOTAL P 6 C P 2 CSET P 1 WIDTHSBASE P 0 PRFONT I 2 RDTBL I 1 STRING I 0 STREAM) W@(AdloB%H(jH jAjC L__L jh_Kk[O-OOKOK¾MN ^l @(4INlԽMjH(dH 2BO"_B_OO_AQOk_$O_&O$O_"OCjhi_(O$k_$O"LO(O&O$O&O$_ _ OO l @(4OO lBO l"O OOj_OjH(dH gABd O*(338 \MAPPNAME 324 \CREATECHARSET 255 \PRESS.CONVERT.NSCHARACTER 143 \CREATECHARSET 99 \PRESS.CONVERT.NSCHARACTER 33 \CREATECHARSET) (332 \STRINGWIDTH.PRESSA0001 163 READTABLEP) () SHOWRECTANGLE.PRESS D1 (P 0 ELSTREAM I 2 HEIGHT I 1 WIDTH I 0 PRSTREAM) 5@(Hl HA HAl HB HBl h(49 \BOUT 40 \BOUT 34 \BOUT 25 \BOUT 19 \BOUT) (8 PRESSDATA 3 STREAM) () \PRESS.CONVERT.NSCHARACTER D1 (L (0 CHARCODE)) L@dn-ln,l@dn/ln$l@dn%lnfl@dll`ll'@lNIL NIL () \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(226 SETXY.PRESS 219 SHOW.PRESS 194 \BOUT 191 \VECENCODE 174 SETXY.PRESS 171 FIXR 162 FIXR 151 SHOW.PRESS 100 SETXY.PRESS 58 FIXR 48 FIXR 3 SHOW.PRESS) (244 PRESSDATA 231 PRESSDATA 105 PRESSDATA 36 PRESSDATA 29 PRESSDATA 16 PRESSDATA 7 STREAM) ( 167 6.6145835 158 6.6145835 54 6.6145835 44 6.6145835) \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(195 \BOUT 192 \VECENCODE 176 SETXY.PRESS 173 FIXR 164 FIXR 153 SHOW.PRESS 43 \ENDVECRUN) (219 PRESSDATA 212 PRESSDATA 201 PRESSDATA 181 PRESSDATA 142 PRESSDATA 101 PRESSDATA 92 PRESSDATA 83 PRESSDATA 76 PRESSDATA 69 PRESSDATA 52 PRESSDATA 48 PRESSDATA 26 PRESSDATA 12 PRESSDATA 3 STREAM) ( 169 6.6145835 160 6.6145835) \VECSKIP D1 (I 2 DY I 1 DX I 0 PRSTREAM F 0 VecCurX F 1 VecCurY) @ PAcQBc@ (17 \ENDVECRUN 3 \ENDVECRUN) NIL () \VECFONTINIT D1 (P 11 BRUSH P 7 CSINFO P 6 FD P 5 FMLY P 1 WIDTHS) `ongkj  HJ0od_`dgdMdOdodjdk$ni _dO(`I_dOl _dO_N(ON_O Oh_O&_yOK Lh[HXRL&(130 \ALLOCBLOCK 96 \ALLOCBLOCK 19 ARRAY) (146 FONTDESCRIPTOR 114 ARRAYP 109 |CHARSETINFOTYPE#| 57 PRESS 52 |FONTDESCRIPTORTYPE#| 31 \VecFontDir 14 SMALLP 2 \VecFontDir) ( 76 (MEDIUM REGULAR REGULAR) 41 (4 8 16 32 64) 8 (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@ (99 MOVETO 92 DRAWCURVE 75 CREATEPOSITION 66 CREATEPOSITION 59 CREATEPOSITION 50 CREATEPOSITION 43 CREATEPOSITION 34 CREATEPOSITION 27 CREATEPOSITION 18 CREATEPOSITION 8 FIXR) NIL ( 4 0.70710677) \DRAWARC.PRESS D1 (I 7 DASHING I 6 BRUSH I 5 NDEGREES I 4 STARTANGLE I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) @ABCDEFG (12 \DRAWARC.GENERIC) NIL () \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@ Dddd3 ihDD AAAhbD"A l@AAAACD A@@A(d]o Mo KJh\J&LB DC A @II @(168 SETXY.PRESS 158 LAST 153 \PRESSCURVE2 150 \GETBRUSHFONT.PRESS 145 PARAMETRICSPLINE 123 CREATEPOSITION 120 FIXR 110 FIXR 89 \DRAWCURVE.PRESS.LINE 63 LENGTH 40 \ILLEGAL.ARG 9 SHOW.PRESS) NIL ( 116 0.1511811 106 0.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(248 SHOWRECTANGLE.PRESS 241 SETXY.PRESS 152 EQP 145 SHOWRECTANGLE.PRESS 138 SETXY.PRESS 45 EQP) (31 ROUND 23 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 (98 SIN 93 COS 88 MOVETO 82 \DRAWCURVE.PRESS 69 CREATEPOSITION 56 CREATEPOSITION 43 CREATEPOSITION 30 CREATEPOSITION) NIL ( 13 1.0 6 0.0) \GETBRUSHFONT.PRESS D1 (P 0 LIST1 I 0 BRUSH) @dg/dg`&dg`dg`g`@dbko djdkHdlHdldldlHH(84 FIXR 2 \VECFONTINIT) (61 \VecFontDir 56 BUTT 49 \VecFontDir 43 VERTICAL 35 \VecFontDir 29 HORIZONTAL 22 \VecFontDir 16 SQUARE 9 ROUND) ( 80 0.028452754) \PRESSCURVE2A0001 D1 (NAME ERRORSET P 44 KNOT# P 42 EXTRADY P 41 PUTDY P 40 EXTRADX P 39 PUTDX P 38 HALFVECWIDTH P 37 DASHCNT P 36 DASHLST P 35 DASHON P 34 DELTA P 33 NEWT P 32 TT P 31 EXTRANEOUS P 30 DUPLICATEKNOT P 29 YWALLDT P 28 XWALLDT P 27 YDIFF P 26 XDIFF P 25 NEWYT P 24 NEWXT P 23 Y'T P 22 X'T P 21 YT P 20 XT P 19 DY P 18 DX P 17 IY P 16 IX P 15 Y0 P 14 X0 P 13 %#KNOTS P 12 Y''' P 11 X''' P 10 Y'' P 9 X'' P 8 Y' P 7 X' P 6 Y P 5 X P 4 Y'POLY P 3 YPOLY P 2 X'POLY P 1 XPOLY P 0 PRDATA F 45 PRSTREAM F 46 SPLINE F 47 BRUSHFONT F 48 RESETVARSLST F 49 RESETY F 50 DASHING) k-gW^WZ WZhhhW`c`WZ(H Hl' naWZ WZ WZ(l lg lg lg lg W\W\W\W\W\W\W\W\W\W\k W\k *W^g _Li_FWd_H_JWZOo Oo WZ(kWZ(jdOOkjWZ(h,WZ(O.WZ(O0o_@l_DO _ O _"Okk,OXOVIJOOX OOX OOX MOX KLOOX OOX OOX NOX O@Il2_(O@Kl2_*OXOkj-MOXk MOXl NOXk NOXl h_dg8dg6dg0dg.dg NIL (321 \PRESSIMAGEOPS 315 \PRESSINITA0047 308 NILL 301 NILL 294 NILL 287 NILL 280 NILL 273 \DRAWPOLYGON.GENERIC 266 NILL 259 NILL 252 NILL 245 NILL 238 NILL 231 NILL 224 NILL 217 NILL 210 NILL 203 \DRAWPOINT.GENERIC 196 \DRAWARC.PRESS 189 \SCALEDBITBLT.PRESS 182 \DSPCLIPPINGREGION.PRESS 175 \BITMAPSIZE.PRESS 168 \CHARWIDTH.PRESS 161 \STRINGWIDTH.PRESS 154 \DSPSPACEFACTOR.PRESS 147 NEWPAGE.PRESS 140 PRESS 133 \DSPTOPMARGIN.PRESS 126 \DSPBOTTOMMARGIN.PRESS 119 NEWLINE.PRESS 112 \PRESSINITA0017 105 \BITBLT.PRESS 98 \BLTSHADE.PRESS 91 \PRESSINITA0013 84 \DRAWELLIPSE.PRESS 77 \DRAWCIRCLE.PRESS 70 \DRAWCURVE.PRESS 63 \DRAWLINE.PRESS 56 \DSPLINEFEED.PRESS 49 \DSPRIGHTMARGIN.PRESS 42 \DSPLEFTMARGIN.PRESS 35 \DSPFONT.PRESS 28 \DSPYPOSITION.PRESS 21 \DSPXPOSITION.PRESS 14 \CLOSEF.PRESS 7 PRESS 2 |IMAGEOPSTYPE#|) () MAKEPRESS D1 (I 4 TABS I 3 HEADING I 2 FONTS I 1 PFILE I 0 FILE) @AgBCD (11 TEXTTOIMAGEFILE) (4 PRESS) () PRESSFILEPA0001 D1 (NAME ERRORSET F 0 PRESS-STREAM F 1 RESETVARSLST F 2 FILE F 3 RESETY F 4 LEN) 5oRggl chQcPTn nj/P P jci(34 SETFILEPTR 15 OPENSTREAM) (10 OLD 7 INPUT) ( 3 (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) S@ bdHg Hj;Hd 1Hnj)T!Uog hg[ KJ@h(72 ERROR! 66 RESETRESTORE 56 PRESSFILEPA0001 30 \FZEROP 14 GETFILEINFO 3 FINDFILE) (62 ERROR 53 INTERNAL 11 LENGTH) ( 50 (PRESSFILEPA0001)) PRESS.BITMAPSCALE D1 (I 1 HEIGHT I 0 WIDTH F 0 PRESSBITMAPREGION) PoAPo@l (27 MIN) NIL ( 19 0.028452754 8 0.028452754) (PRETTYCOMPRINT PRESSCOMS) (RPAQQ PRESSCOMS ((COMS (FNS \SEARCHPRESSFONTS \GETPRESSFONTNAMES \PRESSFAMILYCODELST \DECODEPRESSFACEBYTE \CREATEPRESSFONT \CREATECHARSET.PRESS) (INITVARS (PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS))) (ALISTS (SYSTEMINITVARS PRESSFONTWIDTHSFILES)) (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 \BITBLT.PRESS \BLTSHADE.PRESS \SCALEDBITBLT.PRESS \BITMAPSIZE.PRESS \CHARWIDTH.PRESS \CLOSEF.PRESS \DRAWLINE.PRESS \ENDPAGE.PRESS NEWLINE.PRESS NEWPAGE.PRESS SETUPFONTS.PRESS \DEFINEFONT.PRESS \DSPBOTTOMMARGIN.PRESS \DSPCLIPPINGREGION.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS \DSPLINEFEED.PRESS \DSPRIGHTMARGIN.PRESS \DSPSPACEFACTOR.PRESS \DSPTOPMARGIN.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \FIXLINELENGTH.PRESS \OUTCHARFN.PRESS \SETSPACE.PRESS \STARTPAGE.PRESS \STRINGWIDTH.PRESS SHOWRECTANGLE.PRESS \PRESS.CONVERT.NSCHARACTER) (COMS (* Drawcurve code) (FNS \ENDVECRUN \VECENCODE \VECPUT \VECSKIP \VECFONTINIT \DRAWCIRCLE.PRESS \DRAWARC.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))) (SPRUCEPAPERBOTTOMSCANS 0) ( SPRUCEPAPERBOTTOMMICAS 0) (SPRUCEPAPERLEFTSCANS 0) (SPRUCEPAPERLEFTMICAS 0)))) (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) (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))))))))) (RPAQ? PRESSFONTWIDTHSFILES (QUOTE {ERIS}FONTS>FONTS.WIDTHS)) (ADDTOVAR SYSTEMINITVARS (PRESSFONTWIDTHSFILES {DSK}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 POINTER POINTER FLAG POINTER)) (QUOTE (( PRESSDATA 0 POINTER) (PRESSDATA 2 POINTER) (PRESSDATA 4 POINTER) (PRESSDATA 6 POINTER) (PRESSDATA 8 POINTER) (PRESSDATA 10 POINTER) (PRESSDATA 12 POINTER) (PRESSDATA 14 POINTER) (PRESSDATA 16 POINTER) ( PRESSDATA 18 POINTER) (PRESSDATA 20 POINTER) (PRESSDATA 22 POINTER) (PRESSDATA 24 POINTER) (PRESSDATA 26 POINTER) (PRESSDATA 28 POINTER) (PRESSDATA 30 (BITS . 15)) (PRESSDATA 31 (BITS . 15)) (PRESSDATA 32 (BITS . 15)) (PRESSDATA 33 (BITS . 15)) (PRESSDATA 34 (BITS . 15)) (PRESSDATA 28 (BITS . 7)) ( PRESSDATA 26 (BITS . 7)) (PRESSDATA 35 FIXP) (PRESSDATA 37 FIXP) (PRESSDATA 39 FIXP) (PRESSDATA 41 FIXP) (PRESSDATA 24 (FLAGBITS . 0)) (PRESSDATA 24 (FLAGBITS . 16)) (PRESSDATA 44 POINTER) (PRESSDATA 46 POINTER) (PRESSDATA 48 POINTER) (PRESSDATA 50 POINTER) (PRESSDATA 52 POINTER) (PRESSDATA 52 ( FLAGBITS . 0)) (PRESSDATA 54 POINTER))) (QUOTE 56)) (RPAQ? DEFAULTPAGEREGION (CREATEREGION 2794 1905 16256 24765)) (RPAQ? PRESSBITMAPREGION (CREATEREGION 1270 1270 (FIX (TIMES 7.5 \MicasPerInch)) (TIMES 10 \MicasPerInch))) (ADDTOVAR IMAGESTREAMTYPES (PRESS (OPENSTREAM OPENPRSTREAM) (FONTCREATE \CREATEPRESSFONT) ( CREATECHARSET \CREATECHARSET.PRESS) (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 1985 1986)) NIL