(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("11-Nov-85 12:31:01" . {ERIS}<LISP>KOTO>SOURCES>PRESS.;4)
FNS (\SEARCHPRESSFONTS \GETPRESSFONTNAMES \PRESSFAMILYCODELST \DECODEPRESSFACEBYTE \CREATEPRESSFONT 
\CREATECHARSET.PRESS PRESSBITMAP FULLPRESSBITMAP SHOWREGION SHOWPRESSBITMAPREGION PRESSWINDOW 
WINDOW.BITMAP \WRITEPRESSBITMAP \BCPLSOUT.PRESS \PAGEPAD.PRESS \ENTITYEND.PRESS \PARTEND.PRESS 
\ENTITYSTART.PRESS SETX.PRESS SETXY.PRESS SETY.PRESS SHOW.PRESS 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 \ENDVECRUN \VECENCODE \VECPUT \VECSKIP \VECFONTINIT \DRAWCIRCLE.PRESS 
\DRAWCURVE.PRESS \DRAWCURVE.PRESS.LINE \DRAWELLIPSE.PRESS \GETBRUSHFONT.PRESS \PRESSCURVE2 \PRESSINIT 
MAKEPRESS PRESSFILEP PRESS.BITMAPSCALE)
(READATABASE)
(
CALL \SEARCHPRESSFONTS (RESETLST \GETSTREAM LIST GETFILEPTR OPENSTREAM UNION \GETPRESSFONTNAMES) 
\GETPRESSFONTNAMES (\FACECODE \PRESSFAMILYCODELST IQUOTIENT ITIMES \BIN PLUS LLSH IPLUS LOGAND LRSH 
FASSOC ERROR \DECODEPRESSFACEBYTE \WIN CONS LIST FIXR FQUOTIENT) \PRESSFAMILYCODELST (\BIN PLUS LLSH 
IPLUS LOGAND LRSH CONS \WIN PACKC LIST) \DECODEPRESSFACEBYTE (IDIFFERENCE LIST) \CREATEPRESSFONT (
RESETLST ARRAY ADD1 IQUOTIENT ITIMES FIXR FQUOTIENT \FACECODE CONSTANT FREPLACEFIELDVAL NCREATE 
\ALLOCBLOCK \GETSTREAM LIST GETFILEPTR OPENSTREAM RANDACCESSP CONS \FINDFONT SELECTQ DREVERSE ZEROP 
UNFOLD LLSH \FIXPIN SIGNED OPENLAMBDA N SUB1 IDIFFERENCE IMINUS FETCHFIELD LRSH \BIN LOGAND \WIN IPLUS
 PLUS ELT) \CREATECHARSET.PRESS (FFETCHFIELD FIXP FREPLACEFIELDVAL NCREATE) PRESSBITMAP (OPENPRSTREAM 
FETCHFIELD BITMAPWIDTH BITMAPHEIGHT IQUOTIENT IDIFFERENCE FIX TIMES PRINTOUT TERPRI IMAX CREATEREGION 
MIN QUOTIENT IPLUS CLOSEF) FULLPRESSBITMAP (OPENPRSTREAM FETCHFIELD BITMAPWIDTH BITMAPHEIGHT IQUOTIENT
 IDIFFERENCE FIX TIMES PRINTOUT TERPRI PRESS.BITMAPSCALE IPLUS CLOSEF) SHOWREGION (MINUS) 
SHOWPRESSBITMAPREGION (OPENIMAGESTREAM CLOSEF) PRESSWINDOW (OPENPRSTREAM LIST WINDOW.BITMAP WHICHW 
BITMAPWIDTH BITMAPHEIGHT IPLUS FETCHFIELD IQUOTIENT IDIFFERENCE ITIMES CLOSEF) WINDOW.BITMAP (
WINDOWPROP BITMAPCREATE) \WRITEPRESSBITMAP (BITMAPCREATE BITBLT FETCHFIELD LRSH \BOUT LOGAND UNFOLD 
LLSH FIXR FTIMES TIMES ITIMES IPLUS) \BCPLSOUT.PRESS (IMIN NCHARS SUB1 NTHCHARCODE PLUS ADD1) 
\PAGEPAD.PRESS (GETFILEPTR MODUP IDIFFERENCE SUB1 IMOD IPLUS FOLDLO LRSH) \ENTITYEND.PRESS (FETCHFIELD
 IDIFFERENCE \GETFILEPTR FDEVOP SPREADAPPLY* GETFILEPTR UNFOLD LLSH LRSH \BOUT LOGAND ADD1 FOLDLO) 
\PARTEND.PRESS (FETCHFIELD LRSH \BOUT LOGAND IDIFFERENCE FOLDHI IPLUS GETFILEPTR REPLACEFIELD 
\PAGEPAD.PRESS) \ENTITYSTART.PRESS (FETCHFIELD \GETFILEPTR FDEVOP SPREADAPPLY*) SETX.PRESS (FETCHFIELD
 LRSH \BOUT LOGAND) SETXY.PRESS (FETCHFIELD LRSH \BOUT LOGAND REPLACEFIELD) SETY.PRESS (FETCHFIELD 
FFETCHFIELD LRSH \BOUT LOGAND) SHOW.PRESS (FETCHFIELD \GETFILEPTR FDEVOP SPREADAPPLY* IDIFFERENCE 
LOGOR IPLUS) OPENPRSTREAM (OPENSTREAM LISTGET NUMBERP FREPLACEFIELDVAL NCREATE DIFFERENCE CONS IPLUS 
FETCHFIELD GETEOFPTR FULLNAME FUNCTION) \BITBLT.PRESS (INTERSECTREGIONS CREATEREGION 
\DSPYPOSITION.PRESS \DSPXPOSITION.PRESS) \BLTSHADE.PRESS (LET* \BLTSHADE.GENERICPRINTER 
INTERSECTREGIONS CREATEREGION) \SCALEDBITBLT.PRESS (INTERSECTREGIONS CREATEREGION \DSPYPOSITION.PRESS 
\DSPXPOSITION.PRESS) \BITMAPSIZE.PRESS (SELECTQ UNFOLD LLSH BITMAPWIDTH BITMAPHEIGHT CONS \ILLEGAL.ARG
) \CHARWIDTH.PRESS (\PRESS.CONVERT.NSCHARACTER FFETCHFIELD \FGETCHARWIDTH \FGETWIDTH \GETBASE 
\GETCHARSETINFO \GETBASEPTR UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND) \CLOSEF.PRESS 
(FETCHFIELD GETFILEPTR LRSH \BOUT LOGAND FONTPROP \FACECODE PLUS FOLDLO ADD1 IDIFFERENCE \WOUT 
LISP.TO.ALTO.DATE IDATE IPLUS FULLNAME GETFILEINFO) \DRAWLINE.PRESS (LIST CREATEPOSITION) 
\ENDPAGE.PRESS (FETCHFIELD \GETFILEPTR FDEVOP SPREADAPPLY* LRSH \BOUT LOGAND) NEWLINE.PRESS (
FFETCHFIELD IPLUS) NEWPAGE.PRESS (\STARTPAGE.PRESS) SETUPFONTS.PRESS (FONTCREATE FETCHFIELD) 
\DEFINEFONT.PRESS (FETCHFIELD FASSOC REPLACEFIELD CONS PLUS) \DSPBOTTOMMARGIN.PRESS (FETCHFIELD) 
\DSPCLIPPINGREGION.PRESS (FETCHFIELD FFETCHFIELD EVERY NUMBERP FREPLACEFIELD) \DSPFONT.PRESS (
FFETCHFIELD \GETFONTDESC FONTCOPY \DEFINEFONT.PRESS LOGOR FIXR TIMES \FGETWIDTH \GETBASE IDIFFERENCE 
CONSTANT IMINUS FONTPROP) \DSPLEFTMARGIN.PRESS (FFETCHFIELD) \DSPLINEFEED.PRESS (FFETCHFIELD) 
\DSPRIGHTMARGIN.PRESS (FFETCHFIELD) \DSPSPACEFACTOR.PRESS (FFETCHFIELD FIXR TIMES \FGETWIDTH \GETBASE)
 \DSPTOPMARGIN.PRESS (FETCHFIELD) \DSPXPOSITION.PRESS (FETCHFIELD) \DSPYPOSITION.PRESS (FETCHFIELD) 
\FIXLINELENGTH.PRESS (FFETCHFIELD IQUOTIENT IDIFFERENCE FETCHFIELD) \OUTCHARFN.PRESS (SELCHARQ 
REPLACEFIELD \DSPXPOSITION.PRESS DSPXPOSITION NEWPAGE.PRESS FETCHFIELD \PRESS.CONVERT.NSCHARACTER 
IPLUS FFETCHFIELD \FGETWIDTH \GETBASE) \SETSPACE.PRESS (FETCHFIELD FFETCHFIELD LRSH \BOUT LOGAND IPLUS
 LLSH) \STARTPAGE.PRESS (FFETCHFIELD IDIFFERENCE FONTPROP IPLUS REPLACEFIELD PLUS FETCHFIELD) 
\STRINGWIDTH.PRESS (LET* SELECTC NTYPX FETCHFIELD \FGETCHARWIDTH \FGETWIDTH \GETBASE \GETCHARSETINFO 
\GETBASEPTR FFETCHFIELD UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND \PNAMECELL 
\ATOMCELL \PROPCELL ADD1 \GETBASEFAT \GETBASETHIN \GETBASEBYTE PLUS \PRESS.CONVERT.NSCHARACTER IPLUS 
\SYNCODE TYPENAMEP RAID GETHASH LOGOR SUB1 SELCHARQ LET FUNCTION) SHOWRECTANGLE.PRESS (FETCHFIELD LRSH
 \BOUT LOGAND) \PRESS.CONVERT.NSCHARACTER (SELCHARQ \CHAR8CODE LOGAND) \ENDVECRUN (FETCHFIELD FIXR 
FTIMES IPLUS IDIFFERENCE ILESSP \VECENCODE IMINUS) \VECENCODE (IDIFFERENCE IPLUS IMINUS ITIMES IMAX) 
\VECPUT (FETCHFIELD IPLUS IDIFFERENCE FIXR FTIMES \VECENCODE CONS) \VECSKIP (IPLUS \ENDVECRUN) 
\VECFONTINIT (ARRAY MAPCAR FREPLACEFIELDVAL NCREATE \ALLOCBLOCK ADD1 LIST) \DRAWCIRCLE.PRESS (FIXR 
FTIMES CONSTANT FQUOTIENT SQRT LIST CREATEPOSITION IPLUS IDIFFERENCE MOVETO) \DRAWCURVE.PRESS (FIXP 
\ILLEGAL.ARG LIST LENGTH PARAMETRICSPLINE MAPCAR CREATEPOSITION FIXR FTIMES \GETBRUSHFONT.PRESS LAST) 
\DRAWCURVE.PRESS.LINE (IQUOTIENT IDIFFERENCE IPLUS IMAX IMIN IGREATERP) \DRAWELLIPSE.PRESS (SIN COS 
LIST CREATEPOSITION PLUS FTIMES DIFFERENCE) \GETBRUSHFONT.PRESS (SELECTQ FIXR FTIMES) \PRESSCURVE2 (
RESETLST RESETSAVE LIST DSPFONT FETCHFIELD IDIFFERENCE GETFILEPTR \BOUT ARRAY ELT FONTPROP FIXR FTIMES
 GEQ SUB1 POLYEVAL \FLOATBOX OPCODES ADD1 IPLUS EQP IMINUS FQUOTIENT FDIFFERENCE FPLUS ABS LRSH LLSH 
PLUS) \PRESSINIT (FUNCTION FREPLACEFIELDVAL NCREATE) MAKEPRESS (TEXTTOIMAGEFILE) PRESSFILEP (FINDFILE 
GETFILEINFO RESETSAVE LIST GETFILEPTR OPENFILE SETFILEPTR IDIFFERENCE IEQP \WIN \BIN IPLUS LLSH 
\GETOFD) PRESS.BITMAPSCALE (MIN FQUOTIENT TIMES) NIL
BIND \SEARCHPRESSFONTS (DEVICE) \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE 
NIL \CREATEPRESSFONT NIL \CREATECHARSET.PRESS (FAMILY SIZE FACE ROTATION DEVICE) PRESSBITMAP NIL 
FULLPRESSBITMAP NIL SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL 
\WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL 
\ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL 
\BITBLT.PRESS (SOURCELEFT SOURCEBOTTOM SOURCETYPE OPERATION TEXTURE) \BLTSHADE.PRESS (DESTREGION) 
\SCALEDBITBLT.PRESS (SOURCELEFT SOURCEBOTTOM SOURCETYPE OPERATION TEXTURE) \BITMAPSIZE.PRESS (STREAM) 
\CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL 
\DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL 
\STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (CSET) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL 
\ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS (DASHLST) \DRAWCURVE.PRESS.LINE (DASHING) \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS 
NIL \PRESSCURVE2 (EXTRANEOUS) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
NLAMBDA \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS (CHARCODE) \CLOSEF.PRESS NIL 
\DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS (CHARCODE
) \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS (
CHARCODE) \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS
 NIL \OUTCHARFN.PRESS (CHARCODE) \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (CHARCODE
) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL 
\VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL 
PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
NOBIND \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL
 \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE
 NIL NIL
RECORD \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT (FONTDESCRIPTOR) \CREATECHARSET.PRESS (ARRAYP) PRESSBITMAP NIL FULLPRESSBITMAP NIL 
SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW (PRESSDATA) WINDOW.BITMAP NIL \WRITEPRESSBITMAP (
REGION) \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL 
\ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS (FONTDIRENTRY) 
OPENPRSTREAM (REGION PRESSDATA STREAM) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL 
\BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS (CHARSETINFO) \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL 
\ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS (REGION) \DSPFONT.PRESS (ARRAYP) 
\DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS (STREAM) 
\OUTCHARFN.PRESS (STREAM REGION) \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (
CHARSETINFO LITATOM READCODE CHARTABLE STRINGP) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL
 \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL 
\PRESSCURVE2 (SPLINE) \PRESSINIT (IMAGEOPS STREAM) MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL 
NIL
CREATE \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES (WORD) \PRESSFAMILYCODELST (WORD) \DECODEPRESSFACEBYTE
 NIL \CREATEPRESSFONT (FONTDESCRIPTOR WORD) \CREATECHARSET.PRESS (CHARSETINFO) PRESSBITMAP NIL 
FULLPRESSBITMAP NIL SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL 
\WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL 
\ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM (
PRESSDATA REGION) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS (FONTDIRENTRY) \DSPBOTTOMMARGIN.PRESS NIL 
\DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL 
\STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL 
\ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT (FONTDESCRIPTOR) \DRAWCIRCLE.PRESS
 NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL 
\PRESSCURVE2 (POLYNOMIAL) \PRESSINIT (IMAGEOPS) MAKEPRESS NIL PRESSFILEP (WORD) PRESS.BITMAPSCALE NIL 
NIL
FETCH \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT (FIRSTCHAR LASTCHAR FBBOX \SFDescent FBBDX \SFHeight) \CREATECHARSET.PRESS (BASE 
\SFWidths \SFOffsets CHARACTERBITMAP \SFWidthsY \SFAscent \SFDescent) PRESSBITMAP (HEIGHT WIDTH 
IMAGEDATA LEFT BOTTOM) FULLPRESSBITMAP (HEIGHT WIDTH IMAGEDATA LEFT BOTTOM) SHOWREGION (LEFT BOTTOM 
WIDTH HEIGHT) SHOWPRESSBITMAPREGION NIL PRESSWINDOW (PRLEFT IMAGEDATA PRWIDTH PRRIGHT PRBOTTOM 
PRHEIGHT PRTOP) WINDOW.BITMAP (WIDTH HEIGHT) \WRITEPRESSBITMAP (WIDTH HEIGHT LEFT BOTTOM IMAGEDATA 
BITMAPRASTERWIDTH BITMAPHEIGHT ELSTREAM PRXPOS PRYPOS HIBYTE LOBYTE BITMAPBASE) \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS (IMAGEDATA ELSTREAM GETFILEPTR DEVICE DLSTARTBYTE FONTSET# 
PRCURRFDE PRPARTSTART HIBYTE LOBYTE PRLEFT PRBOTTOM PRRIGHT PRTOP ELSTARTBYTE) \PARTEND.PRESS (
IMAGEDATA PDSTREAM PRPARTSTART HIBYTE LOBYTE ELSTREAM) \ENTITYSTART.PRESS (IMAGEDATA GETFILEPTR DEVICE
 ELSTREAM PRXPOS PRYPOS) SETX.PRESS (ELSTREAM IMAGEDATA PRXPOS HIBYTE LOBYTE) SETXY.PRESS (IMAGEDATA 
ELSTREAM HIBYTE LOBYTE) SETY.PRESS (ELSTREAM IMAGEDATA PRYPOS HIBYTE LOBYTE) SHOW.PRESS (IMAGEDATA 
GETFILEPTR DEVICE ELSTREAM STARTCHARBYTE PRFONT DESCR PRCURRFDE FONT#) OPENPRSTREAM (LEFT BOTTOM WIDTH
 HEIGHT IMAGEOPS) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS (PRSPACEWIDTH IMAGEDATA WIDTHS FONTCHARSETVECTOR PRFONT) \CLOSEF.PRESS (IMAGEDATA 
PDSTREAM PRESSFONTDIR DESCR HIBYTE LOBYTE FONTSET# FONT# FIRSTCHAR LASTCHAR ROTATION PRPARTSTART 
PRDOCNAME) \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (ELSTREAM IMAGEDATA GETFILEPTR DEVICE HIBYTE LOBYTE) 
NEWLINE.PRESS (IMAGEDATA PRYPOS PRLINEFEED PRBOTTOM PRLEFT) NEWPAGE.PRESS NIL SETUPFONTS.PRESS (
IMAGEDATA) \DEFINEFONT.PRESS (IMAGEDATA PRESSFONTDIR PRNEXTFONT# PRMAXFONTSET) \DSPBOTTOMMARGIN.PRESS 
(PRBOTTOM IMAGEDATA) \DSPCLIPPINGREGION.PRESS (IMAGEDATA PRClippingRegion) \DSPFONT.PRESS (IMAGEDATA 
PRFONT FONTSET# PRCURRFDE ELSTREAM FONT# BASE \SFWidths PRSPACEFACTOR PRWIDTHSCACHE) 
\DSPLEFTMARGIN.PRESS (PRLEFT IMAGEDATA) \DSPLINEFEED.PRESS (IMAGEDATA PRLINEFEED) 
\DSPRIGHTMARGIN.PRESS (PRRIGHT IMAGEDATA) \DSPSPACEFACTOR.PRESS (IMAGEDATA PRSPACEFACTOR PRWIDTHSCACHE
) \DSPTOPMARGIN.PRESS (PRTOP IMAGEDATA) \DSPXPOSITION.PRESS (PRXPOS IMAGEDATA) \DSPYPOSITION.PRESS (
PRYPOS IMAGEDATA) \FIXLINELENGTH.PRESS (IMAGEDATA PRRIGHT PRLEFT FONTAVGCHARWIDTH PRFONT) 
\OUTCHARFN.PRESS (IMAGEDATA PRXPOS PRSPACEWIDTH PRWIDTHSCACHE LEFT PRClippingRegion RIGHT WIDTH PRYPOS
 BOTTOM CHARWASDISPLAYING) \SETSPACE.PRESS (IMAGEDATA PRSPACEWIDTH ELSTREAM HIBYTE LOBYTE) 
\STARTPAGE.PRESS (IMAGEDATA PRFONT PRHEADING PRSPACEFACTOR PRHEADINGFONT PRLEFT PRTOP PRXPOS PRPAGENUM
) \STRINGWIDTH.PRESS (READSA WIDTHS FONTCHARSETVECTOR PNAMEBASE PNAMELENGTH FATPNAMEP ESCQUOTE 
NSCHARHASH INNERESCQUOTE PRSPACEWIDTH IMAGEDATA PRFONT OFFST BASE XBASE LENGTH FATSTRINGP TYP) 
SHOWRECTANGLE.PRESS (ELSTREAM IMAGEDATA HIBYTE LOBYTE) \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (
IMAGEDATA VECMOVINGRIGHT VECCURX VECCURY VECSEGCHARS) \VECENCODE NIL \VECPUT (IMAGEDATA VECMOVINGRIGHT
 VECCURX VECCURY VECWASDISPLAYING VECSEGCHARS) \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS (XCOORD YCOORD) \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS 
NIL \PRESSCURVE2 (IMAGEDATA ELSTREAM ELSTARTBYTE SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY
 SPLINEDDDX SPLINEDDDY #KNOTS) \PRESSINIT (IMXPOSITION IMAGEOPS IMYPOSITION) MAKEPRESS NIL PRESSFILEP 
NIL PRESS.BITMAPSCALE (HEIGHT WIDTH) NIL
REPLACE \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES (HIBYTE LOBYTE) \PRESSFAMILYCODELST (HIBYTE LOBYTE) 
\DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE \SFFACECODE 
ROTATION FONTSCALE FONTDEVICESPEC FBBOX \SFDescent FBBDX \SFHeight \SFWidths \SFAscent HIBYTE LOBYTE 
\SFWidthsY) \CREATECHARSET.PRESS (WIDTHS OFFSETS IMAGEWIDTHS CHARSETBITMAP YWIDTHS CHARSETASCENT 
CHARSETDESCENT) PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL SHOWPRESSBITMAPREGION NIL 
PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL 
\ENTITYEND.PRESS NIL \PARTEND.PRESS (PRPARTSTART) \ENTITYSTART.PRESS (PRSPACEWIDTH PRFONT DLSTARTBYTE 
ELSTARTBYTE STARTCHARBYTE) SETX.PRESS (PRXPOS) SETXY.PRESS (PRXPOS PRYPOS) SETY.PRESS (PRYPOS) 
SHOW.PRESS (PRFONT STARTCHARBYTE) OPENPRSTREAM (PRPAGEREGION PDSTREAM ELSTREAM PRDOCNAME LEFT BOTTOM 
WIDTH HEIGHT XPRPAGEREGION PRLEFT PRBOTTOM PRRIGHT PRTOP OUTCHARFN IMAGEOPS IMAGEDATA PRHEADING) 
\BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS 
NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS (PRHEADINGFONT) \DEFINEFONT.PRESS (PRESSFONTDIR DESCR FONT# FONTSET# PRNEXTFONT# 
PRMAXFONTSET) \DSPBOTTOMMARGIN.PRESS (PRBOTTOM) \DSPCLIPPINGREGION.PRESS (PRClippingRegion) 
\DSPFONT.PRESS (PRCURRFDE PRFONT PRWIDTHSCACHE PRLINEFEED) \DSPLEFTMARGIN.PRESS (PRLEFT) 
\DSPLINEFEED.PRESS (PRLINEFEED) \DSPRIGHTMARGIN.PRESS (PRRIGHT) \DSPSPACEFACTOR.PRESS (PRSPACEFACTOR) 
\DSPTOPMARGIN.PRESS (PRTOP) \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS (
LINELENGTH) \OUTCHARFN.PRESS (CHARPOSITION CHARWASDISPLAYING PRXPOS) \SETSPACE.PRESS (PRSPACEWIDTH) 
\STARTPAGE.PRESS (PRSPACEFACTOR PRPAGENUM) \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (VECWASDISPLAYING VECSEGCHARS) \VECENCODE NIL \VECPUT (
VECMOVINGRIGHT VECCURX VECCURY VECWASDISPLAYING VECSEGCHARS) \VECSKIP NIL \VECFONTINIT (FONTDEVICE 
FONTFAMILY FONTSIZE FONTFACE ROTATION \SFWidths FONTAVGCHARWIDTH) \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL 
\PRESSCURVE2 (VECMOVINGRIGHT VECWASDISPLAYING VECSEGCHARS VECCURX VECCURY) \PRESSINIT (IMAGETYPE 
IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN IMLINEFEED IMDRAWLINE IMDRAWCURVE 
IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT IMSCALE IMTERPRI IMBOTTOMMARGIN 
IMTOPMARGIN IMFONTCREATE IMNEWPAGE IMSPACEFACTOR IMSTRINGWIDTH IMCHARWIDTH IMBITMAPSIZE 
IMCLIPPINGREGION IMSCALEDBITBLT) MAKEPRESS NIL PRESSFILEP (HIBYTE LOBYTE) PRESS.BITMAPSCALE NIL NIL
REFFREE \SEARCHPRESSFONTS (PRESSFONTWIDTHSFILES) \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL 
\DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT (\MAXCHAR \MAXCHARSET PRESSFONTWIDTHSFILES WIDTH N 
noInfoCode) \CREATECHARSET.PRESS NIL PRESSBITMAP (PRESSBITMAPREGION MicasPerPoint) FULLPRESSBITMAP (
PRESSBITMAPREGION MicasPerPoint) SHOWREGION NIL SHOWPRESSBITMAPREGION (PRESSBITMAPREGION) PRESSWINDOW 
NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP (ShowDotsCode) \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL 
\ENTITYEND.PRESS (NopCode LISPENTITYTYPE) \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS (
SPRUCEPAPERLEFTMICAS SPRUCEPAPERRIGHTMICAS SetXCode) SETXY.PRESS (SPRUCEPAPERLEFTMICAS 
SPRUCEPAPERRIGHTMICAS SetXCode SPRUCEPAPERBOTTOMMICAS SPRUCEPAPERTOPMICAS SetYCode) SETY.PRESS (
SPRUCEPAPERBOTTOMMICAS SPRUCEPAPERTOPMICAS SetYCode) SHOW.PRESS (FontCode ShowCharactersShortCode 
ShowCharactersCode) OPENPRSTREAM (DEFAULTPAGEREGION SPRUCEPAPERLEFTMICAS SPRUCEPAPERBOTTOMMICAS 
SPRUCEPAPERRIGHTMICAS \NOIMAGEOPS \PRESSIMAGEOPS) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS (\CHARMASK) \CLOSEF.PRESS (USERNAME) 
\DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS (
DEFAULTFONT) \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL 
\DSPFONT.PRESS (FontCode MicasPerPoint) \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL \SETSPACE.PRESS (
SetSpaceXShortCode SetSpaceXCode) \STARTPAGE.PRESS (MICASPERINCH) \STRINGWIDTH.PRESS (\LITATOM 
\PNAME.HI \PLIST.HI \MAXTHINCHAR ESCAPEBIT STOPATOMBIT INNERESCAPEBIT \STRINGP \ST.BYTE) 
SHOWRECTANGLE.PRESS (ShowRectangleCode) \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (MicasPerScan 
SPRUCEPAPERLEFTSCANS SPRUCEPAPERBOTTOMSCANS SPRUCEPAPERTOPSCANS SPRUCEPAPERRIGHTSCANS) \VECENCODE NIL 
\VECPUT (SPRUCEPAPERBOTTOMSCANS SPRUCEPAPERTOPSCANS SPRUCEPAPERLEFTSCANS SPRUCEPAPERRIGHTSCANS 
MicasPerScan) \VECSKIP NIL \VECFONTINIT (\MAXCHARSET) \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS (
ScansPerMica) \DRAWCURVE.PRESS.LINE (SPRUCEPAPERLEFTMICAS SPRUCEPAPERRIGHTMICAS SPRUCEPAPERBOTTOMMICAS
 SPRUCEPAPERTOPMICAS) \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS (\VecFontDir PointsPerMica) 
\PRESSCURVE2 (ResetSpaceCode MicasPerScan UBFLOAT3) \PRESSINIT (MICASPERINCH) MAKEPRESS NIL PRESSFILEP
 (BYTESPERRECORD) PRESS.BITMAPSCALE (PRESSBITMAPREGION PointsPerMica) NIL
REF \SEARCHPRESSFONTS (FAMILY PSIZE FACE ROTATION) \GETPRESSFONTNAMES (FACE WSTRM PSIZE FAMILYCODELST 
FAMILY MICASIZE ROTATION) \PRESSFAMILYCODELST (WSTRM) \DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT (PSIZE
 DEVICE FAMILY FACE ROTATION PRESSMICASIZE NSMICASIZE WIDTHS) \CREATECHARSET.PRESS (CHARSET FONTDESC) 
PRESSBITMAP (FILE PRSTREAM BITMAP PRESSPAGEWIDTH PRESSPAGEHEIGHT) FULLPRESSBITMAP (FILE PRSTREAM 
BITMAP PRESSPAGEWIDTH PRESSPAGEHEIGHT) SHOWREGION (REGION STREAM) SHOWPRESSBITMAPREGION (STR) 
PRESSWINDOW (W BITMAP PRSTREAM PTSTOMICAS) WINDOW.BITMAP (W REGION) \WRITEPRESSBITMAP (BM PRSTREAM 
PRDATA XPOS YPOS STREAM W WW HT) \BCPLSOUT.PRESS (X STRM NC) \PAGEPAD.PRESS (STRM P) \ENTITYEND.PRESS 
(PRSTREAM PRDATA ETYPE STREAM W XOFFSET YOFFSET) \PARTEND.PRESS (PRSTREAM PARTTYPE STREAM W) 
\ENTITYSTART.PRESS (PRSTREAM STRM) SETX.PRESS (PRSTREAM X ELSTREAM) SETXY.PRESS (PRSTREAM X Y) 
SETY.PRESS (PRSTREAM Y ELSTREAM) SHOW.PRESS (PRSTREAM CURBYTE) OPENPRSTREAM (PRFILE OPTIONS) 
\BITBLT.PRESS (DESTINATION DESTINATIONLEFT DESTINATIONBOTTOM SOURCEBITMAP CLIPPEDSOURCELEFT 
CLIPPEDSOURCEBOTTOM WIDTH HEIGHT OLDX OLDY) \BLTSHADE.PRESS (TEXTURE STREAM DESTINATIONLEFT 
DESTINATIONBOTTOM WIDTH HEIGHT OPERATION REGION) \SCALEDBITBLT.PRESS (DESTINATION DESTINATIONLEFT 
DESTINATIONBOTTOM SOURCEBITMAP SCALE CLIPPEDSOURCELEFT CLIPPEDSOURCEBOTTOM WIDTH HEIGHT OLDX OLDY) 
\BITMAPSIZE.PRESS (DIMENSION BITMAP) \CHARWIDTH.PRESS (STREAM FONTA0003 CHARCODEA0002) \CLOSEF.PRESS (
PRSTREAM PRDATA STREAM W DDFILEPTR) \DRAWLINE.PRESS (X1 Y1 X2 Y2 WIDTH OPERATION PRSTREAM COLOR) 
\ENDPAGE.PRESS (PRSTREAM ELSTREAM) NEWLINE.PRESS (PRSTREAM PRDATA) NEWPAGE.PRESS (PRSTREAM) 
SETUPFONTS.PRESS (FONTS PRSTREAM) \DEFINEFONT.PRESS (PRSTREAM FONT) \DSPBOTTOMMARGIN.PRESS (PRSTREAM) 
\DSPCLIPPINGREGION.PRESS (STREAM) \DSPFONT.PRESS (PRSTREAM) \DSPLEFTMARGIN.PRESS (PRSTREAM) 
\DSPLINEFEED.PRESS (PRSTREAM) \DSPRIGHTMARGIN.PRESS (PRSTREAM) \DSPSPACEFACTOR.PRESS (STREAM) 
\DSPTOPMARGIN.PRESS (PRSTREAM) \DSPXPOSITION.PRESS (PRSTREAM) \DSPYPOSITION.PRESS (PRSTREAM) 
\FIXLINELENGTH.PRESS (PRDATA) \OUTCHARFN.PRESS NIL \SETSPACE.PRESS (PRSTREAM S STREAM W) 
\STARTPAGE.PRESS (PRSTREAM) \STRINGWIDTH.PRESS (STRING PRFONT CSVECTOR SA PCTWIDTH STREAM WIDTHSBASE 
FONTA0004 FONTA0005) SHOWRECTANGLE.PRESS (PRSTREAM ELSTREAM WIDTH HEIGHT) \PRESS.CONVERT.NSCHARACTER (
CHARCODE) \ENDVECRUN (PRSTREAM HALFVECWIDTH CH) \VECENCODE (DY DX) \VECPUT (PRSTREAM DX HALFVECWIDTH 
DY) \VECSKIP (PRSTREAM DX DY) \VECFONTINIT (BRUSH WIDTHS) \DRAWCIRCLE.PRESS (RADIUS CENTERX CENTERY 
R2RAD BRUSH DASHING STREAM) \DRAWCURVE.PRESS (PRSTREAM BRUSH KNOT CLOSED) \DRAWCURVE.PRESS.LINE (BRUSH
 X1 X2 Y1 Y2 PRSTREAM) \DRAWELLIPSE.PRESS (PRSTREAM CENTERX COSOR SEMIMAJORRADIUS CENTERY SINOR 
SEMIMINORRADIUS BRUSH DASHING) \GETBRUSHFONT.PRESS (LIST1) \PRESSCURVE2 (BRUSHFONT PRSTREAM PRDATA 
SPLINE DASHING X0 Y0 #KNOTS XPOLY X'POLY X''' X'' X' X YPOLY Y'POLY Y''' Y'' Y' Y) \PRESSINIT (STREAM 
X Y) MAKEPRESS (FILE PFILE FONTS HEADING TABS) PRESSFILEP (LEN STREAM) PRESS.BITMAPSCALE (HEIGHT WIDTH
) NIL
SETFREE \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP (VecCurX VecCurY) 
\VECFONTINIT (\VecFontDir) \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT (\PRESSIMAGEOPS) MAKEPRESS 
NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
SET \SEARCHPRESSFONTS (F WSTRM FONTSFOUND) \GETPRESSFONTNAMES (TYPE NEXT XFAMILY XFACE SPEC XFIELD 
XSIZE XROTATION FONTSFOUND) \PRESSFAMILYCODELST (TYPE NEXT PAIRS I) \DECODEPRESSFACEBYTE (EXP FACECODE
 WEIGHT SLOPE) \CREATEPRESSFONT (F WSTRM STRMCACHE RELFLAG XLATEDFAM FIRSTCHAR LASTCHAR FIXEDFLAGS TEM
 I WIDTHSY) \CREATECHARSET.PRESS NIL PRESSBITMAP (PRDATA WIDTH HEIGHT XPOS YPOS CLIPPINGREGION) 
FULLPRESSBITMAP (PRDATA SCALEFACTOR WIDTH HEIGHT XPOS YPOS) SHOWREGION NIL SHOWPRESSBITMAPREGION NIL 
PRESSWINDOW (WIDTH HEIGHT) WINDOW.BITMAP (BM) \WRITEPRESSBITMAP (BITMAP ELSTREAM CURX CURY SCALEFACTOR
 TOTCOUNT) \BCPLSOUT.PRESS (N I) \PAGEPAD.PRESS (PADDING) \ENTITYEND.PRESS (ELSTREAM DLLENGTH) 
\PARTEND.PRESS (PDSTREAM START) \ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS (ELSTREAM) 
SETY.PRESS NIL SHOW.PRESS (ELSTREAM CNT) OPENPRSTREAM (PRDATA OPT) \BITBLT.PRESS NIL \BLTSHADE.PRESS 
NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS (CHARCODE) \CLOSEF.PRESS (PDSTREAM 
FDE DESCR I DDRECORD) \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS (NEWYPOS) NEWPAGE.PRESS NIL
 SETUPFONTS.PRESS (F FLG) \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS 
NIL \DSPFONT.PRESS (OLDFONT FONT FDENTRY) \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS (LLEN) \OUTCHARFN.PRESS (XPOS CHARCODE NEWXPOS 
CLIPPINGREGION) \SETSPACE.PRESS (ELSTREAM) \STARTPAGE.PRESS (CFONT SPACEFACTOR HFONT) 
\STRINGWIDTH.PRESS (C SYN FIRSTFLG CC S) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL 
\ENDVECRUN (XPOS YPOS ORIGXPOS ORIGYPOS ORIGWASDISPLAYING WASDISPLAYING) \VECENCODE NIL \VECPUT (XPOS 
YPOS) \VECSKIP NIL \VECFONTINIT (FMLY) \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS (KNOTS LASTKNOT) 
\DRAWCURVE.PRESS.LINE (WIDTH SHAPE BACKOFF LEFT LB TR DIST BOTTOM) \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS (BRUSH) \PRESSCURVE2 (HALFVECWIDTH DASHON DASHLST DASHCNT TT DELTA IX IY XT YT 
DUPLICATEKNOT X'T Y'T DX DY XWALLDT YWALLDT NEWT PUTDX EXTRADX PUTDY EXTRADY NEWXT NEWYT XDIFF YDIFF 
KNOT#) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP (FILE) PRESS.BITMAPSCALE NIL NIL
SMASHFREE \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE 
NIL \CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL
 \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE
 NIL NIL
SMASH \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT (STRMCACHE FD) \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL 
SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL 
\BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS (PRDATA) \ENTITYSTART.PRESS
 (PRDATA) SETX.PRESS NIL SETXY.PRESS (PRDATA) SETY.PRESS NIL SHOW.PRESS (PRDATA) OPENPRSTREAM (
PRSTREAM PRDATA) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS (PRDATA) \DSPBOTTOMMARGIN.PRESS NIL 
\DSPCLIPPINGREGION.PRESS (PRDATA) \DSPFONT.PRESS (PRDATA) \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS 
(PRDATA) \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS (PRDATA) \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS (PRSTREAM) \OUTCHARFN.PRESS (
PRSTREAM PRDATA) \SETSPACE.PRESS (PRDATA) \STARTPAGE.PRESS (PRDATA) \STRINGWIDTH.PRESS NIL 
SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (PRDATA) \VECENCODE NIL \VECPUT (
PRDATA) \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE
 NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL 
PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
PROP \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP (REGION IMAGECOVERED) \WRITEPRESSBITMAP NIL 
\BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL 
SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM (REGION DOCUMENT.NAME 
HEADING FONTS) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL 
\DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL 
\STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL 
\ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL 
\PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
TEST \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES (XFACECODE) \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE
 NIL \CREATEPRESSFONT (RELFLAG) \CREATECHARSET.PRESS NIL PRESSBITMAP (SCALEFACTOR CLIPPINGREGION) 
FULLPRESSBITMAP (SCALEFACTOR CLIPPINGREGION) SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL 
WINDOW.BITMAP NIL \WRITEPRESSBITMAP (CLIPPINGREGION SCALEFACTOR) \BCPLSOUT.PRESS NIL \PAGEPAD.PRESS 
NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS NIL 
SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS (CLIPPINGREGION) \BLTSHADE.PRESS (
CLIPPINGREGION) \SCALEDBITBLT.PRESS (CLIPPINGREGION) \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS (DASHING) \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS (FLG) \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS (YPOSITION) 
\DSPCLIPPINGREGION.PRESS (REGION) \DSPFONT.PRESS (FONT) \DSPLEFTMARGIN.PRESS (XPOSITION) 
\DSPLINEFEED.PRESS (DELTAY) \DSPRIGHTMARGIN.PRESS (XPOSITION) \DSPSPACEFACTOR.PRESS (FACTOR) 
\DSPTOPMARGIN.PRESS (YPOSITION) \DSPXPOSITION.PRESS (XPOSITION) \DSPYPOSITION.PRESS (YPOSITION) 
\FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL 
\STRINGWIDTH.PRESS (RDTBL FIRSTFLG) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN 
(WASDISPLAYING) \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS (DASHING) \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS (ORIENTATION) 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 (DUPLICATEKNOT) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL 
PRESS.BITMAPSCALE NIL NIL
TESTFREE \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL
 \CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL
 \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE
 NIL NIL
PREDICATE \SEARCHPRESSFONTS (INFILEP) \GETPRESSFONTNAMES (MEMB ILESSP EQUAL) \PRESSFAMILYCODELST (
GREATERP) \DECODEPRESSFACEBYTE (ILESSP IGEQ) \CREATEPRESSFONT (INFILEP IGREATERP GREATERP) 
\CREATECHARSET.PRESS NIL PRESSBITMAP (EQUAL ILESSP) FULLPRESSBITMAP (ILESSP) SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS (
GREATERP) \PAGEPAD.PRESS (IGREATERP) \ENTITYEND.PRESS (ODDP) \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL
 SETX.PRESS (IGEQ ILEQ IEQP) SETXY.PRESS (IGEQ ILEQ) SETY.PRESS (IGEQ ILEQ IEQP) SHOW.PRESS (IGREATERP
 ILESSP ILEQ) OPENPRSTREAM (EQLENGTH EVERY) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS 
NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (
ODDP) NEWLINE.PRESS (ILESSP) NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS (EQLENGTH) \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS
 NIL \DSPLINEFEED.PRESS (NUMBERP) \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS (
IGREATERP) \OUTCHARFN.PRESS (IGEQ ILEQ) \SETSPACE.PRESS (ILEQ) \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS
 (IGREATERP BITTEST) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (IGEQ) 
\VECENCODE (ILESSP) \VECPUT (ILESSP IGEQ) \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS (EVERY \DRAWCURVE.PRESS.LINE) \DRAWCURVE.PRESS.LINE (EQP ILESSP) \DRAWELLIPSE.PRESS 
NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 (IGREATERP GREATERP IEQP FGTP FLESSP ILESSP) \PRESSINIT NIL 
MAKEPRESS NIL PRESSFILEP (ZEROP EVENP RESETLST OPENP) PRESS.BITMAPSCALE NIL NIL
EFFECT \SEARCHPRESSFONTS (DECLARE RESETSAVE SETFILEPTR) \GETPRESSFONTNAMES (SETFILEPTR SELECTQ) 
\PRESSFAMILYCODELST (SETFILEPTR SELECTQ FRPLACD) \DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT (DECLARE 
RESETSAVE SETFILEPTR COPYBYTES REPLACEFIELD SETA AIN) \CREATECHARSET.PRESS (ERROR) PRESSBITMAP (ERROR 
printout PRIN1 \WRITEPRESSBITMAP) FULLPRESSBITMAP (printout PRIN1 ERROR \WRITEPRESSBITMAP) SHOWREGION 
(MOVETO RELDRAWTO) SHOWPRESSBITMAPREGION (SHOWREGION) PRESSWINDOW (DSPXPOSITION DSPYPOSITION 
\WRITEPRESSBITMAP) WINDOW.BITMAP (CLOSEW BITBLT OPENW) \WRITEPRESSBITMAP (SHOW.PRESS \ENTITYEND.PRESS 
\ENTITYSTART.PRESS SETXY.PRESS \WOUT DECLARE \BOUTS \FIXPOUT) \BCPLSOUT.PRESS (\BOUT) \PAGEPAD.PRESS (
SETFILEPTR \BOUT) \ENTITYEND.PRESS (\FIXPOUT \WOUT DECLARE) \PARTEND.PRESS (\WOUT DECLARE SETFILEPTR) 
\ENTITYSTART.PRESS (FREPLACEFIELD DECLARE SETXY.PRESS) SETX.PRESS (\WOUT REPLACEFIELD) SETXY.PRESS (
\WOUT) SETY.PRESS (\WOUT FREPLACEFIELD) SHOW.PRESS (REPLACEFIELD \BOUT) OPENPRSTREAM (DECLARE 
REPLACEFIELD ERROR SETUPFONTS.PRESS \STARTPAGE.PRESS) \BITBLT.PRESS (LET* \WRITEPRESSBITMAP) 
\BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS (LET* \WRITEPRESSBITMAP) \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS (DECLARE) \CLOSEF.PRESS (\ENDPAGE.PRESS \BCPLSOUT.PRESS DECLARE \PARTEND.PRESS 
COPYBYTES \PAGEPAD.PRESS \SIGNEDWOUT \FIXPOUT SETFILEPTR) \DRAWLINE.PRESS (DRAWDASHEDLINE 
\DRAWCURVE.PRESS) \ENDPAGE.PRESS (SHOW.PRESS \ENTITYEND.PRESS \WOUT COPYBYTES \PARTEND.PRESS) 
NEWLINE.PRESS (NEWPAGE.PRESS SHOW.PRESS SETXY.PRESS) NEWPAGE.PRESS (\ENDPAGE.PRESS) SETUPFONTS.PRESS (
\DEFINEFONT.PRESS \DSPFONT.PRESS \ENTITYEND.PRESS REPLACEFIELD) \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS (REPLACEFIELD) \DSPCLIPPINGREGION.PRESS (ERROR UNINTERRUPTABLY) \DSPFONT.PRESS 
(SHOW.PRESS \ENTITYEND.PRESS \ENTITYSTART.PRESS FREPLACEFIELD \BOUT \SETSPACE.PRESS 
\FIXLINELENGTH.PRESS) \DSPLEFTMARGIN.PRESS (FREPLACEFIELD \FIXLINELENGTH.PRESS) \DSPLINEFEED.PRESS (
FREPLACEFIELD \ILLEGAL.ARG) \DSPRIGHTMARGIN.PRESS (FREPLACEFIELD \FIXLINELENGTH.PRESS) 
\DSPSPACEFACTOR.PRESS (SHOW.PRESS FREPLACEFIELD \SETSPACE.PRESS) \DSPTOPMARGIN.PRESS (REPLACEFIELD) 
\DSPXPOSITION.PRESS (SHOW.PRESS SETX.PRESS) \DSPYPOSITION.PRESS (SHOW.PRESS SETY.PRESS) 
\FIXLINELENGTH.PRESS (FREPLACEFIELD) \OUTCHARFN.PRESS (NEWLINE.PRESS FREPLACEFIELD SHOW.PRESS 
SETXY.PRESS \BOUT) \SETSPACE.PRESS (\WOUT DECLARE FREPLACEFIELD) \STARTPAGE.PRESS (\ENTITYSTART.PRESS 
FREPLACEFIELD \DSPFONT.PRESS SETXY.PRESS PRIN3 SHOW.PRESS SETX.PRESS NEWLINE.PRESS) \STRINGWIDTH.PRESS
 (DECLARE CHECK \MAPCHARS) SHOWRECTANGLE.PRESS (\WOUT) \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (
SHOW.PRESS SETXY.PRESS MAPC \BOUT REPLACEFIELD) \VECENCODE NIL \VECPUT (\ENDVECRUN REPLACEFIELD 
SHOW.PRESS SETXY.PRESS \BOUT) \VECSKIP NIL \VECFONTINIT (DECLARE FRPLACD) \DRAWCIRCLE.PRESS (DRAWCURVE
) \DRAWCURVE.PRESS (SHOW.PRESS \PRESSCURVE2 SETXY.PRESS) \DRAWCURVE.PRESS.LINE (SELECTQ SETXY.PRESS 
SHOWRECTANGLE.PRESS) \DRAWELLIPSE.PRESS (\DRAWCURVE.PRESS MOVETO) \GETBRUSHFONT.PRESS (\VECFONTINIT) 
\PRESSCURVE2 (\ENTITYEND.PRESS \ENTITYSTART.PRESS SETXY.PRESS REPLACEFIELD LOADPOLY \VECPUT \ENDVECRUN
) \PRESSINIT (DECLARE) MAKEPRESS NIL PRESSFILEP (DECLARE) PRESS.BITMAPSCALE NIL NIL
CLISP \SEARCHPRESSFONTS (bind for inside when do finally) \GETPRESSFONTNAMES (bind do for in as always
) \PRESSFAMILYCODELST (bind do for from to collect) \DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT (for 
inside when do old in first from to) \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL 
SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL 
\BCPLSOUT.PRESS (for from to do) \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL 
\ENTITYSTART.PRESS NIL SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS (while do finally) 
OPENPRSTREAM (type?) \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS 
NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS (for in as from do) \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL 
NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS (for inside do) \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS (type?) \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS 
NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL
 \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (for inatom bind sum type? instring) 
SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN (for in do) \VECENCODE NIL \VECPUT 
NIL \VECSKIP NIL \VECFONTINIT (for in collect) \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS (for in collect)
 \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 (for from to do
 until) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
SPECVARS \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL
 \CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (CSVECTOR S CSET WIDTHSBASE) 
SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL 
\VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL 
PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
LOCALVARS \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE 
NIL \CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP (STREAM W) 
\BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS (STREAM W) \PARTEND.PRESS (STREAM W) 
\ENTITYSTART.PRESS (STRM) SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM 
NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL 
\CHARWIDTH.PRESS (FONTA0003 CHARCODEA0002) \CLOSEF.PRESS (STREAM W) \DRAWLINE.PRESS NIL \ENDPAGE.PRESS
 NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS (STREAM W) \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS ($$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5
 FONTA0004 FONTA0005) SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE
 NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL 
\DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT 
NIL MAKEPRESS NIL PRESSFILEP (STREAM) PRESS.BITMAPSCALE NIL NIL
APPLY \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM (\OUTCHARFN.PRESS) \BITBLT.PRESS NIL 
\BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS 
NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL 
\OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (
\PRESS.CONVERT.NSCHARACTER PLUS CHARCODE FFETCHFIELD \FGETWIDTH \GETBASE \CHAR8CODE LOGAND) 
SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL 
\VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT (\CLOSEF.PRESS 
\DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS \DSPRIGHTMARGIN.PRESS 
\DSPLINEFEED.PRESS \DRAWLINE.PRESS \DRAWCURVE.PRESS \DRAWCIRCLE.PRESS \DRAWELLIPSE.PRESS \UNIMPIMAGEOP
 \BLTSHADE.PRESS \BITBLT.PRESS CONSTANT FQUOTIENT NEWLINE.PRESS \DSPBOTTOMMARGIN.PRESS 
\DSPTOPMARGIN.PRESS NEWPAGE.PRESS \DSPSPACEFACTOR.PRESS \STRINGWIDTH.PRESS \CHARWIDTH.PRESS 
\BITMAPSIZE.PRESS \DSPCLIPPINGREGION.PRESS \SCALEDBITBLT.PRESS NILL IMAGEOP SPREADAPPLY* FETCHFIELD) 
MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
ERROR \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT (ppe) \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS (apply) \PARTEND.PRESS NIL \ENTITYSTART.PRESS (apply) SETX.PRESS 
NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS (apply) OPENPRSTREAM NIL \BITBLT.PRESS NIL 
\BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS 
NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (apply) NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS 
NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL 
\OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL 
SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL 
\VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 (ppe) \PRESSINIT (apply) MAKEPRESS NIL 
PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
LOCALFREEVARS \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL 
\DECODEPRESSFACEBYTE NIL \CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP
 NIL SHOWREGION NIL SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL 
\BCPLSOUT.PRESS NIL \PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL 
SETX.PRESS NIL SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL 
\BLTSHADE.PRESS NIL \SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS 
NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL 
\OUTCHARFN.PRESS NIL \SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS (S STREAM WIDTHSBASE)
 SHOWRECTANGLE.PRESS NIL \PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL 
\VECSKIP NIL \VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL 
PRESSFILEP NIL PRESS.BITMAPSCALE NIL NIL
ARGS \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL
 \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE
 NIL NIL
USERTEMPLATES PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) perform (MACRO ARGS (PERFORMTRAN ARGS T)) 
SHAZAM (CALL .. NIL) WINDOWDELPROP (CALL EVAL PROP EVAL . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE
) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) 
UNINTERRUPTABLY (CALL .. EVAL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) OP# (CALL) SETQ.NOREF (CALL SET 
EVAL . PPE) NIL
0 \SEARCHPRESSFONTS NIL \GETPRESSFONTNAMES NIL \PRESSFAMILYCODELST NIL \DECODEPRESSFACEBYTE NIL 
\CREATEPRESSFONT NIL \CREATECHARSET.PRESS NIL PRESSBITMAP NIL FULLPRESSBITMAP NIL SHOWREGION NIL 
SHOWPRESSBITMAPREGION NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS NIL 
\PAGEPAD.PRESS NIL \ENTITYEND.PRESS NIL \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS NIL 
SETXY.PRESS NIL SETY.PRESS NIL SHOW.PRESS NIL OPENPRSTREAM NIL \BITBLT.PRESS NIL \BLTSHADE.PRESS NIL 
\SCALEDBITBLT.PRESS NIL \BITMAPSIZE.PRESS NIL \CHARWIDTH.PRESS NIL \CLOSEF.PRESS NIL \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS NIL \DSPCLIPPINGREGION.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPLINEFEED.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPSPACEFACTOR.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \FIXLINELENGTH.PRESS NIL \OUTCHARFN.PRESS NIL 
\SETSPACE.PRESS NIL \STARTPAGE.PRESS NIL \STRINGWIDTH.PRESS NIL SHOWRECTANGLE.PRESS NIL 
\PRESS.CONVERT.NSCHARACTER NIL \ENDVECRUN NIL \VECENCODE NIL \VECPUT NIL \VECSKIP NIL \VECFONTINIT NIL
 \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL 
\GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE
 NIL NIL

)