(FILECREATED "17-Oct-85 12:03:35" ("compiled on " {ERIS}TEDITSCREEN.;31) "12-Oct-85 13:51:54" recompiled changes: \FORMATLINE in "INTERLISP-D 12-Oct-85 ..." dated "12-Oct-85 14:36:55") (FILECREATED "17-Oct-85 11:58:30" {ERIS}TEDITSCREEN.;31 143124 changes to: (FNS \FORMATLINE) previous date: "11-Oct-85 18:26:25" {ERIS}TEDITSCREEN.;30) TEDIT.CR.UPDATESCREEN D1 (P 1 PREVLINE P 0 WINDOW I 11Q DONTSCROLL I 10Q 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#)  BDI(j,ADIIIk(BkTBIi CB Chi G;DDhH Bh>HjDD h(221Q SCROLLW 160Q DSPCLIPPINGREGION 124Q \SHOWSEL 116Q \FIXSEL 111Q TEDIT.UPDATE.SCREEN) (213Q LINEDESCRIPTOR 203Q LINEDESCRIPTOR 171Q TEXTOBJ 151Q LINEDESCRIPTOR 144Q LINEDESCRIPTOR 134Q LINEDESCRIPTOR 76Q TEXTOBJ 65Q LINEDESCRIPTOR 53Q LINEDESCRIPTOR 45Q LINEDESCRIPTOR 36Q LINEDESCRIPTOR 22Q LINEDESCRIPTOR 11Q LINEDESCRIPTOR 3 TEXTOBJ) () TEDIT.DELETELINE D1 (P 1 NEXT P 0 PREV I 2 WINDOW I 1 TEXTOBJ I 0 LINE) 3@@HI AHIhB hHI(35Q \TEDIT.CLOSEUPLINES) (53Q LINEDESCRIPTOR 42Q LINEDESCRIPTOR 11Q LINEDESCRIPTOR 3 LINEDESCRIPTOR) () TEDIT.INSERT.DISPLAYTEXTA0001 D1 (NAME ERRORSET L (0 NIL) P 1 CHAR F 7 LINE F 10Q DS F 11Q CH F 12Q XPOINT F 13Q TEXTOBJ F 14Q RESETVARSLST F 15Q FONT F 16Q TERMSA F 17Q RESETY) d gd gW WcW.W WWaHkٻHKHغHCjhi]Kk[JMLKLKYdl 0hjdWWWl$W ggj l$jW l 5hjdWWWIW lNNlW ggj W.I rh~Wdl 0hjdWWWl$W ggj l$jW Hl 7hjdWWWWW lHHlW ggj W.W ci(536Q \DSPPRINTCHAR 521Q BKBITBLT 462Q CHARWIDTH 426Q RELMOVETO 415Q BKBITBLT 333Q \DSPPRINTCHAR 315Q BKBITBLT 261Q CHARWIDTH 226Q RELMOVETO 215Q BKBITBLT 17Q SETTOPVAL 6 GETTOPVAL) (527Q TEXTOBJ 514Q REPLACE 511Q TEXTURE 504Q LINEDESCRIPTOR 451Q LINEDESCRIPTOR 410Q REPLACE 405Q TEXTURE 400Q LINEDESCRIPTOR 367Q LINEDESCRIPTOR 325Q TEXTOBJ 310Q REPLACE 305Q TEXTURE 300Q LINEDESCRIPTOR 251Q LINEDESCRIPTOR 210Q REPLACE 205Q TEXTURE 200Q LINEDESCRIPTOR 167Q LINEDESCRIPTOR 40Q STREAM 33Q TEXTOBJ 12Q \PRIMTERMSA 2 \PRIMTERMSA) () TEDIT.INSERT.DISPLAYTEXT D1 (P 12Q CHAR P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 3 FONT P 2 DY P 1 TERMSA P 0 LOOKS I 6 SEL I 5 DS I 4 XPOINT I 3 LINE I 2 CHWIDTH I 1 CH I 0 TEXTOBJ F 17Q LISPXHIST F 20Q RESETVARSLST) @4@@ @<BH[E HCY@CECCH CCHCCHHCm@CECCH CCHCCHCCCEDCEDBCCDC gg hjdEDCBC ggj DCHjE I*W!W og hg_ O;AAQOk_O_OO_OCjhi_Ok_OOOOOO_dl /hjdEhE Cl$C ggj l$jE l 5hjdEhE COK lLLlC ggj xOE oqAdl /hjdEhE Cl$C ggj l$jE 'ED(ED&fW>aDh>O4jEdgO:g*O<%EdgO:gO< l iDO4 O:_:O<(767Q \TEDIT.SET.WINDOW.EXTENT 755Q SCROLLW 741Q SHOULDNT 520Q DSPCLIPPINGREGION 331Q \COPYSEL 161Q \COPYSEL 151Q \SHOWSEL 142Q \FIXSEL 134Q TEDIT.UPDATE.SCREEN 105Q \SYSBUFP) (744Q LINEDESCRIPTOR 730Q RIGHT 716Q LEFT 710Q SELECTION 674Q RIGHT 663Q LEFT 655Q SELECTION 642Q TEXTOBJ 634Q LINEDESCRIPTOR 616Q TEXTOBJ 610Q SELECTION 576Q TEXTOBJ 570Q SELECTION 552Q RIGHT 541Q LEFT 533Q SELECTION 506Q LINEDESCRIPTOR 477Q RIGHT 471Q LINEDESCRIPTOR 461Q LEFT 453Q SELECTION 440Q RIGHT 427Q LEFT 421Q SELECTION 406Q TEXTOBJ 326Q TEDIT.SELECTION 210Q SELECTION 202Q SELECTION 173Q SELECTION 165Q SELECTION 156Q TEDIT.SELECTION 127Q SELECTION 75Q CHAR 72Q SELECTION 63Q SELECTION 55Q LEFT 52Q SELECTION 42Q SELECTION 36Q SELECTION 25Q SELECTION 11Q TEXTOBJ 3 TEXTOBJ) () TEDIT.UPDATE.SCREEN D1 (P 4 LINE P 3 NLINE P 2 WW I 3 NEXTCARETCH# I 2 INCREMENTAL? I 1 STARTINGLINE I 0 TEXTOBJ) X@ bdA@2HHhHHIhIhII@LJBC [KK@hJC (123Q \FILLWINDOW 101Q \TEDIT.FIXCHANGEDPART 3 TEXTOBJ) (110Q LINEDESCRIPTOR 22Q TEXTOBJ 11Q TEXTOBJ) () \BACKFORMAT D1 (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(137Q \FORMATLINE 76Q \BACKBIN 46Q \SETUPGETCH) (231Q LINEDESCRIPTOR 217Q LINEDESCRIPTOR 205Q LINEDESCRIPTOR 173Q LINEDESCRIPTOR 163Q LINEDESCRIPTOR 153Q LINEDESCRIPTOR 143Q LINEDESCRIPTOR 71Q TEXTOBJ 34Q LINEDESCRIPTOR 17Q TEXTOBJ 3 LINEDESCRIPTOR) () \DISPLAYLINE D1 (P 51Q TTX P 50Q DOTWIDTH P 47Q LEADERFONT P 46Q DX P 45Q TX P 44Q LOOKNO P 43Q I P 36Q SCALE P 35Q LHEIGHT P 34Q CURY P 33Q DDOFFSETCACHE P 32Q DDWIDTHCACHE P 31Q DDPILOTBBT P 30Q DISPLAYDATA P 27Q CLIPRIGHT P 26Q CLIPLEFT P 25Q XOFFSET P 24Q OLOOKS P 23Q OFONT P 22Q FONT P 21Q \PFILE P 20Q \PSTRING P 17Q \PCHARSLEFT P 16Q LOOKSTARTX P 15Q CACHE P 14Q HARDCOPYMODE P 13Q HCPYDS P 12Q DS P 11Q OLDCACHE P 10Q 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@8BB @@@8@<@.@N@P@RA((jh`!A&AAA _>dO>O>A _:OhO k_<@NOAO< AO: _dO$dO jdOOhO hjdOjdhdggj OhO k_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(1405Q \DISPLAYLINE 1332Q \TEDIT.NEXT.LINE.BOTTOM 1313Q RETFROM 1252Q TEXTOBJ 1160Q \DISPLAYLINE 754Q \FORMATLINE 740Q \FZEROP 610Q \FORMATLINE 505Q BKBITBLT 320Q RETFROM 263Q TEXTOBJ 53Q GETWINDOWPROP) (1503Q LINEDESCRIPTOR 1471Q LINEDESCRIPTOR 1456Q LINEDESCRIPTOR 1444Q LINEDESCRIPTOR 1431Q TEXTOBJ 1425Q LINEDESCRIPTOR 1414Q LINEDESCRIPTOR 1371Q LINEDESCRIPTOR 1364Q LINEDESCRIPTOR 1354Q LINEDESCRIPTOR 1340Q TEXTOBJ 1310Q \FILLWINDOW 1262Q OVERFLOWFN 1255Q TEXTOBJ 1240Q LINEDESCRIPTOR 1222Q LINEDESCRIPTOR 1215Q LINEDESCRIPTOR 1205Q LINEDESCRIPTOR 1173Q LINEDESCRIPTOR 1144Q LINEDESCRIPTOR 1137Q LINEDESCRIPTOR 1127Q LINEDESCRIPTOR 1115Q TEXTOBJ 1104Q LINEDESCRIPTOR 1073Q LINEDESCRIPTOR 1065Q FMTSPEC 1060Q LINEDESCRIPTOR 1051Q LINEDESCRIPTOR 1040Q FMTSPEC 1033Q LINEDESCRIPTOR 1023Q LINEDESCRIPTOR 1007Q LINEDESCRIPTOR 774Q LINEDESCRIPTOR 770Q LINEDESCRIPTOR 760Q LINEDESCRIPTOR 727Q LINEDESCRIPTOR 717Q LINEDESCRIPTOR 701Q LINEDESCRIPTOR 667Q LINEDESCRIPTOR 661Q LINEDESCRIPTOR 655Q LINEDESCRIPTOR 643Q LINEDESCRIPTOR 635Q LINEDESCRIPTOR 631Q LINEDESCRIPTOR 621Q LINEDESCRIPTOR 600Q LINEDESCRIPTOR 563Q LINEDESCRIPTOR 547Q LINEDESCRIPTOR 534Q LINEDESCRIPTOR 517Q LINEDESCRIPTOR 500Q REPLACE 475Q TEXTURE 467Q TEXTOBJ 460Q TEXTOBJ 452Q TEXTOBJ 433Q TEXTOBJ 344Q LINEDESCRIPTOR 315Q \FILLWINDOW 273Q OVERFLOWFN 266Q TEXTOBJ 251Q LINEDESCRIPTOR 241Q LINEDESCRIPTOR 232Q FMTSPEC 225Q LINEDESCRIPTOR 201Q LINEDESCRIPTOR 174Q LINEDESCRIPTOR 164Q LINEDESCRIPTOR 152Q LINEDESCRIPTOR 133Q LINEDESCRIPTOR 124Q LINEDESCRIPTOR 105Q LINEDESCRIPTOR 62Q TEXTOBJ 50Q HEIGHT 37Q TEXTOBJ 25Q TEXTOBJ 14Q LINEDESCRIPTOR 3 LINEDESCRIPTOR) () \FIXDLINES D1 (P 12Q CHARLIM P 11Q NL P 10Q 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_BOXOB"BOOk(DkTOd(jOOjOk(DkTCO5OONٺkJJkOONOONBOCOVOk(DkTOOdBBkKKkCOOONCOټdLLDOO9O_O_;O-MOOOk( OOk(O_xOO(163Q \TEDIT.FIXDELSEL 144Q \TEDIT.FIXDELSEL 125Q \TEDIT.FIXDELSEL 106Q \TEDIT.FIXDELSEL 37Q GETWINDOWUSERPROP) (715Q LINEDESCRIPTOR 703Q LINEDESCRIPTOR 671Q LINEDESCRIPTOR 657Q LINEDESCRIPTOR 642Q LINEDESCRIPTOR 613Q LINEDESCRIPTOR 601Q LINEDESCRIPTOR 566Q LINEDESCRIPTOR 536Q LINEDESCRIPTOR 500Q LINEDESCRIPTOR 466Q TEXTOBJ 455Q LINEDESCRIPTOR 424Q LINEDESCRIPTOR 417Q LINEDESCRIPTOR 403Q LINEDESCRIPTOR 357Q LINEDESCRIPTOR 335Q TEXTOBJ 324Q LINEDESCRIPTOR 272Q LINEDESCRIPTOR 255Q TEXTOBJ 244Q LINEDESCRIPTOR 232Q LINEDESCRIPTOR 203Q LINEDESCRIPTOR 171Q LINEDESCRIPTOR 151Q TEXTOBJ 132Q TEXTOBJ 113Q TEXTOBJ 74Q TEXTOBJ 56Q LINEDESCRIPTOR 34Q LINES 3 TEXTOBJ) () \FIXILINES D1 (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)  `BdkkbA@@# N_OhO_O$@@BC @ @BC A@BC hO_hO_O_jOOO]N^M[BMKCLBKjMdOKCMd%k(MMBMMdDd(jk(@kTM\BDL&Md(j𲄿MLCMdBrdCMf(132Q \TEDIT.FIXINSSEL 123Q \TEDIT.FIXINSSEL 107Q \TEDIT.FIXINSSEL) (340Q TEXTOBJ 212Q LINEDESCRIPTOR 113Q TEXTOBJ 77Q TEXTOBJ 30Q TEXTOBJ 17Q SELECTION) () \FORMATLINE D1 (P 61Q ORIGFMTSPEC P 60Q HARDCOPYMODE P 57Q TABSPEC P 56Q NEWDESCENT P 55Q NEWASCENT P 54Q SCALE P 53Q DEVICE P 52Q PCNO P 51Q PC P 50Q BOX P 47Q TABPENDING P 46Q INVISIBLERUNSB P 45Q DESCENTB P 44Q ASCENTB P 43Q LOOKS P 42Q WLIST P 41Q CHLIST P 40Q TEXTSTREAM P 37Q CLOOKS P 36Q TERMSA P 35Q FONTWIDTHS P 34Q FONT P 33Q LOOK#B P 32Q WIDTH P 31Q DXB P 30Q TXB1 P 27Q T1SPACE P 26Q FORCEEND P 25Q CH P 24Q TXB P 23Q DX P 22Q TX P 21Q LEFTEDGE P 20Q DS P 17Q DEFAULTTAB P 16Q #BLANKS P 15Q PREVSP P 14Q DESCENT P 13Q ASCENT P 12Q INVISIBLERUNS P 11Q LOOKNO P 10Q 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) GCP`@$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_ThJO> jkj(0AO@@:b_bA(jh_`K@R@gg _hROh_VhOV _XAOV bOXo _OXo @P_Vk_Xl_"A_^O>_8d`O>gg _8O>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_0NOlMCOO_OMOO@ _*$O8(O* O*O8 O*lO*g _rO*O O$O4lOr_POP_ZOP_\O*gOP O@_RkpOk_OFOORkFOOOOOBnODjMkԽ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 ON@O^OOBODO$OO"ONi _$h_NOO j_w lOjO^O UOZ_O\_HO*l Jk(@OZ OdOZOZ_OdO\O\_h_ZOBO*@O^OOBODO$OO"ON _Nd3 _$h_NON_$LO$_0hOOD_&OO j__i_.O$O&_$_(O&_2O_6O_HO_JO_LiO*lO*O*lj_&O$O&_$O4i_,O.'JKO(_$O2_&OH_OJ_O6_OL_~MjJOkdBBO$O&_$aJOOBO*ODO&OZHOdOZOZ_OdO\O\_h_Z'OZ OdOZOZ_OdO\O\_h_ZOBO*ODO&O*O*l.ONOBl_BODk_DMkԽOkԱ3 ONg@O^OOBODO$OO"ONi _Nd3 _$h_NON_$LO$_0hOOO j__i_.O$_(O&_2O_6O_HO_JO_LeNj N@ _ROFO>@4@4@@@@`_8_O8_AOROR@:bORhORjhbJDkj(PDJ@*Al_tOtJ@*Al_vOv_$JA_xjOxOx A@$l_4O4_0JOO_z Oz_|jO|,O| %J@@@@` JOJOJOO,Ok_MkٽJO$JO,LO4O$O4O0 OJOBNmOJdNNOJ_~lO~O~l@JObAOOOD JA(O@(hJ(5401Q \DOFORMATTING 5130Q \FZEROP 5040Q \FZEROP 4500Q \CHTOPC 4405Q \TEDIT.PURGE.SPACES 4324Q \TEDIT.FORMATTABS 3572Q \TEDIT.PURGE.SPACES 3502Q \TEDIT.FORMATTABS 3341Q \FZEROP 3312Q \FZEROP 3277Q \TEDIT.PURGE.SPACES 3254Q \TEDIT.FORMATTABS 3217Q TEDIT.PROMPTPRINT 2621Q FIXR 2404Q IMAGEOBJPROP 2324Q IMAGEOBJPROP 2277Q \CREATECHARSET 2163Q FIXR 2131Q \FZEROP 2045Q FIXR 2007Q \FZEROP 1747Q \FZEROP 1451Q FONTCOPY 1350Q FONTCOPY 1252Q FIXR 1235Q FIXR 1220Q \TEDIT.HCPYFMTSPEC 1207Q DSPSCALE 1167Q OPENIMAGESTREAM 1020Q \TEDIT.APPLY.STYLES 705Q \TEDIT.APPLY.STYLES 664Q \SETUPGETCH 414Q \SETUPGETCH 403Q \FZEROP 157Q \INSUREWINDOW) (5422Q TEXTIMAGEDATA 5415Q STREAM 5405Q LINEDESCRIPTOR 5332Q LINEDESCRIPTOR 5314Q LINEDESCRIPTOR 5211Q LINEDESCRIPTOR 5201Q LINEDESCRIPTOR 5170Q FONTDESCRIPTOR 5165Q DEFAULTFONT 5156Q CHARLOOKS 5151Q TEXTOBJ 5142Q TEXTOBJ 5136Q LINEDESCRIPTOR 5054Q TEXTOBJ 5045Q FMTSPEC 5016Q FMTSPEC 5012Q LINEDESCRIPTOR 4766Q FMTSPEC 4760Q TEXTOBJ 4754Q LINEDESCRIPTOR 4731Q FMTSPEC 4723Q TEXTOBJ 4717Q LINEDESCRIPTOR 4677Q LINEDESCRIPTOR 4661Q PIECE 4641Q TEXTOBJ 4631Q PIECE 4611Q FONTDESCRIPTOR 4577Q FONTDESCRIPTOR 4572Q DEFAULTFONT 4563Q CHARLOOKS 4556Q TEXTOBJ 4547Q TEXTOBJ 4537Q CHARLOOKS 4532Q TEXTOBJ 4523Q TEXTOBJ 4510Q ARRAYP 4473Q TEXTOBJ 4376Q THISLINE 4350Q PENDINGTAB 4273Q DECIMAL 4266Q PENDINGTAB 3563Q THISLINE 3526Q PENDINGTAB 3377Q LINEDESCRIPTOR 3270Q THISLINE 3162Q LINEDESCRIPTOR 2567Q ARRAYP 2550Q PIECE 2463Q ARRAYP 2447Q PIECE 2421Q PIECE 2412Q STREAM 2377Q BOUNDBOX 2321Q IMAGEBOXFN 2152Q TEXTOBJ 2140Q FMTSPEC 2107Q FMTSPEC 2103Q LINEDESCRIPTOR 2062Q FMTSPEC 2053Q FMTSPEC 2034Q TEXTOBJ 2026Q LINEDESCRIPTOR 2017Q GREY 2014Q LINEDESCRIPTOR 1765Q FMTSPEC 1755Q FMTSPEC 1725Q FMTSPEC 1715Q FMTSPEC 1705Q FMTSPEC 1675Q FMTSPEC 1666Q PAGEHEADING 1661Q FMTSPEC 1641Q LINEDESCRIPTOR 1631Q LINEDESCRIPTOR 1615Q STREAM 1606Q STREAM 1572Q STREAM 1563Q STREAM 1545Q PIECE 1540Q PIECE 1533Q STREAM 1522Q PIECE 1515Q STREAM 1504Q STREAM 1461Q ARRAYP 1444Q DEVICE 1437Q CHARLOOKS 1413Q CHARLOOKS 1404Q FONTDESCRIPTOR 1364Q CHARLOOKS 1355Q FONTDESCRIPTOR 1345Q DISPLAY 1342Q DEVICE 1335Q CHARLOOKS 1324Q FONTCLASSTYPE# 1313Q CHARLOOKS 1301Q FMTSPEC 1257Q TEXTOBJ 1164Q INTERPRESS 1161Q {NODIRCORE} 1156Q TEXTOBJ 1146Q TEXTOBJ 1127Q FMTSPEC 1114Q TEXTOBJ 1104Q PIECE 1077Q STREAM 1052Q CHARLOOKS 1045Q LINEDESCRIPTOR 1001Q PIECE 757Q ARRAYP 743Q PIECE 721Q CHARLOOKS 653Q LASTPIECE 626Q ARRAYP 604Q STREAM 572Q PIECE 507Q ARRAYP 474Q PIECE 456Q STREAM 431Q CHARLOOKS 422Q STREAM 343Q LINEDESCRIPTOR 277Q \TEDIT.LOOKS.UPDATE 274Q TEXTIMAGEDATA 267Q STREAM 256Q TEXTOBJ 246Q TEXTOBJ 236Q THISLINE 225Q ARRAYP 220Q THISLINE 207Q ARRAYP 202Q THISLINE 151Q TEXTOBJ 127Q TEXTOBJ 32Q TEXTOBJ 12Q TEXTOBJ 5 LINEDESCRIPTORTYPE#) ( 3213Q "Line too long to format." 1246Q 8.0 1231Q 36.0 103Q 3641100Q) \PULLTEXT D1 (I 3 TEXTOBJ I 2 CH1 I 1 DX I 0 LINE) jAoA o(13Q ERROR) NIL ( 17Q (PROG ((OXLIM (fetch LXLIM of LINE)) (OCHLIM (fetch CHARLIM of LINE)) (OLEFTMAR (fetch LEFTMARGIN of LINE)) (OLHEIGHT (fetch LHEIGHT of LINE)) (OLASCENT (fetch ASCENT of LINE)) (OLDESCENT (fetch DESCENT of LINE)) (OSPACE (IPLUS (fetch SPACELEFT of LINE) DX)) NLINE NDX NL (DEL NIL) (DS (fetch DS of TEXTOBJ)) (OCH1 (fetch CHAR1 of LINE))) (replace DIRTY of LINE with NIL) (replace SPACELEFT of LINE with OSPACE) (* There's going to be more space on this line when we're done.) (replace CHAR1 of LINE with CH1) (BITBLT DS (IPLUS (fetch LEFTMARGIN of LINE) DX) (fetch YBOT of LINE) DS (fetch LEFTMARGIN of LINE) (fetch YBOT of LINE) (fetch RIGHTMARGIN of LINE) (fetch LHEIGHT of LINE) (QUOTE INPUT) (QUOTE REPLACE)) (* Move remaining text over) (SETQ OXLIM (IDIFFERENCE OXLIM DX)) (* And shorten the line accordingly) (BITBLT NIL 0 0 DS (IDIFFERENCE (fetch RIGHTMARGIN of LINE) OSPACE) (fetch YBOT of LINE) (fetch RIGHTMARGIN of LINE) (fetch LHEIGHT of LINE) (QUOTE TEXTURE) (QUOTE REPLACE) WHITESHADE) (* Blank the newly-cleared section of the line's image) (COND ((IEQP OXLIM (fetch LEFTMARGIN of LINE)) (TEDIT.DELETELINE LINE TEXTOBJ) (* The call to \PULLTEXT emptied this line completely. Throw it away.) (SETQ DEL T)) (T (* Need to check for flow-in from the next line.) (\FORMATLINE TEXTOBJ NIL CH1 LINE) (\TEDIT.ADJUST.LINES TEXTOBJ LINE DS (IPLUS (fetch YBOT of LINE) (IMIN OLHEIGHT (fetch LHEIGHT of LINE))) (IDIFFERENCE OLASCENT (fetch ASCENT of LINE))) (* Allow for differences in ascent of the line) (\TEDIT.ADJUST.LINES TEXTOBJ NEXTLINE WINDOW (fetch YBOT of LINE) (IDIFFERENCE OLDESCENT (fetch DESCENT of LINE))) (COND ((NOT (ZEROP (SETQ NDX (IDIFFERENCE (IDIFFERENCE (fetch LXLIM of LINE) (fetch LEFTMARGIN of LINE)) (IDIFFERENCE OXLIM OLEFTMAR))))) (* The line length changed from what we'd expected. Some text got moved up from below.) (COND ((ILESSP NDX 0) (ERROR "Moving Text down after DEL." NDX)) (T (COND ((AND (SETQ NLINE (fetch NEXTLINE of LINE)) (IGEQ (fetch YBOT of NLINE) (fetch WBOTTOM of TEXTOBJ))) (COND ((OR (fetch LHASTABS of LINE) (fetch LHASTABS of NLINE)) (* There are TABS involved. punt out.) (\DISPLAYLINE TEXTOBJ LINE) (replace CHAR1 of NLINE with (ADD1 (fetch CHARLIM of LINE))) (replace DIRTY of NLINE with T) (TEDIT.UPDATE.SCREEN TEXTOBJ NLINE) (RETURN NIL)) ((IGEQ (IDIFFERENCE (fetch LXLIM of NLINE) (fetch LEFTMARGIN of NLINE)) NDX) (* There's enough on the next line to grab) (BITBLT DS (fetch LEFTMARGIN of NLINE) (fetch YBOT of NLINE) DS OXLIM (IPLUS (fetch YBOT of LINE) (IDIFFERENCE (fetch DESCENT of LINE) (fetch DESCENT of NLINE))) NDX (IMIN (fetch LHEIGHT of LINE) (fetch LHEIGHT of NLINE)) (QUOTE INPUT) (QUOTE PAINT)) (* Move the text up from the next line) (COND ((ILESSP (fetch CHARLIM of LINE) (fetch TEXTLEN of TEXTOBJ)) (* There are more characters to go on the next line.) (SETQ DEL (\PULLTEXT NLINE NDX (ADD1 (fetch CHARLIM of LINE)) TEXTOBJ))) (T (* This line is the last. Delete all the others) (SETQ DEL T) (replace NEXTLINE of LINE with NIL) (replace PREVLINE of NLINE with NIL) (BITBLT NIL 0 0 DS 0 (fetch WBOTTOM of TEXTOBJ) (fetch WRIGHT of TEXTOBJ) (IDIFFERENCE (SUB1 (fetch YBOT of LINE)) (fetch WBOTTOM of TEXTOBJ)) (QUOTE TEXTURE) (QUOTE REPLACE) WHITESHADE)))) (T (* Not enough on next line;; grab it and loop) (ERROR "PULLING TEXT FROM TOO SHORT A LINE")))) (T (\DISPLAYLINE TEXTOBJ LINE) (replace NEXTLINE of LINE with NIL) (AND NLINE (replace PREVLINE of NLINE with NIL))))))))) (T (replace LXLIM of LINE with OXLIM))) (RETURN DEL)) 7 "MOVING TEXT DOWN AFTER A DELETE??!") \PUSHTEXT D1 (L (11Q PREVDESCENT 10Q SAVEWIDTH 7 IMAGECACHE 6 FORCEFORMAT 5 TEXTOBJ 4 CH 3 DX 2 Y 1 X 0 LINE))  oNIL NIL ( 3 (PROG ((NDX 0) (OXLIM (fetch LXLIM of LINE)) (OCHLIM (fetch CHARLIM of LINE)) (OSPACE (fetch SPACELEFT of LINE)) (OLHEIGHT (fetch LHEIGHT of LINE)) (OLASCENT (fetch ASCENT of LINE)) (OLDESCENT (fetch DESCENT of LINE)) (OTABS (fetch LHASTABS of LINE)) (DS (ffetch DS of TEXTOBJ)) (NEXTCACHE (fetch LCNEXTCACHE of IMAGECACHE)) NEXTLINE OCR\END NEWLINE NSAVEWIDTH OFLOWFN DY IMAGE) (replace CHAR1 of LINE with CH) (* Fix up this line to start just after old line ends) (SETQ OCR\END (fetch CR\END of LINE)) (\FORMATLINE TEXTOBJ NIL CH LINE) (\TEDIT.ADJUST.LINES TEXTOBJ LINE DS (IPLUS (fetch YBOT of LINE) (IMIN OLHEIGHT (fetch LHEIGHT of LINE))) (IDIFFERENCE OLASCENT (fetch ASCENT of LINE))) (\TEDIT.ADJUST.LINES TEXTOBJ NEXTLINE WINDOW (fetch YBOT of LINE) (IDIFFERENCE OLDESCENT (fetch DESCENT of LINE))) (COND ((OR (fetch LHASTABS of LINE) OTABS) (* Punt if this line has tabs in it.) (replace DIRTY of LINE with T) (TEDIT.UPDATE.SCREEN TEXTOBJ LINE) (RETURN))) (COND ((OR FORCEFORMAT (IGREATERP DX OSPACE)) (* May need to move some text to yet another line...) (SETQ NDX (IDIFFERENCE (IPLUS OXLIM DX) (fetch LXLIM of LINE))) (* NDX _ Amount of text to be moved to the next line) (COND ((IGREATERP NDX 0) (* There is excess on this line--move it to the next line) (COND (OCR\END (* This line ends in a CR -- just create a new line with the overflow on it) (SETQ NEWLINE (\FORMATLINE TEXTOBJ NIL (ADD1 (fetch CHARLIM of LINE)))) (replace YBOT of NEWLINE with (IDIFFERENCE (fetch YBOT of LINE) (fetch LHEIGHT of NEWLINE))) (replace YBASE of NEWLINE with (IPLUS (fetch YBOT of NEWLINE) (fetch DESCENT of NEWLINE))) (COND ((AND (SETQ OFLOWFN (TEXTPROP TEXTOBJ (QUOTE OVERFLOWFN))) (APPLY* OFLOWFN DS TEXTOBJ)) (RETURN NIL)) ((SETQ NEXTLINE (fetch NEXTLINE of LINE)) (* There's another line to push onto.) (OR (\TEDIT.ADJUST.LINES TEXTOBJ NEXTLINE DS (fetch YBOT of LINE) (IMINUS (fetch LHEIGHT of NEWLINE))) (RETURN NIL)) (* If pushing overflowed the window, punt here and now.) (BITBLT NIL 0 0 DS 0 (IDIFFERENCE (fetch YBOT of LINE) (fetch LHEIGHT of NEWLINE)) (fetch WRIGHT of TEXTOBJ) (fetch LHEIGHT of NEWLINE) (QUOTE TEXTURE) (QUOTE REPLACE) WHITESHADE) (replace PREVLINE of NEXTLINE with NEWLINE))) (replace NEXTLINE of NEWLINE with NEXTLINE) (replace PREVLINE of NEWLINE with LINE) (replace NEXTLINE of LINE with NEWLINE) (\TEDIT.CHECK (fetch TCUP of (fetch CARET of TEXTOBJ)) "Caret visible during pushtext move down.") (BITBLT DS (IDIFFERENCE OXLIM NDX) (fetch YBOT of LINE) DS (fetch LEFTMARGIN of NEWLINE) (fetch YBOT of NEWLINE) NDX (fetch LHEIGHT of NEWLINE) (QUOTE INPUT) (QUOTE REPLACE)) (* Move the text onto the newly-built line) (SETQ NDX 0)) ((fetch NEXTLINE of LINE) (* There is text to be moved onto the next line; save its image for the move which happens later) (SETQ NSAVEWIDTH (IMIN NDX (IMAX 0 (IDIFFERENCE (fetch RIGHTMARGIN of LINE) (IDIFFERENCE OXLIM NDX))))) (\TEDIT.CHECK (fetch TCUP of (fetch CARET of TEXTOBJ))) (* THE CARET MUST BE INVISIBLE) (SETQ IMAGE (\TEDIT.LINECACHE NEXTCACHE NSAVEWIDTH (fetch LHEIGHT of LINE))) (BITBLT DS (IDIFFERENCE OXLIM NDX) (fetch YBOT of LINE) IMAGE 0 0 NDX (fetch LHEIGHT of LINE) (QUOTE INPUT) (QUOTE REPLACE)) (* Save the text that will be moved down later on)) (T (* No succeeding line, so create one.) (SETQ NEXTLINE (\FORMATLINE TEXTOBJ NIL (ADD1 (fetch CHARLIM of LINE)))) (COND ((IGEQ (fetch YBOT of LINE) (IPLUS (fetch LHEIGHT of NEXTLINE) (fetch WBOTTOM of TEXTOBJ))) (replace YBOT of NEXTLINE with (IDIFFERENCE (fetch YBOT of LINE) (fetch LHEIGHT of NEXTLINE))) (replace YBASE of NEXTLINE with (IPLUS (fetch YBOT of NEXTLINE) (fetch DESCENT of NEXTLINE))) (\DISPLAYLINE TEXTOBJ NEXTLINE NIL NEXTCACHE)) ((AND (SETQ OFLOWFN (TEXTPROP TEXTOBJ (QUOTE OVERFLOWFN))) (APPLY* OFLOWFN DS TEXTOBJ)) (* This line overflowed the window. If it gets handled by user handler, just punt out.) (RETURN NIL))) (replace NEXTLINE of LINE with NEXTLINE) (replace PREVLINE of NEXTLINE with LINE) (SETQ NDX 0)))))) (T (* There is enough room on this line, so not to worry about moving text down.) (replace SPACELEFT of LINE with (IDIFFERENCE (fetch SPACELEFT of LINE) DX)) (replace LXLIM of LINE with (IPLUS OXLIM DX)))) (COND ((IGEQ (fetch YBOT of LINE) (fetch WBOTTOM of TEXTOBJ)) (* This line is fully on-screen. Move it over to make room for text, then move the text in from above.) (BITBLT DS (fetch LEFTMARGIN of LINE) (fetch YBOT of LINE) DS (IPLUS (fetch LEFTMARGIN of LINE) DX) (fetch YBOT of LINE) OXLIM (fetch LHEIGHT of LINE) (QUOTE INPUT) (QUOTE REPLACE)) (* Move this line over to make room.) (BITBLT NIL 0 0 DS (fetch LEFTMARGIN of LINE) (fetch YBOT of LINE) DX (fetch LHEIGHT of LINE) (QUOTE TEXTURE) (QUOTE REPLACE) WHITESHADE) (* Blank out the space just cleared.) (BITBLT (fetch LCBITMAP of IMAGECACHE) 0 0 DS (fetch LEFTMARGIN of LINE) (IPLUS (fetch YBOT of LINE) (IDIFFERENCE PREVDESCENT (fetch DESCENT of LINE))) SAVEWIDTH (fetch LHEIGHT of LINE) (QUOTE INPUT) (QUOTE PAINT)) (* Move the text in from above.) (BITBLT NIL 0 0 DS (fetch LXLIM of LINE) (fetch YBOT of LINE) (fetch WRIGHT of TEXTOBJ) (fetch LHEIGHT of LINE) (QUOTE TEXTURE) (QUOTE REPLACE) WHITESHADE) (* Blank out the area beyond the end of this line) (* Cache the new image) (OR (ILEQ NDX 0) (\PUSHTEXT (fetch NEXTLINE of LINE) (IDIFFERENCE OXLIM NDX) (fetch YBOT of LINE) NDX (ADD1 (fetch CHARLIM of LINE)) TEXTOBJ OCR\END NEXTCACHE NSAVEWIDTH (fetch DESCENT of LINE))) (* Now propogate the change to the next line.))) (replace DIRTY of LINE with NIL) (RETURN T))) \SHOWTEXTA0001 D1 (NAME ERRORSET L (0 NIL) F 2 WINDOW F 3 TEXTOBJ F 4 LINES F 5 RESETVARSLST F 6 RESETY) g` hhUc `Rg HdIdjdjdm S$kHdIdhdmdj S$HdIdk(djdjdjd`(dj( dj(dhdjdjcRgT Rg TShR SR Tc i(301Q \TEDIT.SET.WINDOW.EXTENT 273Q \FILLWINDOW 263Q GETWINDOWPROP 253Q PUTWINDOWPROP 35Q GETWINDOWPROP 10Q CURSOR) (260Q HEIGHT 247Q LINES 202Q TEDIT.DEFAULT.FMTSPEC 135Q TEXTOBJ 73Q TEXTOBJ 32Q HEIGHT 25Q LINEDESCRIPTORTYPE# 5 WAITINGCURSOR 2 CURSOR) () \SHOWTEXT D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 WREG I 2 WINDOW I 1 LINES I 0 TEXTOBJ F 4 LISPXHIST F 5 RESETVARSLST) C@;B@ bhB jgB T!Uog hg[ KJ(76Q ERROR! 71Q RESETRESTORE 57Q \SHOWTEXTA0001 40Q DSPFILL 30Q DSPCLIPPINGREGION 21Q \TEDIT.PRIMARYW) (65Q ERROR 54Q INTERNAL 34Q REPLACE 3 TEXTOBJ) ( 51Q (\SHOWTEXTA0001)) \TEDIT.ADJUST.LINES D1 (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 (576Q BKBITBLT 541Q BKBITBLT 461Q \FILLWINDOW 413Q BKBITBLT 355Q BKBITBLT 173Q TEXTOBJ 166Q BKBITBLT 32Q \FZEROP) (571Q REPLACE 566Q TEXTURE 556Q TEXTOBJ 535Q REPLACE 532Q INPUT 524Q TEXTOBJ 515Q TEXTOBJ 507Q TEXTOBJ 473Q TEXTOBJ 447Q LINEDESCRIPTOR 433Q TEXTOBJ 425Q LINEDESCRIPTOR 406Q REPLACE 403Q TEXTURE 375Q TEXTOBJ 367Q TEXTOBJ 351Q REPLACE 346Q INPUT 340Q TEXTOBJ 331Q TEXTOBJ 320Q TEXTOBJ 272Q LINEDESCRIPTOR 257Q LINEDESCRIPTOR 251Q LINEDESCRIPTOR 245Q LINEDESCRIPTOR 232Q LINEDESCRIPTOR 226Q LINEDESCRIPTOR 203Q OVERFLOWFN 176Q TEXTOBJ 161Q REPLACE 156Q TEXTURE 151Q LINEDESCRIPTOR 143Q TEXTOBJ 123Q TEXTOBJ 107Q LINEDESCRIPTOR 100Q LINEDESCRIPTOR 64Q TEXTOBJ 56Q LINEDESCRIPTOR 21Q TEXTOBJ) () \TEDIT.BLTCHAR D1 (L (5 CLIPRIGHT 4 DDPILOTBBT 3 DISPLAYDATA 2 CURX 1 DISPLAYSTREAM 0 CHARCODE) P 5 \INTERRUPTABLE) fPCd>@@ C@l[BKXjBBjYEdHHZdI.DIDKJIټdLLDC@lDjvh(17Q \CHANGECHARSET.DISPLAY) (123Q \DISPLAYDATA 24Q \DISPLAYDATA) () \TEDIT.CLEAR.SCREEN.BELOW.LINE D1 (I 2 LINE I 1 WINDOW I 0 TEXTOBJ) +hjdAj@(@$B@(ggj (50Q BKBITBLT) (43Q REPLACE 40Q TEXTURE 32Q TEXTOBJ 24Q LINEDESCRIPTOR 16Q TEXTOBJ 10Q TEXTOBJ) () \TEDIT.CLOSEUPLINES D1 (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(537Q BKBITBLT 403Q \FORMATLINE 331Q \DISPLAYLINE 173Q BKBITBLT) (532Q REPLACE 527Q TEXTURE 521Q TEXTOBJ 511Q TEXTOBJ 503Q TEXTOBJ 464Q LINEDESCRIPTOR 452Q LINEDESCRIPTOR 444Q LINEDESCRIPTOR 440Q LINEDESCRIPTOR 430Q LINEDESCRIPTOR 417Q LINEDESCRIPTOR 412Q LINEDESCRIPTOR 374Q LINEDESCRIPTOR 366Q LINEDESCRIPTOR 354Q TEXTOBJ 346Q LINEDESCRIPTOR 336Q LINEDESCRIPTOR 315Q LINEDESCRIPTOR 310Q LINEDESCRIPTOR 300Q LINEDESCRIPTOR 261Q TEXTOBJ 253Q LINEDESCRIPTOR 240Q TEXTOBJ 230Q LINEDESCRIPTOR 213Q TEXTOBJ 167Q REPLACE 164Q INPUT 156Q LINEDESCRIPTOR 147Q TEXTOBJ 141Q LINEDESCRIPTOR 131Q TEXTOBJ 122Q TEXTOBJ 113Q TEXTOBJ 105Q TEXTOBJ 74Q LINEDESCRIPTOR 57Q LINEDESCRIPTOR 51Q LINEDESCRIPTOR 26Q TEXTOBJ 14Q TEXTOBJ 6 TEXTOBJ) () \TEDIT.COPY.LINEDESCRIPTOR D1 (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.CREATE.LINECACHE D1 (P 1 I I 0 #CACHES) N@kBIH'`ldl dMK Lh[IkYL&JJd[KJJ(24Q BITMAPCREATE) (74Q LINECACHE 14Q LINECACHETYPE#) () \TEDIT.FIXCHANGEDLINE D1 (P 12Q NEWLINE P 11Q OFLOWFN P 10Q 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 11Q PREVDESCENT I 10Q 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(744Q \TEDIT.CLEAR.SCREEN.BELOW.LINE 654Q RETFROM 621Q TEXTOBJ 545Q \DISPLAYLINE 507Q \TEDIT.ADJUST.LINES 405Q \DISPLAYLINE 343Q \TEDIT.ADJUST.LINES 260Q \TEDIT.NEXT.LINE.BOTTOM 161Q \TEDIT.COPY.LINEDESCRIPTOR 151Q \TEDIT.INSERTLINE 101Q \FORMATLINE) (737Q LINEDESCRIPTOR 725Q LINEDESCRIPTOR 713Q LINEDESCRIPTOR 671Q TEXTOBJ 665Q LINEDESCRIPTOR 661Q LINEDESCRIPTOR 651Q \TEDIT.FIXCHANGEDLINE 631Q OVERFLOWFN 624Q TEXTOBJ 602Q LINEDESCRIPTOR 572Q LINEDESCRIPTOR 557Q LINEDESCRIPTOR 531Q LINEDESCRIPTOR 524Q LINEDESCRIPTOR 514Q LINEDESCRIPTOR 500Q LINEDESCRIPTOR 467Q LINEDESCRIPTOR 460Q FMTSPEC 453Q LINEDESCRIPTOR 440Q LINEDESCRIPTOR 430Q LINEDESCRIPTOR 415Q TEXTOBJ 370Q LINEDESCRIPTOR 362Q LINEDESCRIPTOR 351Q LINEDESCRIPTOR 334Q LINEDESCRIPTOR 324Q LINEDESCRIPTOR 317Q LINEDESCRIPTOR 307Q LINEDESCRIPTOR 265Q TEXTOBJ 253Q LINEDESCRIPTOR 235Q LINEDESCRIPTOR 231Q LINEDESCRIPTOR 216Q LINEDESCRIPTOR 203Q LINEDESCRIPTOR 166Q THISLINE 135Q LINEDESCRIPTOR 125Q LINEDESCRIPTOR 112Q LINEDESCRIPTOR 67Q LINEDESCRIPTOR 60Q LINEDESCRIPTOR 43Q LINEDESCRIPTOR 27Q LINEDESCRIPTOR 16Q LINEDESCRIPTOR) () \TEDIT.FIXCHANGEDPART D1 (P 27Q NEXTCARETCH# P 26Q TYBOT P 25Q NEWLINE P 24Q OFLOWFN P 23Q DY P 22Q CLEARBOTTOM P 21Q WBOTTOM P 20Q WHEIGHT P 17Q THISLINE P 16Q TEXTLEN P 15Q TPREVLINE P 14Q PREVLINE P 13Q OLHEIGHT P 12Q OCHLIM P 11Q CHARLIM P 10Q 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@KKiB@ OKkJJkdOOK@B 0@MKBOOO OO.O [d8k_K]OO#Kh@jTK_[J_$!CKOO.h__$O$@BO O(1211Q \TEDIT.CLEAR.SCREEN.BELOW.LINE 1167Q \SYSBUFP 1044Q \TEDIT.FIXCHANGEDLINE 1011Q TEDIT.DELETELINE 750Q \TEDIT.CLOSEUPLINES 744Q \TEDIT.PRIMARYW 707Q \TEDIT.NEXT.LINE.BOTTOM 600Q GETWINDOWUSERPROP 563Q GETWINDOWUSERPROP 555Q \TEDIT.PRIMARYW 544Q \FZEROP 523Q BKBITBLT 475Q DSPCLIPPINGREGION 434Q \FZEROP 260Q \TEDIT.CLOSEUPLINES 254Q \TEDIT.PRIMARYW 224Q \TEDIT.NEXT.LINE.BOTTOM 35Q DSPCLIPPINGREGION 20Q GETWINDOWUSERPROP 6 \TEDIT.PRIMARYW) (1151Q LINEDESCRIPTOR 1130Q LINEDESCRIPTOR 1115Q TEXTOBJ 1105Q LINEDESCRIPTOR 1066Q LINEDESCRIPTOR 1053Q LINEDESCRIPTOR 1036Q LINEDESCRIPTOR 757Q LINEDESCRIPTOR 731Q LINEDESCRIPTOR 713Q LINEDESCRIPTOR 702Q LINEDESCRIPTOR 656Q TEXTOBJ 636Q LINEDESCRIPTOR 626Q LINEDESCRIPTOR 617Q LINEDESCRIPTOR 605Q TEXTOBJ 575Q LINES 566Q LINEDESCRIPTOR 560Q LINES 516Q REPLACE 513Q TEXTURE 505Q TEXTOBJ 466Q TEXTOBJ 444Q LINEDESCRIPTOR 424Q LINEDESCRIPTOR 413Q LINEDESCRIPTOR 367Q LINEDESCRIPTOR 351Q LINEDESCRIPTOR 342Q LINEDESCRIPTOR 327Q LINEDESCRIPTOR 313Q LINEDESCRIPTOR 300Q LINEDESCRIPTOR 266Q TEXTOBJ 241Q LINEDESCRIPTOR 217Q LINEDESCRIPTOR 207Q LINEDESCRIPTOR 171Q LINEDESCRIPTOR 141Q SELECTION 134Q TEXTOBJ 72Q TEXTOBJ 61Q TEXTOBJ 23Q LINEDESCRIPTOR 15Q LINES) () \TEDIT.INSERTLINE D1 (L (1 BEFORELINE 0 NEWLINE)) *A@H@AA@Hd@hNIL (43Q LINEDESCRIPTOR 32Q LINEDESCRIPTOR 23Q LINEDESCRIPTOR 14Q LINEDESCRIPTOR 3 LINEDESCRIPTOR) () \TEDIT.LINE.LIST D1 (L (1 WINDOW 0 TEXTOBJ)) 8@@"HHhHHIhIhIIJAKNIL (11Q TEXTOBJ 3 TEXTOBJ) () \TEDIT.LINECACHE D1 (P 2 CH P 1 CW P 0 BITMAP I 2 HEIGHT I 1 WIDTH I 0 CACHE) <@1HYHZAIBJH@IdAAJdBB [K(65Q BITMAPCREATE) (44Q LINECACHE 23Q BITMAP 14Q BITMAP 3 LINECACHE) () \TEDIT.MARK.LINES.DIRTY D1 (P 5 WW P 3 CHLIM# P 2 CH# I 2 CHLIM I 1 CH1 I 0 TEXTOBJ) xA@HdIIBdmj@k@#L @kThLhLLMg ^KNdJNk(N(113Q GETWINDOWUSERPROP) (162Q LINEDESCRIPTOR 151Q LINEDESCRIPTOR 136Q LINEDESCRIPTOR 123Q LINEDESCRIPTOR 110Q LINES 62Q TEXTOBJ 46Q TEXTOBJ 36Q TEXTOBJ 4 TEXTOBJ) () \TEDIT.NEXT.LINE.BOTTOM D1 (L (2 PREVLINE 1 LINE 0 CURYBOT) F 4 YBOT) R@A(Z [6TBKAٸA(Pj"JB(عHITA XHNIL (112Q LINEDESCRIPTOR 75Q FMTSPEC 70Q LINEDESCRIPTOR 62Q FMTSPEC 47Q LINEDESCRIPTOR 36Q LINEDESCRIPTOR 26Q LINEDESCRIPTOR 14Q FMTSPEC 6 LINEDESCRIPTOR) () \TEDIT.PURGE.SPACES D1 (L (1 PREVSP 0 CHLIST)) .Adjhkٸ@HHb@HHl NIL (37Q ARRAYP 20Q ARRAYP) () (PRETTYCOMPRINT TEDITSCREENCOMS) (RPAQQ TEDITSCREENCOMS ((RECORDS THISLINE LINEDESCRIPTOR LINECACHE) (CONSTANTS (LMInvisibleRun 401) ( LMLooksChange 400)) (FILES TEXTOFD TEDITLOOKS IMAGEOBJ) (FNS TEDIT.CR.UPDATESCREEN TEDIT.DELETELINE TEDIT.INSERT.DISPLAYTEXT TEDIT.INSERT.UPDATESCREEN TEDIT.UPDATE.SCREEN \BACKFORMAT \DISPLAYLINE \DOFORMATTING \FILLWINDOW \FIXDLINES \FIXILINES \FORMATLINE \PULLTEXT \PUSHTEXT \SHOWTEXT \TEDIT.ADJUST.LINES \TEDIT.BLTCHAR \TEDIT.CLEAR.SCREEN.BELOW.LINE \TEDIT.CLOSEUPLINES \TEDIT.COPY.LINEDESCRIPTOR \TEDIT.CREATE.LINECACHE \TEDIT.FIXCHANGEDLINE \TEDIT.FIXCHANGEDPART \TEDIT.INSERTLINE \TEDIT.LINE.LIST \TEDIT.LINECACHE \TEDIT.MARK.LINES.DIRTY \TEDIT.NEXT.LINE.BOTTOM \TEDIT.PURGE.SPACES))) (DATATYPE THISLINE ((* Cache for line-related character location info, for selection code to use) ( DESC FULLXPOINTER) (* Line descriptor for the line this describes now) LEN (* Length of the line in characters) CHARS (* Array of character codes (or objects) on the line (charcode of 400 => dummy entry for looks change--go get next entry in LOOKS)) WIDTHS (* Array of each character's width in points) LOOKS (* Array of any looks changes within the line. LOOKS (0) = starting character looks for the line )) LEN _ 0 CHARS _ (ARRAY 256 (QUOTE POINTER) 0 0) WIDTHS _ (ARRAY 256 (QUOTE SMALLP) 0 0) LOOKS _ ( ARRAY 256 (QUOTE POINTER) NIL 0)) (DATATYPE LINEDESCRIPTOR (YBOT (* Y value for the bottom of the line (below the descent)) YBASE (* Yvalue for the base line the characters sit on) LEFTMARGIN (* Left margin, in screen points) RIGHTMARGIN (* Right margin, in screen points) LXLIM (* X value of right edge of rightmost character on the line (may exceed right margin, if char is a space.)) SPACELEFT (* Space left on the line, ignoring trailing blanks & CRs.) LHEIGHT (* Total height of hte line, Ascent+Descent.) ASCENT (* Ascent of the line above YBASE) DESCENT (* How far line descends below YBASE) LTRUEDESCENT (* The TRUE DESCENT for this line, unadjusted for line leading.) LTRUEASCENT (* The TRUE ASCENT for this line, unadjusted for pre-paragraph leading.) CHAR1 (* CH# of the first character on the line.) CHARLIM (* CH# of the last character on the line) CHARTOP (* CH# of the character which forced the line break ( may exceed CHARLIM)) NEXTLINE (* Next line chain pointer) (PREVLINE FULLXPOINTER) (* Previous line chain pointer) LMARK (* One of SOLID, GREY, NIL. Tells what kind of special-line marker should be put in the left margin for this paragraph. (For hardcopy, can also be an indicator for special processing? )) LTEXTOBJ (* A cached TEXTOBJ that this line took its text from. Used in hardcopy to disambiguate when chno's should be updated...) CACHE (* A cached THISLINE, for keeping hardcopy info around while we crunch with the line descriptors to make things fit.) LDOBJ (* The object which lies behind this line of text, for updating, etc.) LFMTSPEC (* The format spec for this line's paragraph (eventually)) (DIRTY FLAG) (* T if this line has changed since it was last formatted.) (CR\END FLAG) (* T if this line ends with a CR.) (DELETED FLAG) (* T if this line has been completely deleted since it was last formatted or displayed. (Used by deletion routines to detect garbage lines)) (LHASPROT FLAG) (* This line contains protected text.) (LHASTABS FLAG) (* If this line has a tab in it, this is the line-relative ch# of the final tab. This is to let us punt properly with tabs in a line.) (1STLN FLAG) (* This line is the first line in a paragraph) (LSTLN FLAG) (* This is the last line in a paragraph)) CHARLIM _ 1000000 NEXTLINE _ NIL PREVLINE _ NIL DIRTY _ NIL YBOT _ 0 YBASE _ 0 LEFTMARGIN _ 0 DELETED _ NIL) (DATATYPE LINECACHE (LCBITMAP (* The bitmap that will be used by this instance of the cache) ( LCNEXTCACHE FULLXPOINTER) (* The next cache in the chain, for screen updates.))) (/DECLAREDATATYPE (QUOTE THISLINE) (QUOTE (FULLXPOINTER POINTER POINTER POINTER POINTER)) (QUOTE (( THISLINE 0 FULLXPOINTER) (THISLINE 2 POINTER) (THISLINE 4 POINTER) (THISLINE 6 POINTER) (THISLINE 8 POINTER))) (QUOTE 10)) (/DECLAREDATATYPE (QUOTE LINEDESCRIPTOR) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG)) (QUOTE ((LINEDESCRIPTOR 0 POINTER) ( LINEDESCRIPTOR 2 POINTER) (LINEDESCRIPTOR 4 POINTER) (LINEDESCRIPTOR 6 POINTER) (LINEDESCRIPTOR 8 POINTER) (LINEDESCRIPTOR 10 POINTER) (LINEDESCRIPTOR 12 POINTER) (LINEDESCRIPTOR 14 POINTER) ( LINEDESCRIPTOR 16 POINTER) (LINEDESCRIPTOR 18 POINTER) (LINEDESCRIPTOR 20 POINTER) (LINEDESCRIPTOR 22 POINTER) (LINEDESCRIPTOR 24 POINTER) (LINEDESCRIPTOR 26 POINTER) (LINEDESCRIPTOR 28 POINTER) ( LINEDESCRIPTOR 30 FULLXPOINTER) (LINEDESCRIPTOR 32 POINTER) (LINEDESCRIPTOR 34 POINTER) ( LINEDESCRIPTOR 36 POINTER) (LINEDESCRIPTOR 38 POINTER) (LINEDESCRIPTOR 40 POINTER) (LINEDESCRIPTOR 40 (FLAGBITS . 0)) (LINEDESCRIPTOR 40 (FLAGBITS . 16)) (LINEDESCRIPTOR 40 (FLAGBITS . 32)) ( LINEDESCRIPTOR 40 (FLAGBITS . 48)) (LINEDESCRIPTOR 40 (FLAGBITS . 64)) (LINEDESCRIPTOR 40 (FLAGBITS . 80)) (LINEDESCRIPTOR 40 (FLAGBITS . 96)))) (QUOTE 42)) (/DECLAREDATATYPE (QUOTE LINECACHE) (QUOTE (POINTER FULLXPOINTER)) (QUOTE ((LINECACHE 0 POINTER) ( LINECACHE 2 FULLXPOINTER))) (QUOTE 4)) (RPAQQ LMInvisibleRun 401) (RPAQQ LMLooksChange 400) (CONSTANTS (LMInvisibleRun 401) (LMLooksChange 400)) (FILESLOAD TEXTOFD TEDITLOOKS IMAGEOBJ) (PUTPROPS TEDITSCREEN COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985)) NIL