(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 7-Apr-87 15:18:16" ("compiled on " {ERIS}TEDITSCREEN.;55) "31-Mar-87 21:33:35" brecompiled changes%: \TEDIT.NSCHAR.RUN in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 7-Apr-87 15:15:57" {ERIS}TEDITSCREEN.;55 165186 changes to%: (FNS \TEDIT.NSCHAR.RUN) previous date%: "23-Feb-87 13:52:38" {ERIS}TEDITSCREEN.;52) \FORMATLINE :D4 (P 49 ORIGFMTSPEC P 48 HARDCOPYMODE P 47 TABSPEC P 46 NEWDESCENT P 45 NEWASCENT P 44 SCALE P 43 DEVICE P 42 PCNO P 41 PC P 40 BOX P 39 TABPENDING P 38 INVISIBLERUNSB P 37 DESCENTB P 36 ASCENTB P 35 LOOKS P 34 WLIST P 33 CHLIST P 32 TEXTSTREAM P 31 CLOOKS P 30 TERMSA P 29 FONTWIDTHS P 28 FONT P 27 LOOK#B P 26 WIDTH P 25 DXB P 24 TXB1 P 23 T1SPACE P 22 FORCEEND P 21 CH P 20 TXB P 19 DX P 18 TX P 17 LEFTEDGE P 16 DS P 15 DEFAULTTAB P 14 %#BLANKS P 13 PREVSP P 12 DESCENT P 11 ASCENT P 10 INVISIBLERUNS P 9 LOOKNO P 8 CHNO P 7 THISLINE P 6 TEXTLEN P 5 TLEN P 4 GATHERBLANK P 3 CH#B P 2 LINE I 4 1STLN I 3 OLINE I 2 CH#1 I 1 FMTSPEC I 0 TEXTOBJ F 70 DEFAULTFONT) kFCP`@$HdI@(kHdIdj( dj(dhdhdodjdjBij@@8Bjdddddl$@ .= ?O_BO_DO_F@._@@<_0jOk_O@_ROFOOR__dOdOdOOBnODjMkԽOBl_BODk_DOR_RO@ k_TOR0OOFOO_ORgjOT@ ONhb OR@ _>ORO>0jOFOOOR__fOfOfOOR_ROR OR@ _>OTk_ThgJO> jkj(0AO@@:b_bA(jh_`K@R@gg _hROh_VhOV _XAOV bOXo _OXo @P_Vk_Xl_"A_^O>_8O>gg _8O8O>j_Z_HO8O>j_\_JO`O>gOV _8OFO>BkjUO@LO@ >O@ jh&O@O@jO@O@jbJh JDkj(PDgAgQA IA"AAA_jjOj(Oj !A#A_ljOlOl Jg JOX@*l DAA_nOn_$JA_pjOpOp O"A؎OX@$l _4O4_0OlMBOO_MOONO@ _*@4lO*O*ljO8(O* O*O8 O*lO*g _rO*O O$O4lOr_POP_ZOP_\O*gOP O@_RkpOk_OFOORkEOOOOOBnODjMkԽOBl_BODk_DOORk_OOFOO_O`OXOP OP_&O*dl vLO$_0hOOBOODO&Mk_i_.O$O&_$_(O&_2O_6OZ OdOZOZ_OdO\O\_h_ZO_HO_JO_LOk_l JOOZOjOi_,OBl ODO&dll_&LO$_0hi_.Jk(O$O&_$Jk(`kMljNO@oi ONONONO&@O^OOBODO$OO"ONji _$h_NOO j_ YOjOKO BOZ_O\_5O*dl Jk(@OZ OdOZOZ_OdO\O\_h_ZOBO*@O^OOBODO$OO"ONj _Nd3 _$h_NON_$LO$_0hOOD_&OO j__i_.O$O&_$_(O&_2O_6O_HO_JO_Ll2O@O@ OBm_BODm_DOm_MmԽ@iO$O&_$O4i_,O.'JKO(_$O2_&OH_OJ_O6_OL_HMjJOkdBBO$O&_$+JOOBO*ODO&OZOdOZOZ_OdO\O\_h_ZOZ OdOZOZ_OdO\O\_h_ZOBO*ODO&O*l.ONOBl_BODk_DMkԽOkԱ3 ONgONONO&@O^OOBODO$OO"ONji _Nd3 _$h_NON_$LO$_0hOOO j__i_.O$_(O&_2O_6O_HO_JO_LRNj N@ _ROFO>@4@4@@@@W_8_O8_AOROR@:bORhORjhbJDkj(PDJ@*Al_tOtJ@*Al_vOv_$JA_xjOxOx A@$l_4O4_0JOO_z Oz_|jO|+O| $J@@@@W JOJOJOO,Ok_MkٽJO$JO,LO4O$O4O0 OJOBNmOJdNNOJ_~lO~O~l@JObAOOOD JA(O@0hJ(2899 \DOFORMATTING 2731 \FZEROP 2675 \FZEROP 2452 \CHTOPC 2393 \TEDIT.PURGE.SPACES 2344 \TEDIT.FORMATTABS 2014 \TEDIT.NSCHAR.RUN 1952 \TEDIT.PURGE.SPACES 1896 \TEDIT.FORMATTABS 1796 \FZEROP 1773 \FZEROP 1762 \TEDIT.PURGE.SPACES 1743 \TEDIT.FORMATTABS 1695 TEDIT.PROMPTPRINT 1441 FIXR 1300 IMAGEOBJPROP 1252 IMAGEOBJPROP 1231 \CREATECHARSET 1138 FIXR 1112 \FZEROP 1060 FIXR 1030 \FZEROP 998 \FZEROP 808 FONTCOPY 740 FONTCOPY 682 FIXR 669 FIXR 656 \TEDIT.HCPYFMTSPEC 647 DSPSCALE 631 OPENIMAGESTREAM 528 \TEDIT.APPLY.STYLES 453 \TEDIT.APPLY.STYLES 436 \SETUPGETCH 268 \SETUPGETCH 259 \FZEROP 111 \INSUREWINDOW) (2916 TEXTIMAGEDATA 2911 STREAM 2903 LINEDESCRIPTOR 2860 LINEDESCRIPTOR 2846 LINEDESCRIPTOR 2779 LINEDESCRIPTOR 2771 LINEDESCRIPTOR 2762 FONTDESCRIPTOR 2753 CHARLOOKS 2748 TEXTOBJ 2741 TEXTOBJ 2737 LINEDESCRIPTOR 2687 TEXTOBJ 2680 FMTSPEC 2657 FMTSPEC 2653 LINEDESCRIPTOR 2633 FMTSPEC 2627 TEXTOBJ 2623 LINEDESCRIPTOR 2604 FMTSPEC 2598 TEXTOBJ 2594 LINEDESCRIPTOR 2578 LINEDESCRIPTOR 2564 PIECE 2548 TEXTOBJ 2540 PIECE 2524 FONTDESCRIPTOR 2514 FONTDESCRIPTOR 2503 CHARLOOKS 2498 TEXTOBJ 2491 TEXTOBJ 2483 CHARLOOKS 2478 TEXTOBJ 2471 TEXTOBJ 2460 ARRAYP 2447 TEXTOBJ 2386 THISLINE 2364 PENDINGTAB 2313 PENDINGTAB 2308 PENDINGTAB 2300 DECIMAL 2295 PENDINGTAB 2048 TEXTOBJ 1945 THISLINE 1916 PENDINGTAB 1828 LINEDESCRIPTOR 1755 THISLINE 1712 PENDINGTAB 1707 PENDINGTAB 1666 LINEDESCRIPTOR 1415 ARRAYP 1400 PIECE 1347 ARRAYP 1335 PIECE 1313 PIECE 1306 STREAM 1295 BOUNDBOX 1249 IMAGEBOXFN 1129 TEXTOBJ 1119 FMTSPEC 1094 FMTSPEC 1090 LINEDESCRIPTOR 1073 FMTSPEC 1066 FMTSPEC 1051 TEXTOBJ 1045 LINEDESCRIPTOR 1038 GREY 1035 LINEDESCRIPTOR 1012 FMTSPEC 1004 FMTSPEC 980 FMTSPEC 972 FMTSPEC 964 FMTSPEC 956 FMTSPEC 949 PAGEHEADING 944 FMTSPEC 928 LINEDESCRIPTOR 920 LINEDESCRIPTOR 908 STREAM 901 STREAM 889 STREAM 882 STREAM 868 PIECE 863 PIECE 858 STREAM 849 PIECE 844 STREAM 835 STREAM 816 ARRAYP 803 DEVICE 798 CHARLOOKS 778 CHARLOOKS 771 FONTDESCRIPTOR 755 CHARLOOKS 748 FONTDESCRIPTOR 737 DISPLAY 734 DEVICE 729 CHARLOOKS 722 FONTCLASS 715 CHARLOOKS 705 FMTSPEC 687 TEXTOBJ 628 INTERPRESS 625 {NODIRCORE} 622 TEXTOBJ 614 TEXTOBJ 599 FMTSPEC 588 TEXTOBJ 580 PIECE 575 STREAM 554 CHARLOOKS 549 LINEDESCRIPTOR 513 PIECE 495 ARRAYP 483 PIECE 465 CHARLOOKS 427 LASTPIECE 406 ARRAYP 388 STREAM 378 PIECE 327 ARRAYP 316 PIECE 302 STREAM 281 CHARLOOKS 274 STREAM 227 LINEDESCRIPTOR 191 \TEDIT.LOOKS.UPDATE 188 TEXTIMAGEDATA 183 STREAM 174 TEXTOBJ 166 TEXTOBJ 158 THISLINE 149 ARRAYP 144 THISLINE 135 ARRAYP 130 THISLINE 105 TEXTOBJ 87 TEXTOBJ 26 TEXTOBJ 10 TEXTOBJ 5 |LINEDESCRIPTORTYPE#|) ( 1691 "Line too long to format." 678 8.0 665 36.0 67 1000000) \TEDIT.NSCHAR.RUN :D4 (P 19 I P 17 OLDFILEPTR P 16 TFILE P 15 CHARSET P 14 PS P 13 PF P 12 NEWPLEN P 11 NEWPC P 10 PFPOS P 9 NEXTCH P 8 CH P 7 PLEN P 6 OFFSET P 5 PCSTART P 4 PC P 3 PCNO P 0 PCTB I 2 STREAM I 1 TEXTOBJ I 0 CHNO) A!@H HKkعIIHKK@MپL_h_________ B kLjo AjjdhB _dljL_o L_L_l ONOlOO _aONll_MNMNOllOllAi AMN`L dOONlغdJdkdhdOOONlذL_o L_O_L_l ONOlOO _OjOOONl_MNMNOlOlAi OjOOjoOogg _ ONOl OkO&O$nAMN`L dO djdkdhdOkhdd AAO@A  |NOlرB -j8O O O O O&k_&x(632 BOUT 623 BOUT 608 \FZEROP 589 \FZEROP 582 \FZEROP 578 \SETUPGETCH 556 \TEDIT.INSERT.PIECES 520 NCREATE2 494 SETFILEPTR 479 OPENSTREAM 439 \DELETECH 377 FFILEPOS 360 MKSTRING 357 CHARACTER 323 HELP 257 NCREATE2 245 \DELETECH 199 FFILEPOS 182 MKSTRING 179 CHARACTER 150 HELP 105 HELP 83 GETFILEPTR 13 \CHTOPCNO) (565 TEXTOBJ 561 TEXTOBJ 516 |PIECETYPE#| 476 BOTH 473 {NODIRCORE} 347 PIECE 330 PIECE 311 PIECE 253 |PIECETYPE#| 169 PIECE 157 PIECE 138 PIECE 110 TEXTOBJ 92 PIECE 54 PIECE 37 ARRAYP 24 ARRAYP 3 TEXTOBJ) ( 320 "NS characters in a STRING??" 147 "NS characters in a STRING??" 102 "Hit charset change in a FAT piece") \TEDIT.PURGE.SPACES :D4 (L (1 PREVSP 0 CHLIST)) .Adjhkٸ@HHb@HHl NIL (31 ARRAYP 16 ARRAYP) () \DOFORMATTING :D4 (P 8 LINELEAD P 7 OPREVSP P 6 EXTRASP P 5 SPACEOFLOW P 4 WLIST P 3 CHLIST P 2 EXISTINGSPACE P 1 SPACELEFT P 0 QUAD I 6 1STLN I 5 PREVSP I 4 %#BLANKS I 3 THISLINE I 2 FMTSPEC I 1 LINE I 0 TEXTOBJ) BA jCCjV AAAACk B _*AA B  AAB F2B*AA B AABA(`j2B*AA B AABHdgKE hgLAAA AAjCDjDD EjEE hHdg[AAIAAIjC$DjDD EjEUE MhgCjCeDj`DD VEjQEGA(jA@4jEdjNjNN CJA J h hECkjEk_Ej9OE3Ek_KOOb KOOl DmbDjDAAID۱e hk_KOOb JLLjLCko LOo LLOԺKOOl A(jLONMLLjLCko LOo LLO O(O_jOO OdCko OOo OOOONMl影'(929 RAID 910 RAID 889 \FZEROP 836 RAID 818 RAID 724 RAID 706 RAID 647 \FZEROP 531 \FZEROP 509 \FZEROP 447 \FZEROP 410 \FZEROP 393 \FZEROP 315 \FZEROP 301 \FZEROP 237 \TEDIT.PURGE.SPACES) (942 ARRAYP 935 ARRAYP 916 ARRAYP 896 ARRAYP 870 ARRAYP 847 ARRAYP 841 ARRAYP 823 ARRAYP 805 ARRAYP 795 ARRAYP 766 LINEDESCRIPTOR 749 ARRAYP 735 ARRAYP 729 ARRAYP 711 ARRAYP 693 ARRAYP 683 ARRAYP 660 ARRAYP 633 LINEDESCRIPTOR 629 LINEDESCRIPTOR 593 ARRAYP 576 ARRAYP 540 THISLINE 519 LINEDESCRIPTOR 514 THISLINE 479 TEXTOBJ 473 LINEDESCRIPTOR 463 LINEDESCRIPTOR 429 THISLINE 419 JUSTIFIED 375 THISLINE 357 LINEDESCRIPTOR 353 LINEDESCRIPTOR 336 LINEDESCRIPTOR 332 LINEDESCRIPTOR 324 CENTERED 283 THISLINE 273 LINEDESCRIPTOR 269 LINEDESCRIPTOR 259 LINEDESCRIPTOR 253 LINEDESCRIPTOR 249 LINEDESCRIPTOR 242 RIGHT 229 LEFT 218 FMTSPEC 212 LINEDESCRIPTOR 208 LINEDESCRIPTOR 198 FMTSPEC 192 LINEDESCRIPTOR 188 LINEDESCRIPTOR 180 FMTSPEC 169 LINEDESCRIPTOR 159 FMTSPEC 153 LINEDESCRIPTOR 149 LINEDESCRIPTOR 139 FMTSPEC 133 LINEDESCRIPTOR 129 LINEDESCRIPTOR 121 FMTSPEC 108 FMTSPEC 102 LINEDESCRIPTOR 98 LINEDESCRIPTOR 88 FMTSPEC 82 LINEDESCRIPTOR 78 LINEDESCRIPTOR 68 FMTSPEC 61 THISLINE 53 LINEDESCRIPTOR 49 LINEDESCRIPTOR 41 LINEDESCRIPTOR 37 LINEDESCRIPTOR 27 THISLINE 21 THISLINE 9 LINEDESCRIPTOR 3 FMTSPEC) ( 926 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of \DOFORMATTINGA0007) \DOFORMATTINGA0006)) 907 (Check-failure%: (AND (ARRAYP \DOFORMATTINGA0007) (ZEROP (fetch (ARRAYP ORIG) of \DOFORMATTINGA0007)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of \DOFORMATTINGA0007)))) 833 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) OPREVSP)) 815 (Check-failure%: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 721 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) OPREVSP)) 703 (Check-failure%: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \DISPLAYLINE :D4 (P 41 TTX P 40 DOTWIDTH P 39 LEADERFONT P 38 DX P 37 TX P 36 LOOKNO P 35 I P 30 SCALE P 29 LHEIGHT P 28 CURY P 27 DDOFFSETCACHE P 26 DDWIDTHCACHE P 25 DDPILOTBBT P 24 DISPLAYDATA P 23 CLIPRIGHT P 22 CLIPLEFT P 21 XOFFSET P 20 OLOOKS P 19 OFONT P 18 FONT P 17 \PFILE P 16 \PSTRING P 15 \PCHARSLEFT P 14 CACHE P 13 LOOKSTARTX P 12 HARDCOPYMODE P 11 HCPYDS P 10 DS P 9 OLDCACHE P 8 STREAM P 7 TERMSA P 6 THISLINE P 5 TEXTLEN P 4 WINDOWDS P 3 LOOKS P 2 WLIST P 1 CHLIST P 0 CH I 2 WINDOW I 1 LINE I 0 TEXTOBJ) *j@8@8@8B @ @@8@<@.@N@P@RA((jh`!A&AAA _>dO>O>A _:OhO k_<@NOAO< AO: _dO$dO jdOOhO hjdOjdhdggj OhO k_@@ C0@l[BKXjBBjYEdHHZdI.DIDKJIټdLLDC@lDjvh(15 \CHANGECHARSET.DISPLAY) (83 \DISPLAYDATA 20 \DISPLAYDATA) () TEDIT.CR.UPDATESCREEN :D4 (I 9 DONTSCROLL I 8 CHWIDTH I 7 DS I 6 CRSEEN I 5 BLANKSEEN I 4 LINE I 3 SEL I 2 TEXTOBJ I 1 XPOINT I 0 CH#) o(2 HELP) NIL ( 6 (PROG ((WINDOW (fetch \WINDOW of TEXTOBJ)) (PREVLINE (fetch PREVLINE of LINE))) (COND ((AND (NOT (fetch CR\END of PREVLINE)) (ILEQ (IDIFFERENCE XPOINT (fetch LEFTMARGIN of LINE)) (IDIFFERENCE (fetch RIGHTMARGIN of PREVLINE) (fetch LXLIM of PREVLINE)))) (* This CR should push the start of the line back upward.) (replace DIRTY of PREVLINE with T) (replace TXTNEEDSUPDATE of TEXTOBJ with T))) (TEDIT.UPDATE.SCREEN TEXTOBJ PREVLINE T) (\FIXSEL SEL TEXTOBJ) (\SHOWSEL SEL NIL T) (COND (DONTSCROLL (* SO DO NOTHING)) ((OR (NOT (fetch NEXTLINE of LINE)) (ILEQ (fetch YBOT of (fetch NEXTLINE of LINE)) (fetch BOTTOM of (DSPCLIPPINGREGION NIL WINDOW)))) (* This pushed the caret off-screen. Move it up.) (replace EDITOPACTIVE of TEXTOBJ with NIL) (SCROLLW WINDOW 0 (LLSH (fetch LHEIGHT of (COND ((fetch NEXTLINE of LINE)) (LINE))) 1)))))) TEDIT.DELETELINE :D4 (P 1 NEXT P 0 PREV I 2 WINDOW I 1 TEXTOBJ I 0 LINE) 3@@HI AHIhB hHI(29 \TEDIT.CLOSEUPLINES) (43 LINEDESCRIPTOR 34 LINEDESCRIPTOR 9 LINEDESCRIPTOR 3 LINEDESCRIPTOR) () TEDIT.INSERT.DISPLAYTEXT :D4 (I 6 SEL I 5 DS I 4 XPOINT I 3 LINE I 2 CHWIDTH I 1 CH I 0 TEXTOBJ) (2 HELP) NIL () TEDIT.INSERT.UPDATESCREEN :D4 (P 30 LNLIST P 29 L1LIST P 28 LN P 27 L1 P 26 WW P 20 IMAGECACHE P 19 TABSEEN P 18 DY P 17 OLHEIGHT P 16 OFLOWFN P 15 SAVEWIDTH P 14 PREVLINE P 13 DX P 12 NEWLINEFLG P 11 LINES P 10 NEXTLINE P 9 FIXEDLINE P 8 PREVSPACE P 7 OCR\END P 6 OCHLIM P 5 OXLIM P 4 CHWIDTH P 3 CHORIG P 2 EOLFLAG P 1 WINDOW P 0 THISLINE I 10 INCREMENTAL I 9 DONTSCROLL I 8 CRSEEN I 7 BLANKSEEN I 6 OTEXTLEN I 5 SEL I 4 TEXTOBJ I 3 XPOINT I 2 CHARS I 1 CH# I 0 CH F 31 SELINE)  D8D@EBAEE EgEj EgGDXjIDhiE ED Ehi E` EEIEEUO,_:O*_'ED(ED&fW>aDh>O4jEdgO:g*O<%EdgO:gO< l iDO4 O:_:O<(518 \TEDIT.SET.WINDOW.EXTENT 508 SCROLLW 496 SHOULDNT 351 DSPCLIPPINGREGION 232 \COPYSEL 128 \COPYSEL 120 \SHOWSEL 113 \FIXSEL 107 TEDIT.UPDATE.SCREEN 69 \SYSBUFP) (499 LINEDESCRIPTOR 487 RIGHT 477 LEFT 471 SELECTION 459 RIGHT 450 LEFT 444 SELECTION 433 TEXTOBJ 427 LINEDESCRIPTOR 413 TEXTOBJ 407 SELECTION 397 TEXTOBJ 391 SELECTION 377 RIGHT 368 LEFT 362 SELECTION 341 LINEDESCRIPTOR 334 RIGHT 328 LINEDESCRIPTOR 320 LEFT 314 SELECTION 303 RIGHT 294 LEFT 288 SELECTION 277 TEXTOBJ 229 TEDIT.SELECTION 151 SELECTION 145 SELECTION 138 SELECTION 132 SELECTION 125 TEDIT.SELECTION 102 SELECTION 77 TEXTOBJ 61 CHAR 58 SELECTION 51 SELECTION 45 LEFT 42 SELECTION 34 SELECTION 30 SELECTION 21 SELECTION 9 TEXTOBJ 3 TEXTOBJ) () TEDIT.UPDATE.SCREEN :D4 (P 4 LINE P 3 NLINE P 2 WW I 3 NEXTCARETCH# I 2 INCREMENTAL? I 1 STARTINGLINE I 0 TEXTOBJ) c@ bdXj(@A@2HHhHHIhIhII@LJBC [KK@hJC (94 \FILLWINDOW 76 \TEDIT.FIXCHANGEDPART 3 TEXTOBJ) (83 LINEDESCRIPTOR 29 TEXTOBJ 20 TEXTOBJ 9 TEXTOBJ) () \BACKFORMAT :D4 (P 4 NLINE P 3 CH P 2 CHNO P 1 CH1 P 0 LINE1 I 2 WHEIGHT I 1 TEXTOBJ I 0 LINES) @aHAYddk@kA kIlپNMJA. [l Jm԰JkdkkZIk4AhJ \BLBL@@LLbkذLHHHLL(95 \FORMATLINE 62 \BACKBIN 38 \SETUPGETCH) (153 LINEDESCRIPTOR 143 LINEDESCRIPTOR 133 LINEDESCRIPTOR 123 LINEDESCRIPTOR 115 LINEDESCRIPTOR 107 LINEDESCRIPTOR 99 LINEDESCRIPTOR 57 TEXTOBJ 28 LINEDESCRIPTOR 15 TEXTOBJ 3 LINEDESCRIPTOR) () \FILLWINDOW :D4 (P 9 OFLOWFN P 8 NEXTLINE P 7 WHEIGHT P 6 WINDOW P 4 LINES\DELETED P 3 TEXTLEN P 2 PREVLINE P 1 CHARLIM P 0 LINE I 5 NEXTCARETCH# I 4 WINDOW I 3 DONTFILLFLG I 2 TEXTOBJ I 1 CURLINE I 0 YBOT) G AQAABhDBNg ! BjTHHOHZHXH+E%HEH@H@HvHCF( J@H bB Fg'_QNBlOGg >KI IKjA(jKjKHKkعKIH@B('hjdNjB(B$@B(ggj Jd(jJOJjJKJBhKk ]MXJHJH HJHHKkHZbHZ. BhIk XJHJ_JHOOHH( @JH( H؆@H bB(#H@H@HBHN E&HEH@H@He@H bB Fg'_YNBlOMg CH@HJ bB({H@H@HBHN KHB(kHXJKJ(jJhL(770 \DISPLAYLINE 727 \TEDIT.NEXT.LINE.BOTTOM 712 RETFROM 679 TEXTOBJ 621 \DISPLAYLINE 489 \FORMATLINE 477 \FZEROP 389 \FORMATLINE 322 BKBITBLT 205 RETFROM 176 TEXTOBJ 45 GETWINDOWPROP) (832 LINEDESCRIPTOR 822 LINEDESCRIPTOR 811 LINEDESCRIPTOR 801 LINEDESCRIPTOR 790 TEXTOBJ 786 LINEDESCRIPTOR 777 LINEDESCRIPTOR 758 LINEDESCRIPTOR 753 LINEDESCRIPTOR 745 LINEDESCRIPTOR 733 TEXTOBJ 709 \FILLWINDOW 687 OVERFLOWFN 682 TEXTOBJ 669 LINEDESCRIPTOR 655 LINEDESCRIPTOR 650 LINEDESCRIPTOR 642 LINEDESCRIPTOR 632 LINEDESCRIPTOR 609 LINEDESCRIPTOR 604 LINEDESCRIPTOR 596 LINEDESCRIPTOR 586 TEXTOBJ 577 LINEDESCRIPTOR 568 LINEDESCRIPTOR 562 FMTSPEC 557 LINEDESCRIPTOR 550 LINEDESCRIPTOR 541 FMTSPEC 536 LINEDESCRIPTOR 528 LINEDESCRIPTOR 516 LINEDESCRIPTOR 505 LINEDESCRIPTOR 501 LINEDESCRIPTOR 493 LINEDESCRIPTOR 468 LINEDESCRIPTOR 460 LINEDESCRIPTOR 446 LINEDESCRIPTOR 436 LINEDESCRIPTOR 430 LINEDESCRIPTOR 426 LINEDESCRIPTOR 416 LINEDESCRIPTOR 410 LINEDESCRIPTOR 406 LINEDESCRIPTOR 398 LINEDESCRIPTOR 381 LINEDESCRIPTOR 368 LINEDESCRIPTOR 356 LINEDESCRIPTOR 345 LINEDESCRIPTOR 332 LINEDESCRIPTOR 317 REPLACE 314 TEXTURE 308 TEXTOBJ 301 TEXTOBJ 295 TEXTOBJ 280 TEXTOBJ 225 LINEDESCRIPTOR 202 \FILLWINDOW 184 OVERFLOWFN 179 TEXTOBJ 166 LINEDESCRIPTOR 158 LINEDESCRIPTOR 151 FMTSPEC 146 LINEDESCRIPTOR 126 LINEDESCRIPTOR 121 LINEDESCRIPTOR 113 LINEDESCRIPTOR 103 LINEDESCRIPTOR 88 LINEDESCRIPTOR 81 LINEDESCRIPTOR 66 LINEDESCRIPTOR 52 TEXTOBJ 42 HEIGHT 33 TEXTOBJ 21 TEXTOBJ 12 LINEDESCRIPTOR 3 LINEDESCRIPTOR) () \FIXDLINES :D4 (P 13 CHAR1 P 12 CHARLIM P 11 LINE P 10 CHARLIM P 9 NL P 8 PL P 7 CH#1L P 6 DCH P 5 NLINES P 1 WW I 4 TEXTOBJ I 3 CH#LIM I 2 CH#1 I 1 SEL I 0 LINES) DAHdHhHHIg bCBBk3 @! OADDBCN D DBCN DDBCN D"DBCN _O_BOVOB"BOOk(DkTO(jOOjOk(DkTCO5OONٺkJJkOONOONBOCOVOk(DkTOOdBBkKKkCOOONCOټdLLFOO;O_O_=O/MOOOk( OOk(kO_xOO(115 \TEDIT.FIXDELSEL 100 \TEDIT.FIXDELSEL 85 \TEDIT.FIXDELSEL 70 \TEDIT.FIXDELSEL 31 GETWINDOWUSERPROP) (461 LINEDESCRIPTOR 451 LINEDESCRIPTOR 441 LINEDESCRIPTOR 429 LINEDESCRIPTOR 416 LINEDESCRIPTOR 393 LINEDESCRIPTOR 383 LINEDESCRIPTOR 372 LINEDESCRIPTOR 348 LINEDESCRIPTOR 318 LINEDESCRIPTOR 308 TEXTOBJ 299 LINEDESCRIPTOR 274 LINEDESCRIPTOR 269 LINEDESCRIPTOR 257 LINEDESCRIPTOR 237 LINEDESCRIPTOR 219 TEXTOBJ 210 LINEDESCRIPTOR 185 LINEDESCRIPTOR 173 TEXTOBJ 164 LINEDESCRIPTOR 154 LINEDESCRIPTOR 131 LINEDESCRIPTOR 121 LINEDESCRIPTOR 105 TEXTOBJ 90 TEXTOBJ 75 TEXTOBJ 60 TEXTOBJ 46 LINEDESCRIPTOR 28 LINES 3 TEXTOBJ) () \FIXILINES :D4 (P 11 LINE P 10 L1 P 9 LINES P 8 WW P 4 CHARLIM P 3 CHAR1 P 2 CHLIM P 1 CH# P 0 LINES I 4 OTEXTLEN I 3 DCH I 2 CH#1 I 1 SEL I 0 TEXTOBJ) N PBdkkbA@@C M_NN_hN_NO$@@BC @ @BC A@BC hO_hO_O_jOOO_M]O[BOKCtBKj/OdO)KCOOk(Ok(@kT@OBOk(@kT&O\DO(jOk(@kTkO\BDL%O(jOLCOBOdCO:(96 \TEDIT.FIXINSSEL 89 \TEDIT.FIXINSSEL 77 \TEDIT.FIXINSSEL) (271 TEXTOBJ 235 TEXTOBJ 209 TEXTOBJ 145 LINEDESCRIPTOR 81 TEXTOBJ 69 TEXTOBJ 24 TEXTOBJ 15 SELECTION) () \SHOWTEXTA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 WINDOW F 3 TEXTOBJ F 4 LINES F 5 SI::*RESETFORMS*) g` hhUc `Rg HdIdjdjdm S$kHdIdhdmdj S$HdIdk(djdjdjd`(dj( dj(dhdjdjcRgT Rg TShR SR T(189 \TEDIT.SET.WINDOW.EXTENT 184 \FILLWINDOW 176 GETWINDOWPROP 169 PUTWINDOWPROP 28 GETWINDOWPROP 8 CURSOR) (173 HEIGHT 165 LINES 129 TEDIT.DEFAULT.FMTSPEC 92 TEXTOBJ 58 TEXTOBJ 25 HEIGHT 20 |LINEDESCRIPTORTYPE#| 5 WAITINGCURSOR 2 CURSOR) () \SHOWTEXT :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 WREG I 2 WINDOW I 1 LINES I 0 TEXTOBJ F 3 LISPXHIST) 7@/B@ bhB jgB Sg  (52 CL:VALUES-LIST 48 SI::RESETUNWIND 45 \MVLIST 42 \SHOWTEXTA0001 32 DSPFILL 24 DSPCLIPPINGREGION 17 \TEDIT.PRIMARYW) (39 SI::RESETUNWIND 28 REPLACE 3 TEXTOBJ) () \TEDIT.ADJUST.LINES :D4 (P 5 LL P 3 PREVLINE P 2 OYBOT P 1 OFLOWFN P 0 OFLOW I 4 DY I 3 LINETOP I 2 WINDOW I 1 FIRSTLINE I 0 TEXTOBJ) PDjD C@( AiMM@(MMJD\L@(;hjdBjJ@$M ggj @ Fg'YiXB@lI0MMDMMMM[]iHhDjmBj@(BjD@(@$Cgg hjdBj@(@$Dggj KK@(KK@hB Bj@(jDBj@(@$C@(gg hjdBjCD@$jDggj (382 BKBITBLT 353 BKBITBLT 305 \FILLWINDOW 267 BKBITBLT 237 BKBITBLT 123 TEXTOBJ 118 BKBITBLT 26 \FZEROP) (377 REPLACE 374 TEXTURE 366 TEXTOBJ 349 REPLACE 346 INPUT 340 TEXTOBJ 333 TEXTOBJ 327 TEXTOBJ 315 TEXTOBJ 295 LINEDESCRIPTOR 283 TEXTOBJ 277 LINEDESCRIPTOR 262 REPLACE 259 TEXTURE 253 TEXTOBJ 247 TEXTOBJ 233 REPLACE 230 INPUT 224 TEXTOBJ 217 TEXTOBJ 208 TEXTOBJ 186 LINEDESCRIPTOR 175 LINEDESCRIPTOR 169 LINEDESCRIPTOR 165 LINEDESCRIPTOR 154 LINEDESCRIPTOR 150 LINEDESCRIPTOR 131 OVERFLOWFN 126 TEXTOBJ 113 REPLACE 110 TEXTURE 105 LINEDESCRIPTOR 99 TEXTOBJ 83 TEXTOBJ 71 LINEDESCRIPTOR 64 LINEDESCRIPTOR 52 TEXTOBJ 46 LINEDESCRIPTOR 17 TEXTOBJ) () \TEDIT.CLEAR.SCREEN.BELOW.LINE :D4 (I 2 LINE I 1 WINDOW I 0 TEXTOBJ) +hjdAj@(@$B@(ggj (40 BKBITBLT) (35 REPLACE 32 TEXTURE 26 TEXTOBJ 20 LINEDESCRIPTOR 14 TEXTOBJ 8 TEXTOBJ) () \TEDIT.CLOSEUPLINES :D4 (P 4 NYBOT P 3 LINE P 2 DY P 1 LOWESTY P 0 WWIDTH I 4 WINDOW I 3 DONTFILLFLG I 2 NEXTLINE I 1 PREVLINE I 0 TEXTOBJ) cA8@$@*A)@&kBIBB ZjhD@*@(D@*J@(HB@(B gg BIKL@(LK \@(LK@(_CKLKLK@KD KPK@@K@hKk KKKLKKKK[KhjdD@*@(HI@(ggj i(351 BKBITBLT 259 \FORMATLINE 217 \DISPLAYLINE 123 BKBITBLT) (346 REPLACE 343 TEXTURE 337 TEXTOBJ 329 TEXTOBJ 323 TEXTOBJ 308 LINEDESCRIPTOR 298 LINEDESCRIPTOR 292 LINEDESCRIPTOR 288 LINEDESCRIPTOR 280 LINEDESCRIPTOR 271 LINEDESCRIPTOR 266 LINEDESCRIPTOR 252 LINEDESCRIPTOR 246 LINEDESCRIPTOR 236 TEXTOBJ 230 LINEDESCRIPTOR 222 LINEDESCRIPTOR 205 LINEDESCRIPTOR 200 LINEDESCRIPTOR 192 LINEDESCRIPTOR 177 TEXTOBJ 171 LINEDESCRIPTOR 160 TEXTOBJ 152 LINEDESCRIPTOR 139 TEXTOBJ 119 REPLACE 116 INPUT 110 LINEDESCRIPTOR 103 TEXTOBJ 97 LINEDESCRIPTOR 89 TEXTOBJ 82 TEXTOBJ 75 TEXTOBJ 69 TEXTOBJ 60 LINEDESCRIPTOR 47 LINEDESCRIPTOR 41 LINEDESCRIPTOR 22 TEXTOBJ 12 TEXTOBJ 6 TEXTOBJ) () \TEDIT.COPY.LINEDESCRIPTOR :D4 (L (1 TOLINE 0 FROMLINE)) A@A@A@A@  A@  A@A@A@Aj(jdhA@(jkjHI(IjhA@&&A@(0jkjHI(0IjhA@((A@A@A@A@A@(@jkjHI(@IjhA@  A@(PjkjHI(PIjhA@(`jkjHI(`IjhNIL NIL () \TEDIT.FIXCHANGEDLINE :D4 (P 10 NEWLINE P 9 OFLOWFN P 8 DY P 7 FOUND P 6 PREVLINE P 5 OLHEIGHT P 4 OCHLIM P 3 WASDIRTY P 2 LIMITCHANGED P 1 FORMATDONE P 0 YBOT I 9 PREVDESCENT I 8 NEXTCARETCH# I 7 CHARLIM I 6 WHEIGHT I 5 THISLINE I 4 TEXTLEN I 3 WINDOW I 2 LINES I 1 PREVYBOT I 0 TEXTOBJ)  A GkjBbB(jGBjBB @hG _GBOkBjOB OB EBB_OkbBFOBHOd X@(OBOI@OCOjO OHOHO@OC H@(V@BCHB jMB( BHMB BHBHB@BC GBGBHBHOOb@ Fg'_C@lOg BB@(k_OBGBh@CB hB(484 \TEDIT.CLEAR.SCREEN.BELOW.LINE 428 RETFROM 401 TEXTOBJ 357 \DISPLAYLINE 327 \TEDIT.ADJUST.LINES 261 \DISPLAYLINE 227 \TEDIT.ADJUST.LINES 176 \TEDIT.NEXT.LINE.BOTTOM 113 \TEDIT.COPY.LINEDESCRIPTOR 105 \TEDIT.INSERTLINE 65 \FORMATLINE) (479 LINEDESCRIPTOR 469 LINEDESCRIPTOR 459 LINEDESCRIPTOR 441 TEXTOBJ 437 LINEDESCRIPTOR 433 LINEDESCRIPTOR 425 \TEDIT.FIXCHANGEDLINE 409 OVERFLOWFN 404 TEXTOBJ 386 LINEDESCRIPTOR 378 LINEDESCRIPTOR 367 LINEDESCRIPTOR 345 LINEDESCRIPTOR 340 LINEDESCRIPTOR 332 LINEDESCRIPTOR 320 LINEDESCRIPTOR 311 LINEDESCRIPTOR 304 FMTSPEC 299 LINEDESCRIPTOR 288 LINEDESCRIPTOR 280 LINEDESCRIPTOR 269 TEXTOBJ 248 LINEDESCRIPTOR 242 LINEDESCRIPTOR 233 LINEDESCRIPTOR 220 LINEDESCRIPTOR 212 LINEDESCRIPTOR 207 LINEDESCRIPTOR 199 LINEDESCRIPTOR 181 TEXTOBJ 171 LINEDESCRIPTOR 157 LINEDESCRIPTOR 153 LINEDESCRIPTOR 142 LINEDESCRIPTOR 131 LINEDESCRIPTOR 118 THISLINE 93 LINEDESCRIPTOR 85 LINEDESCRIPTOR 74 LINEDESCRIPTOR 55 LINEDESCRIPTOR 48 LINEDESCRIPTOR 35 LINEDESCRIPTOR 23 LINEDESCRIPTOR 14 LINEDESCRIPTOR) () \TEDIT.FIXCHANGEDPART :D4 (P 23 NEXTCARETCH# P 22 TYBOT P 21 NEWLINE P 20 OFLOWFN P 19 DY P 18 CLEARBOTTOM P 17 WBOTTOM P 16 WHEIGHT P 15 THISLINE P 14 TEXTLEN P 13 TPREVLINE P 12 PREVLINE P 11 OLHEIGHT P 10 OCHLIM P 9 CHARLIM P 8 WASDIRTY P 7 LIMITCHANGED P 6 FORMATDONE P 5 YBOT P 4 REGION P 3 LINES P 0 THISW I 4 NEXTCARETCH# I 3 INCREMENTAL? I 2 WINDOW I 1 STARTINGLINE I 0 TEXTOBJ) B@ !Hg hH 0LLؽ@_@8_LL_ L_"i_$D @h_&_(_*_,Kd_KK]Kd M_&j@KKhB@ M@(KO.Ohh[K(j'KOkj.OYj"IK*jKK[ K_[XK`hjdBj@(hB M@(ggj Oj!OO B@ g Bg @jThK_Ok_KM@(OO.MKd K_&j@KKhB@ OKkJJkdOOK@B 0@MKBOOO OO.O [d8k_K]OO#Kh@jTK_[J_$!CKOO.h__$O$@BO O(650 \TEDIT.CLEAR.SCREEN.BELOW.LINE 632 \SYSBUFP 549 \TEDIT.FIXCHANGEDLINE 522 TEDIT.DELETELINE 489 \TEDIT.CLOSEUPLINES 485 \TEDIT.PRIMARYW 456 \TEDIT.NEXT.LINE.BOTTOM 384 GETWINDOWUSERPROP 371 GETWINDOWUSERPROP 365 \TEDIT.PRIMARYW 356 \FZEROP 339 BKBITBLT 317 DSPCLIPPINGREGION 284 \FZEROP 176 \TEDIT.CLOSEUPLINES 172 \TEDIT.PRIMARYW 148 \TEDIT.NEXT.LINE.BOTTOM 29 DSPCLIPPINGREGION 16 GETWINDOWUSERPROP 6 \TEDIT.PRIMARYW) (618 LINEDESCRIPTOR 601 LINEDESCRIPTOR 590 TEXTOBJ 582 LINEDESCRIPTOR 567 LINEDESCRIPTOR 556 LINEDESCRIPTOR 543 LINEDESCRIPTOR 496 LINEDESCRIPTOR 474 LINEDESCRIPTOR 460 LINEDESCRIPTOR 451 LINEDESCRIPTOR 431 TEXTOBJ 414 LINEDESCRIPTOR 406 LINEDESCRIPTOR 399 LINEDESCRIPTOR 389 TEXTOBJ 381 LINES 374 LINEDESCRIPTOR 368 LINES 334 REPLACE 331 TEXTURE 325 TEXTOBJ 310 TEXTOBJ 292 LINEDESCRIPTOR 276 LINEDESCRIPTOR 267 LINEDESCRIPTOR 247 LINEDESCRIPTOR 233 LINEDESCRIPTOR 226 LINEDESCRIPTOR 215 LINEDESCRIPTOR 203 LINEDESCRIPTOR 192 LINEDESCRIPTOR 182 TEXTOBJ 161 LINEDESCRIPTOR 143 LINEDESCRIPTOR 135 LINEDESCRIPTOR 121 LINEDESCRIPTOR 97 SELECTION 92 TEXTOBJ 58 TEXTOBJ 49 TEXTOBJ 19 LINEDESCRIPTOR 13 LINES) () \TEDIT.INSERTLINE :D4 (P 0 PREVLINE I 1 BEFORELINE I 0 NEWLINE) *A@H@AA@Hd@hNIL (35 LINEDESCRIPTOR 26 LINEDESCRIPTOR 19 LINEDESCRIPTOR 12 LINEDESCRIPTOR 3 LINEDESCRIPTOR) () \TEDIT.LINE.LIST :D4 (L (1 WINDOW 0 TEXTOBJ)) 8@@"HHhHHIhIhIIJAKNIL (9 TEXTOBJ 3 TEXTOBJ) () \TEDIT.MARK.LINES.DIRTY :D4 (P 6 LL P 5 WW P 3 CHLIM# P 2 CH# I 2 CHLIM I 1 CH1 I 0 TEXTOBJ) {A@HdIIBdmj@k@L @kThLhLLMg NKNJNk(N^(75 GETWINDOWUSERPROP) (116 LINEDESCRIPTOR 107 LINEDESCRIPTOR 97 LINEDESCRIPTOR 87 LINEDESCRIPTOR 72 LINES 50 TEXTOBJ 38 TEXTOBJ 30 TEXTOBJ 4 TEXTOBJ) () \TEDIT.NEXT.LINE.BOTTOM :D4 (P 3 BASETOBASE P 2 PARALOOKS P 1 PARALEADING P 0 NEWYBOT I 2 PREVLINE I 1 LINE I 0 CURYBOT F 4 YBOT) R@A(Z [6@BKAٸA(Pj"JB(عHITA XHNIL (74 LINEDESCRIPTOR 61 FMTSPEC 56 LINEDESCRIPTOR 50 FMTSPEC 39 LINEDESCRIPTOR 30 LINEDESCRIPTOR 22 LINEDESCRIPTOR 12 FMTSPEC 6 LINEDESCRIPTOR) () (PRETTYCOMPRINT TEDITSCREENCOMS) (RPAQQ TEDITSCREENCOMS ((FILES TEDITDECLS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64 )) (FILES (LOADCOMP) TEDITDECLS)) (FNS \FORMATLINE \TEDIT.NSCHAR.RUN \TEDIT.PURGE.SPACES \DOFORMATTING ) (FNS \DISPLAYLINE \TEDIT.LINECACHE \TEDIT.CREATE.LINECACHE \TEDIT.BLTCHAR) (FNS TEDIT.CR.UPDATESCREEN TEDIT.DELETELINE TEDIT.INSERT.DISPLAYTEXT TEDIT.INSERT.UPDATESCREEN TEDIT.UPDATE.SCREEN \BACKFORMAT \FILLWINDOW \FIXDLINES \FIXILINES \SHOWTEXT \TEDIT.ADJUST.LINES \TEDIT.CLEAR.SCREEN.BELOW.LINE \TEDIT.CLOSEUPLINES \TEDIT.COPY.LINEDESCRIPTOR \TEDIT.FIXCHANGEDLINE \TEDIT.FIXCHANGEDPART \TEDIT.INSERTLINE \TEDIT.LINE.LIST \TEDIT.MARK.LINES.DIRTY \TEDIT.NEXT.LINE.BOTTOM))) (FILESLOAD TEDITDECLS) (PUTPROPS TEDITSCREEN COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987)) NIL