(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "10-Apr-2026 09:59:16" ("compiled on " {WMEDLEY}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}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}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) AAACjB@Dd l @ Z@J BkH@H:D ON H h_@ _@ @ _dlH@ T lNH@ VHV HVkO Om__ KOO Ok_O_OdlOH@ XHX HXkO" Om__&LO$O& O$k_$O"_"lO@L _Hk:LkOdjÿ`d@dIdOdOdjdk_@K OeOl)OlOOlImY-Ol"OlOOlIOYOlOOlImYkm`d@dIdkdOdldO_AO@IO IOԹO@ ]jM @  ! OO 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) %@ @ HjH 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  HkYjII @kHlZj%JJ @dl@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) ;`@@@@bXg`dH@@bdJ @@bdK@@b jdddhdLYdgmlI]IIMdljdndn 1dljdndn ljdnSnJ MI@ @@bd_I ONh_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) +@ @ k2IHJ@ K Lh[IkYL&(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) `dgghhHdI dj@ @ @ _@ @ dnnk_J@ jg@ J @ @ _n_jO O h_On_ jO  O h_JOn_"jO" O" h JOn_$jO$O$ kjJOl_&jO&O& kj JOl@_(jO(O( kj0JOl _*jO*O* kjJOl_,jO,O, kjJOl_.jO.O. kj JOl_0jO0O0 kj0JOl_2jO2O2 kjJOk_4jO4O4 kj JOMdM] B@Oj9OO +MOOOgOgOg hJKJ(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@A\Ml LMl @A_^Ol NOl @A__Ol OOl @A__Ol OOl @A__Ol OOl @A __Ol OOl A.XA0YHd@l@l @Adgk>dgl1dgdgldgdgl IH9@Hj_"_ O"l O O"l @I I@Aj_*_(O*l O(O*l @Aj_._,O.l O,O.l @A @A @A @A @A @A @A" hd@O0_&_$O&l O$O&l @O0dgj)dgkdglgl  (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 H@H @Hg @Hg j[L KLl @Aj]Nl MNl A,A_jOO @A @j @j gA @gA  @j @j @A njAjnjHg gnjHg gnjA jljA0jl@jAjl jAjljA jljA0jhlAjljA jkj__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) +@ @ k2IHJ@ K Lh[IkYL&(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 djdjQH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnk @ YH@ dkg*dlgdlglgIk\jLL @ @ dnnkZkl$HJ.@ k2 ONj@ @ dnnk@ djg)dkgdlglg_OOh__Ok_O&_OHK0H.Hl$.Il]jMM sH@ @ dnnkH@ @ dnnkH@ 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 AkKH@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 AkKH@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) ~ AAACj"@Dd l @ Z@J BkH@H:D ML H h_@ _@ @ _dlH@ TlO@ _Hk:kOdj=`d@dIdOdOdjdk_@ IOYkx`d@dIdkdOdjdO_AO@I IOԹ@ [j&KK @ @ @ ؿO@ OOO 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) `@@@@bXg`dH@@bdK @@bdL@@b jddd ZHgnSJJ?J/@ J"d_o ONh_N&_OJo dMYd@ @@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) `dgghhHdI dj@J A ]A A _A A dnnk_A A dnnk_djdd jO_A _jOO @kA _ j1O O #JA jgA J A A _dn_"jO" O" h_On_$jO$ O$ h_JOl_&jO&O& kj JOl@_(jO(O( kj0JOl _*jO*O* kjJOl_,jO,O, kjJOl_.jO.O. kj JOl_0jO0O0 kj0JOl_2jO2O2 kjJOk_4jO4O4 kj JOMdjMg K?Oj9OO +MOOOgOgOg ` [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 djdjAH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnkH@ @ dnnk @ YH@ dkg*dlgdlglgIk[jKK @ @ dnnkZkl$HJ.H@ k2 NMh@ @ dnnk@ djg)dkgdlglg_OOh__Nk^O&_O0H.Hl$.Il\jLL sH@ @ dnnkH@ @ dnnkH@ 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 AKAlAd d H@` H  A(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) =ACjr@Dd l @ ]@M BkH:COO@ _`d@dIdOdO dOdjdk_O"@ @ _dj%O@ IOY~OOOkNO@I IOԹOkQOl@OOkO@ O@ @ @ ؿO@ IOԹHHk: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) &"`dgghhHdI dj@J A A ^dk2!O ]A A _A A dnnk_A A dnnk_djdd jO_A _jOO @kA _ jvO O hA _A _O _"jO"JO O _$j%O$O$ gO J A A _dn_&jO& O& h_On_(jO( O( h_JOl_*jIO*O* ;k9 \Jj_A _BO@OBh_@_>OOj8OO *MOOOOggOg ` [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 A 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 djdj1@HHA A dnnkHA A dnnkHA A dnnkHA A dnnkHA A dnnkHA A dnnk A YHA dkg*dlgdlglgIjII A A dnnkZkl$HJ.A k2MLfA A dnnkA djg)dkgdlglg_OOh_Mk]O&_NHK0H.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