(FILECREATED "13-Mar-85 18:20:04" ("compiled on " {ERIS}SOURCES>PRESS.;110) "12-Mar-85 08:12:45" recompiled changes: \PRESSCURVE2 in "INTERLISP-D 12-Mar-85 ..." dated "12-Mar-85 08:24:13") (FILECREATED "13-Mar-85 18:17:35" {ERIS}SOURCES>PRESS.;110 104570 changes to: (FNS \PRESSCURVE2) previous date: "12-Mar-85 14:45:39" {ERIS}SOURCES>PRESS.;108) \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 12Q XROTATION P 11Q XFACE P 10Q 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) 6CgC C h@ jBgh Bn lHt @J @ J@ MlԺMdl@ I  o _AgAOl@ ^HN Cg&CN!NC"O NC^_Ohi@ @ @ @ _BgKOOjcK_\@ @ _DgODEOOlHo NOghL$_OOOghO_O_djL(367Q FIXR 173Q \DECODEPRESSFACEBYTE 135Q ERROR 123Q FASSOC 57Q SETFILEPTR 25Q \PRESSFAMILYCODELST 17Q \FACECODE 12Q MEMB) (430Q * 375Q PRESS 336Q * 272Q * 200Q * 144Q * 32Q * 6 *) ( 363Q 2540.0 132Q "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> HdIdWDdo"``O6dWWDWBhMW<iO_gg_}O_ MOO  hBhc^j MNKL _%MOW:W>WDWBhMW<iO _ Oj OO _Nd MN N dnnknMjN N dnnkMN N dnnknMN N dnnkMJ M_M_OnMMdnnkKnnMMKnMMdnnkKnnMMKnMMMN _N OllJN N _OOjOd OKn_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_,Okk7N N _MOOdjd OKnہOMcFiMngjd _OOOOkN OO_0_.O0O.OdO0(nO0j*O0k_0OOO_4_2O4O2OO4OO4(Kn*O4k_4(2130Q AIN 2104Q ARRAY 2037Q \FZEROP 1643Q AIN 1551Q \FZEROP 1050Q SETFILEPTR 1044Q \FIXPIN 1034Q \FZEROP 735Q \FINDFONT 725Q SETFILEPTR 566Q \FINDFONT 556Q SETFILEPTR 501Q DREVERSE 426Q SETFILEPTR 403Q GETFILEPTR 371Q RANDACCESSP 354Q \FINDFONT 335Q COPYBYTES 331Q OPENSTREAM 312Q RANDACCESSP 274Q OPENSTREAM 250Q \GETSTREAM 235Q INFILEP 102Q \FACECODE 41Q FIXR 12Q ARRAY) (2077Q SMALLPOSP 2071Q FONTDESCRIPTOR 2015Q FONTDESCRIPTOR 1457Q FONTDESCRIPTOR 1451Q FONTDESCRIPTOR 1445Q FONTDESCRIPTOR 1426Q FONTDESCRIPTOR 1422Q FONTDESCRIPTOR 1363Q FONTDESCRIPTOR 1357Q FONTDESCRIPTOR 1340Q FONTDESCRIPTOR 1334Q FONTDESCRIPTOR 1275Q FONTDESCRIPTOR 1271Q FONTDESCRIPTOR 1254Q FONTDESCRIPTOR 1243Q FONTDESCRIPTOR 1233Q FONTDESCRIPTOR 1202Q FONTDESCRIPTOR 1145Q FONTDESCRIPTOR 1112Q FONTDESCRIPTOR 1055Q FONTDESCRIPTOR 774Q FONTDESCRIPTOR 745Q FONTDESCRIPTOR 676Q FONTDESCRIPTOR 655Q CENTURY 647Q CLASSIC 625Q FONTDESCRIPTOR 576Q FONTDESCRIPTOR 546Q FRUTIGER 537Q MODERN 512Q FONTDESCRIPTOR 470Q GACHA 462Q TERMINAL 456Q LOGO 450Q LOGOTYPE 442Q TIMESROMAN 434Q CLASSIC 376Q SETFILEPTR 326Q NEW 323Q BOTH 320Q {NODIRCORE} 267Q OLD 264Q INPUT 244Q INPUT 200Q HELVETICA 167Q MODERN 144Q PRESSFONTWIDTHSFILES 44Q FONTDESCRIPTORTYPE# 5 SMALLPOSP) ( 257Q (PROGN (CLOSEF? OLDVALUE)) 130Q 35.27778 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_jNjOboi i jNNCko jjOOj_C;jdKJo jLIo j bAWNWOBCH H CKJo jLIo(322Q MIN 303Q CLOSEF 277Q \WRITEPRESSBITMAP 250Q CREATEREGION 243Q MIN 227Q MIN 167Q ERROR 130Q TERPRI 123Q PRIN1 47Q BITMAPHEIGHT 42Q BITMAPWIDTH 3 OPENPRSTREAM) (25Q STREAM) ( 332Q 35.14598 316Q 35.14598 237Q 35.14598 223Q 35.14598 164Q "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) 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(654Q BKBITBLT 622Q BITMAPCREATE 605Q SETXY.PRESS 577Q \ENTITYSTART.PRESS 573Q \ENTITYEND.PRESS 567Q \FIXPOUT 557Q \BOUT 476Q \BOUT 467Q \BOUT 462Q \BOUT 451Q \BOUT 443Q \BOUT 435Q \BOUT 427Q \BOUT 414Q \BOUT 373Q \BOUT 365Q \BOUT 360Q \BOUT 352Q \BOUT 344Q \BOUT 331Q \BOUT 316Q FIXR 301Q \BOUT 266Q \BOUT 253Q FIXR 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) (527Q FDEV 522Q STREAM 503Q BITMAP 55Q PRESSDATA 46Q PRESSDATA 37Q PRESSDATA 26Q BITMAP 20Q BITMAP 12Q STREAM) ( 311Q 32.0 246Q 32.0 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) 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(522Q \BOUT 507Q \BOUT 470Q \GETBASEFIXP 457Q GETFILEPTR 451Q \BOUT 436Q \BOUT 404Q \BOUT 371Q \BOUT 337Q \BOUT 324Q \BOUT 301Q \BOUT 266Q \BOUT 243Q \BOUT 231Q \BOUT 211Q \BOUT 200Q \BOUT 164Q \FIXPOUT 157Q \FIXPOUT 151Q \GETBASEFIXP 140Q \GETBASEFIXP 126Q \BOUT 106Q \BOUT 74Q \BOUT 61Q GETFILEPTR 53Q \GETBASEFIXP) (463Q PRESSDATA 420Q PRESSDATA 412Q PRESSDATA 353Q PRESSDATA 345Q PRESSDATA 307Q PRESSDATA 251Q PRESSDATA 144Q PRESSDATA 133Q PRESSDATA 113Q 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) @(aHZHl# YJA JAl JI JIl JHl#@ n Iټ[L KLl J@ ]N MNl Hj h(176Q SETFILEPTR 163Q \BOUT 152Q \BOUT 143Q \PAGEPAD.PRESS 135Q \BOUT 124Q \BOUT 113Q \PUTBASEFIXP 102Q GETFILEPTR 67Q \BOUT 56Q \BOUT 50Q \BOUT 37Q \BOUT 30Q \GETBASEFIXP) (170Q PRESSDATA 74Q PRESSDATA 23Q PRESSDATA 14Q PRESSDATA 3 STREAM) () \ENTITYSTART.PRESS D1 (P 0 PRDATA I 0 PRSTREAM) l@(AHh4HhHl%@0@kI Hl'H[0KkJ Hl)@0@kL @HH h(150Q SETXY.PRESS 130Q \PUTBASEFIXP 102Q \PUTBASEFIXP 46Q \PUTBASEFIXP) (143Q PRESSDATA 135Q PRESSDATA 116Q FDEV 111Q STREAM 70Q FDEV 63Q STREAM 55Q PRESSDATA 34Q FDEV 27Q STREAM 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 AnTVdl IA IAl HAjB BniIl 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 AniHl 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@kH"I\JIl) [dj_I%II II lp l!KLKkٰ$Ll Ll KlٻKlLl LK Il)J h(232Q \PUTBASEFIXP 217Q \BOUT 211Q \BOUT 167Q \BOUT 160Q \BOUT 135Q \BOUT 54Q \GETBASEFIXP) (224Q PRESSDATA 123Q PRESSDATA 115Q PRESSDATA 103Q PRESSDATA 77Q PRESSDATA 67Q 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 dNjdnTVnrh_dO6dk2djdj_dOOOOOOOO OOO!Z`H&H joH Hg H`&HJ(Ag YJIHAg H H(473Q \STARTPAGE.PRESS 467Q SETUPFONTS.PRESS 464Q LISTGET 442Q LISTGET 401Q ERROR 376Q FULLNAME 363Q GETEOFPTR 162Q LISTGET 145Q OPENSTREAM 123Q OPENSTREAM 45Q EQLENGTH 36Q LISTGET 20Q OPENSTREAM) (461Q FONTS 450Q PRESSDATA 437Q HEADING 430Q STREAM 422Q \PRESSIMAGEOPS 417Q STREAM 411Q \OUTCHARFN.PRESS 406Q STREAM 353Q STREAM 347Q \NOIMAGEOPS 325Q PRESSDATA 304Q PRESSDATA 270Q PRESSDATA 255Q PRESSDATA 243Q PRESSDATA 157Q DOCUMENT.NAME 142Q OLD/NEW 137Q BOTH 134Q {NODIRCORE} 120Q OLD/NEW 115Q BOTH 112Q {NODIRCORE} 104Q DEFAULTPAGEREGION 33Q REGION 26Q PRESSDATATYPE# 6 NEW 3 OUTPUT) ( 372Q "can't convert existing file to Press" 14Q ((TYPE BINARY))) \BITBLT.PRESS D1 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT P 1 OLDY P 0 OLDX I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q 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 (131Q INTERSECTREGIONS 126Q CREATEREGION 112Q \DSPYPOSITION.PRESS 104Q \DSPXPOSITION.PRESS 76Q \WRITEPRESSBITMAP 71Q CREATEREGION 46Q \DSPYPOSITION.PRESS 40Q \DSPXPOSITION.PRESS 12Q \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 (46Q \BLTSHADE.GENERICPRINTER 22Q INTERSECTREGIONS 6 CREATEREGION) NIL () \SCALEDBITBLT.PRESS D1 (P 3 DESTINATIONBOTTOM P 2 DESTINATIONLEFT P 1 OLDY P 0 OLDX I 16Q SCALE I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q 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 (132Q INTERSECTREGIONS 127Q CREATEREGION 113Q \DSPYPOSITION.PRESS 105Q \DSPXPOSITION.PRESS 77Q \WRITEPRESSBITMAP 72Q CREATEREGION 46Q \DSPYPOSITION.PRESS 40Q \DSPXPOSITION.PRESS 12Q \DSPYPOSITION.PRESS 3 \DSPXPOSITION.PRESS) NIL () \BITMAPSIZE.PRESS D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) =BdgA gA BA A  (72Q \ILLEGAL.ARG 60Q BITMAPHEIGHT 47Q BITMAPWIDTH 32Q BITMAPHEIGHT 13Q BITMAPWIDTH) (24Q HEIGHT 4 WIDTH) () \CHARWIDTH.PRESS D1 (L (1 CHARCODE 0 STREAM)) Al @(4@(AlNIL NIL () \CLOSEF.PRESS D1 (P 23Q DDRECORD P 22Q DDFILEPTR P 21Q DESCR P 20Q FDE P 17Q I P 1 PDSTREAM P 0 PRDATA I 0 PRSTREAM F 24Q USERNAME) 4@ @( 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  @O" @O" @O"g l @O"g @O" @O"g ZK JKl @O"\M LMl O_Ok_(1041Q \BOUT 1030Q \BOUT 1010Q \BOUT 777Q \BOUT 770Q FONTPROP 756Q \BOUT 742Q \BOUT 737Q \FACECODE 734Q FONTPROP 722Q \BCPLSOUT.PRESS 715Q FONTPROP 703Q \BOUT 667Q \BOUT 653Q \BOUT 642Q \BOUT 630Q \BOUT 621Q \BOUT 603Q \PAGEPAD.PRESS 576Q \BCPLSOUT.PRESS 571Q GETFILEINFO 560Q \BCPLSOUT.PRESS 547Q \BCPLSOUT.PRESS 542Q FULLNAME 524Q SETFILEPTR 511Q \BOUT 502Q \BOUT 473Q \BOUT 464Q \BOUT 455Q \BOUT 446Q \BOUT 437Q \BOUT 431Q \BOUT 423Q \BOUT 415Q \BOUT 407Q \FIXPOUT 377Q IDATE 372Q \BOUT 363Q \BOUT 354Q \BOUT 341Q \BOUT 325Q \GETBASEFIXP 310Q \BOUT 275Q \BOUT 262Q \GETBASEFIXP 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) (1017Q FONTDESCRIPTOR 765Q DEVICESIZE 751Q FONTDESCRIPTOR 731Q DEVICEFACE 712Q DEVICEFAMILY 676Q FONTDESCRIPTOR 662Q FONTDESCRIPTOR 566Q CREATIONDATE 532Q PRESSDATA 320Q PRESSDATA 255Q PRESSDATA 41Q PRESSDATA 20Q PRESSDATA 7 STREAM) ( 403Q -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) () \DSPCLIPPINGREGION.PRESS D1 (P 1 \INTERRUPTABLE P 0 PRDATA I 1 REGION I 0 STREAM) B@(H6A3Al AdddihAo HA6(66Q ERROR 24Q EQLENGTH) (3 STREAM) ( 63Q " is not a REGION.") \DSPFONT.PRESS D1 (P 2 FDENTRY P 1 OLDFONT P 0 PRDATA I 1 FONT I 0 PRSTREAM) @(!HYAsdAgi IA b^@ @A ZdH @ @ HJ HAHJlp HA @H2H HmA@ I(175Q \FIXLINELENGTH.PRESS 155Q \SETSPACE.PRESS 152Q FIXR 125Q \BOUT 100Q \ENTITYSTART.PRESS 73Q \ENTITYEND.PRESS 52Q \DEFINEFONT.PRESS 45Q SHOW.PRESS 34Q FONTCOPY 25Q \COERCEFONTDESC) (164Q 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 () \DSPSPACEFACTOR.PRESS D1 (P 0 PRDATA I 1 FACTOR I 0 STREAM) '@(H2A@ HA2@AH (43Q \SETSPACE.PRESS 40Q FIXR 17Q SHOW.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 (L (0 PRSTREAM)) '@(@H HH$YkIl hNIL (26Q FONTDESCRIPTOR 21Q 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@ @(1HYdAl H4HAZIH6[AJKKk4HK'H4jHk4@ @IH @A @ Hj4jHJh(252Q SHOW.PRESS 245Q \BOUT 237Q SETXY.PRESS 223Q SHOW.PRESS 66Q NEWPAGE.PRESS 45Q \DSPXPOSITION.PRESS 41Q NEWLINE.PRESS 35Q DSPXPOSITION 12Q NEWLINE.PRESS) (267Q PRESSDATA 232Q PRESSDATA 170Q PRESSDATA 137Q PRESSDATA 104Q PRESSDATA 73Q STREAM 57Q STREAM 16Q STREAM) () \SETSPACE.PRESS D1 (P 1 ELSTREAM P 0 PRDATA I 1 S I 0 PRSTREAM) S@(1AH4h@(YAndAn`ػZK JKIl IA IAl HA4h(112Q \BOUT 101Q \BOUT 72Q \BOUT 60Q \BOUT) (31Q PRESSDATA 24Q 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(226Q \DSPFONT.PRESS 220Q SETXY.PRESS 170Q NEWLINE.PRESS 163Q NEWLINE.PRESS 156Q PRIN3 130Q PRIN3 117Q SETX.PRESS 103Q SHOW.PRESS 76Q PRIN3 66Q SETXY.PRESS 44Q \DSPFONT.PRESS 15Q \ENTITYSTART.PRESS) (212Q FONTDESCRIPTOR 141Q PRESSDATA 135Q PRESSDATA 60Q FONTDESCRIPTOR) ( 124Q "Page ") \STRINGWIDTH.PRESS D1 (I 2 RDTBL I 1 STRING I 0 STREAM) A@(B@(4 (16Q \STRINGWIDTH.GENERIC) NIL () 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 oFd`dgdMdNdodjdI dk$_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 53Q KNOT# P 51Q EXTRADY P 50Q PUTDY P 47Q EXTRADX P 46Q PUTDX 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 54Q PRSTREAM F 55Q SPLINE F 56Q BRUSHFONT F 57Q RESETVARSLST F 60Q RESETY F 61Q DASHING) ,gW\WX WXhhhW^c^WX(l lg lg lg lg WZWZWZWZWZWZWZWZWZWZk(WZk()W\g _Ji_DWb_F_HWXOo Oo WX(kWX(jdOOkjWX(h,WX(O.WX(O0o_>l_BO _O _ Okk+OVOTHIOOV(OOV(NOV(LOV( JKOOV(OOV(OOV(MOV( O>Hl2_&O>Jl2_(OVOk%LOVk(LOVl( MOVk(MOVl( h_:oO> O>Il2_*O>Kl2_,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"_Lj_NO$_Pj_RO"ll_LO"l_NmO"m_LO"l_NO$ll_PO$l_RmO$m_PO$l_RO@o O:OVOko_@O@Hl2_.O@Jl2_0OO"O. _2O O$O0 _4OBkO2o O4o OB_BTWXOLOPOJ ONjORjWXONOROJ OO"_O O$_ O@_>O._&O0_(lOB oO2oO4OB_BO>o_>O:OVk_VOVk_VAWXOJ hc`i(2024Q \ENDVECRUN 1652Q \VECPUT 1624Q \VECPUT 1577Q FGTP 1565Q FGTP 1543Q ABS 1525Q ABS 1420Q FGTP 1243Q FIXR 1210Q FIXR 1112Q FGTP 1066Q FGTP 1045Q EQP 1024Q EQP 725Q EQP 703Q EQP 603Q LOADPOLY 551Q LOADPOLY 475Q FIXR 465Q FIXR 315Q SETXY.PRESS 312Q FIXR 300Q FIXR 245Q FONTPROP 113Q ARRAY 103Q ARRAY 73Q ARRAY 63Q ARRAY 52Q \BOUT 11Q DSPFONT) (1477Q ARRAYP 1454Q ARRAYP 1000Q ARRAYP 755Q ARRAYP 637Q ARRAYP 614Q ARRAYP 437Q PRESSDATA 432Q STREAM 420Q PRESSDATA 413Q STREAM 402Q PRESSDATA 375Q STREAM 347Q PRESSDATA 342Q STREAM 330Q PRESSDATA 323Q STREAM 242Q SIZE 110Q FLOATP 100Q FLOATP 70Q FLOATP 60Q FLOATP 43Q PRESSDATA 36Q STREAM 2 DSPFONT) ( 1765Q 1.0 1737Q .5 1727Q .5 1574Q 1.0 1562Q 1.0 1441Q 1.0 1415Q 1.0 1107Q 0.0 1063Q 0.0 1052Q .0005 1042Q 0.0 1031Q .0005 1021Q 0.0 736Q 1.0 450Q 0.0 306Q 6.614584 274Q 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) () \PRESSINITA0017 D1 NIL oNIL NIL ( 3 35.27778) \PRESSINITA0034 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,dgdg*dg2dg4dg:dgdg8dg0dg.dg NIL (346Q \PRESSIMAGEOPS 340Q \PRESSINITA0034 331Q NILL 322Q NILL 313Q NILL 304Q NILL 275Q \SCALEDBITBLT.PRESS 266Q \DSPCLIPPINGREGION.PRESS 257Q \BITMAPSIZE.PRESS 250Q \CHARWIDTH.PRESS 241Q \STRINGWIDTH.PRESS 232Q \DSPSPACEFACTOR.PRESS 223Q NEWPAGE.PRESS 214Q PRESS 205Q \DSPTOPMARGIN.PRESS 176Q \DSPBOTTOMMARGIN.PRESS 167Q NEWLINE.PRESS 160Q \PRESSINITA0017 151Q \BITBLT.PRESS 142Q \BLTSHADE.PRESS 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) S@ bdHg Hj;Hd 1Hnj)T!Uog hg[ KJ@h(110Q ERROR! 102Q RESETRESTORE 70Q PRESSFILEPA0001 36Q \FZEROP 16Q GETFILEINFO 3 FINDFILE) (76Q ERROR 65Q INTERNAL 13Q LENGTH) ( 62Q (PRESSFILEPA0001)) PRESS.BITMAPSCALE D1 (I 1 HEIGHT I 0 WIDTH F 0 PRESSBITMAPREGION) PoAPo@l (33Q MIN) NIL ( 23Q .02845276 10Q .02845276) (PRETTYCOMPRINT PRESSCOMS) (RPAQQ PRESSCOMS ((COMS (FNS \SEARCHPRESSFONTS \GETPRESSFONTNAMES \PRESSFAMILYCODELST \DECODEPRESSFACEBYTE \CREATEPRESSFONT) (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) (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))) (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))) (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) ( 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)) NIL