(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 6-Oct-86 13:16:18" . {ERIS}<TEDIT>TEDITHCPY.;28)
FNS (TEDIT.HARDCOPY TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE 
\TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYLOOKS.UPDATE \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX 
TEDIT.HARDCOPYFN \TEDIT.HARDCOPY)
(READATABASE)
(
CALL TEDIT.HARDCOPY (for PRINTERPROP PRINTERTYPE TEDIT.FORMAT.HARDCOPY CONCAT TEDIT.PROMPTPRINT 
TEXTOBJ) TEDIT.HCPYFILE (LET \TEDIT.MAKEFILENAME TEDIT.GETINPUT TEXTOBJ CONCAT FETCHFIELD PACKFILENAME
 SELECTQ TEDIT.FORMAT.HARDCOPY PRINTERPROP PRINTERTYPE) \TEDIT.HARDCOPY.DISPLAYLINE (FETCHFIELD 
DSPSCALE \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE IPLUS FIXR FTIMES PLUS \WORDELT 
IDIFFERENCE IREMAINDER CHARWIDTH FONTCOPY IMAGEOBJPROP IMAGESTREAMTYPE) \TEDIT.HARDCOPY.FORMATLINE (
fetch FETCHFIELD REPLACEFIELD FUNCTION FREPLACEFIELD PLUS \RPLPTR \ADDBASE2 \ADDBASE ADD1 
\TEDIT.APPLY.STYLES ffetch FFETCHFIELD add \EDITELT GETBASEPTR \GETBASEPTR create CONS TYPENAMEP 
FONTCLASSCOMPONENT FONTCOPY \TEDIT.HCPYFMTSPEC IEQP replace \BIN \FGETCHARWIDTH \GETBASE 
\GETCHARSETINFO UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND \TEDIT.INTEGER.IMAGEBOX 
APPLY* IMAGEOBJPROP IMAX IDIFFERENCE IPLUS \TEDIT.FORMATTABS FIXR FTIMES DSPSCALE SUB1 freplace 
FONTPROP IMIN) \TEDIT.HARDCOPY.MODIFYLOOKS (DSPSCALE FIXR FTIMES IDIFFERENCE FETCHFIELD IPLUS 
IQUOTIENT FONTPROP MOVETO) \TEDIT.HCPYLOOKS.UPDATE (FETCHFIELD \TEDIT.APPLY.PARASTYLES 
\TEDIT.APPLY.STYLES FFETCHFIELD PLUS \RPLPTR \ADDBASE2 \ADDBASE IPLUS \EDITELT GETBASEPTR \GETBASEPTR 
FONTCLASSCOMPONENT FONTCOPY FIXR FTIMES DSPSCALE IMAX IDIFFERENCE IMAGEOBJPROP SUB1) 
\TEDIT.HCPYFMTSPEC (DSPSCALE FIXR FTIMES FETCHFIELD CONS MAPCAR SCALEPAGEUNITS FREPLACEFIELDVAL 
NCREATE) \TEDIT.INTEGER.IMAGEBOX (FIXR RPLACA) TEDIT.HARDCOPYFN (TEXTOBJ RESETSAVE \TEDIT.MARKACTIVE 
REPLACEFIELD TEDIT.FORMAT.HARDCOPY) \TEDIT.HARDCOPY (OPENTEXTSTREAM RESETLST RESETSAVE 
\TEDIT.MARKACTIVE TEXTOBJ REPLACEFIELD TEDIT.FORMAT.HARDCOPY CLOSEF?) NIL
BIND TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE (FONT) 
\TEDIT.HARDCOPY.FORMATLINE (FONTWIDTHS) \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE (TEMP)
 \TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
NLAMBDA TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE (CHARCODE) 
\TEDIT.HARDCOPY.FORMATLINE (CHARCODE) \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
NOBIND TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
RECORD TEDIT.HARDCOPY NIL TEDIT.HCPYFILE (STREAM) \TEDIT.HARDCOPY.DISPLAYLINE (THISLINE ARRAYP) 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE (TEXTSTREAM 
ARRAYP FONTCLASS) \TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL 
\TEDIT.HARDCOPY NIL NIL
CREATE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC (FMTSPEC) \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
FETCH TEDIT.HARDCOPY NIL TEDIT.HCPYFILE (TXTFILE FULLFILENAME) \TEDIT.HARDCOPY.DISPLAYLINE (CHARS 
CACHE WIDTHS LOOKS TEXTLEN LEFTMARGIN LEN CHAR1 DESC WIDTH BASE TLSPACEFACTOR CLOFFSET YBASE CLFONT 
CLLEADER CLUSERINFO) \TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS (CLULINE YBASE 
LTRUEDESCENT CLOLINE LTRUEASCENT CLSTRIKE CLFONT) \TEDIT.HCPYLOOKS.UPDATE (TEXTOBJ F3 PREVPIECE 
PPARALOOKS IMAGEDATA CURRENTPARALOOKS TICURPARALOOKS PLOOKS CLINVISIBLE BASE PLEN NEXTPIECE 
CURRENTLOOKS F10 CLFONT CLOFFSET \SFAscent \SFDescent POBJ) \TEDIT.HCPYFMTSPEC (1STLEFTMAR LEFTMAR 
RIGHTMAR LEADBEFORE LEADAFTER LINELEAD FMTBASETOBASE QUAD TABSPEC FMTSPECIALX FMTSPECIALY) 
\TEDIT.INTEGER.IMAGEBOX (XKERN YDESC YSIZE XSIZE) TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
REPLACE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE (
CURRENTPARALOOKS TICURPARALOOKS CURRENTLOOKS F10) \TEDIT.HCPYFMTSPEC (1STLEFTMAR LEFTMAR RIGHTMAR 
LEADBEFORE LEADAFTER LINELEAD FMTBASETOBASE QUAD TABSPEC FMTSPECIALX FMTSPECIALY) 
\TEDIT.INTEGER.IMAGEBOX (XKERN YDESC YSIZE XSIZE) TEDIT.HARDCOPYFN (EDITOPACTIVE) \TEDIT.HARDCOPY (
EDITOPACTIVE) NIL
REFFREE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE (LMInvisibleRun 
LMLooksChange) \TEDIT.HARDCOPY.FORMATLINE (DEFAULTFONT) \TEDIT.HARDCOPY.MODIFYLOOKS NIL 
\TEDIT.HCPYLOOKS.UPDATE (LOOKS LMInvisibleRun DEVICE ASCENT DESCENT LMLooksChange) \TEDIT.HCPYFMTSPEC 
NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
REF TEDIT.HARDCOPY (STREAM FILE DONTSEND BREAKPAGETITLE PRINTOPTIONS) TEDIT.HCPYFILE (FILE STREAM 
IMAGETYPE BREAKPAGETITLE) \TEDIT.HARDCOPY.DISPLAYLINE (LINE THISLINE TEXTOBJ PRSTREAM TEXTLEN REGION 
BASEA0066 LOOKS LEFTMARGIN STREAMSCALE BASEA0067 CHLIST BASEA0068 WLIST BASEA0069 BASEA0070 DOTWIDTH) 
\TEDIT.HARDCOPY.FORMATLINE (TEXTOBJ CH#1 IMAGESTREAM THISLINE LINE TEXTLEN BASEA0110 N ARR VAL 
BASEA0111 BASEA0112 BASEA0113 DEVICE NEWDESCENT BASEA0114) \TEDIT.HARDCOPY.MODIFYLOOKS (PRSTREAM LOOKS
 STARTX LINE STREAMSCALE CURX ONEPOINT RULEWIDTH CURY) \TEDIT.HCPYLOOKS.UPDATE (TEXTOBJ BASEA0090 N 
ARR VAL BASEA0091 BASEA0092 BASEA0093 BASEA0094 BASEA0095 BASEA0096 BASEA0097 BASEA0098) 
\TEDIT.HCPYFMTSPEC (IMAGESTREAM SPEC SCALEFACTOR TAB) \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN (
WINDOW IMAGESTREAM) \TEDIT.HARDCOPY (PFILE) NIL
SETFREE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE (LOOKNO TLEN 
CHLIST WLIST CHNO INVISIBLERUNS FONT NEWASCENT NEWDESCENT) \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
SET TEDIT.HARDCOPY (IMAGETYPE) TEDIT.HCPYFILE (FILENM TEXTOBJ TXTFILE) \TEDIT.HARDCOPY.DISPLAYLINE (
OLOOKS CURRENTY OFONT LOOKSTARTX LINELEN CH DX LOOKNO TTX TX I) \TEDIT.HARDCOPY.FORMATLINE (CHLIST 
WLIST LOOKS TEXTSTREAM TERMSA CLOOKS LOOKNO PC INVISIBLERUNS TLEN PCNO CHNO ASCENTB DESCENTB FONT 
FMTSPEC 1STLN TX WIDTH TXB1 CH DX BOX ASCENT DESCENT GATHERBLANK CH#B NEWASCENT PREVSP T1SPACE TXB DXB
 LOOK#B INVISIBLERUNSB %#BLANKS FORCEEND CTRL\L\SEEN TABPENDING) \TEDIT.HARDCOPY.MODIFYLOOKS NIL 
\TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL 
\TEDIT.HARDCOPY NIL NIL
SMASHFREE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
SMASH TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE
 NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
PROP TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE 
NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
TEST TEDIT.HARDCOPY (SERVER) TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE (PC 1STLN DOINGHEADING? GATHERBLANK NEWASCENT TABPENDING T1SPACE FORCEEND) 
\TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
TESTFREE TEDIT.HARDCOPY (DEFAULTPRINTINGHOST) TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
PREDICATE TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE (ILEQ ZEROP type? GREATERP SMALLP FIXP IGEQ IGREATERP ILESSP) 
\TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
EFFECT TEDIT.HARDCOPY (ERROR) TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE (DECLARE \SETUPGETCH \EDITSETA \PUTBASE while \TEDIT.HCPYLOOKS.UPDATE 
SELECTQ TEDIT.HARDCOPY.PAGEHEADING for SELCHARQ \TEDIT.PURGE.SPACES TEDIT.PROMPTPRINT \DOFORMATTING) 
\TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
CLISP TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE
 NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
SPECVARS TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE (LOOKS ASCENT DESCENT FONTWIDTHS FONT INVISIBLERUNS CHNO TLEN LOOKNO CHLIST
 WLIST DEVICE NEWASCENT NEWDESCENT) \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
LOCALVARS TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE (ARR N VAL BASEA0110 BASEA0111 BASEA0112 BASEA0113 BASEA0114) 
\TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
APPLY TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE
 (\TEDIT.HCPYLOOKS.UPDATE) \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
ERROR TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE
 (apply) \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
LOCALFREEVARS TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL 
\TEDIT.HARDCOPY.FORMATLINE NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL 
\TEDIT.HCPYFMTSPEC NIL \TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
ARGS TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE 
NIL \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL
USERTEMPLATES PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) REF (CALL EVAL (IF (AND (CONSP EXPR) (EQ (CAR 
EXPR) (QUOTE QUOTE))) (NIL FETCH) EVAL)) UNINTERRUPTABLY (CALL .. EVAL) \DoveIO.LockMem (CALL .. EVAL)
 WINDOWPROP (CALL EVAL PROP EVAL . PPE) RUN-SUPER (CALL .. EVAL) SPREADAPPLY (CALL FUNCTIONAL EVAL . 
PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) SHAZAM (CALL .. NIL) WINDOWDELPROP (CALL EVAL PROP EVAL
 . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) OP# (
CALL) SETQ.NOREF (CALL SET EVAL . PPE) CATCH (CALL CALL CALL .. EVAL) NIL
0 TEDIT.HARDCOPY NIL TEDIT.HCPYFILE NIL \TEDIT.HARDCOPY.DISPLAYLINE NIL \TEDIT.HARDCOPY.FORMATLINE NIL
 \TEDIT.HARDCOPY.MODIFYLOOKS NIL \TEDIT.HCPYLOOKS.UPDATE NIL \TEDIT.HCPYFMTSPEC NIL 
\TEDIT.INTEGER.IMAGEBOX NIL TEDIT.HARDCOPYFN NIL \TEDIT.HARDCOPY NIL NIL

)