(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("14-Sep-84 17:38:53" . {ERIS}<LISPCORE>LISPUSERS>LANDPRESS.;3)
FNS (LANDPRESS MAKELANDPRESS NEWLINE.LANDPRESS NEWPAGE.LANDPRESS OPENLPRSTREAM \LANDPRESS.OUTCHARFN 
\STARTPAGE.LANDPRESS \FINDFONT)
(READATABASE)
(
CALL LANDPRESS (RESETLST PRESSFILEP FINDFILE MAKELANDPRESS GETFILEINFO EFTP PRINTERTYPE) MAKELANDPRESS
 (OPENSTREAM OPENLPRSTREAM CONCAT FULLNAME GETFILEINFO FUNCTION \BIN LIST CLOSEF) NEWLINE.LANDPRESS (
FETCHFIELD IPLUS FONTPROP) NEWPAGE.LANDPRESS (\STARTPAGE.LANDPRESS) OPENLPRSTREAM (OPENSTREAM NUMBERP 
FREPLACEFIELDVAL NCREATE IPLUS FUNCTION LIST) \LANDPRESS.OUTCHARFN (SELCHARQ REPLACEFIELD 
\DSPXPOSITION.PRESS DSPXPOSITION NEWPAGE.LANDPRESS FETCHFIELD IPLUS \FGETWIDTH \GETBASE FFETCHFIELD) 
\STARTPAGE.LANDPRESS (FETCHFIELD IPLUS FONTPROP REPLACEFIELD) \FINDFONT (FETCHFIELD \FACECODE 
\FAMILYCODE \BIN IPLUS LLSH LOGAND LRSH \WIN) NIL
BIND LANDPRESS (COPIES SIDES) MAKELANDPRESS (TABS) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL 
OPENLPRSTREAM NIL \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
NLAMBDA LANDPRESS NIL MAKELANDPRESS (CHARCODE) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL 
OPENLPRSTREAM (CHARCODE) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
NOBIND LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
RECORD LANDPRESS NIL MAKELANDPRESS (STREAM) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM 
(REGION PRESSDATA STREAM) \LANDPRESS.OUTCHARFN (STREAM) \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
CREATE LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (
PRESSDATA IMAGEOPS) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT (WORD) NIL
FETCH LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS (IMAGEDATA PRXPOS PRFONT PRRIGHT PRBOTTOM) 
NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (LEFT BOTTOM WIDTH HEIGHT) \LANDPRESS.OUTCHARFN (IMAGEDATA PRYPOS 
PRWIDTHSCACHE) \STARTPAGE.LANDPRESS (IMAGEDATA PRFONT PRHEADING PRHEADINGFONT PRLEFT PRBOTTOM PRYPOS 
PRPAGENUM) \FINDFONT (ROTATION FONTFACE FONTFAMILY) NIL
REPLACE LANDPRESS NIL MAKELANDPRESS (ENDOFSTREAMOP) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL 
OPENLPRSTREAM (PRPAGEREGION PDSTREAM ELSTREAM PRBREAKPAGEFILENAME XPRPAGEREGION PRLEFT PRBOTTOM 
PRRIGHT PRTOP OUTCHARFN IMAGEOPS IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN 
IMRIGHTMARGIN IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE 
IMBITBLT IMCHANGFONT IMSCALE IMBOTTOMMARGIN IMTOPMARGIN IMAGEDATA PRHEADING) \LANDPRESS.OUTCHARFN (
CHARPOSITION PRYPOS) \STARTPAGE.LANDPRESS (PRPAGENUM) \FINDFONT (FIRSTCHAR LASTCHAR HIBYTE LOBYTE 
\SFFACECODE) NIL
REFFREE LANDPRESS (EMPRESS.SCRATCH DEFAULTPRINTINGHOST) MAKELANDPRESS NIL NEWLINE.LANDPRESS (
PRESSLINELEAD) NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (DEFAULTLANDPRESSREGION MICASPERINCH) 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS (MICASPERINCH) \FINDFONT NIL NIL
REF LANDPRESS (FILE FONT HEADING HOST) MAKELANDPRESS (FILE PFILE HEADING FONT) NEWLINE.LANDPRESS (
LPRSTREAM PRDATA) NEWPAGE.LANDPRESS (PRSTREAM) OPENLPRSTREAM (LPRFILE REGION BREAKPAGEFILENAME STREAM 
CHARCODE STR RDTBL) \LANDPRESS.OUTCHARFN (CHARCODE PRDATA) \STARTPAGE.LANDPRESS (PRSTREAM PRDATA) 
\FINDFONT (DONTCHECK WSTRM FACECODE PRESSMICASIZE NSMICASIZE ROTATION) NIL
SETFREE LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (
\LANDPRESSIMAGEOPS) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
SET LANDPRESS (PFILE FULLFILE VAL X) MAKELANDPRESS (LPRSTREAM C) NEWLINE.LANDPRESS (NEWXPOS) 
NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (FONT) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS (CFONT HFONT)
 \FINDFONT (FAMILYCODE TYPE LENGTH NEXT SIZE) NIL
SMASHFREE LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM 
NIL \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
SMASH LANDPRESS NIL MAKELANDPRESS (SOURCESTREAM) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL 
OPENLPRSTREAM (LPRSTREAM LPRDATA) \LANDPRESS.OUTCHARFN (LPRSTREAM) \STARTPAGE.LANDPRESS NIL \FINDFONT 
(FD) NIL
PROP LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
TEST LANDPRESS (X) MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (
HEADING FONT) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
TESTFREE LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL
 \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
PREDICATE LANDPRESS (FIXP IGREATERP) MAKELANDPRESS NIL NEWLINE.LANDPRESS (IGREATERP) NEWPAGE.LANDPRESS
 NIL OPENLPRSTREAM (EQLENGTH EVERY BOUNDP) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT
 (ZEROP) NIL
EFFECT LANDPRESS (RESETSAVE ERROR LISPXPRIN1 LISPXTERPRI) MAKELANDPRESS (REPLACEFIELD 
NEWLINE.LANDPRESS \BOUT) NEWLINE.LANDPRESS (DECLARE NEWPAGE.LANDPRESS SHOW.PRESS SETXY.PRESS) 
NEWPAGE.LANDPRESS (\ENDPAGE.PRESS) OPENLPRSTREAM (DECLARE REPLACEFIELD SETUPFONTS.PRESS 
\STARTPAGE.LANDPRESS) \LANDPRESS.OUTCHARFN (NEWLINE.LANDPRESS \BOUT) \STARTPAGE.LANDPRESS (
\ENTITYSTART.PRESS \DSPFONT.PRESS SETXY.PRESS PRIN3 SHOW.PRESS SETY.PRESS NEWLINE.LANDPRESS) \FINDFONT
 (SELECTQ REPLACEFIELD SETFILEPTR) NIL
CLISP LANDPRESS (for in when thereis) MAKELANDPRESS (bind while do) NEWLINE.LANDPRESS NIL 
NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (type?) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL 
\FINDFONT (bind first do) NIL
SPECVARS LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL
 \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
LOCALVARS LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM 
NIL \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
APPLY LANDPRESS NIL MAKELANDPRESS (NILL) NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM (
\LANDPRESS.OUTCHARFN \CLOSEF.PRESS \DSPXPOSITION.PRESS \DSPYPOSITION.PRESS \DSPFONT.PRESS 
\DSPLEFTMARGIN.PRESS \DSPRIGHTMARGIN.PRESS \UNIMPIMAGEOP \DRAWLINE.PRESS \DRAWCURVE.PRESS 
\CHANGFONT.PRESS CONSTANT FQUOTIENT \DSPBOTTOMMARGIN.PRESS \DSPTOPMARGIN.PRESS NILL CHARWIDTH DSPFONT 
STRINGWIDTH \OUTCHAR CHARCODE) \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
ERROR LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
LOCALFREEVARS LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL 
OPENLPRSTREAM NIL \LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
ARGS LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL
USERTEMPLATES SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) OP# (CALL) SETQ.NOREF (CALL SET EVAL %. PPE) 
SPREADAPPLY (CALL FUNCTIONAL EVAL %. PPE) NIL
0 LANDPRESS NIL MAKELANDPRESS NIL NEWLINE.LANDPRESS NIL NEWPAGE.LANDPRESS NIL OPENLPRSTREAM NIL 
\LANDPRESS.OUTCHARFN NIL \STARTPAGE.LANDPRESS NIL \FINDFONT NIL NIL

)