(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 9-Oct-86 13:31:19" . {ERIS}<TEDIT>TEDITLOOKS.;36)
FNS (CHARLOOKS.FROM.FONT EQCLOOKS SAMECLOOKS TEDIT.SUBLOOKS \TEDIT.UNIQUIFY.CHARLOOKS TEDIT.CARETLOOKS
 TEDIT.COPY.LOOKS \TEDIT.GET.CHARLOOKS \TEDIT.UNPARSE.CHARLOOKS.LIST TEDIT.MODIFYLOOKS TEDIT.NEW.FONT 
\TEDIT.PUT.CHARLOOKS \TEDIT.APPLY.STYLES \TEDIT.CARETLOOKS.VERIFY \TEDIT.GET.INSERT.CHARLOOKS 
\TEDIT.GET.TERMSA.WIDTHS \TEDIT.LOOKS.UPDATE \TEDIT.PARSE.CHARLOOKS.LIST \TEDIT.FLUSH.UNUSED.LOOKS 
\TEDIT.CHANGE.LOOKS TEDIT.LOOKS \TEDIT.LOOKS \TEDIT.FONTCOPY TEDIT.GET.LOOKS \TEDIT.GET.PARALOOKS 
EQFMTSPEC \TEDIT.UNIQUIFY.PARALOOKS TEDIT.GET.PARALOOKS \TEDIT.UNPARSE.PARALOOKS.LIST 
\TEDIT.APPLY.PARASTYLES \TEDIT.PARSE.PARALOOKS.LIST TEDIT.PARALOOKS TEDIT.COPY.PARALOOKS 
\TEDIT.PUT.PARALOOKS \TEDIT.CONVERT.TO.FORMATTED \TEDIT.PARABOUNDS \TEDIT.FORMATTABS TEDIT.REDO.LOOKS 
TEDIT.REDO.PARALOOKS TEDIT.UNDO.LOOKS TEDIT.UNDO.PARALOOKS)
(READATABASE)
(
CALL CHARLOOKS.FROM.FONT (create FREPLACEFIELDVAL NCREATE FONTP FONTPROP REPLACEFIELD) EQCLOOKS (fetch
 FETCHFIELD TYPENAMEP) SAMECLOOKS (for FONTPROP fetch FETCHFIELD CONCAT) TEDIT.SUBLOOKS (
\TEDIT.PARSE.CHARLOOKS.LIST \CHTOPC fetch FETCHFIELD TEXTOBJ for MAPLIST REPLACEFIELD 
\TEDIT.UNIQUIFY.CHARLOOKS) \TEDIT.UNIQUIFY.CHARLOOKS (for fetch FETCHFIELD REPLACEFIELD CONS) 
TEDIT.CARETLOOKS (TEXTOBJ \TEDIT.UNIQUIFY.CHARLOOKS \TEDIT.CARETLOOKS.VERIFY 
\TEDIT.PARSE.CHARLOOKS.LIST fetch FETCHFIELD REPLACEFIELD) TEDIT.COPY.LOOKS (TEXTOBJ fetch FETCHFIELD 
SELECTQ TYPENAME \CHTOPC \ILLEGAL.ARG TYPENAMEP) \TEDIT.GET.CHARLOOKS (\BIN LOGAND REPLACEFIELD ELT 
\SMALLPIN SUB1 LLSH IDIFFERENCE FETCHFIELD FOLDHI LRSH IPLUS FETCH fetch PLUS) 
\TEDIT.UNPARSE.CHARLOOKS.LIST (LIST fetch FETCHFIELD ONOFF FONTPROP CONS IABS IMINUS) 
TEDIT.MODIFYLOOKS (DSPXPOSITION DSPYPOSITION fetch FETCHFIELD ADD1 IDIFFERENCE IPLUS SUB1 FONTPROP 
IQUOTIENT) TEDIT.NEW.FONT (\TEDIT.MAKEFILENAME TEDIT.GETINPUT NCONC1 LIST KWOTE U-CASE) 
\TEDIT.PUT.CHARLOOKS (fetch FETCHFIELD IDIFFERENCE LOGAND LRSH \BOUT LOGOR GETHASH) 
\TEDIT.APPLY.STYLES (type? TYPENAMEP HELP fetch FETCHFIELD FASSOC APPLY* NTH) \TEDIT.CARETLOOKS.VERIFY
 (TEXTPROP APPLY* fetch FETCHFIELD \TEDIT.UNIQUIFY.CHARLOOKS) \TEDIT.GET.INSERT.CHARLOOKS (fetch 
FETCHFIELD IMAX IMIN SELECTQ SUB1 SHOULDNT \CHTOPC \TEDIT.UNIQUIFY.CHARLOOKS CHARLOOKS.FROM.FONT 
\EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE IDIFFERENCE create FREPLACEFIELDVAL NCREATE 
\TEDIT.CARETLOOKS.VERIFY) \TEDIT.GET.TERMSA.WIDTHS (ARRAY fetch FETCHFIELD RAID IGREATERP \PUTBASE 
IPLUS TEDIT.CHARWIDTH PLUS) \TEDIT.LOOKS.UPDATE (fetch FETCHFIELD \TEDIT.APPLY.PARASTYLES REPLACEFIELD
 \TEDIT.APPLY.STYLES ffetch FFETCHFIELD PLUS \RPLPTR \ADDBASE2 \ADDBASE IPLUS \EDITELT GETBASEPTR 
\GETBASEPTR TYPENAMEP FONTCOPY IMAX FONTPROP IDIFFERENCE FREPLACEFIELD) \TEDIT.PARSE.CHARLOOKS.LIST (
TYPENAMEP CHARLOOKS.FROM.FONT LISTGET FMEMB CONS NLSETQ \DTEST create FREPLACEFIELDVAL NCREATE 
\TEDIT.FONTCOPY fetch FETCHFIELD IPLUS FONTPROP REPLACEFIELD IMINUS) \TEDIT.FLUSH.UNUSED.LOOKS (fetch 
FETCHFIELD MAPC replace REPLACEFIELD for LIST) \TEDIT.CHANGE.LOOKS (TEXTOBJ fetch FETCHFIELD TYPENAMEP
 LISTGET FMEMB CONS NLSETQ \DTEST CONCAT \TEDIT.ORIGINAL.WINDOW.TITLE ffetch FFETCHFIELD freplace 
FREPLACEFIELD IMIN ADD1 IPLUS \CHTOPCNO \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE \SPLITPIECE
 SUB1 \TEDIT.UNIQUIFY.CHARLOOKS NCONC1 REPLACEFIELD create NCREATE \TEDIT.FONTCOPY FONTPROP IMINUS 
\TEDIT.CARETLOOKS.VERIFY LIST) TEDIT.LOOKS (TEXTOBJ TYPENAMEP TEDIT.SETSEL fetch FETCHFIELD 
\TEDIT.CHANGE.LOOKS create CONS) \TEDIT.LOOKS (fetch FETCHFIELD create CONS WINDOWPROP IPLUS MENU 
FREPLACEFIELDVAL NCREATE NCONC1 COPY LIST FUNCTION SELECTQ) \TEDIT.FONTCOPY (NLSETQ FONTCOPY FONTPROP 
CONCAT LISTGET) TEDIT.GET.LOOKS (TEXTOBJ TYPENAMEP fetch FETCHFIELD \CHTOPC IMIN 
\TEDIT.UNPARSE.CHARLOOKS.LIST) \TEDIT.GET.PARALOOKS (ELT \SMALLPIN SUB1 LLSH IDIFFERENCE) EQFMTSPEC (
fetch FETCHFIELD) \TEDIT.UNIQUIFY.PARALOOKS (for fetch FETCHFIELD REPLACEFIELD CONS) 
TEDIT.GET.PARALOOKS (TEXTOBJ fetch FETCHFIELD \TEDIT.UNPARSE.PARALOOKS.LIST \CHTOPC SELECTQ TYPENAME 
IMAX IMIN \ILLEGAL.ARG) \TEDIT.UNPARSE.PARALOOKS.LIST (LIST fetch FETCHFIELD CONS ONOFF) 
\TEDIT.APPLY.PARASTYLES (type? TYPENAMEP HELP FETCHFIELD fetch APPLY* NTH) \TEDIT.PARSE.PARALOOKS.LIST
 (TYPENAMEP LISTGET FMEMB CONCAT CONS fetch FETCHFIELD for MAPCAR create NCREATE REPLACEFIELD) 
TEDIT.PARALOOKS (TEXTOBJ TYPENAMEP TEDIT.SETSEL fetch FETCHFIELD IMIN IMAX SUB1 \CHTOPCNO \EDITELT 
GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE ADD1 create COPYALL LISTGET FMEMB CONS for MAPCAR 
\TEDIT.UNIQUIFY.PARALOOKS IPLUS NCONC1 REPLACEFIELD NCREATE PLUS \TEDIT.ORIGINAL.WINDOW.TITLE ffetch 
FFETCHFIELD freplace FREPLACEFIELD IDIFFERENCE) TEDIT.COPY.PARALOOKS (TEXTOBJ fetch FETCHFIELD SELECTQ
 TYPENAME \CHTOPC \ILLEGAL.ARG TYPENAMEP) \TEDIT.PUT.PARALOOKS (fetch FETCHFIELD LOGAND LRSH \BOUT 
GETHASH) \TEDIT.CONVERT.TO.FORMATTED (\TEDIT.BASICFIND MKSTRING CHARACTER fetch FETCHFIELD \CHTOPCNO 
ADD1 \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE IPLUS REPLACEFIELD) \TEDIT.PARABOUNDS (fetch 
FETCHFIELD CONS \CHTOPCNO \EDITELT GETBASEPTR \GETBASEPTR \ADDBASE2 \ADDBASE ADD1 SUB1 PLUS IPLUS 
MINUS) \TEDIT.FORMATTABS (fetch FETCHFIELD IMAX IDIFFERENCE LRSH PLUS for IPLUS ITIMES IQUOTIENT 
create FREPLACEFIELDVAL NCREATE) TEDIT.REDO.LOOKS (fetch FETCHFIELD) TEDIT.REDO.PARALOOKS (fetch 
FETCHFIELD) TEDIT.UNDO.LOOKS (fetch FETCHFIELD NCONC1 REPLACEFIELD \TEDIT.CARETLOOKS.VERIFY RPLACA 
IPLUS) TEDIT.UNDO.PARALOOKS (fetch FETCHFIELD NCONC1 REPLACEFIELD RPLACA IPLUS) NIL
BIND CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS (NEWLOOKS) 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST (OFFSET) TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS (
PREVFATP FONT STR) \TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS (
PCNO) \TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE (TEMP) \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS (DY) TEDIT.LOOKS NIL \TEDIT.LOOKS NIL 
\TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS (FONT) \TEDIT.GET.PARALOOKS (FILE) EQFMTSPEC NIL 
\TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST (D PC PCNO NPC NCHLIM PCTB LASTLOOKS NLOOKSAVE
 PC1) TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS (DEFAULTTAB TABSPECS 
OUTPUTFORMAT) \TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS (TEXTOBJ 
THISLINE) TEDIT.REDO.LOOKS (CH#) TEDIT.REDO.PARALOOKS (CH#) TEDIT.UNDO.LOOKS (LEN FIRSTPIECE PCTB 
CHLIM) TEDIT.UNDO.PARALOOKS (LEN FIRSTPIECE PCTB CHLIM) NIL
NLAMBDA CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED (CHARCODE) \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS (CHARCODE) 
TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
NOBIND CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
RECORD CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
CREATE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
FETCH CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS
 NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL 
\TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
REPLACE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
REFFREE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS (BLACKSHADE) TEDIT.NEW.FONT NIL 
\TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES (TEDIT.STYLES) \TEDIT.CARETLOOKS.VERIFY NIL 
\TEDIT.GET.INSERT.CHARLOOKS (DEFAULTFONT \EltsPerPiece) \TEDIT.GET.TERMSA.WIDTHS (\ST.POS16) 
\TEDIT.LOOKS.UPDATE (LOOKS LMInvisibleRun ASCENT DESCENT DEVICE LMLooksChange LINE) 
\TEDIT.PARSE.CHARLOOKS.LIST (TEDIT.DEFAULT.CHARLOOKS) \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS (TEDIT.KNOWN.FONTS TEDIT.FACE.MENU 
TEDIT.SIZE.MENU) \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL 
\TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES (TEDIT.STYLES) \TEDIT.PARSE.PARALOOKS.LIST (TEXTOBJ TEDIT.DEFAULT.FMTSPEC) 
TEDIT.PARALOOKS (\EltsPerPiece) TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED (\EltsPerPiece) \TEDIT.PARABOUNDS (\EltsPerPiece) \TEDIT.FORMATTABS NIL 
TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
REF CHARLOOKS.FROM.FONT (FONT LOOKS) EQCLOOKS (CLOOK1 CLOOK2) SAMECLOOKS (FEATURES CLOOK1 CLOOK2) 
TEDIT.SUBLOOKS (OLDLOOKSLIST NEWLOOKSLIST TEXTSTREAM A FIRSTPC OLDLOOKS FEATURELIST) 
\TEDIT.UNIQUIFY.CHARLOOKS (TEXTOBJ NEWLOOKS) TEDIT.CARETLOOKS (STREAM TEXTOBJ LOOKS) TEDIT.COPY.LOOKS 
(STREAM SOURCE TEXTOBJ DEST) \TEDIT.GET.CHARLOOKS (FILE FLAGS PC LOOKSARRAY N WIDTH) 
\TEDIT.UNPARSE.CHARLOOKS.LIST (LOOKS A) TEDIT.MODIFYLOOKS (DS LOOKS STARTX CURY LINE CURX FONT 
LINEBASEY) TEDIT.NEW.FONT (TEXTOBJ) \TEDIT.PUT.CHARLOOKS (LOOKS FILE CHLIM CH1 OLDPC STREAM W 
LOOKSHARRAY) \TEDIT.APPLY.STYLES (LOOKS TEXTOBJ PC) \TEDIT.CARETLOOKS.VERIFY (TEXTOBJ NEWLOOKS) 
\TEDIT.GET.INSERT.CHARLOOKS (TEXTOBJ SEL CH# PCTB BASEA0327 NO ARR BASEA0328) \TEDIT.GET.TERMSA.WIDTHS
 (A J V NWIDTHS FONT TERMSA) \TEDIT.LOOKS.UPDATE (STREAM TEXTOBJ BASEA0329 N ARR VAL BASEA0330 
BASEA0331 BASEA0332 BASEA0333 BASEA0334) \TEDIT.PARSE.CHARLOOKS.LIST (TEXTOBJ) 
\TEDIT.FLUSH.UNUSED.LOOKS (TEXTOBJ CHARLOOKS PARALOOKS) \TEDIT.CHANGE.LOOKS (STREAM TEXTOBJ CH# LEN 
BASEA0335 NO ARR BASEA0336 BASEA0337 BASEA0338 BASEA0339 NLOOKSAVE) TEDIT.LOOKS (STREAM TEXTOBJ LEN 
NEWLOOKS) \TEDIT.LOOKS (TEXTOBJ SEL POS) \TEDIT.FONTCOPY (FONT TEXTOBJ OLDFAMILY OLDSIZE) 
TEDIT.GET.LOOKS (TEXTOBJ) \TEDIT.GET.PARALOOKS (PARAHASH N WIDTH) EQFMTSPEC (PARALOOK1 PARALOOK2) 
\TEDIT.UNIQUIFY.PARALOOKS (TEXTOBJ NEWLOOKS) TEDIT.GET.PARALOOKS (TEXTSTREAM SELORCH# TEXTOBJ SEL) 
\TEDIT.UNPARSE.PARALOOKS.LIST (FMTSPEC) \TEDIT.APPLY.PARASTYLES (PARALOOKS PC TEXTOBJ) 
\TEDIT.PARSE.PARALOOKS.LIST (SPEC) TEDIT.PARALOOKS (SEL LEN BASEA0340 NO ARR SPEC BASEA0341 BASEA0342)
 TEDIT.COPY.PARALOOKS (STREAM SOURCE TEXTOBJ DEST) \TEDIT.PUT.PARALOOKS (PC FILE STREAM W LOOKS 
PARAHASH) \TEDIT.CONVERT.TO.FORMATTED (TEXTOBJ START END TEXTLEN BASEA0343 NO ARR BASEA0344 BASEA0345 
CRSTRING) \TEDIT.PARABOUNDS (TEXTOBJ CH# PCTB BASEA0346 NO ARR BASEA0347 BASEA0348 BASEA0349) 
\TEDIT.FORMATTABS (TABSPEC DFLTTABX MARGINXOFFSET CHBASE WBASE) TEDIT.REDO.LOOKS (TEXTOBJ EVENT SEL 
NEWLOOKS) TEDIT.REDO.PARALOOKS (TEXTOBJ EVENT SEL NEWLOOKS) TEDIT.UNDO.LOOKS (TEXTOBJ EVENT 
OLDLOOKSLIST \INPC CH# SEL) TEDIT.UNDO.PARALOOKS (TEXTOBJ EVENT OLDLOOKSLIST CH# SEL) NIL
SETFREE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT (TEDIT.KNOWN.FONTS) 
\TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL 
\TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE (LOOKNO TLEN CHLIST 
WLIST CHNO INVISIBLERUNS FONT NEWASCENT NEWDESCENT) \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS (CHANGERESULT) \TEDIT.LOOKS NIL 
\TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL 
\TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS 
NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS 
NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS (TEDIT.PENDINGDEL) 
TEDIT.UNDO.PARALOOKS (TEDIT.PENDINGDEL) NIL
SET CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS (F) TEDIT.SUBLOOKS (CHANGEMADE PC) 
\TEDIT.UNIQUIFY.CHARLOOKS (LOOK) TEDIT.CARETLOOKS (CHARLOOKS) TEDIT.COPY.LOOKS (LOOKS LEN) 
\TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST (PROP PROPNAME NEWLOOKS) TEDIT.MODIFYLOOKS NIL 
TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES (CHARSTYLES CHARSTYLE) 
\TEDIT.CARETLOOKS.VERIFY (LOOKS) \TEDIT.GET.INSERT.CHARLOOKS (PIECE LOOKS) \TEDIT.GET.TERMSA.WIDTHS (I
) \TEDIT.LOOKS.UPDATE (PARALOOKS TLOOKS PREVPC ORIGPC NEWPC) \TEDIT.PARSE.CHARLOOKS.LIST (FONT FAMILY 
FACE SIZE PROT SELHERE ULINE OLINE INVERSEVIDEO STRIKE INVISIBLE SUPER SUB WEIGHT SLOPE EXPANSION 
OFFSETINC SIZEINC STYLE STYLESET USERINFO UISET NLOOKS NEWLOOKS NEWPCLOOKS NEWFONT) 
\TEDIT.FLUSH.UNUSED.LOOKS (FIRSTPC LOOKS) \TEDIT.CHANGE.LOOKS (PCTB \INPC FONT NEWLOOKS FAMILY FACE 
SIZE PROT SELHERE ULINE OLINE INVERSEVIDEO STRIKE INVISIBLE SUPER SUB WEIGHT SLOPE EXPANSION SIZEINC 
OFFSETINC STYLE STYLESET USERINFO UISET FOOLOOKS CHLIM PCNO1 PC1 PCNON PCN OLDLOOKSLIST NEWPCLOOKS 
NEWFONT PC) TEDIT.LOOKS (TSEL) \TEDIT.LOOKS (FONT FACE SIZE NEWLOOKS) \TEDIT.FONTCOPY NIL 
TEDIT.GET.LOOKS (LOOKS NLOOKS) \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS (LOOK)
 TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST (PROP PROPNAME METHOD NEWLOOKS) 
\TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST (1STLEFT LEFT RIGHT LEADB LEADA LLEAD TYPESET 
TYPE SUBTYPESET SUBTYPE NEWBEFORESET NEWBEFORE NEWAFTERSET NEWAFTER HEADINGKEEP KEEP KEEPSET 
BASETOBASE BASESET QUADD TABSPECC NEWLOOKS) TEDIT.PARALOOKS (TEXTOBJ CH# CHLIM PCTB PCNO PC PC1 
NLOOKSAVE D REPLACEALLFIELDS 1STLEFT LEFT RIGHT LEADB LEADA LLEAD BLEAD BLEADSET QUADD TYPESET TYPE 
SUBTYPESET SUBTYPE SPECIALX SPECIALY NEWBEFORESET NEWBEFORE NEWAFTERSET NEWAFTER HEADINGKEEP KEEP 
KEEPSET BASETOBASE BASESET HCPYMODE HCPYSET USERINFO USERSET TABSPECC OLDLOOKSLIST LASTLOOKS NEWLOOKS 
NCHLIM NPC PC#) TEDIT.COPY.PARALOOKS (LOOKS LEN) \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED 
(PCNO PC PCTB NEXTCR) \TEDIT.PARABOUNDS (PCNO PC PIECE NPC END BEGIN) \TEDIT.FORMATTABS (TABWIDTH 
CURTX DEFAULTTAB NEXTTAB TAB NEXTTABTYPE NEXTTABX) TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS (OLDLOOKS NEWLOOKSLIST PC) TEDIT.UNDO.PARALOOKS (OLDLOOKS NEWLOOKSLIST PC) NIL
SMASHFREE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT (TEDIT.KNOWN.FONTS) 
\TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL 
\TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL 
\TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL 
\TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL 
\TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS 
NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS 
NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
SMASH CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS
 NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS (OLDLOOKSLIST) TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL 
TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS (OLDLOOKSLIST) TEDIT.COPY.PARALOOKS NIL 
\TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL 
TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS (NEWLOOKSLIST) TEDIT.UNDO.PARALOOKS (
NEWLOOKSLIST) NIL
PROP CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS 
NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST (FONT FAMILY FACE SIZE PROTECTED SELECTPOINT 
UNDERLINE OVERLINE INVERTED STRIKEOUT INVISIBLE SUPERSCRIPT SUBSCRIPT WEIGHT SLOPE EXPANSION 
OFFSETINCREMENT SIZEINCREMENT STYLE USERINFO) \TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS (FONT 
FAMILY FACE SIZE PROTECTED SELECTPOINT UNDERLINE OVERLINE INVERTED STRIKEOUT INVISIBLE SUPERSCRIPT 
SUBSCRIPT WEIGHT SLOPE EXPANSION SIZEINCREMENT OFFSETINCREMENT STYLE USERINFO) TEDIT.LOOKS NIL 
\TEDIT.LOOKS (REGION) \TEDIT.FONTCOPY (FAMILY SIZE FACE) TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL 
EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN 
PARALEADING POSTPARALEADING LINELEADING TYPE SUBTYPE NEWPAGEBEFORE NEWPAGEAFTER HEADINGKEEP KEEP 
BASETOBASE QUAD TABS) TEDIT.PARALOOKS (1STLEFTMARGIN LEFTMARGIN RIGHTMARGIN PARALEADING 
POSTPARALEADING LINELEADING BASETOBASE QUAD TYPE SUBTYPE SPECIALX SPECIALY NEWPAGEBEFORE NEWPAGEAFTER 
HEADINGKEEP KEEP HARDCOPY USERINFO TABS) TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
TEST CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS (PC CHANGEMADE) 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS (PREVPC) 
\TEDIT.UNPARSE.CHARLOOKS.LIST (VAL) TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT (NAME) \TEDIT.PUT.CHARLOOKS (
TEDIT.TENTATIVE) \TEDIT.APPLY.STYLES (STYLE) \TEDIT.CARETLOOKS.VERIFY (CARETFN LOOKS) 
\TEDIT.GET.INSERT.CHARLOOKS (PIECE) \TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE (PC ORIGPC) 
\TEDIT.PARSE.CHARLOOKS.LIST (FAMILY FONT WEIGHT SLOPE EXPANSION FACE SIZE OLOOKS SIZEINC PROT SELHERE 
ULINE OLINE STRIKE INVISIBLE INVERSEVIDEO SUPER SUB STYLESET UISET OFFSETINC) 
\TEDIT.FLUSH.UNUSED.LOOKS (FIRSTPC) \TEDIT.CHANGE.LOOKS (FAMILY FONT WEIGHT SLOPE EXPANSION FACE SIZE 
SIZEINC NEWLOOKS PC PROT SELHERE ULINE OLINE STRIKE INVISIBLE SUPER SUB STYLESET UISET OFFSETINC 
INVERSEVIDEO) TEDIT.LOOKS (SELORCH#) \TEDIT.LOOKS (FONT FACE SIZE NEWLOOKS) \TEDIT.FONTCOPY (NEWSPECS)
 TEDIT.GET.LOOKS (CH#ORCHARLOOKS) \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL
 TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST (PROP) \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST (TABSPECC OLDLOOKS 1STLEFT LEFT RIGHT LEADB LEADA LLEAD QUADD TYPESET 
SUBTYPESET NEWBEFORESET NEWAFTERSET HEADINGKEEP KEEPSET BASESET) TEDIT.PARALOOKS (TABSPECC 
REPLACEALLFIELDS NPC 1STLEFT LEFT RIGHT LEADB LEADA BLEADSET LLEAD QUADD TYPESET SUBTYPESET SPECIALX 
SPECIALY NEWBEFORESET NEWAFTERSET HEADINGKEEP KEEPSET BASESET HCPYSET USERSET) TEDIT.COPY.PARALOOKS 
NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED (NEXTCR) \TEDIT.PARABOUNDS (PIECE) 
\TEDIT.FORMATTABS (PRIORTAB CLEANINGUP) TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS
 NIL TEDIT.UNDO.PARALOOKS NIL NIL
TESTFREE CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
PREDICATE CHARLOOKS.FROM.FONT NIL EQCLOOKS (type?) SAMECLOOKS (SELECTQ ERROR) TEDIT.SUBLOOKS (
SAMECLOOKS) \TEDIT.UNIQUIFY.CHARLOOKS (EQCLOOKS) TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS (type?) 
\TEDIT.GET.CHARLOOKS (ZEROP IGREATERP) \TEDIT.UNPARSE.CHARLOOKS.LIST (IGEQ IGREATERP ILESSP) 
TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES (LITATOM 
DEFINEDP ZEROP FIXP) \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS (ATOM ZEROP) 
\TEDIT.GET.TERMSA.WIDTHS (GREATERP ARRAYP ZEROP) \TEDIT.LOOKS.UPDATE (ZEROP EQCLOOKS type?) 
\TEDIT.PARSE.CHARLOOKS.LIST (type? FONTP) \TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS (IGREATERP
 ZEROP type? FONTP IEQP) TEDIT.LOOKS (type?) \TEDIT.LOOKS (IGREATERP) \TEDIT.FONTCOPY NIL 
TEDIT.GET.LOOKS (type? ZEROP FIXP) \TEDIT.GET.PARALOOKS (IGREATERP) EQFMTSPEC (EQP EQUALALL EQUAL) 
\TEDIT.UNIQUIFY.PARALOOKS (EQFMTSPEC) TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL 
\TEDIT.APPLY.PARASTYLES (LITATOM ZEROP) \TEDIT.PARSE.PARALOOKS.LIST (type? BOUNDP) TEDIT.PARALOOKS (
type? FIXP IGREATERP ZEROP IGEQ) TEDIT.COPY.PARALOOKS (type?) \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED (IGREATERP IEQP) \TEDIT.PARABOUNDS (ZEROP ATOM) \TEDIT.FORMATTABS (ILEQ) 
TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
EFFECT CHARLOOKS.FROM.FONT (\ILLEGAL.ARG SELECTQ replace with) EQCLOOKS NIL SAMECLOOKS NIL 
TEDIT.SUBLOOKS (replace) \TEDIT.UNIQUIFY.CHARLOOKS (push) TEDIT.CARETLOOKS (replace) TEDIT.COPY.LOOKS 
(\SHOWSEL \LISPERROR TEDIT.LOOKS) \TEDIT.GET.CHARLOOKS (replace add) \TEDIT.UNPARSE.CHARLOOKS.LIST (
for DECLARE push) TEDIT.MODIFYLOOKS (MOVETO RELDRAWTO BITBLT) TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS 
(\DWOUT \SMALLPOUT DECLARE) \TEDIT.APPLY.STYLES (\TEDIT.CHECK) \TEDIT.CARETLOOKS.VERIFY NIL 
\TEDIT.GET.INSERT.CHARLOOKS (DECLARE) \TEDIT.GET.TERMSA.WIDTHS (for \WORDSETA DECLARE CHECK) 
\TEDIT.LOOKS.UPDATE (DECLARE replace add \EDITSETA \PUTBASE while freplace RETFROM) 
\TEDIT.PARSE.CHARLOOKS.LIST (LISTPUT replace) \TEDIT.FLUSH.UNUSED.LOOKS (while FRPLACD) 
\TEDIT.CHANGE.LOOKS (TEDIT.CARETLOOKS TEDIT.PROMPTPRINT replace \TEDIT.WINDOW.TITLE DECLARE bind 
LISTPUT \TEDIT.MARK.LINES.DIRTY \SHOWSEL TEDIT.RESET.EXTEND.PENDING.DELETE TEDIT.UPDATE.SCREEN \FIXSEL
) TEDIT.LOOKS (\TEDIT.HISTORYADD) \TEDIT.LOOKS (TEDIT.LOOKS TEDIT.PROMPTPRINT) \TEDIT.FONTCOPY (
TEDIT.PROMPTPRINT) TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL 
\TEDIT.UNIQUIFY.PARALOOKS (push) TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST (for SELECTQ 
push SHOULDNT) \TEDIT.APPLY.PARASTYLES (\TEDIT.CHECK) \TEDIT.PARSE.PARALOOKS.LIST (SELECTQ 
TEDIT.PROMPTPRINT replace) TEDIT.PARALOOKS (\TEDIT.CONVERT.TO.FORMATTED DECLARE bind replace \SHOWSEL 
\TEDIT.MARK.LINES.DIRTY \TEDIT.WINDOW.TITLE \TEDIT.HISTORYADD TEDIT.RESET.EXTEND.PENDING.DELETE 
TEDIT.UPDATE.SCREEN \FIXSEL) TEDIT.COPY.PARALOOKS (\SHOWSEL \LISPERROR TEDIT.PARALOOKS) 
\TEDIT.PUT.PARALOOKS (\DWOUT \SMALLPOUT DECLARE) \TEDIT.CONVERT.TO.FORMATTED (while DECLARE 
\SPLITPIECE replace \TEDIT.MARK.LINES.DIRTY) \TEDIT.PARABOUNDS (DECLARE add for bind) 
\TEDIT.FORMATTABS (SELECTQ \PUTBASE add SHOULDNT \RPLPTR) TEDIT.REDO.LOOKS (TEDIT.LOOKS 
TEDIT.PROMPTPRINT) TEDIT.REDO.PARALOOKS (TEDIT.PARALOOKS TEDIT.PROMPTPRINT) TEDIT.UNDO.LOOKS (bind 
replace \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \TEDIT.SET.SEL.LOOKS \FIXSEL \SHOWSEL) 
TEDIT.UNDO.PARALOOKS (bind replace \TEDIT.MARK.LINES.DIRTY TEDIT.UPDATE.SCREEN \TEDIT.SET.SEL.LOOKS 
\FIXSEL \SHOWSEL) NIL
CLISP CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS
 NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL 
\TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
SPECVARS CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
LOCALVARS CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST (VAL A) TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS (
STREAM W) \TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS (ARR NO 
BASEA0327 BASEA0328) \TEDIT.GET.TERMSA.WIDTHS (A J V) \TEDIT.LOOKS.UPDATE (ARR N VAL BASEA0329 
BASEA0330 BASEA0331 BASEA0332 BASEA0333 BASEA0334) \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS (ARR NO BASEA0335 BASEA0336 BASEA0337 BASEA0338 
BASEA0339) TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS (ARR NO BASEA0340 BASEA0341 BASEA0342) TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS (
STREAM W) \TEDIT.CONVERT.TO.FORMATTED (ARR NO BASEA0343 BASEA0344 BASEA0345) \TEDIT.PARABOUNDS (ARR NO
 BASEA0346 BASEA0347 BASEA0348 BASEA0349) \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
APPLY CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS
 NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE (\BIN) \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS (TEDIT.NEW.FONT) \TEDIT.FONTCOPY NIL 
TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
ERROR CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS
 NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES (apply) 
\TEDIT.CARETLOOKS.VERIFY (apply) \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES (apply) \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL 
\TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
LOCALFREEVARS CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL 
\TEDIT.UNIQUIFY.CHARLOOKS NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL 
\TEDIT.UNPARSE.CHARLOOKS.LIST NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL 
\TEDIT.APPLY.STYLES NIL \TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL 
\TEDIT.GET.TERMSA.WIDTHS NIL \TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL 
\TEDIT.FLUSH.UNUSED.LOOKS NIL \TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY
 NIL TEDIT.GET.LOOKS NIL \TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL 
TEDIT.GET.PARALOOKS NIL \TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL 
\TEDIT.PARSE.PARALOOKS.LIST NIL TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL 
\TEDIT.CONVERT.TO.FORMATTED NIL \TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL 
TEDIT.REDO.PARALOOKS NIL TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL
ARGS CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS 
NIL TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST 
NIL TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL 
\TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS 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 CHARLOOKS.FROM.FONT NIL EQCLOOKS NIL SAMECLOOKS NIL TEDIT.SUBLOOKS NIL \TEDIT.UNIQUIFY.CHARLOOKS NIL
 TEDIT.CARETLOOKS NIL TEDIT.COPY.LOOKS NIL \TEDIT.GET.CHARLOOKS NIL \TEDIT.UNPARSE.CHARLOOKS.LIST NIL 
TEDIT.MODIFYLOOKS NIL TEDIT.NEW.FONT NIL \TEDIT.PUT.CHARLOOKS NIL \TEDIT.APPLY.STYLES NIL 
\TEDIT.CARETLOOKS.VERIFY NIL \TEDIT.GET.INSERT.CHARLOOKS NIL \TEDIT.GET.TERMSA.WIDTHS NIL 
\TEDIT.LOOKS.UPDATE NIL \TEDIT.PARSE.CHARLOOKS.LIST NIL \TEDIT.FLUSH.UNUSED.LOOKS NIL 
\TEDIT.CHANGE.LOOKS NIL TEDIT.LOOKS NIL \TEDIT.LOOKS NIL \TEDIT.FONTCOPY NIL TEDIT.GET.LOOKS NIL 
\TEDIT.GET.PARALOOKS NIL EQFMTSPEC NIL \TEDIT.UNIQUIFY.PARALOOKS NIL TEDIT.GET.PARALOOKS NIL 
\TEDIT.UNPARSE.PARALOOKS.LIST NIL \TEDIT.APPLY.PARASTYLES NIL \TEDIT.PARSE.PARALOOKS.LIST NIL 
TEDIT.PARALOOKS NIL TEDIT.COPY.PARALOOKS NIL \TEDIT.PUT.PARALOOKS NIL \TEDIT.CONVERT.TO.FORMATTED NIL 
\TEDIT.PARABOUNDS NIL \TEDIT.FORMATTABS NIL TEDIT.REDO.LOOKS NIL TEDIT.REDO.PARALOOKS NIL 
TEDIT.UNDO.LOOKS NIL TEDIT.UNDO.PARALOOKS NIL NIL

)