Interlisp.medley/library/tedit/TEDIT.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED " 2-Mar-2026 18:32:06" ("compiled on " {WMEDLEY}<library>tedit>TEDIT.;853) 
"26-Feb-2026 12:11:15" brecompiled exprs%: nothing in "FULL 26-Feb-2026 ..." dated 
"26-Feb-2026 12:11:24")
(FILECREATED " 2-Mar-2026 18:32:06" {WMEDLEY}<library>tedit>TEDIT.;853 146506 :EDIT-BY rmk :CHANGES-TO
 (VARS TEDITCOMS) :PREVIOUS-DATE " 4-Feb-2026 16:02:02" {WMEDLEY}<library>tedit>TEDIT.;852)
MAKE-TEDIT-EXPORTS.ALL :D8
(P 0 VAL F 1 TEDITFILES) 8

i	o		¿Qooi
¸	H(52 CNDIR 46 GATHEREXPORTS 41 MEDLEYDIR 23 CNDIR 18 MEDLEYDIR 8 DIRECTORYNAME)
NIL
( 35 "tedit-exports.all" 30 "library/tedit" 13 "library>tedit")
UPDATE-TEDIT :D8
(P 5 TCF P 4 LF P 2 CF P 1 F I 1 LDFLG I 0 FILES F 6 TEDITFILES F 7 *COMPILED-EXTENSIONS*) _A§gb¿V!Hµh
YhWZ² `!J	½Kµh§JA
¿HX°Í
¼ML	
•Lµái°ÞK[°Õ(81 STRING.EQUAL 76 TRUEFILENAME 61 LOAD 46 TRUEFILENAME 29 FINDFILE-WITH-EXTENSIONS)
(37 LOADEDFILELST 6 SYSLOAD)
()
EDIT-TEDITA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 0 F I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 TEDITFILES) B

gd	gg
¿QcR°d

H	¿H	µëh(57 LOADCOMP 50 LOADFROM 36 UPDATE-TEDIT 26 SETTOPVAL 10 GETTOPVAL)
(21 YES 16 LOADDBFLG 4 LOADDBFLG)
()
EDIT-TEDIT :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) 3
o	S!g		¿$
o	(48 %. 33 SI::RESETUNWIND 28 \MVLIST 23 EDIT-TEDITA0001 9 BKSYSBUF)
(18 SI::RESETUNWIND)
( 43 (ANALYZE ON IN TEDITFILES) 4 " ")
TEDIT :D8
(P 1 PROC P 0 TSTREAM I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) îC`
b 
@AµghdC
Xd	bHÑH‡HÉkÏ: ¿kjðhðB˜HAigHd²dið¬3µgHhAhdggggggHd²dið¬3µgHhACd´dið¬3µgChh
YdgACg'¥I	I(234 TTY.PROCESS 220 PROCESSPROP 207 ADD.PROCESS 89 \TEDIT1 40 \TEDIT.PRIMARYPANE 33 OPENTEXTSTREAM 10 \APPEND2)
(226 LEAVETTY 214 WINDOW 192 QUOTE 170 QUOTE 153 \TEDIT.RESTARTFN 148 RESTARTFORM 143 HARDRESET 138 RESTARTABLE 133 TEdit 128 NAME 112 QUOTE 95 \TEDIT1 69 TEXTOBJ 64 TEXTOBJ 57 STREAM 48 TEXTOBJ 24 Tedit 5 TEDIT.DEFAULT.PROPS)
()
TEXTSTREAM :D8
(P 2 X P 1 WINDOW P 0 TS I 1 NOERROR I 0 TSTREAM?) ¯@@ò@ÉÓ@±€@Ô@É.°s@	µ@	–@	<00>@	´@	Yµ'@ôD@Êjð³;@ÉZÉô*J°'g
Z[ôKÉôJ€hXdµA«@o
h(170 ERROR 126 GETWINDOWPROP 76 WFROMDS 68 DISPLAYSTREAMP 61 PROCESS.WINDOW 54 PROCESSP 46 WINDOWP)
(148 TEXTOBJ 141 STREAM 133 STREAM 121 TEXTSTREAM 111 TEXTOBJ 104 STREAM 85 SELECTION 34 TEXTOBJ 23 TEXTOBJ 16 STREAM 8 STREAM)
( 165 "is not a Tedit document")
TEXTSTREAMP :D8
(I 0 TSTREAM) 
@ô@Éô@NIL
(20 TEXTOBJ 13 STREAM 5 STREAM)
()
COERCETEXTSTREAM :D8
(P 7 FORMATSTREAM P 6 CHARSTREAM P 5 CH P 4 STR P 3 NOBJECTS P 2 CH# P 0 TEXTOBJ I 2 OUTPUTSTREAM I 1 TYPE I 0 TSTREAM) 
[@	
H	bAgðªAdgð²^¿@j
HÉkjHÉ	JIó³$@ ]	™KkÔ»JmÿÔZ‰LJM¿JkÔZ°ÜLkJKkØÙµ‚±èo	gð²,HÉ,	²HÉ,	¿HÉ,g
¿@j
@Adgð²9¿BœBg
µgggbHBH	hðBgð²RggggggoHNOhi
Nj
Oj
NOAgð´@	(344 TEDIT.SEL.AS.SEXPR 324 SETFILEPTR 316 SETFILEPTR 309 \TEDIT.PUT.PCTB 294 OPENSTREAM 269 OPENSTREAM 239 \TEDIT.PUT.PCTB 232 \TEDIT.FORMATTEDSTREAMP 222 OPENSTREAM 200 OPENP 174 SETFILEPTR 166 OPENSTREAM 152 \GETSTREAM 142 STREAMP 125 CONCAT 109 SUBSTRING 90 RPLCHARCODE 71 IMAGEOBJP 55 ALLOCSTRING 42 \TEDIT.TEXTSETFILEPTR 14 TEXTSTREAM 5 TEXTOBJ)
(335 SEXPR 284 NEW 279 BOTH 274 {NODIRCORE} 264 NEW 259 BOTH 254 {NODIRCORE} 246 SPLIT 217 NEW 212 BOTH 207 {NODIRCORE} 195 OUTPUT 183 FILE 161 INPUT 131 STREAM 31 STRING 22 STRINGP)
( 289 ((LINELENGTH T)) 120 "")
TEDIT.CONCAT :D8
(P 18 NEWPIECE P 17 PC P 16 TSOBJ P 15 PREVPC P 14 TS P 13 FIRSTPC P 12 LASTTOBJ P 9 INITIALFILEPIECES P 8 FIRSTTOBJ P 7 TSTEXTOBJECTS P 6 CTEXTOBJ P 5 CSTREAM P 4 TS I 1 SEPARATOR I 0 TSTREAMS F 19 TEDIT.DEFAULT.FMTSPEC) 
¯
Aµ$@AHµ8Ib
M	
0@°q	³ÙAi
µA	b¿°Å£H¼h„H
¼H¸Li
µL	»Jµ	KhZ¹°£K&º°žd

LÑL‡LɸIµHhZ<>H&¹µÖJ!	@¢±<00>O
_¿NOÉ@@¿NOÉ::¿NOÉBB¿NOÉDD¿NOÉ^^¿O@O	
`dW&¿dj¿dj¿dj¿4O_¿Oµˆ
_¿Oµ&OÉhN¿NOO	¿N	M
_ Ê:jð¥NkÏ:¿ O 	°2_"ONhg
_$¿OO$¿O$OÎ
¿O$_¿O"ɵÐO 	O_¿A²O OðªOA
_¿O_¿O_¿±ÿR(411 \TEDIT.MAKE.STRINGPIECE 388 \TEDIT.FIRSTPIECE 352 \TEDIT.COPYPIECE 328 \TEDIT.FIRSTPIECE 301 \TEDIT.UNIQUIFY.ALL 294 \TEDIT.CONCAT.PAGEFRAMES 289 DREVERSE 278 \TEDIT.INSERTPIECES 216 LAST 90 OPENTEXTSTREAM 82 TEXTSTREAM 58 MKSTRING 50 CHARCODE.DECODE 41 CHARCODEP 27 TEXTOBJ 18 OPENTEXTSTREAM)
(346 COPY 335 PIECE 222 |PIECETYPE#| 133 TEXTOBJ 126 STREAM 117 TEXTOBJ)
()
TEDITSTRING :D8
(P 0 TSTR I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) <
@d˜	b¿hdC
H@khi
¿Hkjg¿HABC(57 TEDIT 46 TEDIT.SETSEL 32 TEDIT.INSERT 18 OPENTEXTSTREAM 7 MKSTRING)
(41 LEFT)
()
TEDIT-SEE :D8
(I 3 TITLE I 2 FORMAT I 1 WINDOW I 0 FILE F 0 DEFAULTFONT) 8
@AhgigigPgCgBh	(53 TEXTSTREAM 48 TEDIT)
(31 FORMAT 25 TITLE 19 FONT 13 LEAVETTY 7 READONLY)
()
TEDIT.COPY :D8
(P 1 TOSTREAM P 0 FROMSTREAM I 1 TO I 0 FROM) ^@	A	
@óHÉÉb¿AóIÉÉb€A@ð©@AHIh(89 \TEDIT.COPY 11 TEXTSTREAM 5 TEXTSTREAM)
(73 SELECTION 66 TEXTOBJ 59 STREAM 51 SELECTION 42 SELECTION 35 TEXTOBJ 28 STREAM 20 SELECTION)
()
TEDIT.DELETE :D8
(P 0 TEXTOBJ I 3 LEAVECARETLOOKS I 2 LEN I 1 SEL I 0 TSTREAM) 2
@	
Ad3 ž¿@ABhdC
¿<>µHÉb@A
(47 \TEDIT.DELETE 26 TEDIT.SETSEL 5 TEXTOBJ)
(40 SELECTION)
()
TEDIT.INSERT :D8
(P 0 TEXTOBJ I 4 DONTSCROLL I 3 LOOKS I 2 CH#ORSEL I 1 TEXT I 0 TSTREAM) Â
@	bA	™A@BCAd“3˜A	b€A	´‚±<00>A	j𒱂@Ñ@‡@É
Bd3 ²"¿HBkg¿HÉb°¯HÉb€BBÊjð³C—@C
¿AB@DHoih(189 TEDIT.PROMPTPRINT 176 \TEDIT.INSERT 166 TEDIT.CARETLOOKS 108 TEDIT.SETSEL 57 NCHARS 45 STRINGP 36 MKSTRING 23 TEDIT.INSERT.OBJECT 13 IMAGEOBJP 5 TEXTSTREAM)
(149 SELECTION 140 SELECTION 133 TEXTOBJ 122 SELECTION 115 TEXTOBJ 103 LEFT 85 TEXTOBJ 78 STREAM 69 TEXTOBJ)
( 183 "Please select a place for the insertion.")
TEDIT.TERPRI :D8
(P 0 TEXTOBJ I 2 DONTSCROLL I 1 CH#ORSEL I 0 TSTREAM) a
@	bdÉ
Ad3 Ÿ¿HAkg¿<>µHÉbAÊjð­oA@BHoi(94 TEDIT.PROMPTPRINT 81 \TEDIT.INSERT 37 TEDIT.SETSEL 5 TEXTSTREAM)
(61 SELECTION 54 SELECTION 47 TEXTOBJ 32 LEFT 13 STREAM)
( 88 "Please select a place for the insertion." 73 "
")
TEDIT.KILL :D8
(P 2 TEDPROC P 1 TEDW P 0 TEXTOBJ I 0 TSTREAM) 8
@	!Hi0H	Yd²!	É.Z	´J`ð¦J	h(51 DEL.PROCESS 35 PROCESSP 27 \INSUREWINDOW 18 \TEDIT.PRIMARYPANE 5 TEXTOBJ)
(43 \RUNNING.PROCESS)
()
TEDIT.QUIT :D8
(P 1 PRIMPANE P 0 TEXTOBJ I 1 VALUE I 0 TSTREAM) 3@	!HÉYµHAµiZ0J	É.²ïI	É.	¿°ß(46 TTY.PROCESS 39 \INSUREWINDOW 29 \INSUREWINDOW 5 TEXTOBJ)
NIL
()
TEDIT.MOVE :D8
(P 1 TOSTREAM P 0 FROMSTREAM I 1 TO I 0 FROM) ^@	A	
@óHÉÉb¿AóIÉÉb€A@ð©@AHIh(89 \TEDIT.MOVE 11 TEXTSTREAM 5 TEXTSTREAM)
(73 SELECTION 66 TEXTOBJ 59 STREAM 51 SELECTION 42 SELECTION 35 TEXTOBJ 28 STREAM 20 SELECTION)
()
TEDIT.STRINGWIDTH :D8
(P 2 CH I 2 TERMSA I 1 FONT I 0 STR) èB²p@jRHdÊjð¥	<00>ȼHdÊjð¥	<00>ɽLmÿØHl
Ø»HdÊjð¥	‚ʇlDð¾LKñ³N•MLÐÈ‚MLºIJABÔ¹LkØ\°áI@jRHdÊjð¥	<00>ȼHdÊjð¥	<00>ɽLmÿØHl
Ø»HdÊjð¥	‚ʇlDð¾LKñ³'N•MLÐÈ‚MLºIJdl	ð“¿l$…A
Ô¹LkØ\°ÙI(220 CHARWIDTH 178 %%ARRAY-TYPE-NUMBER 163 \GETBASEFIXP 147 %%ARRAY-BASE 130 %%ARRAY-OFFSET 102 TEDIT.CHARWIDTH 68 %%ARRAY-TYPE-NUMBER 53 \GETBASEFIXP 37 %%ARRAY-BASE 20 %%ARRAY-OFFSET)
NIL
()
TEDIT.CHARWIDTH :D8
(I 2 TERMSA I 1 FONT I 0 CH) ï
B¢±Ì@lÿñ²BÉ€Ÿ@BÉ€
µj‚B@Âlådlð²9¿@lñŸ@låb¿l#A
€jl @ñŸ@l@äb¿l^A
€jØ@A
Ødlð²I¿@dl
ðªdl
ð¥dl
ð²A

lHñ¡Hllð˜l$A
@dlð‘jl	ð³?@A
djð˜¿@A
lð³á@dl
ð²A

lHñ³¯Hl	ð²Òl$(218 CHARWIDTH 204 \TEDIT.THELP 193 CHARWIDTH 180 CHARWIDTH 159 CHARWIDTH 134 CHARWIDTH 102 CHARWIDTH 92 CHARWIDTH 70 CHARWIDTH 33 GETHASH)
(26 CHARTABLE 16 CHARTABLE)
()
TEDIT.PARAGRAPH.BOUNDARIES :D8
(P 0 TEXTOBJ I 2 PROTECTEDNOTOK I 1 SELORCH# I 0 TSTREAM) T
@	
A¯HÉb¿HAØAÉ€AB
HAÚAÉ
kÙ€AB
h(77 \TEDIT.PARA.LAST 50 \TEDIT.PARA.FIRST 5 TEXTOBJ)
(65 SELECTION 58 SELECTION 40 SELECTION 33 SELECTION 23 SELECTION 16 TEXTOBJ)
()
TEXTOBJ :D8
(P 0 TSTRM I 1 NOERROR I 0 TEXTOBJ?) 
@Ñ@@A

Hd–É(15 TEXTSTREAM)
(26 STREAM 5 TEXTOBJ)
()
COERCETEXTOBJ :D8
(I 2 OUTPUTSTREAM I 1 TYPE I 0 TSTREAM) 
@AB(7 COERCETEXTSTREAM)
NIL
()
TDRIBBLEA0001 :D8
(I 0 TSTREAM) „
@ghgo
giggghgggi		É
gi		É
h@kj(129 TEDIT.SETSEL 121 TEDIT 95 \INSUREWINDOW 90 WFROMDS 74 \INSUREWINDOW 69 WFROMDS 26 CONCAT 21 DATE)
(84 OPENHEIGHT 63 OPENWIDTH 58 OFF 53 HISTORY 47 PARABREAKCHARS 42 QUIET 37 APPEND 31 LEAVETTY 11 TITLE 5 Dribble)
( 16 "Tedit Dribble   ")
TDRIBBLE :D8
(P 0 TSTREAM) *
hdddo

HggH	(39 DRIBBLE 33 WHENCLOSE 14 OPENTEXTSTREAM)
(28 TDRIBBLEA0001 23 BEFORE)
( 8 (HISTORY OFF FONT DEFAULTFONT))
TEDIT.INSERT.OBJECT :D8
(P 4 SUBSTREAM P 3 OBJSELPIECES P 2 OBJPC P 1 SEL P 0 TEXTOBJ I 3 LOOKS I 2 CH# I 1 TSTREAM I 0 OBJECT) 
\A	bd	aBµHÉbÙAB
b¿AhB’±
`dlÏ¿d@¿dk¿HÉ4½dM¿dj¿dj¿Z@g
\²0o	¿JlÏ¿JLÑL‡LÉÉ¿`dk¿dJ¿dJ¿dB¿dB¿gA[d´‚±…HÉYhdAhBÚBÉb¿HÊFjð§AI
¿B²$IBHÉkؾdNñ‘¿Njg¿IA
¿KAIC˜ACI¿A	hiAhd
h(344 \TEDIT.SHOWSEL 333 \TEDIT.SCROLL.CARET 326 \TEDIT.CHANGE.CHARLOOKS 316 \TEDIT.INSERT.SELPIECES 307 \TEDIT.FIXSEL 299 \TEDIT.UPDATE.SEL 270 \TEDIT.DELETE 238 \TEDIT.SHOWSEL 207 \TEDIT.SELPIECES.COPY 129 \TEDIT.THELP 116 IMAGEOBJPROP 58 \TEDIT.READONLY 47 TEDIT.GETPOINT 13 TEXTOBJ 5 TEXTSTREAM)
(294 LEFT 251 SELECTION 244 SELECTION 228 SELECTION 221 TEXTOBJ 201 INSERT 170 |SELPIECESTYPE#| 160 TEXTOBJ 153 STREAM 144 TEXTOBJ 111 SUBSTREAM 67 |PIECETYPE#| 39 SELECTION 32 SELECTION 25 TEXTOBJ)
( 124 "SUBSTREAM NOT IMPLEMENTED")
TEDIT.EDIT.OBJECT :D8
(P 2 EDITFN P 1 CH# P 0 TEXTOBJ I 1 OBJ I 0 TSTREAM) é@	bdÑ@‡@É!A	²r@A
Y²Y@	¿@Ik¿h@
¿HÉA¿@	¿Ag
Z³d@Aoi
h@oidhA²@Ao
idhHÉÉbµ¢@oidhAkJ³«@A
°¢(229 TEDIT.OBJECT.CHANGED 213 TEDIT.PROMPTPRINT 174 TEDIT.PROMPTPRINT 167 CONCAT 150 TEDIT.PROMPTPRINT 135 TEDIT.PROMPTPRINT 130 CONCAT 114 IMAGEOBJPROP 102 TEDIT.NORMALIZECARET 73 \TEDIT.FIXSEL 65 \TEDIT.UPDATE.SEL 56 \TEDIT.SEL.OFF 47 TEDIT.FIND.OBJECT 38 IMAGEOBJP 5 TEXTSTREAM)
(194 SELECTION 189 SELECTION 182 TEXTOBJ 109 EDITFN 92 SELECTION 87 SELECTION 80 TEXTOBJ 29 TEXTOBJ 22 STREAM 13 TEXTOBJ)
( 206 "Please select an editable object" 162 " is not an image object" 143 "Can't find the specified object"
 124 " does not have an edit function")
TEDIT.OBJECT.CHANGED :D8
(P 1 CH# P 0 TEXTOBJ I 2 PIECE/CH#/SEL I 1 OBJECT I 0 TSTREAM) œ@	
Bd3 ³Eò%ABÊlð´BÉôBÉð´$BH
°BÙABÉð“Bɇ@AkYd²:@gIk@	HhHÊ,jðhðið³Hi
HkÏ,¿kjðhðh@oi(153 TEDIT.PROMPTPRINT 127 \TEDIT.WINDOW.TITLE 104 \TEDIT.SEL.ON 98 \TEDIT.UPDATE.LINES 81 TEDIT.FIND.OBJECT 54 \TEDIT.PCTOCH 5 TEXTOBJ)
(91 CHANGED 62 SELECTION 39 IMAGEOBJ 19 PIECE)
( 147 "Changed object not found in document")
TEDIT.MAP.OBJECTS :D8
(P 4 PC P 3 FNVAL P 2 OBJ P 0 CH# I 3 COLLECT? I 2 FNARG I 1 FN I 0 TSTREAM) œA§gb¿kA@		°Ddgð“¿H°#gð’K°Cgð—HJKhHJKhIY¿KgðªHLÉÔ¸Lɵ	I	\Êlð²âLÉZò×HJBlA[²ÌCd²¿dg𲆿J°¯(100 DREVERSE 24 \TEDIT.FIRSTPIECE 19 TEXTOBJ)
(147 OBJECT 124 IMAGEOBJ 106 PIECE 81 STOP 54 FIRST 43 VALUE 32 CH# 6 TRUE)
()
\TEDIT.FIRST.OBJPIECE :D8
(I 0 TEXTOBJ) #
@	
Hµh
YÊlð”IµiHX°ê(5 \TEDIT.FIRSTPIECE)
NIL
()
\TEDIT.NEXT.OBJPIECE :D8
(I 1 PC I 0 TEXTOBJ) AÉd²bÊlð²íAµiNIL
(10 PIECE)
()
\TEDIT.CONCAT.PAGEFRAMES :D8
(P 17 TYPE P 16 PPARALOOKS P 15 PC P 14 ALLNEW P 13 R P 12 I P 10 FRAMES P 9 TSOBJ P 6 CPAGEFRAME P 5 RIGHTNEW P 4 LEFTNEW P 3 FIRSTNEW P 2 RIGHTREGIONS P 1 LEFTREGIONS P 0 FIRSTREGIONS I 2 INITIALFILEPIECES I 1 TSTEXTOBJECTS I 0 CTEXTOBJ) 
›€A!
OµEHk
OµlIk
Oµ‚±•Jk
Oµ‚±½KLM

!@	±

_ÉT_
H
¸O
I
¹O
J
ºO_°Š
_° d

O"gO
O
hK[µàO_¿OkÔ_¿±ÿ]
_° d

O"gO
O
hL\µàO_¿OkÔ_¿±ÿ1
_° d

O"gO
O
hM]µàO_¿OkÔ_¿±ÿ	_É_ Égð²%O`O 
O ÉO
_¿dO¿¿Oɵ¿A
ÉT		^d
K
N
L
N
M
@NTN(403 \TEDIT.CONCAT.INSTALL.HEADINGS 393 \TEDIT.CONCAT.INSTALL.HEADINGS 384 \TEDIT.CONCAT.INSTALL.HEADINGS 375 \TEDIT.PARSE.PAGEFRAMES 370 \TEDIT.UNPARSE.PAGEFRAMES 333 NCREATE2 262 PACK* 207 PACK* 152 PACK* 120 \TEDIT.GET.PAGE.HEADINGS 108 \TEDIT.GET.PAGE.HEADINGS 97 \TEDIT.GET.PAGE.HEADINGS 75 \TEDIT.FIRSTPIECE 66 \APPEND2 61 \APPEND2)
(326 |PARALOOKSTYPE#| 316 PAGEHEADING 309 PARALOOKS 298 PIECE 255 HeadingR 200 HeadingL 145 HeadingF 86 TEXTOBJ)
()
\TEDIT.GET.PAGE.HEADINGS :D8
(P 1 PH I 1 HEADLIST I 0 PAGEREGION) €@Égð´@É1HµA
YÉgð²JIÉ
gð²9IÉA
µIÉhAb
IÉ
»ºKJ¦JKJ¿HX°Ÿ(80 SASSOC)
(103 PAGEREGION 88 PAGEREGION 72 PAGEREGION 63 HEADINGTYPE 55 PAGEREGION 46 HEADING 39 PAGEREGION 21 PAGEREGION 12 PAGE 5 PAGEREGION)
()
\TEDIT.CONCAT.INSTALL.HEADINGS :D8
(P 14 R P 9 NT P 4 SPF I 1 NEWTYPES I 0 PAGEREGION) ê@Égð´;@@ÉAHµ'IAA	MµANaOµ^O

HII
\Égð©L»JµKhZ¹HX°»K&º°ø
_
N³O_¿OµOh_¾M]°¡O&_¿°õ
_¿`dg¿gO
h_¿dO¿O
_ ¿dO ¿_¿OµOh__¿O_±ÿXO&_¿°ò(64 \NCONC2)
(172 HEADINGTYPE 164 HEADING 157 |PAGEREGIONTYPE#| 87 HEADING 80 PAGEREGION 27 PAGEREGION 21 PAGEREGION 12 PAGE 5 PAGEREGION)
()
\TEDIT.MOVE.MSG :D8
(P 0 TYPE I 2 COPYFLG I 1 TOOBJ I 0 FROMOBJ) d
B•o„o
@´>A²1@AðœAhAÉÉAo
µBhð´
@o
@´	Ao„oH
idi(96 TEDIT.PROMPTPRINT 89 CONCAT 67 \TEDIT.READONLY 49 \TEDIT.READONLY 37 \TEDIT.READONLY)
NIL
( 83 "Please select a source for the " 77 "Please select a destination for the " 62 "Source" 44 "Destination"
 12 "move" 6 "copy")
\TEDIT.READONLY :D8
(P 0 TEXTOBJ I 2 CHNO I 1 TYPE I 0 TSTREAM) …
@Ñ@‡@É
HÊ:jð³*HÊjð²HAµoo
idgHÊXjð³3B–BHÉñ³*HÊjð²HAµoo
idgh(123 TEDIT.PROMPTPRINT 116 CONCAT 66 TEDIT.PROMPTPRINT 59 CONCAT)
(128 APPENDONLY 71 READONLY 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 111 " is append only--aborted" 106 "Text" 54 " is read only--aborted" 49 "Text")
TEDIT.NCHARS :D8
(I 0 TSTREAM) 
@Ó@É@	É(16 TEXTOBJ)
(5 SELECTION)
()
TEDIT.RPLCHARCODE :D8
(P 0 TEXTLEN I 4 DONTDISPLAY I 3 NEWCHARLOOKS I 2 NEWCHARCODE I 1 N I 0 TSTREAM) i
@	bd	
jAñ—AHkØÔb¿kAñ£AHñ–A	¿B	­B	¦B	¿Cµ@ABCD
	³ïCóçC	¿°Þ(100 \ILLEGAL.ARG 84 FONTP 78 \TEDIT.RPLCHARCODE 63 \ILLEGAL.ARG 56 IMAGEOBJP 49 CHARCODEP 42 \ILLEGAL.ARG 13 TEDIT.NCHARS 5 TEXTSTREAM)
(92 CHARLOOKS)
()
TEDIT.NTHCHARCODE :D8
(I 1 N I 0 TSTREAM) \@ò3Ajð³$AjAñ“@É
„@ÉkÙÔb@Éýñ¦A@É
ýñ£jb¿@	b°@	b¿jAñœ@	AØkØb¿@A
(89 \TEDIT.NTHCHARCODE 75 TEDIT.NCHARS 62 TEXTSTREAM 52 TEXTSTREAM)
(5 SELECTION)
()
TEDIT.NTHCHAR :D8
(P 0 CODE I 1 N I 0 TSTREAM) 
@A

Hd3 ”	(19 CHARACTER 6 TEDIT.NTHCHARCODE)
NIL
()
\TEDIT1 :D8
(P 0 TEXTOBJ I 2 UNSPAWNED I 1 WINDOW I 0 TSTREAM) s@É
@	A	@	@lÏHg
²Hg
¹A@lI¿B´'HÉ0ið¨HÉ0Hh0¿HÉ,	›Hg
@(110 COERCETEXTOBJ 98 STRINGP 63 GETTEXTPROP 50 GETTEXTPROP 28 \TEDIT.TEXTCLOSEF 22 CLOSEW 16 \TEDIT.COMMAND.LOOP)
(105 STRINGP 58 AFTERQUITFN 45 AFTERQUITFN 34 STREAM 5 STREAM)
()
\TEDIT.INSERT :D8
(P 11 CH P 10 NCH# P 5 CH P 3 PARACHARS P 2 NCHARSADDED P 1 CARETCHNO P 0 TEXTOBJ I 4 TYPEIN I 3 DONTSCROLL I 2 TSTREAM I 1 SEL I 0 INSERT) AÊjð’±@	«@	jð’±
õBÑB‡BÉ1HÉ»HhI’±
ÌHÊFjð§BA
¿HA
¹@	Ÿ@IH@K¿k±
'K¢±
@Q	LdÊjð¥	<00>È_¿LdÊjð¥	<00>É_¿OmÿØLl
ؾLdÊjð¥	‚ʇlDð_¿ONñ³#O—OOÐÈ„OOÂ]K”Mµ
iˆOkØ_°Ýh¢±–@IROdÊjð¥	<00>È_¿OdÊjð¥	<00>É_¿OmÿØOl
Ø_¿OdÊjð¥	‚ʇlDð_¿OOñ³5O—OOÐÈ„OOÂ_OHOK
¿OkØ_¿OkÔ_¿°Èˆ@IH¿@	ºHh¿HÊ,jðhðið­Hi
¿HkÏ,¿hdBh¿AIJØkÙjgg
¿C³5BgIJ¿AHÉð›hiBhd
¿D´	B	h(531 \TEDIT.SCROLL.CARET 521 \TEDIT.SHOWSEL 493 \TEDIT.UPDATE.LINES 476 \TEDIT.UPDATE.SEL 452 \TEDIT.SHOWSEL 436 \TEDIT.WINDOW.TITLE 412 NCHARS 405 \TEDIT.INSERTCH 378 \TEDIT.INSERTCH 373 MEMB 327 %%ARRAY-TYPE-NUMBER 309 \GETBASEFIXP 289 %%ARRAY-BASE 269 %%ARRAY-OFFSET 195 %%ARRAY-TYPE-NUMBER 180 \GETBASEFIXP 161 %%ARRAY-BASE 142 %%ARRAY-OFFSET 115 \TEDIT.INSERTCH 103 CHARCODEP 96 TEDIT.GETPOINT 88 \TEDIT.DELETE 70 \TEDIT.READONLY 27 NCHARS 20 CHARCODEP)
(508 SELECTION 501 TEXTOBJ 486 INSERTION 470 NORMAL 465 RIGHT 55 TEXTOBJ 48 STREAM 39 TEXTOBJ 5 SELECTION)
()
\TEDIT.MOVE :D8
(P 7 TOOBJ P 6 TOCH# P 5 TODCH P 4 TOPOINT P 3 TODELEVENT P 2 FROMPIECES P 1 BPD P 0 FROMOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 TOSEL I 0 FROMSEL) 
<01>@A@Éjð’±
gBÑB‡BÉqCÑC‡CÉ_¿AɾAÉ½Aɼh[Z¹HOh’±
OÊFjð³+Mjñ²&OjÏF¿CA
´‚±÷i¹OHð˜@NM¿@hHgCBZ´‚±ÌhdBh¿hdCh¿OHð²&B@hi¿A@
¿Bg@É@ÉŠB@hdi
¿Og
²)@Bi¿I´gOdd	O	h¿°KJCA¿Ag
¿hiChd
¿Od	OHð´	O	I´	O	h
h(381 \TEDIT.HISTORYADD.COMPOSITE 372 \TEDIT.POPEVENT 362 \TEDIT.POPEVENT 349 \TEDIT.POPEVENT 340 \TEDIT.SHOWSEL 328 \TEDIT.SET.SEL.LOOKS 316 \TEDIT.INSERT.SELPIECES 305 \TEDIT.HISTORYADD.COMPOSITE 297 \TEDIT.POPEVENT 290 \TEDIT.POPEVENT 277 \TEDIT.FOREIGN.COPY 267 GETTEXTPROP 254 \TEDIT.DELETE 242 \TEDIT.UPDATE.LINES 224 \TEDIT.SEL.DELETEDCHARS 216 \TEDIT.DELETE.SELPIECES 200 \TEDIT.SHOWSEL 190 \TEDIT.SHOWSEL 174 \TEDIT.SELPIECES.COPY 162 \TEDIT.SELPIECES 153 \TEDIT.SEL.DELETEDCHARS 132 \TEDIT.DELETE 100 \TEDIT.MOVE.MSG)
(323 NORMAL 262 COPYBYBKSYSBUF 231 DELETION 167 MOVE 72 TEXTOBJ 65 STREAM 56 TEXTOBJ 47 TEXTOBJ 40 STREAM 31 TEXTOBJ 17 SELECTION 11 SELECTION 5 SELECTION)
()
\TEDIT.COPY :D8
(P 3 TOOBJ P 2 FROMPIECES P 1 FROMOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 TOSEL I 0 FROMSEL) Ì@É
Hjðµ
H´H	’±¬BÉ!CÉ»hºIKi‘h@hIgCBZ´êhdBh¿hdCh¿Kg
™@BihKÊFjð®KjÏF¿JCA‡JCA¿Ag
¿hdCh¿hiChd
¿C	h(200 \TEDIT.SCROLL.CARET 193 \TEDIT.SHOWSEL 181 \TEDIT.SHOWSEL 171 \TEDIT.SET.SEL.LOOKS 159 \TEDIT.INSERT.SELPIECES 150 \TEDIT.REPLACE.SELPIECES 127 \TEDIT.FOREIGN.COPY 118 GETTEXTPROP 106 \TEDIT.SHOWSEL 96 \TEDIT.SHOWSEL 84 \TEDIT.SELPIECES.COPY 72 \TEDIT.SELPIECES 61 \TEDIT.MOVE.MSG 26 \FZEROP)
(166 NORMAL 113 COPYBYBKSYSBUF 77 COPY 48 STREAM 37 STREAM 5 SELECTION)
()
\TEDIT.REPLACE.SELPIECES :D8
(P 5 ILEN P 4 DELEVENT P 3 DCH P 2 CH# P 1 POINT P 0 TEXTOBJ I 2 SEL I 1 TSTREAM I 0 INSERTSELPIECES) ÷A	’±íAÑA‡AÉBÉBÉBÉ$BhAhAJK²5BJkÙjgg
¿BA
¿HdB
4¿HÉH
¼@´}j@É]ñ³o@ABi´eL²+H	¿Lg¿LM¿LI¿BJMI¿MKñ›AgJMKÙ°KMñšAgJKMÙ‡AgJKh(243 \TEDIT.UPDATE.LINES 198 \TEDIT.UPDATE.SEL 154 \TEDIT.POPEVENT 143 \TEDIT.INSERT.SELPIECES 105 \TEDIT.GET.INSERT.CHARLOOKS 96 \TEDIT.FIXSEL 88 \TEDIT.UPDATE.SEL 65 \TEDIT.DELETE.SELPIECES 57 \TEDIT.SHOWSEL 5 \TEDIT.READONLY)
(236 LOOKS 225 DELETION 209 INSERTION 185 TEDITHISTORYEVENT 175 TEDITHISTORYEVENT 166 :Replace 161 TEDITHISTORYEVENT 128 SELPIECES 114 TEXTOBJ 82 NORMAL 77 RIGHT 37 SELECTION 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
()
\TEDIT.INSERT.SELPIECES :D8
(P 4 NEXTPC P 3 SPFIRST P 2 SPLEN P 1 INSCH# P 0 TEXTOBJ I 3 DONTUPDATE I 2 TARGETSEL I 1 TSTREAM I 0 SELPIECES) ‰@´‚±ƒAÑA‡AÉAB
@É@ÉIH
\KLHKÉ
L
C³ HÉIJg¿AgIJ¿HdgIJhK

(134 \TEDIT.HISTORYADD 129 \TEDIT.HISTORY.EVENT 111 \TEDIT.UPDATE.LINES 97 \TEDIT.UPDATE.SEL 79 \TEDIT.DIFFUSE.PARALOOKS 70 \TEDIT.INSERTPIECES 61 \TEDIT.ALIGNEDPIECE 35 TEDIT.GETPOINT)
(119 :Insert 104 INSERTION 92 RIGHT 49 SELPIECES 41 SELPIECES 28 TEXTOBJ 21 STREAM 12 TEXTOBJ)
()
\TEDIT.RESTARTFN :D8
(P 1 ODIRTY P 0 TEXTOBJ I 2 PROPS I 1 WINDOW I 0 TSTREAM) ª@	bdAhdB
bdÉ!HÊ,jðhð¹Hh@AhdB
bdÉXdh¿IHÊ,jðhðð³HI
¿HI‘k€jÏ,¿@	A	@	@lÏHg
´Hg
ºA@lJ(159 GETTEXTPROP 146 GETTEXTPROP 124 \TEDIT.TEXTCLOSEF 118 CLOSEW 112 \TEDIT.COMMAND.LOOP 95 \TEDIT.WINDOW.TITLE 60 OPENTEXTSTREAM 18 OPENTEXTSTREAM 5 TEXTSTREAM)
(154 AFTERQUITFN 141 AFTERQUITFN 130 STREAM 68 STREAM 46 TEXTOBJ 26 STREAM)
()
\TEDIT.CHARDELETE :D8
(P 3 SEL P 2 DCH P 1 CH# P 0 TEXTOBJ I 1 FORWARD I 0 TSTREAM) ˜@	’±Ž@Ñ@‡@É1HÉ[Éºh¹HÊFjð³KÉkñ•Kɹ°&A<>@K
H
Ž@K
kÙH
Y´kº@IJA–g…g¿@	h(148 \TEDIT.SCROLL.CARET 141 \TEDIT.DELETE 114 \TEDIT.LASTCHANGEABLE.CHNO 106 TEDIT.GETPOINT 98 \TEDIT.NEXTCHANGEABLE.CHNO 92 TEDIT.GETPOINT 5 \TEDIT.READONLY)
(136 LEFT 129 RIGHT 72 SELECTION 53 SELECTION 47 SELECTION 40 TEXTOBJ 31 TEXTOBJ 24 STREAM 15 TEXTOBJ)
()
\TEDIT.COPYPIECE :D8
(P 6 \INTERRUPTABLE P 3 SRCPFILE P 2 NEWPC P 1 CROSSCOPY P 0 TOOBJ I 5 PROMPTTEXTOBJ I 4 OPERATION I 3 UNPROTECT I 2 TOTSTREAM I 1 FROMTSTREAM I 0 PC) 
‚BÑB‡BÉABðhðB`@
dkÏ¿dhÎ
¿dh¿\LdÈnðåhÒnÿåäÍ¿LlkØÐhÓÍZ@Êdjð³dkð³dlð¯dlðªdlð¥dl	ð²z¿I¢±¯@É[gi³Kggo»@ggggKg
hh¿K@É@É@É@É@ÉÚØ¿@j°;dlð¥dlð²¿JJÉ	°lð²JdÉDABE
d²U¿C²2JÉÊ jð³(J@É½`M
djÏ ¿djÏ¿H
°I²J@ÉH
¿J@ÉH
J(380 \TEDIT.UNIQUIFY.PARALOOKS 367 \TEDIT.UNIQUIFY.CHARLOOKS 350 \TEDIT.UNIQUIFY.CHARLOOKS 332 NCREATE2 297 \TEDIT.APPLY.OBJFN 276 CONCAT 238 COPYBYTES 212 OPENSTREAM 202 STREAMPROP 169 OPENSTREAM 146 \GETSTREAM 40 NCREATE2)
(326 |CHARLOOKSTYPE#| 269 PIECE 263 PIECE 197 :EXTERNAL-FORMAT 191 :EXTERNAL-FORMAT 186 NEW 181 BOTH 176 {NODIRCORE} 159 OLD 154 INPUT 140 INPUT 34 |PIECETYPE#| 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 164 ((TYPE TEXT)))
\TEDIT.APPLY.OBJFN :D8
(P 1 NEWOBJ P 0 OBJFN I 4 PROMPTTEXTOBJ I 3 TOTSTREAM I 2 FROMTSTREAM I 1 OPERATION I 0 OBJ) ßC£Bb¿@Adgð—¿g°-gð–g°Adgð–¿gŒgð´g

H²@BAgð¡C€hlH<0E>Agð–@	€@Ydo
²DµBAi
o
ihAgð²1@g
X²#@C		ÉBClHo
³ÈI	µ@(217 IMAGEOBJP 209 MEMB 190 \INSUREWINDOW 185 \TEDIT.PRIMARYPANE 175 IMAGEOBJPROP 153 TEDIT.PROMPTPRINT 147 CONCAT 137 L-CASE 124 MEMB 110 COPYALL 71 IMAGEOBJPROP)
(170 WHENCOPIEDFN 161 COPY 102 COPY 85 DELETE 66 WHENDELETEDFN 58 DELETE 52 WHENINSERTEDFN 44 INSERT 35 WHENMOVEDFN 28 MOVE 21 COPYFN 13 COPY)
( 204 (DON'T DONT) 142 " of this object not allowed." 119 (DON'T DONT))
\TEDIT.DELETE :D8
(P 3 FIRSTCHAR P 2 CLOOKS P 1 SEL P 0 TEXTOBJ I 4 DONTCHECK I 3 POINT I 2 LEN I 1 TARGETSEL/CHAR I 0 TSTREAM) ®@Ñ@‡@É1HɹhZ»AµIbòHA
ºAÉ»B¥AÉb¿AɈA»C§gb¿HCgð‘K…mÿKØBØ
Z@KBD´1@gKBHJ4IKBH	@KkÙjgi(170 \TEDIT.UPDATE.SEL 155 \TEDIT.RESET.EXTEND.PENDING.DELETE 149 \TEDIT.SEL.DELETEDCHARS 137 \TEDIT.UPDATE.LINES 122 \TEDIT.DELETE.SELPIECES 112 \TEDIT.GET.INSERT.CHARLOOKS 61 \TEDIT.GET.INSERT.CHARLOOKS)
(165 RIGHT 130 DELETION 97 LEFT 87 LEFT 52 SELECTION 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.DIFFUSE.PARALOOKS :D8
(P 1 PC P 0 PPLOOKS I 1 SUCCEEDINGPC I 0 PRIORPC) W@µAd²PÉ
A°CÊjð²ï@É
@°YÊjð™IH¿Iɵì°ÍY@ð³IÊjð´
IH¿IÉ
µæhNIL
(60 PIECE 35 PIECE)
()
\TEDIT.WORDDELETE :D8
(P 1 FIRSTNO P 0 LASTNO I 0 TSTREAM) '
 
@	kÙXdjñ´@H
Y@IHIÙkØ(36 \TEDIT.DELETE 23 \TEDIT.WORD.FIRST 8 TEDIT.GETPOINT)
NIL
()
\TEDIT.WORDDELETE.FORWARD :D8
(P 1 LASTNO P 0 FIRSTNO I 0 TSTREAM) >
 
@	Xd@Ñ@‡@ÉÉñ³@H
Y@HIHÙkØh(57 \TEDIT.DELETE 44 \TEDIT.WORD.LAST 8 TEDIT.GETPOINT)
(32 TEXTOBJ 25 STREAM 16 TEXTOBJ)
()
\TEDIT.FINISHEDIT? :D8
(P 6 QUITFN P 4 PRIMPANE P 3 PRIMPANE P 2 QUITFLG P 1 QUITFNS P 0 TEXTOBJ I 1 NOFORCE I 0 TSTREAM) 
@	
Hg
HÉ
HÉ>²<oHÉ>
³'HoHÉ>ið•o‚HÉ>oigHÉIMµJgð²8g£M¾h„M
¾M½Jgð³ÝJið³ØNiðµN´
L@HdÉFlNº°¿HÊ,jð³)HÊ8jð²!HÊ8jð§Iið“Jið¯oiHÉL²<>K²%A³"K`g
ð­K	É.	¿Hi0i(249 TTY.PROCESS 242 \INSUREWINDOW 234 PROCESSPROP 210 MOUSECONFIRM 85 TEDIT.PROMPTPRINT 79 CONCAT 46 STRING.EQUAL 19 GETTEXTPROP 5 TEXTOBJ)
(229 WINDOW 224 \TTY.PROCESS 135 DON'T 116 DON'T 108 DON'T 90 DON'T 14 QUITFN)
( 201 "Not saved yet; LEFT to Quit anyway." 74 " operation in progress" 65 "Edit" 54 "Not closed: " 38
 "Get")
\TEDIT.THELP :D8
(I 1 MESS2 I 0 MESS1 F 0 \TEDIT.THELPFLG) 
P—@A
@Ai(17 ERROR 8 HELP)
NIL
()
\TEDIT.PARAPIECES :D8
(P 3 START-OF-PIECE P 2 LAST P 1 FIRST P 0 FIRSTCHAR I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) ’	<11>@ò@ɸ@Éjð³/@É
kÙ°$@ò@ÉX@ÉØkÙ„@¸A£Hb¿BH
YBA
Z`I¼dL¿J½dM¿J
I
ÙkؾdN¿I
_¿dO¿J
_¿dO¿(85 \TEDIT.PARA.LAST 77 \TEDIT.PARA.FIRST)
(91 |SELPIECESTYPE#| 56 TEDITHISTORYEVENT 47 TEDITHISTORYEVENT 39 TEDITHISTORYEVENT 27 SELECTION 8 SELECTION)
()
\TEDIT.PARACHNOS :D8
(P 7 PC P 3 CHNO P 2 PARAS P 1 LASTPARAPC P 0 FIRSTPARA I 2 TEXTOBJ I 1 LASTCHAR I 0 SEL/FIRSTCHAR) w@ò@É
kÙb¿@Éb¿B@
BA
H
AHµ°-_¿OÊjð©K¾MµNh]¼OdI𖿈N&½°õɵL_¿KOÉÔ»°Ì(40 \TEDIT.PARA.LAST 33 \TEDIT.PARA.LAST)
(105 PIECE 60 PIECE 13 SELECTION 5 SELECTION)
()
\TEDIT.PARA.FIRST :D8
(P 7 PC P 6 PLENTOT P 3 START P 2 START-OF-PIECE P 1 CHPIECE I 2 PROTECTEDNOTOK I 1 CHNO I 0 TEXTOBJ) Ú@É
Hjðµ
H´H	“jhPAòAɹAÉ°?AÛA@
»A¹°-AÔAÉ°A@ɼdLñ‘¿L½jMñ¡M€jb@i¹J»jI²GI°@_Êjð²6BŸOÉÊ jð²$Od²Éjð³OÉÊ0jð–NOÉÔ¾OÉ
µÀKNÙOÉ
”OÉ…@	(214 \TEDIT.FIRSTPIECE 116 \TEDIT.CHTOPC 71 \TEDIT.PCTOCH 21 \FZEROP)
(154 CHARLOOKS 134 PIECE 82 SELECTION 63 PIECE 53 SELPIECES 44 SELPIECES 36 SELPIECES)
()
\TEDIT.PARA.LAST :D8
(P 8 PC P 7 PLENTOT P 4 FORMATTED P 3 END P 2 START-OF-PIECE P 1 CHPIECE I 2 PROTECTEDNOTOK I 1 CHNO I 0 TEXTOBJ) Ô	@É
Hjðµ
H´H	“jh`AòAɹAÉIÉÙkÙ°9AÙAY@
°(AÚAÉ
kÙ€A@ɽdMñ‘¿M@i¹J»jI°?_d²Éjð³OÉÊ0jð™OOÉÔ_¿OÊjð²B™OÉÊ jð•OɵÃKOØmÿØ@ɾdNñ‘¿NO(116 \TEDIT.CHTOPC 78 \TEDIT.PCTOCH 21 \FZEROP)
(131 PIECE 93 SELECTION 86 SELECTION 69 PIECE 53 SELPIECES 44 SELPIECES 36 SELPIECES)
()
\TEDIT.WORD.FIRST :D8
(P 4 CN P 2 CH P 1 READSA P 0 TEXTOBJ I 2 WORDBOUNDTABLE I 1 CHNO I 0 TSTREAM F 5 TEDIT.WORDBOUND.READTABLE) 
"
Akñ¡k@É1BµHÉDµUɹhºAHÉ»dKñ‘¿Kbd
@L
Z	²AJlÿñ²IÉ€ŸJIÉ€
µj‚IJÂlð²@ÉÉÊ jð³*LµibJlÿñ²$IÉ€ŸJIÉ€
µj‰LmÿÔ¼°…IJÂlð²bA
@L
Z	²@Jlÿñ²IÉ€ŸJIÉ€
µj‚IJÂlð²@ÉÉÊ jð§LµikØLmÿÔ¼°¦A(238 GETHASH 207 CHARCODEP 201 \TEDIT.NTHCHARCODE 171 GETHASH 101 GETHASH 70 CHARCODEP 64 \TEDIT.NTHCHARCODE)
(265 CHARLOOKS 256 STREAM 231 CHARTABLE 221 CHARTABLE 164 CHARTABLE 154 CHARTABLE 128 CHARLOOKS 119 STREAM 94 CHARTABLE 84 CHARTABLE 35 READTABLEP 18 TEXTOBJ 11 STREAM)
()
\TEDIT.WORD.LAST :D8
(P 4 CN P 3 CH P 2 TEXTLEN P 1 READSA P 0 TEXTOBJ I 2 WORDBOUNDTABLE I 1 CHNO I 0 TSTREAM F 5 TEDIT.WORDBOUND.READTABLE) 
!
Adkñ¡¿kb@É1BµHÉDµUɹHɺh»JAñ¡JA
@L
[	²AKlÿñ²IÉ€ŸKIÉ€
µj‚IKÂlð²@ÉÉÊ jð³+Lµib¿Klÿñ²#IÉ€ŸKIÉ€
µ
jˆLkÔ¼°…IKÂlð²aA
@L
[	²@Klÿñ²IÉ€ŸKIÉ€
µj‚IKÂlð²@ÉÉÊ jð§LµikÙLkÔ¼°§A(238 GETHASH 207 CHARCODEP 201 \TEDIT.NTHCHARCODE 172 GETHASH 101 GETHASH 70 CHARCODEP 64 \TEDIT.NTHCHARCODE)
(265 CHARLOOKS 256 STREAM 231 CHARTABLE 221 CHARTABLE 165 CHARTABLE 155 CHARTABLE 128 CHARLOOKS 119 STREAM 94 CHARTABLE 84 CHARTABLE 38 READTABLEP 21 TEXTOBJ 14 STREAM)
()
TEDITSYSTEMDATE :D8
(P 2 F F 5 TEDITFILES) :
UAHµIg



Zg


	¼K“LKó“L»J¹HX°Î(40 IDATE 33 GETP 18 GETP)
(28 FILEDATES 13 FILEDATES)
()
TEDIT.IMAGESOURCEP :D8
(I 0 X) 
@i
µ@	(14 TEDIT.FORMATTEDFILEP 6 TEXTSTREAM)
NIL
()
(PRETTYCOMPRINT TEDITCOMS)
(RPAQQ TEDITCOMS ((FILES (SYSLOAD) POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL) (COMS (* ; "Loadup stuff") 
(* ;; 
"Would be nice to just do (DOFILESLOAD (CDR TEDITFILES)).  But the order for exports.all and the order for loading have to be aligned."
) (VARS TEDITFILES) (FILES TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND 
TEDIT-ABBREV TEDIT-LOOKS TEDIT-STYLES) (FNS MAKE-TEDIT-EXPORTS.ALL UPDATE-TEDIT EDIT-TEDIT) (DECLARE%:
 DONTEVAL@LOAD DONTCOPY DONTEVAL@COMPILE (* ;; 
"This gets EXPORTS.ALL loaded when TEDIT-EXPORTS.ALL is loaded") (EXPORT (FILES (FROM LOADUPS) 
EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL))) (DECLARE%: EVAL@COMPILE 
DONTCOPY (* ;; "Assertions go to comments if not being checked, so we see value-warnings") (EXPORT (
COMS (MACROS TEDIT-ASSERT) (MACROS FTEXTOBJ) (GLOBALVARS CHECK-TEDIT-ASSERTIONS) (INITVARS (
CHECK-TEDIT-ASSERTIONS T))))) (INITVARS (TEDIT.TENTATIVE NIL) (TEDIT.DEFAULT.PROPS NIL)) (GLOBALVARS 
TEDIT.TENTATIVE TEDIT.DEFAULT.PROPS) (* ;; "Unslashed functions.  Public?") (FNS TEDIT TEXTSTREAM 
TEXTSTREAMP COERCETEXTSTREAM TEDIT.CONCAT TEDITSTRING TEDIT-SEE TEDIT.COPY TEDIT.DELETE TEDIT.INSERT 
TEDIT.TERPRI TEDIT.KILL TEDIT.QUIT TEDIT.MOVE TEDIT.STRINGWIDTH TEDIT.CHARWIDTH 
TEDIT.PARAGRAPH.BOUNDARIES) (FNS TEXTOBJ COERCETEXTOBJ) (MACROS TEVAL) (FNS TDRIBBLE) (COMS (* ; 
"Object-oriented editing") (FNS TEDIT.INSERT.OBJECT TEDIT.EDIT.OBJECT TEDIT.OBJECT.CHANGED 
TEDIT.MAP.OBJECTS \TEDIT.FIRST.OBJPIECE \TEDIT.NEXT.OBJPIECE) (FILES IMAGEOBJ)) (FNS 
\TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS) (FNS \TEDIT.MOVE.MSG
 \TEDIT.READONLY) (FNS TEDIT.NCHARS TEDIT.RPLCHARCODE TEDIT.NTHCHARCODE TEDIT.NTHCHAR) (* ;; 
"Slashed functions. Private?") (FNS \TEDIT1 \TEDIT.INSERT \TEDIT.MOVE \TEDIT.COPY 
\TEDIT.REPLACE.SELPIECES \TEDIT.INSERT.SELPIECES \TEDIT.RESTARTFN \TEDIT.CHARDELETE \TEDIT.COPYPIECE 
\TEDIT.APPLY.OBJFN \TEDIT.DELETE \TEDIT.DIFFUSE.PARALOOKS \TEDIT.WORDDELETE \TEDIT.WORDDELETE.FORWARD 
\TEDIT.FINISHEDIT?) (COMS (FNS \TEDIT.THELP) (INITVARS (\TEDIT.THELPFLG NIL))) (FNS \TEDIT.PARAPIECES 
\TEDIT.PARACHNOS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST) (FNS \TEDIT.WORD.FIRST \TEDIT.WORD.LAST) (FILES 
TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO TEDIT-HCPY TEDIT-PAGE 
TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS) (COMS (* ; "TEDIT Support information") (FNS TEDITSYSTEMDATE) (
VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE)))) (COMS (* ; 
"IMAGETYPE Interface, so the system can decide if a file is a TEdit file.") (FNS TEDIT.IMAGESOURCEP) (
ALISTS (PRINTFILETYPES TEDIT)) (P (DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))))
))
(FILESLOAD (SYSLOAD) POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL)
(RPAQQ TEDITFILES (TEDIT TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND 
TEDIT-FILE TEDIT-OLDFILE TEDIT-LOOKS TEDIT-STYLES TEDIT-WINDOW TEDIT-BUTTONS TEDIT-MENU TEDIT-FIND 
TEDIT-FNKEYS TEDIT-HCPY TEDIT-HISTORY TEDIT-PAGE TEDIT-ABBREV TEDIT-TFBRAVO))
(FILESLOAD TEDIT-PCTREE TEDIT-SELECTION TEDIT-SCREEN TEDIT-STREAM TEDIT-COMMAND TEDIT-ABBREV 
TEDIT-LOOKS TEDIT-STYLES)
(RPAQ? TEDIT.TENTATIVE NIL)
(RPAQ? TEDIT.DEFAULT.PROPS NIL)
(PUTPROPS TEVAL MACRO ((FORM WINDOW TIT DONTDEFER) (* ; "Capture FORM's T output in Tedit") (LET* ((
TSTREAM (TEXTSTREAM (TEDIT NIL (OR WINDOW (QUOTE TeditEval)) NIL (BQUOTE (LEAVETTY T HISTORY OFF 
PARABREAKCHARS NIL APPEND QUIET TITLE (\, (OR TIT "Tedit EVAL")) (\, (PACK* "F" "ORM")) (QUOTE FORM) 
FONT DEFAULTFONT)))))) (RESETLST (RESETSAVE (TTYDISPLAYSTREAM TSTREAM)) (RESETSAVE (DSPFONT 
DEFAULTFONT T) (QUOTE (PROGN (DSPFONT OLDVALUE T)))) (BKSYSBUF " ") (* ; "Suppress pagehold") (CL:UNLESS
 DONTDEFER (TEDIT.DEFER.UPDATES TSTREAM)) (CL:UNLESS TIT (PRINTDEF (QUOTE FORM) NIL T NIL NIL T) (
TERPRI T)) (PROG1 FORM (TERPRI T))))))
(FILESLOAD IMAGEOBJ)
(RPAQ? \TEDIT.THELPFLG NIL)
(FILESLOAD TEDIT-FIND TEDIT-HISTORY TEDIT-FILE TEDIT-OLDFILE TEDIT-WINDOW TEDIT-TFBRAVO TEDIT-HCPY 
TEDIT-PAGE TEDIT-BUTTONS TEDIT-MENU TEDIT-FNKEYS)
(RPAQ TEDITSYSTEMDATE (TEDITSYSTEMDATE))
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.IMAGESOURCEP) (EXTENSION (TEDIT TED))))
(DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))
NIL