1
0
mirror of synced 2026-05-10 01:19:10 +00:00
Files
Interlisp.medley/library/tedit/TEDIT-OLDFILE.LCOM
2026-05-07 20:57:58 -07:00

225 lines
17 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "10-Apr-2026 09:59:16" ("compiled on " {WMEDLEY}<library>TEDIT>TEDIT-OLDFILE.;45)
"10-Apr-2026 00:42:33" recompiled explicitly%: \TEDIT.GET.PCTB2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB0 in
"FULL 10-Apr-2026 ..." dated "10-Apr-2026 00:42:42")
(FILECREATED "10-Apr-2026 09:29:21" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;45 73241 :EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.GET.PCTB2 \TEDIT.GET.PCTB1 \TEDIT.GET.PCTB0) :PREVIOUS-DATE
"10-Apr-2026 00:16:32" {WMEDLEY}<library>tedit>TEDIT-OLDFILE.;41)
\TEDIT.GET.PCTB2 :D8
(P 19 LOOKS P 18 I P 16 LOOKS P 15 I P 13 OLDPC P 12 PCLEN P 11 TYPECODE P 10 PC P 9 OLDPARALOOKS P 8 DEFAULTCHARLOOKS P 7 I P 4 PARAHASH P 3 LOOKSHASH P 2 PIECEINFOCH# P 1 CURFILECH# P 0 TEXTOBJ I 4 END I 3 START I 2 PCCOUNT I 1 TSTREAM I 0 TEXT) ªA‡AÉjB@Dµd lÙ
@ Z@J
BkHÉ@HÉ:D
O´
H h_¿@ _¿@ á@ Ø_dlð²¿H@ 
lð²NH@ V¿HÉV »HÉVkOµ
OmÿÔ_±Ù_ ¿KOO ¿OkÔ_¿O_°×Odlð²O¿H@ X¿HÉX ¼HÉXkO"µ
OmÿÔ_±_&¿LO$O& ¿O$kÔ_$¿O"_"°×lð²Oµ@L
_¿HkÏ:±LkÏ¿°éOdjð¢±Ã¿`d@¿dI¿dO¿dO¿djÏ¿dk¿_@K ¿O²eOÊlð²)OÊlð³OOÉlÔ¿ImýÔY°-OÊlð²"OÊlð³OOÉlÔ¿IOÔY±£OÊlð²ðOOÉlÔ¿ImýÔY°Ôkð²m`d@¿dI¿dk¿dO¿dlÏ¿dO¿_¿AO@IO
¿IOÔ¹O@ ]jð³Mµ @  °! ²ñO•OÉ µîHÉ@°éo ¿Oµ OkÔ_±ý³hH ¿O_¿°ê(672 \TEDIT.INSERTPIECE 651 \TEDIT.THELP 625 \FZEROP 616 \TEDIT.GET.SINGLE.CHARLOOKS2 590 \TEDIT.GET.OBJECT 387 \TEDIT.GET.CHARLOOKS2 311 \TEDIT.GET.PARALOOKS2 280 SETA 242 ARRAY 237 FLENGTH 226 \TEDIT.GET.PARALOOKS.LIST2 195 SETA 157 ARRAY 152 FLENGTH 141 \TEDIT.GET.CHARLOOKS.LIST2 124 \TEDIT.PARSE.PAGEFRAMES2 119 READ 94 \DWIN 83 \TEDIT.UNIQUIFY.ALL 60 SETFILEPTR 52 \DWIN 46 SETFILEPTR 38 GETEOFPTR)
(539 |PIECETYPE#| 515 PIECE 508 PIECE 475 PIECE 468 PIECE 426 PIECE 419 PIECE 344 |PIECETYPE#| 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 646 "Impossible piece-type code in BUILD.PCTB")
\TEDIT.GET.PARALOOKS2 :D8
(P 0 LOOKS# I 1 PARAHASH I 0 FILE) %@ á@ ØHjð³Hµ
AH
 ²óh(31 \FZEROP 25 ELT)
NIL
()
\TEDIT.GET.CHARLOOKS2 :D8
(P 0 FLAGS I 2 LOOKSARRAY I 1 FILE I 0 PC) \A !@BA áA Ø
 HkåYjð³II ¥@kÏ¿HlåZjð³%J—J ³@dÉlÛ@lÏ@llh(63 \FZEROP 37 \FZEROP 17 ELT)
NIL
()
\TEDIT.PARSE.PAGEFRAMES2 :D8
(P 13 FRAMESPEC P 9 ALIST P 1 PAGEFRAME P 0 FRAMETYPE I 1 PARENT I 0 PAGELIST) ;`@@@b¿Xgð’±ó`dH¿@@b¿ºdJ
¿@@b¿»dK¿@@b¿µ jdddh¼dL¿YdÉgð²mlIÉó²]IɽIMdlðŸ¿jdndn °1dlðŸ¿jdndnð °lð<>jdnSnJ ‡MÉ¿I@ @@b¿°d_I
¾OµNh_<10>N&_¿µäOI@
@°!d_h
_¿Oµ Oh_O&_¿µàO(286 \TEDIT.PARSE.PAGEFRAMES2 242 \TEDIT.PARSE.PAGEFRAMES2 202 CREATEREGION 183 CREATEREGION 162 CREATEREGION)
(220 PAGEREGION 209 PAGEREGION 138 PAGEREGION 129 PAGEREGION 115 PAGEREGION 104 PAGE 97 PAGEREGION 34 |PAGEREGIONTYPE#| 24 LIST 8 PAGEREGION)
()
\TEDIT.GET.CHARLOOKS.LIST2 :D8
(P 1 I I 0 FILE) +@ á@ Øk2IHóJ@ ¼Kµ
Lh[ºIkÔY°èL&»°÷(21 \TEDIT.GET.SINGLE.CHARLOOKS2)
NIL
()
\TEDIT.GET.SINGLE.CHARLOOKS2 :D8
(P 14 ITALIC P 13 BOLD P 12 USERSTR P 11 STYLESTR P 10 BITS P 9 SUB P 8 SUPER P 7 SIZE P 6 NAMELEN P 5 NAME P 4 STR P 3 FONT P 2 LOOKS I 0 FILE) `dg¿ghhHdI
¿dj¿ñ<11>@ ½@ á@ Ø_¿@ á@ Ødnÿñ•nÿÿÙkÙ_¿J@ µj¿g@
¿@ á@ Ø_nå_jðµO´ O hð_¿Onå_ jðµO ´ O hð_¿JOnå_"jðµO"´ O"  ¿JOnå_$jð®O$—O$ ¡k€jÏ¿JOl€å_&jð®O&—O& ¡k€jÏ ¿JOl@å_(jð®O(—O( ¡k€jÏ0¿JOl å_*jð®O*—O* ¡k€jÏ¿JOlå_,jð®O,—O, ¡k€jÏ¿JOlå_.jð®O.—O. ¡k€jÏ ¿JOlå_0jð®O0—O0 ¡k€jÏ0¿JOlå_2jð®O2—O2 ¡k€jÏ¿JOkå_4jð®O4—O4 ¡k€jÏ ¿JO¿MdšM]
°B´@Ojð³9O˜O ³+MOO²Og°O•gˆO´g €h»JKJ(628 FONTCREATE 586 \FZEROP 564 FONTCLASS 532 \FZEROP 497 \FZEROP 461 \FZEROP 425 \FZEROP 389 \FZEROP 353 \FZEROP 317 \FZEROP 281 \FZEROP 245 \FZEROP 211 \FZEROP 175 \FZEROP 145 \FZEROP 113 PUTASSOC 105 \ARBIN 88 \ARBIN 50 \ARBIN)
(623 ITALIC 613 BOLD 603 BOLDITALIC 546 CHARLOOKS 511 CHARLOOKS 475 CHARLOOKS 439 CHARLOOKS 403 CHARLOOKS 367 CHARLOOKS 331 CHARLOOKS 295 CHARLOOKS 259 CHARLOOKS 222 CHARLOOKS 186 CHARLOOKS 99 CLUSERINFO 19 CLUSERINFO 11 BLACK 4 |CHARLOOKSTYPE#|)
()
\TEDIT.PUT.SINGLE.PARALOOKS2 :D8
(P 24 TAB P 3 LEN P 2 OUTPUTFORMAT P 1 TABS P 0 DEFTAB I 1 LOOKS I 0 FILE) gð<11>@Aɽ\Mãlÿå
¿LMlÿå
¿@AÉ_¿^Oãlÿå
¿NOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ_¿_Oãlÿå
¿OOlÿå
¿@AÉ
_¿_Oãlÿå
¿OOlÿå
¿AÉ.XAÉ0YH¡d“@l@l
¿@AÉdgð“¿k°>dgð”¿l°1dgð§dgð”¿l°dgð§dgð“¿l…¿
I¢H²9@Hµj_"¿_ O"ãlÿå
¿O O"lÿå
¿@I
¿Iµ‚±ó@Aɵj_*¿_(O*ãlÿå
¿O(O*lÿå
¿@Aɵj_.¿_,O.ãlÿå
¿O,O.lÿå
¿@AÉ
@AÉ
@AÉ
@AÉ
@AÉ
@AÉ
@AÉ"
hd@O0_&¿_$O&ãlÿå
¿O$O&lÿå
¿@O0dgð“¿j°)dgð“¿k°dgð“¿lŽgðl
µš±ÿ
(605 \BOUT 600 \TEDIT.THELP 544 \BOUT 531 \BOUT 504 \ARBOUT 495 \ARBOUT 486 \ARBOUT 477 \ARBOUT 468 \ATMOUT 459 \ATMOUT 450 \ARBOUT 440 \BOUT 427 \BOUT 403 \BOUT 390 \BOUT 359 \BOUT 354 LENGTH 346 \BOUT 333 \BOUT 307 \BOUT 302 \TEDIT.THELP 225 \BOUT 200 \BOUT 187 \BOUT 166 \BOUT 153 \BOUT 132 \BOUT 119 \BOUT 98 \BOUT 85 \BOUT 64 \BOUT 52 \BOUT 32 \BOUT 21 \BOUT)
(590 DECIMAL 579 CENTERED 567 RIGHT 555 LEFT 290 JUSTIFIED 282 JUST 269 CENTERED 261 CENTER 248 RIGHT 236 LEFT)
()
\TEDIT.PUT.SINGLE.CHARLOOKS2 :D8
(P 2 LEN P 1 STR P 0 FONT I 1 LOOKS I 0 FILE) ê
AÉ<00>@H
°@Hg
¿@Hg
µj¼[Lã
¿KLlÿå
¿@Aɵj¾]Nãlÿå
¿MNlÿå
¿Aɲ,AÉ_jð³O—O ®@AÉ
Ž@j
¿@j
¿gAÉ
²@gAÉ

Ž@j
¿@j
¿@AÉ “n€jAÊjð£n€jHg
gð“n€jHg
gð“n€jAÊ jð¢l€€jAÊ0jð¢l@€jAÊjð¢l €jAÊjð¢l€jAÊ jð¢l€jAÊ0jð¡h<C2A1>lAÊjð¢l€jAÊ jð¡k€jäääääääääää_¿_Oã
¿OOlÿå
h(486 \BOUT 473 \BOUT 310 FONTPROP 287 FONTPROP 243 \BOUT 235 \BOUT 227 \ARBOUT 188 \BOUT 180 \BOUT 172 \ARBOUT 157 \FZEROP 120 \BOUT 109 \BOUT 84 \BOUT 73 \BOUT 61 FONTPROP 48 \ATMOUT 43 FONTPROP 29 \ARBOUT 24 FONTCLASSUNPARSE)
(440 CHARLOOKS 424 CHARLOOKS 408 CHARLOOKS 392 CHARLOOKS 376 CHARLOOKS 360 CHARLOOKS 344 CHARLOOKS 328 CHARLOOKS 315 ITALIC 305 SLOPE 292 BOLD 282 WEIGHT 265 CHARLOOKS 251 CHARLOOKS 218 CHARLOOKS 212 CLUSERINFO 200 CHARLOOKS 194 CLUSERINFO 165 CHARLOOKS 137 CHARLOOKS 127 CHARLOOKS 92 CHARLOOKS 56 SIZE 38 FAMILY 16 FONTCLASS 5 CHARLOOKS)
()
\TEDIT.GET.PARALOOKS.LIST2 :D8
(P 1 I I 0 FILE) +@ á@ Øk2IHóJ@ ¼Kµ
Lh[ºIkÔY°èL&»°÷(21 \TEDIT.GET.SINGLE.PARALOOKS2)
NIL
()
\TEDIT.GET.SINGLE.PARALOOKS2 :D8
(P 7 TAB# P 3 TABS P 2 DEFTAB P 1 TABFLG P 0 PARALOOKS I 0 FILE)  `dj
¿dj¿dj¿QH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙ
@ YH@ dkð—¿g°*dlð—¿g°dlð¿gŽlð•gIkå\jð±¬L™L ’±ž@ á@ Ødnÿñ•nÿÿÙkÙZkñ¢l$ºHJ.¿@ k2
ONó³j@ á@ Ødnÿñ•nÿÿÙkÙ@ djð—¿g°)dkð—¿g°dlð¿gŽlð•g_¿OµOh__¿OkÔ_°žO&_¿°òO»HK0¿HÉ.¥Hl$.¿Ilå]jð±€M—M ³sH@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ ¿H@  ¿H@ "H(532 \ARBIN 522 \ARBIN 512 \ARBIN 502 \ARBIN 492 \ATMIN 482 \ATMIN 472 \ARBIN 419 \FZEROP 346 \TEDIT.THELP 229 \FZEROP 207 \TEDIT.THELP)
(340 DECIMAL 330 CENTERED 317 RIGHT 305 LEFT 201 JUSTIFIED 191 CENTERED 178 RIGHT 165 LEFT 4 |PARALOOKSTYPE#|)
()
\TEDIT.PUT.CHARLOOKS.LIST2 :D8
(P 5 LOOKS P 4 I P 0 LOOKSHASH I 1 LOOKSLIST I 0 FILE) el2 !@j
@j
¿@l
@A ºYJã
¿IJlÿå
¿AkKµH½@M
¿MLH ¿LkÔ¼K[°á(89 PUTHASH 80 \TEDIT.PUT.SINGLE.CHARLOOKS2 59 \BOUT 48 \BOUT 39 FLENGTH 32 \BOUT 23 \BOUT 16 \DWOUT 6 HASHARRAY)
NIL
()
\TEDIT.PUT.PARALOOKS.LIST2 :D8
(P 5 LOOKS P 4 I P 0 LOOKSHASH I 1 LOOKSLIST I 0 FILE) el2 !@j
@j
¿@l
@A ºYJã
¿IJlÿå
¿AkKµH½@M
¿MLH ¿LkÔ¼K[°á(89 PUTHASH 80 \TEDIT.PUT.SINGLE.PARALOOKS2 59 \BOUT 48 \BOUT 39 FLENGTH 32 \BOUT 23 \BOUT 16 \DWOUT 6 HASHARRAY)
NIL
()
\TEDIT.GET.PCTB1 :D8
(P 11 OLDPC P 10 PCLEN P 9 TYPECODE P 8 PC P 7 OLDPARALOOKS P 6 DEFAULTCHARLOOKS P 5 I P 2 PIECEINFOCH# P 1 CURFILECH# P 0 TEXTOBJ I 4 END I 3 START I 2 PCCOUNT I 1 TSTREAM I 0 TEXT) ~ A‡AÉj"@Dµd lÙ
@ Z@J
BkHÉ@HÉ:D MLó´
H h_¿@ _¿@ á@ Ø_dlðœ¿H@ êlð²Oµ@ _¿HkÏ:±ÐkÏ¿°êOdjð²=¿`d@¿dI¿dO¿dO¿djÏ¿dk¿_@
¿IOÉÔY±‡kð²x`d@¿dI¿dk¿dO¿djÏ¿dO¿_¿AO@I ¿IOÔ¹@ [jð³&K—K ³@ ¿@ á@ Ø¿O@
°OO•OÉ µHÉ@ ‰o ¿Oµ MkÔ]±þÞhH ¿O_¿°ì(372 \TEDIT.INSERTPIECE 353 \TEDIT.THELP 324 \TEDIT.GET.CHARLOOKS1 308 \DWIN 300 \FZEROP 277 TEDIT.GET.OBJECT1 210 \TEDIT.GET.CHARLOOKS1 137 \TEDIT.GET.PARALOOKS1 117 \TEDIT.GET.PAGEFRAMES1 93 \DWIN 82 \TEDIT.UNIQUIFY.ALL 60 SETFILEPTR 52 \DWIN 46 SETFILEPTR 38 GETEOFPTR)
(230 |PIECETYPE#| 168 |PIECETYPE#| 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 348 "Impossible piece-type code")
\TEDIT.GET.PAGEFRAMES1 :D8
(I 0 FILE)
@ (10 \TEDIT.PARSE.PAGEFRAMES1 5 READ)
NIL
()
\TEDIT.PARSE.PAGEFRAMES1 :D8
(P 13 ALIST P 9 I P 2 RSPEC P 1 PAGEFRAME P 0 FRAMETYPE I 1 PARENT I 0 PAGELIST) `@@@b¿Xgð’±Ð`dH¿@@b¿»dK
¿@@b¿¼dL¿@@b¿µ jddd Z´HgðnSJñ¢J°?J²/@ J°"d_oë ¾OµNh_<10>N&_¿µßOJoë ½dM¿Yd@
@@b¿°!d_I
_¿Oµ Oh_O&_¿µàOI@bd@b¿ @@b¿ @@b¿ (279 TEDIT.COMPOUND.PAGEFORMAT 274 \TEDIT.PARSE.PAGEFRAMES1 262 \TEDIT.PARSE.PAGEFRAMES1 250 \TEDIT.PARSE.PAGEFRAMES1 203 \TEDIT.PARSE.PAGEFRAMES1 168 FIXR 132 FIXR 84 CREATEREGION)
(181 PAGEREGION 93 PAGE 34 |PAGEREGIONTYPE#| 24 LIST 8 PAGEREGION)
( 162 35.27778 126 35.27778)
\TEDIT.GET.CHARLOOKS1 :D8
(P 14 ITALIC P 13 BOLD P 12 USERSTR P 11 STYLESTR P 10 BITS P 9 SUB P 8 SUPER P 7 SIZE P 6 NAMELEN P 5 NAME P 4 STR P 3 FONT P 2 LOOKS I 1 FILE I 0 PC) £`dg¿ghhHdI
¿dj¿ñ<11>@J A ]A áA Ø_A áA Ødnÿñ•nÿÿÙkÙ_A áA Ødnÿñ•nÿÿÙkÙ_djð³dd ¦jOÙ_¿A _jð³O—O ¥@kÏ¿A _ jð³1O ˜O ³#JA µj¿gA
¿A áA Ø_dnå_"jðµO"´ O" hð_Onå_$jðµO$´ O$ hð_JOl€å_&jð®O&—O& ¡k€jÏ ¿JOl@å_(jð®O(—O( ¡k€jÏ0¿JOl å_*jð®O*—O* ¡k€jÏ¿JOlå_,jð®O,—O, ¡k€jÏ¿JOlå_.jð®O.—O. ¡k€jÏ ¿JOlå_0jð®O0—O0 ¡k€jÏ0¿JOlå_2jð®O2—O2 ¡k€jÏ¿JOkå_4jð®O4—O4 ¡k€jÏ ¿JOMd²¿jMg
°K²?Ojð³9O˜O ³+MOO²Og°O•gˆO´g ‰` [JKK(666 FONTCREATE 655 FONTCREATE 613 \FZEROP 591 FONTCLASS 552 \FZEROP 517 \FZEROP 481 \FZEROP 445 \FZEROP 409 \FZEROP 373 \FZEROP 337 \FZEROP 301 \FZEROP 269 \FZEROP 240 \FZEROP 207 PUTASSOC 199 \ARBIN 182 \ARBIN 173 \FZEROP 146 \FZEROP 118 \FZEROP 54 \ARBIN)
(661 DEFAULTFONT 650 ITALIC 640 BOLD 630 BOLDITALIC 586 TEDIT-FONTCLASS 566 CHARLOOKS 531 CHARLOOKS 495 CHARLOOKS 459 CHARLOOKS 423 CHARLOOKS 387 CHARLOOKS 351 CHARLOOKS 315 CHARLOOKS 279 CHARLOOKS 193 CLUSERINFO 19 CLUSERINFO 11 BLACK 4 |CHARLOOKSTYPE#|)
()
\TEDIT.GET.PARALOOKS1 :D8
(P 6 TAB# P 2 DEFTAB P 1 TABFLG P 0 PARALOOKS I 0 FILE) 
`dj
¿dj¿dj¿AH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙH@ á@ Ødnÿñ•nÿÿÙkÙ
@ YH@ dkð—¿g°*dlð—¿g°dlð¿gŽlð•gIkå[jð±§K™K ’±™@ á@ Ødnÿñ•nÿÿÙkÙZkñ¢l$ºHJ.¿H@ k2 NMó³h@ á@ Ødnÿñ•nÿÿÙkÙ@ djð—¿g°)dkð—¿g°dlð¿gŽlð•g_¿OµOh__¿NkÔ^° O&_¿°ôO0¿HÉ.¥Hl$.¿Ilå\jð±€L—L ³sH@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ á@ Ødnÿñ•nÿÿÙkÙ¿H@ ¿H@ ¿H@ ¿H@ ¿H@ ¿H@  ¿H@ "H(527 \ARBIN 517 \ARBIN 507 \ARBIN 497 \ARBIN 487 \ATMIN 477 \ATMIN 467 \ARBIN 414 \FZEROP 346 \TEDIT.THELP 229 \FZEROP 207 \TEDIT.THELP)
(340 DECIMAL 330 CENTERED 317 RIGHT 305 LEFT 201 JUSTIFIED 191 CENTERED 178 RIGHT 165 LEFT 4 |PARALOOKSTYPE#|)
()
TEDIT.GET.OBJECT1 :D8
(P 3 OBJ P 2 GETFN P 1 FILEPTRSAVE P 0 TEXTOBJ I 3 CURCH# I 2 FILE I 1 PIECE I 0 STREAM) a@É1B ZB YBC
BJ
[BI
AKAlÏAdÉ
É °HÉ@µ` H
 (89 \TEDIT.UNIQUIFY.CHARLOOKS 83 \TEDIT.CHARLOOKS.FROM.FONT 46 SETFILEPTR 38 READIMAGEOBJ 31 SETFILEPTR 23 GETFILEPTR 16 \ATMIN)
(78 DEFAULTFONT 5 STREAM)
()
\TEDIT.GET.PCTB0 :D8
(P 15 OLDPC P 14 PCLEN P 13 TYPECODE P 12 PC P 11 DEFAULTPARALOOKS P 10 I P 8 USERTEMP P 7 USERFILEFORMAT P 6 TSTREAM P 5 PIECEINFOCH# P 4 PCLEN P 3 TYPECODE P 2 OLDPC P 1 CURFILECH# P 0 TEXTOBJ I 4 END I 3 START I 2 PCCOUNT I 1 TSTREAM I 0 TEXT) =AÉjr@Dµd lÙ
@ ]@M
BkHÉ:COOó’±ò@ _¿`d@¿dI¿dO¿dOÎ
¿dO¿djÏ¿dk¿_¿Oµ"@ á@ Ø_djð²%¿O@
¿IOÉÔY°~O¿OOÉ¿°Òkð²NO@I ¿IOÉÔ¹Ok°QOlð²@OO¿O@
¿O@ ¿@ á@ Ø¿O@
¿IOÉÔ¹H²HkÏ:‰o ¿O_hH ¿OkÔ_±ÿ
H h(313 \TEDIT.UNIQUIFY.ALL 297 \TEDIT.INSERTPIECE 285 \TEDIT.THELP 258 \TEDIT.GET.CHARLOOKS0 240 \DWIN 231 \TEDIT.GET.PARALOOKS0 191 \TEDIT.GET.OBJECT0 151 \TEDIT.GET.CHARLOOKS0 74 \DWIN 51 SETFILEPTR 43 \DWIN 37 SETFILEPTR 29 GETEOFPTR)
(82 |PIECETYPE#| 12 TEXTOBJ 5 STREAM)
( 280 "Impossible piece-type code in BUILD.PCTB")
\TEDIT.GET.CHARLOOKS0 :D8
(P 30 I P 14 ITALIC P 13 BOLD P 12 USERSTR P 11 STYLESTR P 10 BITS P 9 SUB P 8 SUPER P 7 SIZE P 6 NAMELEN P 5 NAME P 4 STR P 3 FONT P 2 LOOKS I 1 FILE I 0 PC) &"`dg¿ghhHdI
¿dj¿ñ°@J A áA Ø^dk2!O<O:ó¢±[O> ]A áA Ø_A áA Ødnÿñ•nÿÿÙkÙ_A áA Ødnÿñ•nÿÿÙkÙ_djð³dd ¦jOÙ_¿A _jð³O—O ¥@kÏ¿A _ jð³vO ˜O ³hA _¿A _¿O _"jð±´O"µ‚±¡JO ¿O _$jð³%O$˜O$ ³gO
¿A áA Ø_dnå_&jðµO&´ O& hð_Onå_(jðµO(´ O( hð_JOl€å_*jð³IO*˜O* ³;k°9 ¢±ÿ\Jj±ÿ_A _B¿O@µOBh_@_>¿O<kÔ_<±þ„OB&_@¿°ñjÏ ¿JOl@å_,jð®O,—O, ¡k€jÏ0¿JOl å_.jð®O.—O. ¡k€jÏ¿JOlå_0jð®O0—O0 ¡k€jÏ¿JOlå_2jð®O2—O2 ¡k€jÏ ¿JOlå_4jð®O4—O4 ¡k€jÏ0¿JOlå_6jð®O6—O6 ¡k€jÏ¿JOkå_8jð®O8—O8 ¡k€jÏ ¿JOM²>Ojð³8O˜O ³*MOO²O¨OgŽgˆO´g ‰` [JKJ(797 FONTCREATE 786 FONTCREATE 745 \FZEROP 706 \FZEROP 671 \FZEROP 635 \FZEROP 599 \FZEROP 563 \FZEROP 527 \FZEROP 491 \FZEROP 425 CHARACTER 409 \FZEROP 399 \FZEROP 366 \FZEROP 337 \FZEROP 304 PUTASSOC 296 READ 282 \FZEROP 264 NCHARS 254 READ 228 NCHARS 218 \STRINGIN 209 \STRINGIN 201 \FZEROP 174 \FZEROP 146 \FZEROP 82 PACK)
(792 DEFAULTFONT 781 ITALIC 771 BOLDITALIC 765 BOLD 720 CHARLOOKS 685 CHARLOOKS 649 CHARLOOKS 613 CHARLOOKS 577 CHARLOOKS 541 CHARLOOKS 505 CHARLOOKS 469 CHARLOOKS 376 CHARLOOKS 289 CLUSERINFO 50 PIECE 19 CLUSERINFO 11 BLACK 4 |CHARLOOKSTYPE#|)
()
\TEDIT.GET.OBJECT0 :D8
(P 4 OBJ P 3 GETFN P 2 NAMELEN P 1 FILEPTRSAVE P 0 TEXTOBJ I 3 CURCH# I 2 FILE I 1 PIECE I 0 STREAM) m@ÉAB [B YBC
BK
\BI
ALAAÉ
É °HÉ@µ` H
 L(103 \TEDIT.UNIQUIFY.CHARLOOKS 97 \TEDIT.CHARLOOKS.FROM.FONT 46 SETFILEPTR 38 READIMAGEOBJ 31 SETFILEPTR 23 GETFILEPTR 16 \ATMIN)
(92 DEFAULTFONT 83 TEXTOBJ 67 PIECE 61 PIECE 52 PIECE 5 STREAM)
()
\TEDIT.GET.PARALOOKS0 :D8
(P 5 TAB# P 3 TABS P 2 DEFTAB P 1 TABFLG P 0 PARALOOKS I 1 FILE I 0 PC)  `dj
¿dj¿dj¿1@HHA áA Ødnÿñ•nÿÿÙkÙHA áA Ødnÿñ•nÿÿÙkÙHA áA Ødnÿñ•nÿÿÙkÙHA áA Ødnÿñ•nÿÿÙkÙHA áA Ødnÿñ•nÿÿÙkÙHA áA Ødnÿñ•nÿÿÙkÙ
A YHA dkð—¿g°*dlð—¿g°dlð¿gŽlð•gIjð±¦I™I ’±˜A áA Ødnÿñ•nÿÿÙkÙZkñ¢l$ºHJ.¿A k2MLó³fA áA Ødnÿñ•nÿÿÙkÙA djð—¿g°)dkð—¿g°dlð¿gŽlð•g_¿OµOh_¾MkÔ]°¢O&_¿°ôN»HK0¿HÉ.¤Hl$.H(351 \TEDIT.THELP 235 \FZEROP 216 \TEDIT.THELP)
(345 DECIMAL 335 CENTERED 322 RIGHT 310 LEFT 210 JUSTIFIED 200 CENTERED 187 RIGHT 174 LEFT 29 PIECE 4 |PARALOOKSTYPE#|)
()
(PRETTYCOMPRINT TEDIT-OLDFILECOMS)
(RPAQQ TEDIT-OLDFILECOMS ((* ;; "Code for reading old-format TEDIT-FILES (1985)") (COMS (* ;;
"For converting old incoming format. Cutover 5/22/85 to permit looks changes in the future.") (FNS
\TEDIT.GET.PCTB2 \TEDIT.GET.PARALOOKS2 \TEDIT.GET.CHARLOOKS2 \TEDIT.PARSE.PAGEFRAMES2
\TEDIT.GET.CHARLOOKS.LIST2 \TEDIT.GET.SINGLE.CHARLOOKS2 \TEDIT.PUT.SINGLE.PARALOOKS2
\TEDIT.PUT.SINGLE.CHARLOOKS2 \TEDIT.GET.PARALOOKS.LIST2 \TEDIT.GET.SINGLE.PARALOOKS2
\TEDIT.PUT.CHARLOOKS.LIST2 \TEDIT.PUT.PARALOOKS.LIST2)) (COMS (* ;;
"For converting incoming old-format files (1/27/85 cutover)") (FNS \TEDIT.GET.PCTB1
\TEDIT.GET.PAGEFRAMES1 \TEDIT.PARSE.PAGEFRAMES1 \TEDIT.GET.CHARLOOKS1 \TEDIT.GET.PARALOOKS1
TEDIT.GET.OBJECT1)) (COMS (* ;; "VERSION 0 Compatibility reading functions") (FNS \TEDIT.GET.PCTB0
\TEDIT.GET.CHARLOOKS0 \TEDIT.GET.OBJECT0 \TEDIT.GET.PARALOOKS0))))
NIL