(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("17-Sep-84 13:41:00" . {ERIS}<LISPCORE>SOURCES>PRESS.;57)
FNS (\FACECODE \FAMILYCODE \FINDFONT \CREATEPRESSFONT 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 \CLOSEF.PRESS \DRAWLINE.PRESS \ENDPAGE.PRESS NEWLINE.PRESS NEWPAGE.PRESS SETUPFONTS.PRESS
 \DEFINEFONT.PRESS \DSPBOTTOMMARGIN.PRESS \DSPFONT.PRESS \DSPLEFTMARGIN.PRESS \DSPRIGHTMARGIN.PRESS 
\DSPTOPMARGIN.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \PRESS.OUTCHARFN \STARTPAGE.PRESS 
SHOWRECTANGLE.PRESS ENDVECRUN VECENCODE VECPUT VECSKIP VECFONTINIT \DRAWCIRCLE.PRESS \DRAWCURVE.PRESS 
\DRAWCURVE.PRESS.LINE \DRAWELLIPSE.PRESS \GETBRUSHFONT.PRESS \PRESSCURVE2 \PRESSINIT MAKEPRESS 
PRESSFILEP PRESS.BITMAPSCALE millsToMicas)
(READATABASE)
(
CALL \FACECODE (IPLUS SELECTQ SHOULDNT) \FAMILYCODE (NCHARS \BIN IPLUS LLSH LOGAND LRSH \WIN 
NTHCHARCODE) \FINDFONT (FETCHFIELD \FACECODE \FAMILYCODE \BIN IPLUS LLSH LOGAND LRSH \WIN) 
\CREATEPRESSFONT (RESETLST ARRAY ADD1 IQUOTIENT ITIMES FIXR FQUOTIENT \FACECODE FREPLACEFIELDVAL 
NCREATE \GETSTREAM LIST GETFILEPTR OPENSTREAM \FINDFONT SELECTQ ZEROP LLSH \FIXPIN SIGNED SUB1 
DIFFERENCE \WIN \BIN IPLUS IMINUS FETCHFIELD IDIFFERENCE LRSH LOGAND ELT) PRESSBITMAP (OPENPRSTREAM 
FETCHFIELD BITMAPWIDTH BITMAPHEIGHT IQUOTIENT IDIFFERENCE FIX TIMES IMAX CREATEREGION MIN QUOTIENT 
IPLUS CLOSEF) FULLPRESSBITMAP (OPENPRSTREAM FETCHFIELD BITMAPWIDTH BITMAPHEIGHT IQUOTIENT IDIFFERENCE 
FIX TIMES 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 FIX FTIMES ITIMES IPLUS) \BCPLSOUT.PRESS 
(IMIN NCHARS SUB1 NTHCHARCODE IPLUS 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) 
SETY.PRESS (FETCHFIELD LRSH \BOUT LOGAND) SHOW.PRESS (FETCHFIELD \GETFILEPTR FDEVOP SPREADAPPLY* 
IDIFFERENCE LOGOR IPLUS) OPENPRSTREAM (OPENSTREAM LISTGET NUMBERP FREPLACEFIELDVAL NCREATE IPLUS 
FETCHFIELD GETEOFPTR FULLNAME FUNCTION) \CLOSEF.PRESS (FETCHFIELD GETFILEPTR LRSH \BOUT LOGAND 
FONTPROP IPLUS FOLDLO ADD1 IDIFFERENCE \WOUT LISP.TO.ALTO.DATE IDATE FULLNAME GETFILEINFO) 
\DRAWLINE.PRESS (\DRAWCURVE.PRESS LIST CREATEPOSITION) \ENDPAGE.PRESS (FETCHFIELD \GETFILEPTR FDEVOP 
SPREADAPPLY* LRSH \BOUT LOGAND) NEWLINE.PRESS (FETCHFIELD IDIFFERENCE IPLUS FONTPROP) NEWPAGE.PRESS (
\STARTPAGE.PRESS) SETUPFONTS.PRESS (FONTCREATE FETCHFIELD) \DEFINEFONT.PRESS (FETCHFIELD FASSOC 
REPLACEFIELD CONS IPLUS) \DSPBOTTOMMARGIN.PRESS (FETCHFIELD) \DSPFONT.PRESS (FETCHFIELD \GETFONTDESC 
FONTCOPY \DEFINEFONT.PRESS LOGOR ARRAY) \DSPLEFTMARGIN.PRESS (FETCHFIELD) \DSPRIGHTMARGIN.PRESS (
FETCHFIELD) \DSPTOPMARGIN.PRESS (FETCHFIELD) \DSPXPOSITION.PRESS (FETCHFIELD) \DSPYPOSITION.PRESS (
FETCHFIELD) \PRESS.OUTCHARFN (SELCHARQ REPLACEFIELD \DSPXPOSITION.PRESS DSPXPOSITION NEWPAGE.PRESS 
FETCHFIELD IPLUS \FGETWIDTH \GETBASE FFETCHFIELD) \STARTPAGE.PRESS (FETCHFIELD IDIFFERENCE FONTPROP 
IPLUS REPLACEFIELD) SHOWRECTANGLE.PRESS (FETCHFIELD LRSH \BOUT LOGAND) ENDVECRUN (FETCHFIELD FIXR 
FTIMES IGEQ VECENCODE IMINUS IDIFFERENCE) VECENCODE (IDIFFERENCE IPLUS IMINUS ITIMES IMAX) VECPUT (
FETCHFIELD LIST IPLUS FIXR FTIMES VECENCODE CONS) VECSKIP (IPLUS ENDVECRUN) VECFONTINIT (ARRAY MAPCAR 
FREPLACEFIELDVAL NCREATE LIST) \DRAWCIRCLE.PRESS (LIST CREATEPOSITION IPLUS IDIFFERENCE MOVETO) 
\DRAWCURVE.PRESS (FIXP \ILLEGAL.ARG LENGTH PARAMETRICSPLINE MAPCAR CREATEPOSITION FIXR FTIMES 
\GETBRUSHFONT.PRESS) \DRAWCURVE.PRESS.LINE (IQUOTIENT IDIFFERENCE IMIN IPLUS IABS IMINUS) 
\DRAWELLIPSE.PRESS (SIN COS LIST CREATEPOSITION PLUS FTIMES DIFFERENCE) \GETBRUSHFONT.PRESS (SELECTQ 
FIXR FTIMES) \PRESSCURVE2 (RESETLST RESETSAVE LIST DSPFONT ARRAY FETCHFIELD ELT FIXR FTIMES GEQ SUB1 
EVALPOLY IMINUS FQUOTIENT FDIFFERENCE IPLUS FPLUS IDIFFERENCE ABS LRSH LLSH) \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) millsToMicas (IQUOTIENT ITIMES) NIL
BIND \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 \CLOSEF.PRESS NIL 
\DRAWLINE.PRESS (OPERATION COLOR) \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
NLAMBDA \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
NOBIND \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
RECORD \FACECODE (FONTFACE) \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT NIL 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) \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL 
NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS 
NIL \DSPFONT.PRESS (ARRAYP) \DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL
 \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN (STREAM) \STARTPAGE.PRESS NIL 
SHOWRECTANGLE.PRESS 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 (ARRAYP SPLINE) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL 
PRESS.BITMAPSCALE NIL millsToMicas NIL NIL
CREATE \FACECODE NIL \FAMILYCODE (WORD) \FINDFONT (WORD) \CREATEPRESSFONT (FONTDESCRIPTOR WORD) 
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) \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS (FONTDIRENTRY) \DSPBOTTOMMARGIN.PRESS NIL 
\DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL 
\DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL 
SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
FETCH \FACECODE (EXPANSION WEIGHT SLOPE) \FAMILYCODE NIL \FINDFONT (ROTATION FONTFACE FONTFAMILY) 
\CREATEPRESSFONT (FIRSTCHAR LASTCHAR FBBOX \SFDescent FBBDX \SFHeight) 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 HIBYTE LOBYTE) SETXY.PRESS (IMAGEDATA ELSTREAM
 HIBYTE LOBYTE) SETY.PRESS (ELSTREAM IMAGEDATA HIBYTE LOBYTE) SHOW.PRESS (IMAGEDATA GETFILEPTR DEVICE 
ELSTREAM STARTCHARBYTE PRFONT DESCR PRCURRFDE FONT#) OPENPRSTREAM (LEFT BOTTOM WIDTH HEIGHT IMAGEOPS) 
\CLOSEF.PRESS (IMAGEDATA PDSTREAM PRESSFONTDIR DESCR HIBYTE LOBYTE FONTSET# FONT# FIRSTCHAR LASTCHAR 
\SFFACECODE FONTSIZE ROTATION PRPARTSTART PRBREAKPAGEFILENAME) \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (
ELSTREAM IMAGEDATA GETFILEPTR DEVICE HIBYTE LOBYTE) NEWLINE.PRESS (IMAGEDATA PRYPOS PRFONT PRBOTTOM 
PRLEFT) NEWPAGE.PRESS NIL SETUPFONTS.PRESS (IMAGEDATA) \DEFINEFONT.PRESS (IMAGEDATA PRESSFONTDIR 
PRNEXTFONT# PRMAXFONTSET) \DSPBOTTOMMARGIN.PRESS (PRBOTTOM IMAGEDATA) \DSPFONT.PRESS (IMAGEDATA PRFONT
 FONTSET# PRCURRFDE ELSTREAM FONT# BASE \SFWidths) \DSPLEFTMARGIN.PRESS (PRLEFT IMAGEDATA) 
\DSPRIGHTMARGIN.PRESS (PRRIGHT IMAGEDATA) \DSPTOPMARGIN.PRESS (PRTOP IMAGEDATA) \DSPXPOSITION.PRESS (
PRXPOS IMAGEDATA) \DSPYPOSITION.PRESS (PRYPOS IMAGEDATA) \PRESS.OUTCHARFN (IMAGEDATA PRXPOS 
PRWIDTHSCACHE PRYPOS) \STARTPAGE.PRESS (IMAGEDATA PRFONT PRHEADING PRHEADINGFONT PRLEFT PRTOP PRXPOS 
PRPAGENUM) SHOWRECTANGLE.PRESS (ELSTREAM IMAGEDATA HIBYTE LOBYTE) ENDVECRUN (IMAGEDATA VECMOVINGRIGHT 
VECCURX VECCURY VECWASDISPLAYING 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 (BASE SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY 
#KNOTS IMAGEDATA) \PRESSINIT NIL MAKEPRESS NIL PRESSFILEP NIL PRESS.BITMAPSCALE (HEIGHT WIDTH) 
millsToMicas NIL NIL
REPLACE \FACECODE NIL \FAMILYCODE (HIBYTE LOBYTE) \FINDFONT (FIRSTCHAR LASTCHAR HIBYTE LOBYTE 
\SFFACECODE) \CREATEPRESSFONT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE \SFFACECODE ROTATION 
DEVICEFONTFAMILY FBBOX HIBYTE LOBYTE \SFDescent FBBDX \SFHeight \SFWidths \SFAscent \SFWidthsY) 
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 (PRFONT DLSTARTBYTE ELSTARTBYTE STARTCHARBYTE) 
SETX.PRESS (PRXPOS) SETXY.PRESS (PRXPOS PRYPOS) SETY.PRESS (PRYPOS) SHOW.PRESS (PRFONT STARTCHARBYTE) 
OPENPRSTREAM (PRPAGEREGION PDSTREAM ELSTREAM PRBREAKPAGEFILENAME XPRPAGEREGION PRLEFT PRBOTTOM PRRIGHT
 PRTOP OUTCHARFN IMAGEOPS IMAGEDATA PRHEADING) \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) 
\DSPFONT.PRESS (PRCURRFDE PRFONT PRWIDTHSCACHE) \DSPLEFTMARGIN.PRESS (PRLEFT) \DSPRIGHTMARGIN.PRESS (
PRRIGHT) \DSPTOPMARGIN.PRESS (PRTOP) \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN 
(CHARPOSITION PRXPOS) \STARTPAGE.PRESS (PRPAGENUM) SHOWRECTANGLE.PRESS NIL ENDVECRUN (VECWASDISPLAYING
 VECSEGCHARS) VECENCODE NIL VECPUT (VECMOVINGRIGHT VECCURX VECCURY VECWASDISPLAYING VECSEGCHARS) 
VECSKIP NIL VECFONTINIT (FONTDEVICE FONTFAMILY FONTSIZE FONTFACE ROTATION \SFWidths) \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 IMCHANGFONT IMSCALE IMTERPRI 
IMBOTTOMMARGIN IMTOPMARGIN IMFONTCREATE IMNEWPAGE) MAKEPRESS NIL PRESSFILEP (HIBYTE LOBYTE) 
PRESS.BITMAPSCALE NIL millsToMicas NIL NIL
REFFREE \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT (\MAXCHAR PRESSFONTWIDTHSFILES 
noInfoCode) 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 (SetXCode) SETXY.PRESS (SetXCode 
SetYCode) SETY.PRESS (SetYCode) SHOW.PRESS (FontCode ShowCharactersShortCode ShowCharactersCode) 
OPENPRSTREAM (DEFAULTPAGEREGION \NOIMAGEOPS \PRESSIMAGEOPS) \CLOSEF.PRESS (USERNAME) \DRAWLINE.PRESS 
NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS (PRESSLINELEAD) NEWPAGE.PRESS NIL SETUPFONTS.PRESS (DEFAULTFONT) 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS (FontCode) \DSPLEFTMARGIN.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL 
\PRESS.OUTCHARFN NIL \STARTPAGE.PRESS (MICASPERINCH) SHOWRECTANGLE.PRESS (ShowRectangleCode) ENDVECRUN
 (MicasPerScan) VECENCODE NIL VECPUT (MicasPerScan) VECSKIP NIL VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL 
\DRAWCURVE.PRESS (ScansPerMica) \DRAWCURVE.PRESS.LINE NIL \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS (
\VecFontDir PointsPerMica) \PRESSCURVE2 (MicasPerScan) \PRESSINIT (MICASPERINCH) MAKEPRESS NIL 
PRESSFILEP (BYTESPERRECORD) PRESS.BITMAPSCALE (PRESSBITMAPREGION PointsPerMica) millsToMicas NIL NIL
REF \FACECODE (FACE) \FAMILYCODE (WSTRM FAMILY NCHARS) \FINDFONT (DONTCHECK WSTRM FACECODE 
PRESSMICASIZE NSMICASIZE ROTATION) \CREATEPRESSFONT (PSIZE DEVICE FAMILY FACE ROTATION PRESSMICASIZE 
NSMICASIZE NA0002 NA0003 NA0004 NA0005 NA0006 NA0007 NA0008 NA0009 WIDTHS) 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) \CLOSEF.PRESS (PRSTREAM PRDATA STREAM W 
DDFILEPTR) \DRAWLINE.PRESS (PRSTREAM X1 Y1 X2 Y2 WIDTH) \ENDPAGE.PRESS (PRSTREAM ELSTREAM) 
NEWLINE.PRESS (PRSTREAM PRDATA) NEWPAGE.PRESS (PRSTREAM) SETUPFONTS.PRESS (FONTS PRSTREAM) 
\DEFINEFONT.PRESS (PRSTREAM FONT) \DSPBOTTOMMARGIN.PRESS (PRSTREAM) \DSPFONT.PRESS (PRSTREAM) 
\DSPLEFTMARGIN.PRESS (PRSTREAM) \DSPRIGHTMARGIN.PRESS (PRSTREAM) \DSPTOPMARGIN.PRESS (PRSTREAM) 
\DSPXPOSITION.PRESS (PRSTREAM) \DSPYPOSITION.PRESS (PRSTREAM) \PRESS.OUTCHARFN (CHARCODE) 
\STARTPAGE.PRESS (PRSTREAM PRDATA) SHOWRECTANGLE.PRESS (PRSTREAM ELSTREAM WIDTH HEIGHT) ENDVECRUN (
PRSTREAM CH) VECENCODE (DY DX) VECPUT (PRSTREAM DX DY) VECSKIP (PRSTREAM DX DY) VECFONTINIT (BRUSH 
WIDTHS) \DRAWCIRCLE.PRESS (PRSTREAM CENTERX RADIUS CENTERY BRUSH DASHING) \DRAWCURVE.PRESS (KNOTS 
PRSTREAM BRUSH KNOT CLOSED) \DRAWCURVE.PRESS.LINE (BRUSH X1 X2 Y1 Y2 A PRSTREAM) \DRAWELLIPSE.PRESS (
PRSTREAM CENTERX COSOR SEMIMAJORRADIUS CENTERY SINOR SEMIMINORRADIUS BRUSH DASHING) 
\GETBRUSHFONT.PRESS (LIST1) \PRESSCURVE2 (BRUSHFONT PRSTREAM SPLINE DASHING X0 Y0 #KNOTS XPOLY X'POLY 
X''' X'' X' X YPOLY Y'POLY Y''' Y'' Y' Y) \PRESSINIT (STREAM CHARCODE STR RDTBL) MAKEPRESS (FILE PFILE
 FONTS HEADING TABS) PRESSFILEP (LEN STREAM) PRESS.BITMAPSCALE (HEIGHT WIDTH) millsToMicas (N) NIL
SETFREE \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 
millsToMicas NIL NIL
SET \FACECODE NIL \FAMILYCODE (TYPE LENGTH NEXT CODE I) \FINDFONT (FAMILYCODE TYPE LENGTH NEXT SIZE) 
\CREATEPRESSFONT (F WSTRM RELFLAG XLATEDFAM FIRSTCHAR LASTCHAR FIXEDFLAGS TEM I WIDTHSY) 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) \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 \DSPFONT.PRESS (OLDFONT FONT FDENTRY) 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN (XPOS) \STARTPAGE.PRESS (CFONT HFONT) SHOWRECTANGLE.PRESS NIL
 ENDVECRUN (ORIGXPOS XPOS ORIGYPOS YPOS) VECENCODE NIL VECPUT (XPOS YPOS) VECSKIP NIL VECFONTINIT (
FMLY) \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE (WIDTH SHAPE OVERRUN BACKOFF 
LEFT BOTTOM DIST) \DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS (BRUSH) \PRESSCURVE2 (DASHON DASHLST 
DASHCNT TT DELTA IX IY XT YT X'T Y'T DX DY XWALLDT YWALLDT NEWT NEWXT NEWYT XDIFF YDIFF KNOT#) 
\PRESSINIT NIL MAKEPRESS NIL PRESSFILEP (FILE) PRESS.BITMAPSCALE NIL millsToMicas NIL NIL
SMASHFREE \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
SMASH \FACECODE NIL \FAMILYCODE NIL \FINDFONT (FD) \CREATEPRESSFONT (FD) 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) \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL 
NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS (PRDATA) 
\DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS (PRDATA) \DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN (PRSTREAM 
PRDATA) \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
PROP \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 (REGION BREAKPAGEFILENAME 
HEADING FONTS) \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL 
NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS
 NIL \DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS 
NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL 
NIL
TEST \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT (RELFLAG) 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 \CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL 
\ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS (FLG) \DEFINEFONT.PRESS NIL 
\DSPBOTTOMMARGIN.PRESS (YPOSITION) \DSPFONT.PRESS (FONT) \DSPLEFTMARGIN.PRESS (XPOSITION) 
\DSPRIGHTMARGIN.PRESS (XPOSITION) \DSPTOPMARGIN.PRESS (YPOSITION) \DSPXPOSITION.PRESS (XPOSITION) 
\DSPYPOSITION.PRESS (YPOSITION) \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS NIL 
ENDVECRUN NIL 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 millsToMicas NIL NIL
TESTFREE \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
PREDICATE \FACECODE NIL \FAMILYCODE (IGREATERP) \FINDFONT (ZEROP) \CREATEPRESSFONT (INFILEP GREATERP 
IGREATERP) PRESSBITMAP (EQUAL ILESSP) FULLPRESSBITMAP (ILESSP) SHOWREGION NIL SHOWPRESSBITMAPREGION 
NIL PRESSWINDOW NIL WINDOW.BITMAP NIL \WRITEPRESSBITMAP NIL \BCPLSOUT.PRESS (IGREATERP) \PAGEPAD.PRESS
 (IGREATERP) \ENTITYEND.PRESS (ODDP) \PARTEND.PRESS NIL \ENTITYSTART.PRESS NIL SETX.PRESS (IGEQ) 
SETXY.PRESS (IGEQ) SETY.PRESS (IGEQ) SHOW.PRESS (IGREATERP ILESSP ILEQ) OPENPRSTREAM (EQLENGTH EVERY) 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (ODDP) NEWLINE.PRESS (ILESSP) NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN (IGEQ) \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS NIL ENDVECRUN
 NIL VECENCODE (ILESSP) VECPUT (IGREATERP ILESSP IGEQ) VECSKIP NIL VECFONTINIT NIL \DRAWCIRCLE.PRESS 
NIL \DRAWCURVE.PRESS (EVERY \DRAWCURVE.PRESS.LINE) \DRAWCURVE.PRESS.LINE (EQP ILESSP IGEQ ILEQ) 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 (IGREATERP EQP FGTP FLESSP ILESSP) 
\PRESSINIT NIL MAKEPRESS NIL PRESSFILEP (ZEROP EVENP RESETLST OPENP) PRESS.BITMAPSCALE NIL 
millsToMicas NIL NIL
EFFECT \FACECODE NIL \FAMILYCODE (SETFILEPTR SELECTQ) \FINDFONT (SELECTQ REPLACEFIELD SETFILEPTR) 
\CREATEPRESSFONT (DECLARE RESETSAVE SETFILEPTR REPLACEFIELD SETA AIN) PRESSBITMAP (ERROR PRIN1 TERPRI 
\WRITEPRESSBITMAP) FULLPRESSBITMAP (PRIN1 TERPRI 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
 (REPLACEFIELD DECLARE SETXY.PRESS) SETX.PRESS (\WOUT REPLACEFIELD) SETXY.PRESS (\WOUT REPLACEFIELD) 
SETY.PRESS (\WOUT REPLACEFIELD) SHOW.PRESS (REPLACEFIELD \BOUT) OPENPRSTREAM (DECLARE REPLACEFIELD 
ERROR SETUPFONTS.PRESS \STARTPAGE.PRESS) \CLOSEF.PRESS (\ENDPAGE.PRESS \BCPLSOUT.PRESS DECLARE 
\PARTEND.PRESS COPYBYTES \PAGEPAD.PRESS \SIGNEDWOUT \FIXPOUT SETFILEPTR) \DRAWLINE.PRESS NIL 
\ENDPAGE.PRESS (SHOW.PRESS \ENTITYEND.PRESS \WOUT COPYBYTES \PARTEND.PRESS) NEWLINE.PRESS (DECLARE 
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) \DSPFONT.PRESS (SHOW.PRESS \ENTITYEND.PRESS \ENTITYSTART.PRESS 
REPLACEFIELD \BOUT) \DSPLEFTMARGIN.PRESS (REPLACEFIELD) \DSPRIGHTMARGIN.PRESS (REPLACEFIELD) 
\DSPTOPMARGIN.PRESS (REPLACEFIELD) \DSPXPOSITION.PRESS (SHOW.PRESS SETX.PRESS) \DSPYPOSITION.PRESS (
SHOW.PRESS SETY.PRESS) \PRESS.OUTCHARFN (NEWLINE.PRESS SHOW.PRESS SETX.PRESS \BOUT) \STARTPAGE.PRESS (
\ENTITYSTART.PRESS \DSPFONT.PRESS SETXY.PRESS PRIN3 SHOW.PRESS SETX.PRESS NEWLINE.PRESS) 
SHOWRECTANGLE.PRESS (\WOUT) ENDVECRUN (SHOW.PRESS REPLACEFIELD SETXY.PRESS MAPC \BOUT) VECENCODE NIL 
VECPUT (HELP ENDVECRUN REPLACEFIELD SHOW.PRESS SETXY.PRESS \BOUT) VECSKIP NIL VECFONTINIT (DECLARE 
FRPLACD) \DRAWCIRCLE.PRESS (\DRAWCURVE.PRESS) \DRAWCURVE.PRESS (SHOW.PRESS SETXY.PRESS \PRESSCURVE2) 
\DRAWCURVE.PRESS.LINE (SELECTQ DECLARE SETXY.PRESS SHOWRECTANGLE.PRESS) \DRAWELLIPSE.PRESS (
\DRAWCURVE.PRESS MOVETO) \GETBRUSHFONT.PRESS (VECFONTINIT) \PRESSCURVE2 (SETXY.PRESS REPLACEFIELD 
LOADPOLY VECPUT ENDVECRUN) \PRESSINIT (DECLARE) MAKEPRESS NIL PRESSFILEP (DECLARE) PRESS.BITMAPSCALE 
NIL millsToMicas NIL NIL
CLISP \FACECODE NIL \FAMILYCODE (bind do for from to always) \FINDFONT (bind first do) 
\CREATEPRESSFONT (for inside when do first from to) PRESSBITMAP (printout) FULLPRESSBITMAP (printout) 
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?) \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 \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL 
\DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL 
\STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
SPECVARS \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
LOCALVARS \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT (NA0002 NA0003 NA0004 NA0005 
NA0006 NA0007 NA0008 NA0009) 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 \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 \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL 
\PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS NIL ENDVECRUN NIL VECENCODE NIL VECPUT 
NIL VECSKIP NIL VECFONTINIT NIL \DRAWCIRCLE.PRESS NIL \DRAWCURVE.PRESS NIL \DRAWCURVE.PRESS.LINE (A) 
\DRAWELLIPSE.PRESS NIL \GETBRUSHFONT.PRESS NIL \PRESSCURVE2 NIL \PRESSINIT NIL MAKEPRESS NIL 
PRESSFILEP (STREAM) PRESS.BITMAPSCALE NIL millsToMicas NIL NIL
APPLY \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 (\PRESS.OUTCHARFN) 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 \UNIMPIMAGEOP \DRAWLINE.PRESS \DRAWCURVE.PRESS \DRAWCIRCLE.PRESS 
\DRAWELLIPSE.PRESS \CHANGFONT.PRESS CONSTANT FQUOTIENT NEWLINE.PRESS \DSPBOTTOMMARGIN.PRESS 
\DSPTOPMARGIN.PRESS NEWPAGE.PRESS NILL CHARWIDTH DSPFONT STRINGWIDTH) MAKEPRESS NIL PRESSFILEP NIL 
PRESS.BITMAPSCALE NIL millsToMicas NIL NIL
ERROR \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS (apply) NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
LOCALFREEVARS \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 
\CLOSEF.PRESS NIL \DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL 
SETUPFONTS.PRESS NIL \DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL 
\DSPLEFTMARGIN.PRESS NIL \DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL 
\DSPYPOSITION.PRESS NIL \PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
ARGS \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 \CLOSEF.PRESS NIL 
\DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL 
\PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL
USERTEMPLATES SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) SETQ.NOREF (CALL SET EVAL %. PPE) 
SPREADAPPLY (CALL FUNCTIONAL EVAL %. PPE) NIL
0 \FACECODE NIL \FAMILYCODE NIL \FINDFONT NIL \CREATEPRESSFONT 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 \CLOSEF.PRESS NIL 
\DRAWLINE.PRESS NIL \ENDPAGE.PRESS NIL NEWLINE.PRESS NIL NEWPAGE.PRESS NIL SETUPFONTS.PRESS NIL 
\DEFINEFONT.PRESS NIL \DSPBOTTOMMARGIN.PRESS NIL \DSPFONT.PRESS NIL \DSPLEFTMARGIN.PRESS NIL 
\DSPRIGHTMARGIN.PRESS NIL \DSPTOPMARGIN.PRESS NIL \DSPXPOSITION.PRESS NIL \DSPYPOSITION.PRESS NIL 
\PRESS.OUTCHARFN NIL \STARTPAGE.PRESS NIL SHOWRECTANGLE.PRESS 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 millsToMicas NIL NIL

)