(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 8-Oct-86 11:52:54" . {ERIS}<TEDIT>TEDITSCREEN.;42)
FNS (TEDIT.CR.UPDATESCREEN TEDIT.DELETELINE TEDIT.INSERT.DISPLAYTEXT TEDIT.INSERT.UPDATESCREEN 
TEDIT.UPDATE.SCREEN \BACKFORMAT \DISPLAYLINE \DOFORMATTING \FILLWINDOW \FIXDLINES \FIXILINES 
\FORMATLINE \SHOWTEXT \TEDIT.ADJUST.LINES \TEDIT.BLTCHAR \TEDIT.CLEAR.SCREEN.BELOW.LINE 
\TEDIT.CLOSEUPLINES \TEDIT.COPY.LINEDESCRIPTOR \TEDIT.CREATE.LINECACHE \TEDIT.FIXCHANGEDLINE 
\TEDIT.FIXCHANGEDPART \TEDIT.INSERTLINE \TEDIT.LINE.LIST \TEDIT.LINECACHE \TEDIT.MARK.LINES.DIRTY 
\TEDIT.NEXT.LINE.BOTTOM \TEDIT.PURGE.SPACES)
(READATABASE)
(
CALL TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE (fetch FETCHFIELD REPLACEFIELD) 
TEDIT.INSERT.DISPLAYTEXT NIL TEDIT.INSERT.UPDATESCREEN (fetch FETCHFIELD REPLACEFIELD IPLUS SELECTQ 
DSPCLIPPINGREGION LLSH SHOULDNT) TEDIT.UPDATE.SCREEN (TEXTOBJ FETCHFIELD bind fetch 
\TEDIT.FIXCHANGEDPART) \BACKFORMAT (fetch FETCHFIELD IDIFFERENCE \GETCHB \BACKBIN PLUS IMAX ADD1 SUB1 
\FORMATLINE REPLACEFIELD) \DISPLAYLINE (fetch FETCHFIELD WINDOWPROP IMAX IDIFFERENCE DSPSCALE 
\TEDIT.LINECACHE FIXR FQUOTIENT create CONS ffetch FFETCHFIELD DSPFONT \EDITELT GETBASEPTR \GETBASEPTR
 \ADDBASE2 \ADDBASE FTIMES IPLUS \WORDELT PLUS REPLACEFIELD FONTCOPY CHARWIDTH IREMAINDER DSPYPOSITION
 IMAGEOBJPROP) \DOFORMATTING (fetch FETCHFIELD LLSH REPLACEFIELD PLUS IPLUS LRSH ADD1 SUB1 \EDITELT 
GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE \RPLPTR IQUOTIENT \WORDELT RAID IGREATERP \PUTBASE LOGAND 
FQUOTIENT) \FILLWINDOW (PROG* fetch FETCHFIELD WINDOWPROP REPLACEFIELD \TEDIT.NEXT.LINE.BOTTOM IPLUS 
TEXTPROP \FORMATLINE ADD1 IDIFFERENCE SUB1 replace) \FIXDLINES (for fetch FETCHFIELD WINDOWPROP 
IDIFFERENCE SUB1 REPLACEFIELD IMAX IMIN) \FIXILINES (IMAX fetch FETCHFIELD ffetch FFETCHFIELD 
FREPLACEFIELD IPLUS REPLACEFIELD) \FORMATLINE (create FREPLACEFIELDVAL NCREATE fetch FETCHFIELD SUB1 
ffetch FFETCHFIELD WINDOWPROP REPLACEFIELD FUNCTION FREPLACEFIELD PLUS \RPLPTR \ADDBASE2 \ADDBASE ADD1
 \TEDIT.APPLY.STYLES add \EDITELT GETBASEPTR \GETBASEPTR CONS replace OPENIMAGESTREAM DSPSCALE 
\TEDIT.HCPYFMTSPEC FIXR FTIMES TYPENAMEP FONTCOPY IPLUS IDIFFERENCE IEQP \BIN \FGETCHARWIDTH \GETBASE 
\GETCHARSETINFO UNFOLD LLSH \CHARSET LRSH \CREATECHARSET \CHAR8CODE LOGAND APPLY* IMAGEOBJPROP IMAX 
\TEDIT.FORMATTABS \CHTOPC FONTPROP freplace IMIN) \SHOWTEXT (FETCHFIELD \TEDIT.PRIMARYW 
DSPCLIPPINGREGION RESETLST RESETSAVE CURSOR create FREPLACEFIELDVAL NCREATE WINDOWPROP SUB1 fetch 
\FILLWINDOW \TEDIT.SET.WINDOW.EXTENT) \TEDIT.ADJUST.LINES (fetch FETCHFIELD replace REPLACEFIELD IPLUS
 TEXTPROP PLUS IDIFFERENCE IMINUS) \TEDIT.BLTCHAR (\CHAR8CODE LOGAND ffetch FFETCHFIELD \CHARSET LRSH 
\GETBASE fetch FETCHFIELD IPLUS IMAX IMIN freplace FREPLACEFIELD IDIFFERENCE \PILOTBITBLT) 
\TEDIT.CLEAR.SCREEN.BELOW.LINE (BITBLT fetch FETCHFIELD IDIFFERENCE) \TEDIT.CLOSEUPLINES (IDIFFERENCE 
fetch FETCHFIELD ADD1 IPLUS REPLACEFIELD \FORMATLINE) \TEDIT.COPY.LINEDESCRIPTOR (FREPLACEFIELD ffetch
 FFETCHFIELD freplace) \TEDIT.CREATE.LINECACHE (for create FREPLACEFIELDVAL NCREATE BITMAPCREATE LIST 
PLUS MAP replace REPLACEFIELD) \TEDIT.FIXCHANGEDLINE (fetch FETCHFIELD \FORMATLINE ADD1 REPLACEFIELD 
\TEDIT.NEXT.LINE.BOTTOM IMINUS IPLUS IDIFFERENCE TEXTPROP replace SUB1) \TEDIT.FIXCHANGEDPART (PROG* 
\TEDIT.PRIMARYW fetch FETCHFIELD WINDOWPROP DSPCLIPPINGREGION IPLUS REPLACEFIELD IDIFFERENCE 
\TEDIT.NEXT.LINE.BOTTOM ADD1 IMIN IMAX \TEDIT.FIXCHANGEDLINE) \TEDIT.INSERTLINE (fetch FETCHFIELD 
REPLACEFIELD) \TEDIT.LINE.LIST (for fetch FETCHFIELD) \TEDIT.LINECACHE (fetch FETCHFIELD replace 
REPLACEFIELD BITMAPCREATE IMAX) \TEDIT.MARK.LINES.DIRTY (bind IMIN fetch FETCHFIELD ADD1 WINDOWPROP 
REPLACEFIELD) \TEDIT.NEXT.LINE.BOTTOM (fetch FETCHFIELD IDIFFERENCE IPLUS) \TEDIT.PURGE.SPACES (bind 
SUB1 \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE fetch FETCHFIELD \RPLPTR) NIL
BIND TEDIT.CR.UPDATESCREEN (CH# XPOINT TEXTOBJ SEL LINE BLANKSEEN CRSEEN DS CHWIDTH DONTSCROLL) 
TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT (TEXTOBJ CH CHWIDTH LINE XPOINT DS SEL) 
TEDIT.INSERT.UPDATESCREEN (CH XPOINT OTEXTLEN BLANKSEEN CRSEEN THISLINE EOLFLAG CHORIG CHWIDTH OXLIM 
OCHLIM OCR\END PREVSPACE FIXEDLINE NEXTLINE LINES NEWLINEFLG DX PREVLINE SAVEWIDTH OFLOWFN OLHEIGHT DY
 TABSEEN IMAGECACHE) TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE (STREAM \PCHARSLEFT \PSTRING
 \PFILE FONT) \DOFORMATTING NIL \FILLWINDOW NIL \FIXDLINES (SEL) \FIXILINES (CH# CHLIM) \FORMATLINE (
FONTWIDTHS) \SHOWTEXT (WREG) \TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR (DISPLAYSTREAM CHAR8CODE) 
\TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL \TEDIT.COPY.LINEDESCRIPTOR NIL 
\TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE (TEXTLEN PREVDESCENT FORMATDONE LIMITCHANGED 
WASDIRTY PREVLINE FOUND DY) \TEDIT.FIXCHANGEDPART (FORMATDONE LIMITCHANGED WASDIRTY OCHLIM OLHEIGHT 
WBOTTOM OFLOWFN NEWLINE TYBOT) \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
NLAMBDA TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT (CHARCODE) \DISPLAYLINE (CHARCODE) 
\DOFORMATTING NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE (CHARCODE) \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
NOBIND TEDIT.CR.UPDATESCREEN T TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT T 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
RECORD TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
CREATE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
FETCH TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
REPLACE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
REFFREE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (TEDIT.SELECTION) TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE (
WHITESHADE LMInvisibleRun LMLooksChange BLACKSHADE) \DOFORMATTING (\ST.POS16) \FILLWINDOW (WHITESHADE)
 \FIXDLINES NIL \FIXILINES NIL \FORMATLINE (LMInvisibleRun DEFAULTFONT) \SHOWTEXT (WHITESHADE 
WAITINGCURSOR TEDIT.DEFAULT.FMTSPEC) \TEDIT.ADJUST.LINES (WHITESHADE) \TEDIT.BLTCHAR NIL 
\TEDIT.CLEAR.SCREEN.BELOW.LINE (WHITESHADE) \TEDIT.CLOSEUPLINES (WHITESHADE) 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART (WHITESHADE) \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM (YBOT) \TEDIT.PURGE.SPACES NIL NIL
REF TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE (LINE TEXTOBJ WINDOW) TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (TEXTOBJ SEL CHARS CH#) TEDIT.UPDATE.SCREEN (STARTINGLINE INCREMENTAL? 
NEXTCARETCH#) \BACKFORMAT (TEXTOBJ WHEIGHT) \DISPLAYLINE (TEXTOBJ WINDOW LINE HCPYDS OLDCACHE DS 
TEXTLEN THISLINE BASEA0310 LOOKS BASEA0311 CHLIST WLIST BASEA0312 LEADERFONT DOTWIDTH WINDOWDS) 
\DOFORMATTING (FMTSPEC LINE THISLINE QUAD SPACELEFT TEXTOBJ BASEA0313 CHLIST BASEA0314 BASEA0315 WLIST
 BASEA0316 A J V) \FILLWINDOW (CURLINE TEXTOBJ WINDOW WHEIGHT TEXTLEN LINES\DELETED) \FIXDLINES (
TEXTOBJ CH#LIM CH#1 CH#1L DCH) \FIXILINES (SEL TEXTOBJ DCH OTEXTLEN) \FORMATLINE (OLINE TEXTOBJ CH#1 
THISLINE LINE TEXTLEN BASEA0317 N ARR VAL BASEA0318 BASEA0319 BASEA0320 DS BASEA0321 BASEA0322 
BASEA0323) \SHOWTEXT (TEXTOBJ) \TEDIT.ADJUST.LINES (DY LINETOP TEXTOBJ WINDOW) \TEDIT.BLTCHAR (
CHARCODE DISPLAYDATA CURX CLIPRIGHT DDPILOTBBT) \TEDIT.CLEAR.SCREEN.BELOW.LINE (WINDOW TEXTOBJ LINE) 
\TEDIT.CLOSEUPLINES (TEXTOBJ WINDOW WWIDTH) \TEDIT.COPY.LINEDESCRIPTOR (TOLINE FROMLINE) 
\TEDIT.CREATE.LINECACHE (%#CACHES CACHES CACHE) \TEDIT.FIXCHANGEDLINE (PREVYBOT TEXTOBJ THISLINE 
WHEIGHT WINDOW) \TEDIT.FIXCHANGEDPART (WINDOW TEXTOBJ THISW REGION NEXTCARETCH# STARTINGLINE TEXTLEN 
THISLINE WHEIGHT) \TEDIT.INSERTLINE (BEFORELINE NEWLINE) \TEDIT.LINE.LIST (TEXTOBJ WINDOW) 
\TEDIT.LINECACHE (CACHE BITMAP WIDTH HEIGHT) \TEDIT.MARK.LINES.DIRTY (CH1 TEXTOBJ CHLIM CHLIM# CH#) 
\TEDIT.NEXT.LINE.BOTTOM (LINE CURYBOT PREVLINE) \TEDIT.PURGE.SPACES (BASEA0324 CHLIST BASEA0325) NIL
SETFREE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (SELINE) TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL 
\DOFORMATTING NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
SET TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (L1LIST LNLIST WW L1 LN) TEDIT.UPDATE.SCREEN (TEXTOBJ WW LINE NLINE) 
\BACKFORMAT (CH1 CHNO CH NLINE LINES) \DISPLAYLINE (LHEIGHT SCALE CACHE DISPLAYDATA DDPILOTBBT XOFFSET
 CLIPLEFT CLIPRIGHT OFONT OLOOKS DDWIDTHCACHE DDOFFSETCACHE LOOKSTARTX CH DX LOOKNO TTX CURY TX I) 
\DOFORMATTING (LINELEAD EXTRASP OPREVSP PREVSP %#BLANKS EXISTINGSPACE SPACEOFLOW) \FILLWINDOW (
PREVLINE CHARLIM LINE YBOT OFLOWFN NEXTLINE) \FIXDLINES (WW LINES CHARLIM CHAR1 NL PL NLINES LINE) 
\FIXILINES (CH#1 L1 WW LINES CHAR1 CHARLIM LINE) \FORMATLINE (CHLIST WLIST LOOKS TEXTSTREAM TERMSA 
CLOOKS LOOKNO PC INVISIBLERUNS TLEN PCNO CHNO ORIGFMTSPEC FMTSPEC HARDCOPYMODE DEVICE SCALE DEFAULTTAB
 LEFTEDGE TABSPEC FONT ASCENTB NEWASCENT DESCENTB NEWDESCENT 1STLN TX WIDTH TXB1 CH DX BOX GATHERBLANK
 CH#B PREVSP T1SPACE TXB DXB LOOK#B ASCENT DESCENT INVISIBLERUNSB %#BLANKS FORCEEND TABPENDING) 
\SHOWTEXT (WINDOW LINES) \TEDIT.ADJUST.LINES (OYBOT OFLOWFN OFLOW PREVLINE LL) \TEDIT.BLTCHAR (
IMAGEWIDTH NEWX LEFT RIGHT) \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES (DY NYBOT LOWESTY 
LINE) \TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE (I) \TEDIT.FIXCHANGEDLINE (CHARLIM OCHLIM
 OLHEIGHT NEWLINE YBOT LINES OFLOWFN) \TEDIT.FIXCHANGEDPART (LINES YBOT TPREVLINE DY PREVLINE CHARLIM 
CLEARBOTTOM) \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST (WW LINES) \TEDIT.LINECACHE (CW CH) 
\TEDIT.MARK.LINES.DIRTY (WW LL) \TEDIT.NEXT.LINE.BOTTOM (BASETOBASE PARALOOKS NEWYBOT PARALEADING) 
\TEDIT.PURGE.SPACES (OPREVSP PREVSP) NIL
SMASHFREE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
SMASH TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
PROP TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE (DSP) \DOFORMATTING
 NIL \FILLWINDOW (HEIGHT) \FIXDLINES (LINES) \FIXILINES NIL \FORMATLINE (DSP) \SHOWTEXT (HEIGHT LINES)
 \TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL
 \TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART (LINES) \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY (LINES) \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
TEST TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE (PREV NEXT) TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (INCREMENTAL WINDOW DONTSCROLL L1 LN) TEDIT.UPDATE.SCREEN (NLINE) 
\BACKFORMAT (LINE1) \DISPLAYLINE (HARDCOPYMODE TERMSA) \DOFORMATTING (1STLN) \FILLWINDOW (LINE 
NEXTCARETCH# DONTFILLFLG NEXTLINE PREVLINE) \FIXDLINES (LINE PL NL) \FIXILINES (LINE) \FORMATLINE (PC 
HARDCOPYMODE 1STLN GATHERBLANK NEWASCENT TABPENDING T1SPACE FORCEEND) \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES (FIRSTLINE LL OFLOW PREVLINE) \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE 
NIL \TEDIT.CLOSEUPLINES (PREVLINE NEXTLINE LINE DONTFILLFLG) \TEDIT.COPY.LINEDESCRIPTOR NIL 
\TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE (NEXTCARETCH#) \TEDIT.FIXCHANGEDPART (LINES 
INCREMENTAL? CLEARBOTTOM) \TEDIT.INSERTLINE (PREVLINE) \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY (LL) \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
TESTFREE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (SELINE) TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL 
\DOFORMATTING NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
PREDICATE TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN (\SYSBUFP TEXTPROP ILEQ IGEQ ILESSP) TEDIT.UPDATE.SCREEN NIL \BACKFORMAT (
ILEQ LESSP IGREATERP) \DISPLAYLINE (ZEROP ILEQ IGEQ GREATERP IEQP IGREATERP SMALLP) \DOFORMATTING (
ILESSP ZEROP IGEQ IEQP ILEQ ARRAYP) \FILLWINDOW (ILESSP IGEQ ILEQ APPLY* IEQP ZEROP) \FIXDLINES (
ILESSP IGEQ ILEQ IEQP) \FIXILINES (IGEQ IGREATERP IEQP) \FORMATLINE (ILEQ ZEROP type? GREATERP SMALLP 
FIXP IGEQ IGREATERP ILESSP) \SHOWTEXT NIL \TEDIT.ADJUST.LINES (ZEROP ILESSP APPLY* IGREATERP IGEQ) 
\TEDIT.BLTCHAR (ILESSP) \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES (ILEQ ILESSP IGEQ) 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE (GREATERP) \TEDIT.FIXCHANGEDLINE (IEQP ILESSP 
IGEQ ILEQ APPLY* IGREATERP) \TEDIT.FIXCHANGEDPART (ZEROP ILESSP IGREATERP IEQP IGEQ \SYSBUFP) 
\TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE (IGEQ) \TEDIT.MARK.LINES.DIRTY (IEQP ILEQ 
IGEQ) \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES (ILEQ) NIL
EFFECT TEDIT.CR.UPDATESCREEN (HELP) TEDIT.DELETELINE (replace \TEDIT.CLOSEUPLINES) 
TEDIT.INSERT.DISPLAYTEXT (HELP) TEDIT.INSERT.UPDATESCREEN (replace TEDIT.UPDATE.SCREEN \FIXSEL 
\SHOWSEL \COPYSEL for \TEDIT.SET.WINDOW.EXTENT while SCROLLW) TEDIT.UPDATE.SCREEN (\FILLWINDOW) 
\BACKFORMAT (\SETUPGETCH for while replace) \DISPLAYLINE (DSPDESTINATION DSPCLIPPINGREGION BITBLT 
\FORMATLINE MOVETO DECLARE RELMOVETO bind SELECTC add replace TEDIT.MODIFYLOOKS while \TEDIT.BLTCHAR 
\DSPPRINTCHAR APPLY* SELECTQ) \DOFORMATTING (replace add SELECTQ bind DECLARE \EDITSETA while 
\WORDSETA CHECK \TEDIT.PURGE.SPACES) \FILLWINDOW (while repeatwhile \DISPLAYLINE RETFROM BITBLT) 
\FIXDLINES (bind replace \TEDIT.FIXDELSEL) \FIXILINES (for bind \DTEST freplace replace 
\TEDIT.FIXINSSEL) \FORMATLINE (DECLARE \SETUPGETCH \EDITSETA \PUTBASE while for SELCHARQ 
\TEDIT.PURGE.SPACES TEDIT.PROMPTPRINT \DOFORMATTING) \SHOWTEXT (DSPFILL) \TEDIT.ADJUST.LINES (bind 
BITBLT add \FILLWINDOW) \TEDIT.BLTCHAR (DECLARE \CHANGECHARSET.DISPLAY UNINTERRUPTABLY) 
\TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES (BITBLT bind replace \DISPLAYLINE) 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE (FRPLACD) \TEDIT.FIXCHANGEDLINE (
\TEDIT.INSERTLINE \TEDIT.COPY.LINEDESCRIPTOR \TEDIT.ADJUST.LINES \DISPLAYLINE RETFROM 
\TEDIT.CLEAR.SCREEN.BELOW.LINE) \TEDIT.FIXCHANGEDPART (STARTINGLINE replace while \TEDIT.CLOSEUPLINES 
BITBLT TEDIT.DELETELINE \TEDIT.CLEAR.SCREEN.BELOW.LINE) \TEDIT.INSERTLINE (replace) \TEDIT.LINE.LIST 
NIL \TEDIT.LINECACHE NIL \TEDIT.MARK.LINES.DIRTY (replace) \TEDIT.NEXT.LINE.BOTTOM NIL 
\TEDIT.PURGE.SPACES (DECLARE \EDITSETA) NIL
CLISP TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
SPECVARS TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE (LOOKS CHLIST WLIST FONTWIDTHS CHNO 
ASCENT DESCENT LOOKNO LINE FONT INVISIBLERUNS DEVICE SCALE NEWASCENT NEWDESCENT) \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
LOCALVARS TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE (BASEA0310 
BASEA0311 BASEA0312) \DOFORMATTING (BASEA0313 BASEA0314 BASEA0315 BASEA0316 A J V) \FILLWINDOW NIL 
\FIXDLINES NIL \FIXILINES NIL \FORMATLINE (ARR N VAL BASEA0317 BASEA0318 BASEA0319 BASEA0320 BASEA0321
 BASEA0322 BASEA0323) \SHOWTEXT NIL \TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR (T) 
\TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL \TEDIT.COPY.LINEDESCRIPTOR NIL 
\TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL \TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL 
\TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL \TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL 
\TEDIT.PURGE.SPACES (BASEA0324 BASEA0325) NIL
APPLY TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW (\FILLWINDOW) \FIXDLINES NIL \FIXILINES NIL \FORMATLINE (\TEDIT.LOOKS.UPDATE) 
\SHOWTEXT NIL \TEDIT.ADJUST.LINES NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL 
\TEDIT.CLOSEUPLINES NIL \TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL 
\TEDIT.FIXCHANGEDLINE (\TEDIT.FIXCHANGEDLINE) \TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL 
\TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL \TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL 
\TEDIT.PURGE.SPACES NIL NIL
ERROR TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE (apply) 
\DOFORMATTING NIL \FILLWINDOW (apply) \FIXDLINES NIL \FIXILINES NIL \FORMATLINE (apply) \SHOWTEXT NIL 
\TEDIT.ADJUST.LINES (apply) \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES 
NIL \TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE (apply) 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
LOCALFREEVARS TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
ARGS TEDIT.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL
USERTEMPLATES REF (CALL EVAL (IF (AND (CONSP EXPR) (EQ (CAR EXPR) (QUOTE QUOTE))) (NIL FETCH) EVAL)) 
SHAZAM (CALL .. NIL) UNINTERRUPTABLY (CALL .. EVAL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) PERFORM (
MACRO ARGS (PERFORMTRAN ARGS T)) \DoveIO.LockMem (CALL .. EVAL) RUN-SUPER (CALL .. EVAL) SPREADAPPLY (
CALL FUNCTIONAL EVAL . PPE) perform (MACRO ARGS (PERFORMTRAN ARGS T)) 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.CR.UPDATESCREEN NIL TEDIT.DELETELINE NIL TEDIT.INSERT.DISPLAYTEXT NIL 
TEDIT.INSERT.UPDATESCREEN NIL TEDIT.UPDATE.SCREEN NIL \BACKFORMAT NIL \DISPLAYLINE NIL \DOFORMATTING 
NIL \FILLWINDOW NIL \FIXDLINES NIL \FIXILINES NIL \FORMATLINE NIL \SHOWTEXT NIL \TEDIT.ADJUST.LINES 
NIL \TEDIT.BLTCHAR NIL \TEDIT.CLEAR.SCREEN.BELOW.LINE NIL \TEDIT.CLOSEUPLINES NIL 
\TEDIT.COPY.LINEDESCRIPTOR NIL \TEDIT.CREATE.LINECACHE NIL \TEDIT.FIXCHANGEDLINE NIL 
\TEDIT.FIXCHANGEDPART NIL \TEDIT.INSERTLINE NIL \TEDIT.LINE.LIST NIL \TEDIT.LINECACHE NIL 
\TEDIT.MARK.LINES.DIRTY NIL \TEDIT.NEXT.LINE.BOTTOM NIL \TEDIT.PURGE.SPACES NIL NIL

)