(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 6-Oct-86 12:45:43" . {ERIS}<TEDIT>TEDITFNKEYS.;13)
FNS (\TEDIT.BOLD.CARET.OFF \TEDIT.BOLD.CARET.ON \TEDIT.ITALIC.CARET.OFF \TEDIT.ITALIC.CARET.ON 
\TEDIT.LARGER.CARET \TEDIT.SMALLER.CARET \TEDIT.SUBSCRIPT.CARET \TEDIT.SUPERSCRIPT.CARET 
\TEDIT.UNDERLINE.CARET.OFF \TEDIT.UNDERLINE.CARET.ON \TEDIT.STRIKEOUT.CARET.OFF 
\TEDIT.STRIKEOUT.CARET.ON \TEDIT.BOLD.SEL.OFF \TEDIT.BOLD.SEL.ON \TEDIT.CENTER.SEL 
\TEDIT.CENTER.SEL.REV \TEDIT.DEFAULTS.CARET \TEDIT.DEFAULTSSEL \TEDIT.SETDEFAULT.FROM.SEL \TEDIT.FIND 
\TEDIT.ITALIC.SEL.OFF \TEDIT.ITALIC.SEL.ON \TEDIT.LARGERSEL \TEDIT.LCASE.SEL \TEDIT.SHOWCARETLOOKS 
\TEDIT.SMALLERSEL \TEDIT.SUBSCRIPTSEL \TEDIT.SUPERSCRIPTSEL \TEDIT.UCASE.SEL \TEDIT.UNDERLINE.SEL.OFF 
\TEDIT.UNDERLINE.SEL.ON \TEDIT.STRIKEOUT.SEL.ON \TEDIT.STRIKEOUT.SEL.OFF \SEL.LIMIT \SEL.LINEDESC 
\TK.DESCRIBEFONT \PARAS.IN.SEL)
(READATABASE)
(
CALL \TEDIT.BOLD.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.BOLD.CARET.ON (
\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.ITALIC.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST 
FETCHFIELD) \TEDIT.ITALIC.CARET.ON (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.LARGER.CARET (
\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.SMALLER.CARET (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) 
\TEDIT.SUBSCRIPT.CARET (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.SUPERSCRIPT.CARET (
\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.UNDERLINE.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST 
FETCHFIELD) \TEDIT.UNDERLINE.CARET.ON (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) 
\TEDIT.STRIKEOUT.CARET.OFF (\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.STRIKEOUT.CARET.ON (
\TEDIT.PARSE.CHARLOOKS.LIST FETCHFIELD) \TEDIT.BOLD.SEL.OFF (\TEDIT.BOLD.CARET.OFF TEDIT.LOOKS) 
\TEDIT.BOLD.SEL.ON (\TEDIT.BOLD.CARET.ON TEDIT.LOOKS) \TEDIT.CENTER.SEL (FETCHFIELD \PARAS.IN.SEL 
TEDIT.GET.PARALOOKS LISTGET MEMB CONSTANT TEDIT.SETSEL CONS DREVERSE) \TEDIT.CENTER.SEL.REV (
FETCHFIELD \PARAS.IN.SEL TEDIT.GET.PARALOOKS LISTGET MEMB CONSTANT TEDIT.SETSEL CONS DREVERSE) 
\TEDIT.DEFAULTS.CARET (NCREATE \TEDIT.SHOWCARETLOOKS) \TEDIT.DEFAULTSSEL (NCREATE) 
\TEDIT.SETDEFAULT.FROM.SEL (TEDIT.GET.LOOKS \TEDIT.PARSE.CHARLOOKS.LIST) \TEDIT.FIND (TEXTOBJ MKLIST 
FETCHFIELD TEDIT.GETINPUT WINDOWPROP TEDIT.FIND MKSTRING ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS)
 \TEDIT.ITALIC.SEL.OFF (\TEDIT.ITALIC.CARET.OFF TEDIT.LOOKS) \TEDIT.ITALIC.SEL.ON (
\TEDIT.ITALIC.CARET.ON TEDIT.LOOKS) \TEDIT.LARGERSEL (\TEDIT.LARGER.CARET TEDIT.LOOKS LIST) 
\TEDIT.LCASE.SEL (TEDIT.SEL.AS.STRING FETCHFIELD L-CASE) \TEDIT.SHOWCARETLOOKS (FETCHFIELD CONCAT 
\TK.DESCRIBEFONT) \TEDIT.SMALLERSEL (\TEDIT.SMALLER.CARET TEDIT.LOOKS LIST) \TEDIT.SUBSCRIPTSEL (
\TEDIT.SUBSCRIPT.CARET TEDIT.LOOKS LIST) \TEDIT.SUPERSCRIPTSEL (\TEDIT.SUPERSCRIPT.CARET TEDIT.LOOKS 
LIST) \TEDIT.UCASE.SEL (TEDIT.SEL.AS.STRING FETCHFIELD U-CASE) \TEDIT.UNDERLINE.SEL.OFF (
\TEDIT.UNDERLINE.CARET.OFF TEDIT.LOOKS) \TEDIT.UNDERLINE.SEL.ON (\TEDIT.UNDERLINE.CARET.ON TEDIT.LOOKS
) \TEDIT.STRIKEOUT.SEL.ON (\TEDIT.STRIKEOUT.CARET.ON TEDIT.LOOKS) \TEDIT.STRIKEOUT.SEL.OFF (
\TEDIT.STRIKEOUT.CARET.OFF TEDIT.LOOKS) \SEL.LIMIT (FETCHFIELD SUB1) \SEL.LINEDESC (FETCHFIELD MKLIST)
 \TK.DESCRIBEFONT (CONCAT L-CASE FONTPROP) \PARAS.IN.SEL (FETCHFIELD IDIFFERENCE TEDIT.SELECTED.PIECES
 CONS PLUS DREVERSE) NIL
BIND \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF (CHARCODE) 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL (TEXTOBJ) \TEDIT.SETDEFAULT.FROM.SEL (TEXTOBJ) \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF (CHARCODE) \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS (SEL) \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL 
NIL NIL
NLAMBDA \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (CHARCODE) \TEDIT.ITALIC.SEL.OFF NIL
 \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
NOBIND \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
RECORD \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
CREATE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET (
CHARLOOKS) \TEDIT.DEFAULTSSEL (CHARLOOKS) \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL 
NIL NIL
FETCH \TEDIT.BOLD.CARET.OFF (CARETLOOKS) \TEDIT.BOLD.CARET.ON (CARETLOOKS) \TEDIT.ITALIC.CARET.OFF (
CARETLOOKS) \TEDIT.ITALIC.CARET.ON (CARETLOOKS) \TEDIT.LARGER.CARET (CARETLOOKS) \TEDIT.SMALLER.CARET 
(CARETLOOKS) \TEDIT.SUBSCRIPT.CARET (CARETLOOKS) \TEDIT.SUPERSCRIPT.CARET (CARETLOOKS) 
\TEDIT.UNDERLINE.CARET.OFF (CARETLOOKS) \TEDIT.UNDERLINE.CARET.ON (CARETLOOKS) 
\TEDIT.STRIKEOUT.CARET.OFF (CARETLOOKS) \TEDIT.STRIKEOUT.CARET.ON (CARETLOOKS) \TEDIT.BOLD.SEL.OFF NIL
 \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (CH# DCH) \TEDIT.CENTER.SEL.REV (CH# DCH) 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (\WINDOW 
SEL) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL (CH# DCH
 POINT) \TEDIT.SHOWCARETLOOKS (CARETLOOKS CLFONT CLOFFSET CLOLINE CLULINE) \TEDIT.SMALLERSEL NIL 
\TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL (CH# DCH POINT) 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT (POINT CH# CHLIM) \SEL.LINEDESC (POINT L1 LN) \TK.DESCRIBEFONT
 NIL \PARAS.IN.SEL (CH# DCH PPARALAST PLEN) NIL
REPLACE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (CH# CHLIM DCH POINT CARETLOOKS 
\INSERTNEXTCH) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL 
\TK.DESCRIBEFONT NIL \PARAS.IN.SEL (CH# DCH) NIL
REFFREE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET (
TEDIT.DEFAULT.CHARLOOKS) \TEDIT.DEFAULTSSEL (TEDIT.DEFAULT.CHARLOOKS) \TEDIT.SETDEFAULT.FROM.SEL NIL 
\TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL 
\TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL NIL
REF \TEDIT.BOLD.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) \TEDIT.BOLD.CARET.ON (TEXTOBJ TEXTSTREAM SEL) 
\TEDIT.ITALIC.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) \TEDIT.ITALIC.CARET.ON (TEXTOBJ TEXTSTREAM SEL) 
\TEDIT.LARGER.CARET (TEXTOBJ TEXTSTREAM SEL) \TEDIT.SMALLER.CARET (TEXTOBJ TEXTSTREAM SEL) 
\TEDIT.SUBSCRIPT.CARET (TEXTOBJ TEXTSTREAM SEL) \TEDIT.SUPERSCRIPT.CARET (TEXTOBJ TEXTSTREAM SEL) 
\TEDIT.UNDERLINE.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) \TEDIT.UNDERLINE.CARET.ON (TEXTOBJ TEXTSTREAM SEL)
 \TEDIT.STRIKEOUT.CARET.OFF (TEXTOBJ TEXTSTREAM SEL) \TEDIT.STRIKEOUT.CARET.ON (TEXTOBJ TEXTSTREAM SEL
) \TEDIT.BOLD.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \TEDIT.BOLD.SEL.ON (TEXTSTREAM TEXTOBJ SEL) 
\TEDIT.CENTER.SEL (SEL TEXTOBJ TEXTSTREAM PARA SAVECH# SAVEDCH) \TEDIT.CENTER.SEL.REV (SEL TEXTOBJ 
TEXTSTREAM PARA SAVECH# SAVEDCH) \TEDIT.DEFAULTS.CARET (TEXTSTREAM TEXTOBJ SEL) \TEDIT.DEFAULTSSEL (
TEXTSTREAM LOOKS SEL) \TEDIT.SETDEFAULT.FROM.SEL (TEXTSTREAM SEL LOOKS) \TEDIT.FIND (TEXTSTREAM) 
\TEDIT.ITALIC.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \TEDIT.ITALIC.SEL.ON (TEXTSTREAM TEXTOBJ SEL) 
\TEDIT.LARGERSEL (TEXTSTREAM TEXTOBJ SEL) \TEDIT.LCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) 
\TEDIT.SHOWCARETLOOKS (TEXTOBJ TEXTSTREAM LOOKS) \TEDIT.SMALLERSEL (TEXTSTREAM TEXTOBJ SEL) 
\TEDIT.SUBSCRIPTSEL (TEXTSTREAM TEXTOBJ SEL) \TEDIT.SUPERSCRIPTSEL (TEXTSTREAM TEXTOBJ SEL) 
\TEDIT.UCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) \TEDIT.UNDERLINE.SEL.OFF (TEXTSTREAM TEXTOBJ 
SEL) \TEDIT.UNDERLINE.SEL.ON (TEXTSTREAM TEXTOBJ SEL) \TEDIT.STRIKEOUT.SEL.ON (TEXTSTREAM TEXTOBJ SEL)
 \TEDIT.STRIKEOUT.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \SEL.LIMIT (SEL) \SEL.LINEDESC (SEL) 
\TK.DESCRIBEFONT (FONT) \PARAS.IN.SEL (TEXTOBJ PC) NIL
SETFREE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (PARASEL) \TEDIT.CENTER.SEL.REV (PARASEL) 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL (TEDIT.DEFAULT.CHARLOOKS) 
\TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL 
\TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL NIL
SET \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (LOOKS OLDQUAD NEWQUAD NEWQUADS) \TEDIT.CENTER.SEL.REV (LOOKS
 OLDQUAD NEWQUAD NEWQUADS) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL
 NIL \TEDIT.FIND (W TARGET SEL CH) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL
 NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL 
\TK.DESCRIBEFONT NIL \PARAS.IN.SEL (PCS PARAENDED PARAS POS) NIL
SMASHFREE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
SMASH \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (NEWQUADS) \TEDIT.CENTER.SEL.REV (NEWQUADS) 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (SEL 
TEXTOBJ) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL (
SEL PARAS) NIL
PROP \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (QUAD) \TEDIT.CENTER.SEL.REV (QUAD) \TEDIT.DEFAULTS.CARET NIL
 \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (TEDIT.LAST.FIND.STRING) 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL 
NIL NIL
TEST \TEDIT.BOLD.CARET.OFF (LOOKS) \TEDIT.BOLD.CARET.ON (LOOKS) \TEDIT.ITALIC.CARET.OFF (LOOKS) 
\TEDIT.ITALIC.CARET.ON (LOOKS) \TEDIT.LARGER.CARET (LOOKS) \TEDIT.SMALLER.CARET (LOOKS) 
\TEDIT.SUBSCRIPT.CARET (LOOKS) \TEDIT.SUPERSCRIPT.CARET (LOOKS) \TEDIT.UNDERLINE.CARET.OFF (LOOKS) 
\TEDIT.UNDERLINE.CARET.ON (LOOKS) \TEDIT.STRIKEOUT.CARET.OFF (LOOKS) \TEDIT.STRIKEOUT.CARET.ON (LOOKS)
 \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (TARGET CH
) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL (
PARAENDED) NIL
TESTFREE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (TEDIT.FNKEY.VERBOSE) \TEDIT.CENTER.SEL.REV (
TEDIT.FNKEY.VERBOSE) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL 
\TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL 
\TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL NIL
PREDICATE \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF (SHIFTDOWNP) 
\TEDIT.BOLD.SEL.ON (SHIFTDOWNP) \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET 
NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF (
SHIFTDOWNP) \TEDIT.ITALIC.SEL.ON (SHIFTDOWNP) \TEDIT.LARGERSEL (SHIFTDOWNP) \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL (SHIFTDOWNP) \TEDIT.SUBSCRIPTSEL (SHIFTDOWNP) 
\TEDIT.SUPERSCRIPTSEL (SHIFTDOWNP) \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF (SHIFTDOWNP) 
\TEDIT.UNDERLINE.SEL.ON (SHIFTDOWNP) \TEDIT.STRIKEOUT.SEL.ON (SHIFTDOWNP) \TEDIT.STRIKEOUT.SEL.OFF (
SHIFTDOWNP) \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL (ZEROP) NIL
EFFECT \TEDIT.BOLD.CARET.OFF (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.BOLD.CARET.ON (
TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.ITALIC.CARET.OFF (TEDIT.CARETLOOKS 
\TEDIT.SHOWCARETLOOKS) \TEDIT.ITALIC.CARET.ON (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) 
\TEDIT.LARGER.CARET (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.SMALLER.CARET (TEDIT.CARETLOOKS 
\TEDIT.SHOWCARETLOOKS) \TEDIT.SUBSCRIPT.CARET (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) 
\TEDIT.SUPERSCRIPT.CARET (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.UNDERLINE.CARET.OFF (
TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.UNDERLINE.CARET.ON (TEDIT.CARETLOOKS 
\TEDIT.SHOWCARETLOOKS) \TEDIT.STRIKEOUT.CARET.OFF (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) 
\TEDIT.STRIKEOUT.CARET.ON (TEDIT.CARETLOOKS \TEDIT.SHOWCARETLOOKS) \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (MAPC LISTPUT TEDIT.PARALOOKS TEDIT.PROMPTPRINT) 
\TEDIT.CENTER.SEL.REV (MAPC LISTPUT TEDIT.PARALOOKS TEDIT.PROMPTPRINT) \TEDIT.DEFAULTS.CARET (
TEDIT.CARETLOOKS) \TEDIT.DEFAULTSSEL (TEDIT.CARETLOOKS TEDIT.LOOKS) \TEDIT.SETDEFAULT.FROM.SEL NIL 
\TEDIT.FIND (\SHOWSEL TEDIT.PROMPTPRINT REPLACEFIELD TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL 
TEDIT.NORMALIZECARET) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL (TEDIT.DELETE TEDIT.INSERT TEDIT.SETSEL TEDIT.NORMALIZECARET) \TEDIT.SHOWCARETLOOKS (
TEDIT.PROMPTPRINT) \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL (TEDIT.DELETE TEDIT.INSERT TEDIT.SETSEL TEDIT.NORMALIZECARET) 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL (
REPLACEFIELD \FIXSEL MAPC) NIL
CLISP \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (for in do) \TEDIT.CENTER.SEL.REV (for in do) 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL (
for in do) NIL
SPECVARS \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
LOCALVARS \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
APPLY \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
ERROR \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
LOCALFREEVARS \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL
ARGS \TEDIT.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL 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.BOLD.CARET.OFF NIL \TEDIT.BOLD.CARET.ON NIL \TEDIT.ITALIC.CARET.OFF NIL 
\TEDIT.ITALIC.CARET.ON NIL \TEDIT.LARGER.CARET NIL \TEDIT.SMALLER.CARET NIL \TEDIT.SUBSCRIPT.CARET NIL
 \TEDIT.SUPERSCRIPT.CARET NIL \TEDIT.UNDERLINE.CARET.OFF NIL \TEDIT.UNDERLINE.CARET.ON NIL 
\TEDIT.STRIKEOUT.CARET.OFF NIL \TEDIT.STRIKEOUT.CARET.ON NIL \TEDIT.BOLD.SEL.OFF NIL 
\TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \SEL.LIMIT NIL \SEL.LINEDESC NIL \TK.DESCRIBEFONT NIL \PARAS.IN.SEL NIL 
NIL

)