(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "23-Mar-87 13:42:16" ("compiled on " {ERIS}TEDITSELECTION.;24) "12-Mar-87 11:31:33" bcompl'd in "Xerox Lisp 12-Mar-87 ..." dated "12-Mar-87 12:04:37") (FILECREATED "24-Feb-87 13:00:16" {ERIS}TEDITSELECTION.;24 120335 changes to%: (VARS TEDITSELECTIONCOMS) previous date%: "20-Feb-87 20:31:02" {ERIS}TEDITSELECTION.;23) TEDIT.SEL.AS.STRING :D4 (P 7 I P 5 BASE P 4 OFFST P 3 RESULT P 2 TSEL P 1 LEN P 0 TEXTOBJ I 1 SEL I 0 STREAM) j@ bdQAHZd Ydjddd oIl JH IkONKOH. Ok_K(93 RPLCHARCODE 68 \SETUPGETCH 57 ALLOCSTRING 45 \FZEROP 3 TEXTSTREAM) (87 TEXTOBJ 62 SELECTION 28 SELECTION 21 TEXTOBJ 9 STREAM) ( 50 "") TEDIT.SELECTED.PIECES :D4 (P 21 I P 17 UNDOCHAIN P 16 COPYFN P 15 OBJ P 14 PCLST P 13 INSERTCH# P 12 REPLACING P 11 EVENT P 10 OPLEN P 9 NPCCH P 8 PCCH P 7 NPC P 6 PC P 5 INSPC# P 4 INSPC P 3 LEN P 2 PCTB P 1 CHLIM P 0 CH1 I 5 FNARG2 I 4 FNARG1 I 3 PIECEMAPFN I 2 CROSSCOPY I 1 SEL I 0 TEXTOBJ) "AA @ h _JkkllO,IO,jO,O, jO,O*JkklO*JkklJO*O*_JO*k_$O$O$JO*l_&O&O&_HPIOWHONH@O* O*l_*@OINI@O* @OCN@DElCN_ O*l_,_*O(268 TCONC 240 \SPLITPIECE 211 \SPLITPIECE 71 \FZEROP 27 TCONC) (245 TEXTOBJ 224 TEXTOBJ 175 ARRAYP 152 ARRAYP 128 ARRAYP 108 ARRAYP 87 ARRAYP 33 ARRAYP 15 TEXTOBJ 9 SELECTION 3 SELECTION) () \TEDIT.FIND.FIRST.LINE :D4 (P 5 CH P 4 CHNO P 3 LINE P 2 TEXTSTREAM P 1 WWIDTH P 0 LINES I 3 WINDOW I 2 CH# I 1 WHEIGHT I 0 TEXTOBJ) CCg @@$@.s @^jNB@h kHhH@:j@B >B@ jlBk__OOLJ ]l Lm԰LdkkBjBLkؼB@_dOOb@hL [AHKKHKXk\BK(180 \FORMATLINE 124 \BACKBIN 98 \SETUPGETCH 90 \TEDIT.PARABOUNDS 62 \FZEROP 8 GETWINDOWUSERPROP) (209 LINEDESCRIPTOR 200 LINEDESCRIPTOR 192 LINEDESCRIPTOR 184 LINEDESCRIPTOR 159 TEXTOBJ 79 TEXTOBJ 70 LINEDESCRIPTOR 52 TEXTOBJ 35 TEXTOBJ 26 TEXTOBJ 20 TEXTOBJ 14 TEXTOBJ 5 LINES) () \TEDIT.FIND.LAST.LINE :D4 (P 2 CURY P 1 LINE P 0 OLINE I 1 LINES I 0 TEXTOBJ) =A@b@*AddII@(IXYHNIL (52 LINEDESCRIPTOR 42 TEXTOBJ 36 LINEDESCRIPTOR 24 LINEDESCRIPTOR 14 TEXTOBJ 5 TEXTOBJ) () \TEDIT.FIND.OVERLAPPING.LINE :D4 (I 1 Y I 0 LINES) @dA@@bNIL (17 LINEDESCRIPTOR 6 LINEDESCRIPTOR) () \TEDIT.FIND.PROTECTED.END :D4 (P 4 PCTB P 3 OURLIMIT P 2 I I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) @kkA@ kB@@HdII@4MEMjMM jMJ@kkJ@kkRLJkپNNKKLJJ  jLJk_OOkJl]Ժmh(81 \FZEROP 26 \CHTOPCNO) (191 ARRAYP 174 CHARLOOKS 169 PIECE 158 ARRAYP 141 ARRAYP 122 ARRAYP 117 TEXTOBJ 100 ARRAYP 95 TEXTOBJ 58 TEXTOBJ 41 TEXTOBJ 35 TEXTOBJ 21 TEXTOBJ 8 ARRAYP 3 TEXTOBJ) () \TEDIT.FIND.PROTECTED.START :D4 (P 4 PCTB P 3 OURLIMIT P 2 I I 2 LIMITCH# I 1 CH# I 0 TEXTOBJ) lA@HdIIkHHk@ kBk@4MMjgMM ]jMlJJlOLJkپNNKKLJJ  jLJk_OOJm]Ժh(70 \FZEROP 39 \CHTOPCNO) (144 ARRAYP 127 CHARLOOKS 122 PIECE 111 ARRAYP 94 ARRAYP 49 TEXTOBJ 34 TEXTOBJ 6 TEXTOBJ) () \TEDIT.WORD.BOUND :D4 (P 2 SYN2 P 1 SYN1 P 0 READSA I 2 CH I 1 PREVCH I 0 TEXTOBJ F 3 TEDIT.WORDBOUND.READTABLE) z@DS!A3 B3 iHo AlHɀAHɀ jHAYHo BlHɀBHɀ jHBZIJh(106 GETHASH 82 RAID 62 GETHASH 38 RAID) (101 CHARTABLE 93 CHARTABLE 74 CHARTABLE 57 CHARTABLE 49 CHARTABLE 30 CHARTABLE 11 READTABLEP 3 TEXTOBJ) ( 79 (Check-failure%: (type? CHARTABLE READSA)) 35 (Check-failure%: (type? CHARTABLE READSA))) TEDIT.EXTEND.SEL :D4 (P 4 FIXUPNEEDED P 3 SETOSELFLG P 2 NPOINT P 1 TEXTLEN P 0 NSEL I 6 NEWSEL I 5 SELWINDOW I 4 SELOPERATION I 3 TEXTOBJ I 2 OSEL I 1 Y I 0 X) B F=@ACBdgdgggBg BgDEi C Ij2I(HBjHD H B T HHBg=H B ٽjMMjMHBپjNNjNigigZdgHH BdgBB ؎gB _dOO HBHBHB DgHHCB kH _dOOiPgHHBdgBgB B ق_dOOHBHBHB DgHH CBCBH k k k_dOO HH H_dOOiwHB  HBHBHB HBHBHBHB BHIkH _dOOH HHH  HJHHHBHHhLHC KHB H(830 \COPYSEL 822 \FIXSEL 701 COPY 646 COPY 544 \TEDIT.FIND.PROTECTED.END 539 \TEDIT.FIND.PROTECTED.END 492 COPY 439 SHOULDNT 359 \TEDIT.FIND.PROTECTED.START 319 COPY 266 SHOULDNT 121 \FZEROP 100 \TEDIT.SET.SEL.LOOKS 61 TEDIT.SELECT) (811 SELECTION 803 SELECTION 797 SELECTION 787 SELECTION 781 SELECTION 777 SELECTION 769 SELECTION 759 SELECTION 753 SELECTION 749 SELECTION 739 SELECTION 722 SELECTION 715 SELECTION 708 SELECTION 696 SELECTION 692 SELECTION 683 SELECTION 679 SELECTION 670 SELECTION 666 SELECTION 657 SELECTION 653 SELECTION 641 SELECTION 637 SELECTION 628 SELECTION 624 SELECTION 615 SELECTION 611 SELECTION 602 SELECTION 598 SELECTION 574 SELECTION 568 SELECTION 564 SELECTION 532 SELECTION 526 SELECTION 519 SELECTION 512 SELECTION 508 SELECTION 499 COPY 487 SELECTION 483 SELECTION 474 SELECTION 470 SELECTION 461 SELECTION 457 SELECTION 432 SELECTION 426 SELECTION 420 RIGHT 413 SELECTION 406 LEFT 400 SELECTION 394 SELECTION 390 SELECTION 381 RIGHT 354 SELECTION 346 SELECTION 339 SELECTION 335 SELECTION 326 COPY 314 SELECTION 310 SELECTION 301 SELECTION 297 SELECTION 288 SELECTION 284 SELECTION 260 SELECTION 254 RIGHT 247 SELECTION 241 SELECTION 234 LEFT 228 SELECTION 222 SELECTION 218 SELECTION 208 LEFT 203 RIGHT 197 LEFT 177 SELECTION 171 SELECTION 154 SELECTION 148 SELECTION 142 LEFT 135 SELECTION 129 SELECTION 111 SELECTION 105 SELECTION 88 SELECTION 65 TEXTOBJ 53 PARA 48 SELECTION 41 WORD 36 SELECTION 32 TEXT 27 LINE 21 PARA 15 LINE 9 SELECTION) () TEDIT.SELECT :D4 (P 4 LN P 3 L1 P 2 PREVLINE P 1 SEL P 0 TEXTLEN I 7 EXTENDING I 6 WINDOW I 5 SELOPERATION I 4 WORDSELFLG I 3 REGION I 2 TEXTOBJ I 1 Y I 0 X) EBa@ABdF CDEFG YdIjIE I-I((jIIo I-I((jIIo IIIIBFi III(0jhIBYkIBIHJdMMkؾkNNkII Ij IIBggIE IB I(321 \FIXSEL 315 \TEDIT.SET.SEL.LOOKS 185 \FIXSEL 155 FIXR 103 FIXR 53 \TEDIT.SET.SEL.LOOKS 26 TEDIT.SELECT.LINE.SCANNER 16 \TEDIT.LINE.LIST) (307 RIGHT 303 LEFT 296 TEXTOBJ 290 SELECTION 286 SELECTION 278 SELECTION 269 SELECTION 265 SELECTION 239 LINEDESCRIPTOR 234 SELECTION 226 SELECTION 217 SELECTION 211 TEXTOBJ 197 LINEDESCRIPTOR 191 LINEDESCRIPTOR 172 SELECTION 166 SELECTION 162 SELECTION 145 SELECTION 141 SELECTION 130 FMTSPEC 125 LINEDESCRIPTOR 119 SELECTION 110 SELECTION 93 SELECTION 89 SELECTION 78 FMTSPEC 73 LINEDESCRIPTOR 67 SELECTION 58 SELECTION 39 SELECTION 31 SELECTION 3 TEXTOBJ) ( 151 35.27778 99 35.27778) TEDIT.SCAN.LINE :D4 (P 25 CHNO P 24 I P 19 PCLOOKS P 18 CLOOKS P 17 LN P 16 L1 P 15 CHB P 14 TXB P 13 CHOBJB P 12 PREVCH P 11 TX P 10 YBASE P 9 YBOT P 8 OTX P 7 L P 6 TEXTLEN P 5 CH P 4 DX P 3 LOOKNO P 2 LLIST P 1 CHLIST P 0 WLIST I 8 EXTENDING I 7 WINDOW I 6 SELOPERATION I 5 WORDSELFLG I 4 Y I 3 X I 2 THISLINE I 1 LINE I 0 TEXTOBJ) t BBBkjl @BA@hAA A((jCo bA___CdOdbAk_J_$CAoo BjAkO0O.M_O$_&IO0O0]dn/O2JKK_2KkԻO0k_0IO0O0]noo Mn+JKK_$KkԻO0k_0IO0O0OCpFgO&@jO& jPEO@OM >O0jO0O0 oo @_kOEgg@OOACDOGFG OAOO&@jOEOOOO&@jjEOOـLOO&@jO2k؈EOk؁O2_(kO(O(kOO&OOO&O2k OAOO@3O6_:O4_hO8_>O8_8O<O:O>GO:AOhO8_>O8_8O<O:O>GO:AOhO8_>O8_8O<O:O>GO:AOOOjOCko OO@o OOO@_4O2O4_2LODrOO@O@n!OBk_BODOOBOBk_D,OO@O@nODk_DOBk_B@O2O@k_@ODk_D.uLO0kjCHO08@O0O0((jh_O,O0@O0O0__0@@@@@O*_*O,E(1320 RAID 1301 RAID 1226 \FORMATLINE 1124 FIXR 1099 FIXR 718 \FORMATLINE 515 RAID 496 RAID 421 \FORMATLINE 47 DSPCLIPPINGREGION 36 \TEDIT.MAINW) (1596 SELECTION 1590 SELECTION 1586 SELECTION 1576 SELECTION 1572 SELECTION 1561 LINEDESCRIPTOR 1549 LINEDESCRIPTOR 1544 SELECTION 1524 FMTSPEC 1519 LINEDESCRIPTOR 1509 LINEDESCRIPTOR 1504 SELECTION 1495 LINEDESCRIPTOR 1480 LINEDESCRIPTOR 1448 SELECTION 1415 ARRAYP 1393 ARRAYP 1363 ARRAYP 1333 ARRAYP 1326 ARRAYP 1307 ARRAYP 1288 ARRAYP 1277 ARRAYP 1252 LINEDESCRIPTOR 1243 THISLINE 1232 THISLINE 1219 LINEDESCRIPTOR 1206 THISLINE 1190 TEXTOBJ 1184 LINEDESCRIPTOR 1171 SELECTION 1167 SELECTION 1158 LEFT 1153 SELECTION 1145 SELECTION 1132 SELECTION 1114 SELECTION 1110 SELECTION 1089 SELECTION 1085 SELECTION 1071 LINEDESCRIPTOR 1065 SELECTION 1056 LINEDESCRIPTOR 1050 SELECTION 1042 LINEDESCRIPTOR 1026 LINEDESCRIPTOR 1015 LINEDESCRIPTOR 1000 SELECTION 991 RIGHT 986 SELECTION 971 LINEDESCRIPTOR 960 LINEDESCRIPTOR 955 SELECTION 946 LINEDESCRIPTOR 931 FMTSPEC 926 LINEDESCRIPTOR 910 LINEDESCRIPTOR 905 SELECTION 892 LINEDESCRIPTOR 878 LINEDESCRIPTOR 865 LINEDESCRIPTOR 850 LINEDESCRIPTOR 845 SELECTION 831 FMTSPEC 826 LINEDESCRIPTOR 810 LINEDESCRIPTOR 805 SELECTION 794 LINEDESCRIPTOR 783 LINEDESCRIPTOR 768 LINEDESCRIPTOR 763 SELECTION 749 FMTSPEC 744 LINEDESCRIPTOR 728 LINEDESCRIPTOR 723 SELECTION 711 LINEDESCRIPTOR 698 THISLINE 689 TEXTOBJ 675 LINEDESCRIPTOR 643 SELECTION 610 ARRAYP 588 ARRAYP 558 ARRAYP 528 ARRAYP 521 ARRAYP 502 ARRAYP 483 ARRAYP 472 ARRAYP 447 LINEDESCRIPTOR 438 THISLINE 427 THISLINE 414 LINEDESCRIPTOR 401 THISLINE 390 LINEDESCRIPTOR 379 LINEDESCRIPTOR 374 SELECTION 365 LINEDESCRIPTOR 344 FMTSPEC 339 LINEDESCRIPTOR 329 LINEDESCRIPTOR 324 SELECTION 309 LINEDESCRIPTOR 295 LINEDESCRIPTOR 278 LINEDESCRIPTOR 258 THISLINE 249 THISLINE 240 THISLINE 215 SELECTION 132 TEXTOBJ 125 SELECTION 119 SELECTION 110 SELECTION 103 SELECTION 94 SELECTION 87 SELECTION 69 SELECTION 62 SELECTION 26 TEXTOBJ 19 TEXTOBJ 12 SELECTION 3 SELECTION) ( 1317 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 1298 (Check-failure%: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST)))) 1120 35.27778 1095 35.27778 512 (Check-failure%: (IGREATERP (fetch (ARRAYP LENGTH) of WLIST) I)) 493 (Check-failure%: (AND (ARRAYP WLIST) (EQ 0 (fetch (ARRAYP ORIG) of WLIST)) (EQ \ST.POS16 (fetch (ARRAYP TYP) of WLIST))))) \TEDIT.FIXDELSEL :D4 (I 4 DCH I 3 CH#LIM I 2 CH#1 I 1 TEXTOBJ I 0 SELTOFIX) @jA@@C%@@D@@ DHI I@ BT@B@B@B@ DHdII @@ Bjj@ @HI IhNIL (153 SELECTION 147 SELECTION 134 SELECTION 130 SELECTION 109 SELECTION 104 SELECTION 96 SELECTION 86 SELECTION 76 SELECTION 59 SELECTION 55 SELECTION 45 SELECTION 41 SELECTION 30 SELECTION 17 SELECTION 3 SELECTION) () \TEDIT.FIXINSSEL :D4 (P 1 CHLIM P 0 CH# I 3 DCH I 2 CH#1 I 1 TEXTOBJ I 0 SELTOFIX) 8 @j)A@ @XB@HC@ YB @IC hNIL (18 SELECTION 6 SELECTION) () \TEDIT.FIXSELS :D4 (P 1 SELN I 1 EXCEPT I 0 TEXTOBJ) A@@ @@"hHhYdAjI@ HX(57 \FIXSEL) (46 SELECTION 21 TEXTOBJ 15 TEXTOBJ 9 TEXTOBJ 3 TEXTOBJ) () TEDIT.RESET.EXTEND.PENDING.DELETE :D4 (I 0 SEL F 0 TEDIT.PENDINGDEL) *@dg hc@@jFjdh(8 \TEDIT.SET.SEL.LOOKS) (29 TEXTOBJ 24 SELECTION 16 SELECTION 5 NORMAL) () \TEDIT.SET.SEL.LOOKS :D4 (I 1 OPERATION I 0 SEL) Adg"@n@k@kkjhg!@nww@k@jjdhAdg#@nww@l@jjdhg"@m@n@@jjdhAdg%@n@n@@jjdhhg$@n@n@@kkjhhAg@n@n@@khNIL (269 SELECTION 259 SELECTION 249 SELECTION 242 INVERTED 226 SELECTION 217 SELECTION 208 SELECTION 201 PENDINGDEL 186 SELECTION 177 SELECTION 168 SELECTION 160 DELETE 144 SELECTION 135 SELECTION 127 SELECTION 120 MOVE 106 SELECTION 98 SELECTION 89 SELECTION 81 COPYLOOKS 65 SELECTION 58 SELECTION 49 SELECTION 42 COPY 28 SELECTION 21 SELECTION 12 SELECTION 4 NORMAL) () \SHOWSEL :D4 (P 15 CARET P 14 LN P 13 L1 P 12 LINES P 11 DS P 4 SHOWFN P 3 LL P 2 SHADEHEIGHT P 1 SHADE P 0 TEXTOBJ I 2 ON I 1 HOW I 0 SEL) @@n@k3@j@HXj@@HHH2UOJ_N@_O6O_hO_O_OO_hO_O_O@BkO_hO_O_@H@BO B@jH@OOOOJI @j@g3O%jO@OOHO umdO kO%jO@OOHO DmdO :B8@j-@jH:jO H@OOOOJI O_Nj]Mjhh(452 \SHOWSEL.HILIGHT 435 \EDIT.UPCARET 394 MOVETO 384 \SETCARET 345 MOVETO 335 \SETCARET 272 \SHOWSEL.HILIGHT 235 \TEDIT.OBJECT.SHOWSEL) (424 TEXTOBJ 414 SELECTION 403 SELECTION 373 LINEDESCRIPTOR 366 SELECTION 357 LINEDESCRIPTOR 324 LINEDESCRIPTOR 317 SELECTION 308 LINEDESCRIPTOR 295 LEFT 290 SELECTION 277 SELECTION 247 SELECTION 224 SELECTION 190 SELECTION 101 TEXTOBJ 95 TEXTOBJ 89 TEXTOBJ 83 SELECTION 77 SELECTION 62 TEXTOBJ 50 TEXTOBJ 45 SELECTION 32 SELECTION 20 SELECTION 9 SELECTION 3 SELECTION) () \SHOWSEL.HILIGHT :D4 (P 2 RIGHT P 1 LEFT P 0 LL I 9 XLIM I 8 X0 I 7 SHADE I 6 SHADEHEIGHT I 5 DS I 4 LN I 3 L1 I 2 LINES I 1 SEL I 0 TEXTOBJ)  pCDCCdDKjC?hjdEGACGAGAFC dK[KVCljCbC((jCo ChjdEGACJGAFC dLLggG CBXHXddDs@(cH((jHo׹Ho׌HHhjdEIHJIFH dMMggG HfH@(UH((jHoׅHhjdEIDGAIFH dNNggG h(446 BKBITBLT 341 BKBITBLT 203 BKBITBLT 137 FIXR) (440 INVERT 437 TEXTURE 425 LINEDESCRIPTOR 416 SELECTION 406 LINEDESCRIPTOR 394 LINEDESCRIPTOR 382 LINEDESCRIPTOR 372 FMTSPEC 367 LINEDESCRIPTOR 357 TEXTOBJ 351 LINEDESCRIPTOR 335 INVERT 332 TEXTURE 320 LINEDESCRIPTOR 310 LINEDESCRIPTOR 298 LINEDESCRIPTOR 291 LINEDESCRIPTOR 279 LINEDESCRIPTOR 267 LINEDESCRIPTOR 256 FMTSPEC 251 LINEDESCRIPTOR 241 TEXTOBJ 235 LINEDESCRIPTOR 219 LINEDESCRIPTOR 197 INVERT 194 TEXTURE 182 LINEDESCRIPTOR 174 SELECTION 163 LINEDESCRIPTOR 157 SELECTION 142 LINEDESCRIPTOR 127 LINEDESCRIPTOR 117 FMTSPEC 112 LINEDESCRIPTOR 103 LINEDESCRIPTOR 80 LINEDESCRIPTOR 72 SELECTION 62 SELECTION 52 LINEDESCRIPTOR 46 SELECTION 29 LINEDESCRIPTOR) ( 388 35.27778 285 35.27778 273 35.27778 133 35.27778) \TEDIT.UPDATE.SHOWSEL :D4 (P 33 CARET P 32 DS P 31 LN P 30 L1 P 25 DS P 24 OLDL1 P 23 LINES P 22 NEWLN P 21 OLDLN P 15 DS P 14 LINES P 13 OLDL1 P 12 NEWL1 P 7 CARET P 5 LL P 4 TSEL P 3 EXCHFLG P 2 SHADEHEIGHT P 1 SHADE P 0 TEXTOBJ I 2 TSTFLG I 1 OSEL I 0 NSEL) "AAnAk2@kAjH2NN@AA@@Abbi@AHHDOiN_hN_NO O_hO_O_O6O_hO_O_OO_hO_O_OPK@Abbh@ A @AbbiA@AHHUO$9pO_hO_O_HAOOOOJI@A _*O"0_,O %_0O&O&_.hO&_.O&_&O(KTA@bLbJO(_2hO(_2O(_(HAO.O*O,O2JIA@ O$_$O"_"O _ 8@jR@@HH2D!O60_O8O8_@hO8_@O8_8O:hO:_BhO:_BO:_:@gO<&@O@O>O@HOB O6_6O4_4u(679 \SETCARET 493 \SHOWSEL.HILIGHT 368 \SHOWSEL.HILIGHT 159 \EDIT.UPCARET) (668 LINEDESCRIPTOR 661 SELECTION 648 SELECTION 638 LEFT 633 SELECTION 548 TEXTOBJ 542 TEXTOBJ 536 SELECTION 530 SELECTION 519 SELECTION 487 SELECTION 481 SELECTION 362 SELECTION 356 SELECTION 307 TEXTOBJ 301 TEXTOBJ 295 SELECTION 289 SELECTION 283 SELECTION 264 SELECTION 258 SELECTION 127 TEXTOBJ 121 TEXTOBJ 115 SELECTION 109 SELECTION 90 SELECTION 84 SELECTION 73 SELECTION 67 SELECTION 54 TEXTOBJ 44 SELECTION 35 SELECTION 23 SELECTION 12 SELECTION 3 SELECTION) () \TEDIT.SHOWSELS :D4 (P 0 SELN I 2 ON I 1 HOW I 0 TEXTOBJ) =@@ @@"hdHjHAB h(51 \SHOWSEL) (39 SELECTION 21 TEXTOBJ 15 TEXTOBJ 9 TEXTOBJ 3 TEXTOBJ) () \TEDIT.REFRESH.SHOWSEL :D4 (P 0 NOSEL I 5 EXTENDING I 4 NEWOP I 3 OLDOP I 2 OLDSEL I 1 NEWSEL I 0 TEXTOBJ F 1 GLOBALSEL) ECDAB AB BkBhd CDDgDdg`c@Gg`4Ddg`c@'g`c@"Dg`c@ BjHjHhd HbD AB BjBhi HB(200 \SHOWSEL 184 \COPYSEL 178 \TEDIT.SET.SEL.LOOKS 170 \SHOWSEL 39 \SHOWSEL 21 \COPYSEL 15 \TEDIT.UPDATE.SHOWSEL) (189 SELECTION 158 SELECTION 149 SELECTION 142 TEXTOBJ 135 TEDIT.COPYLOOKSSELECTION 130 COPYLOOKS 122 TEXTOBJ 115 TEDIT.DELETESELECTION 110 DELETE 103 TEXTOBJ 96 TEDIT.MOVESELECTION 90 MOVE 83 TEDIT.SHIFTEDSELECTION 78 COPY 71 TEXTOBJ 64 TEDIT.SELECTION 58 PENDINGDEL 51 NORMAL 26 SELECTION) () \COPYSEL :D4 (I 1 TO I 0 FROM) (A@A@A@A@A@A@  A@  A@ A@ A@A@A@jkjHIIjhA@A@A@A@A@jkjHIIjhA@A@jkjHIIjh(111 COPY 96 COPY) (269 SELECTION 265 SELECTION 257 SELECTION 253 SELECTION 225 SELECTION 221 SELECTION 213 SELECTION 209 SELECTION 201 SELECTION 197 SELECTION 189 SELECTION 185 SELECTION 177 SELECTION 173 SELECTION 145 SELECTION 141 SELECTION 133 SELECTION 129 SELECTION 121 SELECTION 117 SELECTION 106 SELECTION 102 SELECTION 91 SELECTION 87 SELECTION 79 SELECTION 75 SELECTION 67 SELECTION 63 SELECTION 55 SELECTION 51 SELECTION 43 SELECTION 39 SELECTION 31 SELECTION 27 SELECTION 19 SELECTION 15 SELECTION 7 SELECTION 3 SELECTION) () \TEDIT.SEL.CHANGED? :D4 (I 3 NEWSELOP I 2 OLDSELOP I 1 OLDSEL I 0 NEWSEL) @djhAjhAjh@jhp@Aa@ A R@AC@Aj2@A#@A@ABChNIL (165 SELECTION 159 SELECTION 150 SELECTION 144 SELECTION 135 SELECTION 129 SELECTION 118 SELECTION 112 SELECTION 103 SELECTION 97 SELECTION 88 SELECTION 82 SELECTION 73 SELECTION 67 SELECTION 53 SELECTION 42 SELECTION 25 SELECTION 8 SELECTION) () TEDIT.GETPOINT :D4 (P 0 TSEL I 1 SEL I 0 STREAM) AA @ HdgHgH o kIIk(54 SHOULDNT 6 TEXTOBJ) (44 SELECTION 38 RIGHT 31 SELECTION 24 LEFT 18 SELECTION 9 TEXTOBJ) ( 51 "Selection's POINT is neither RIGHT nor LEFT.") TEDIT.GETSEL :D4 (I 0 STREAM) @`H (20 NCREATE2) (16 |SELECTIONTYPE#| 8 TEXTOBJ 3 STREAM) () TEDIT.MAKESEL :D4 (P 1 TEXTOBJ P 0 SEL I 3 POINT I 2 LEN I 1 CH# I 0 STREAM) p@@Hhd HAHAdBغdJJ HB HCgHIHkkjhIHI Hhi h(108 \SHOWSEL 101 \FIXSEL 25 \SHOWSEL) (93 TEXTOBJ 79 SELECTION 72 SELECTION 66 LEFT 60 SELECTION 53 SELECTION 36 SELECTION 29 SELECTION 14 STREAM 8 TEXTOBJ 3 STREAM) () TEDIT.SCANSEL :D4 (P 1 SEL P 0 TEXTOBJ I 0 STREAM) 0@HYdjIH I h(36 \SETUPGETCH) (41 SELECTION 30 SELECTION 19 SELECTION 12 TEXTOBJ 3 STREAM) () TEDIT.SET.SEL.LOOKS :D4 (P 0 WASON I 1 OPERATION I 0 SEL) !@jh@hd Adg @n@k@kg@nww@k@jAdg!@nww@l@jg@m@n@@jrAdg!@n@n@@jKg @n@n@@k'Ag!@n@n@@kk@hH h(285 \SHOWSEL 19 \SHOWSEL) (272 SELECTION 262 SELECTION 252 SELECTION 245 INVERTED 235 SELECTION 225 SELECTION 215 SELECTION 208 PENDINGDEL 199 SELECTION 189 SELECTION 179 SELECTION 171 DELETE 160 SELECTION 150 SELECTION 141 SELECTION 134 MOVE 124 SELECTION 115 SELECTION 105 SELECTION 97 COPYLOOKS 85 SELECTION 77 SELECTION 67 SELECTION 60 COPY 50 SELECTION 42 SELECTION 32 SELECTION 24 NORMAL 3 SELECTION) () TEDIT.SETSEL :D4 (P 2 TEXTLEN P 1 SEL P 0 TEXTOBJ I 6 OPERATION I 5 LEAVECARETLOOKS I 4 PENDINGDELFLG I 3 POINT I 2 LEN I 1 CH# I 0 STREAM) +@ aHYHZIhd AAI IjIkAAkJkػdKKIkAAkABJkؼdLLdMM IBdJJI IپdNN IAJCgIJBkIhIIH IHDHkFIFgI IFg IkkjhEHHI 4HIH Ihi I(295 \SHOWSEL 288 \FIXSEL 273 \TEDIT.GET.INSERT.CHARLOOKS 247 \TEDIT.SET.SEL.LOOKS 236 TEDIT.RESET.EXTEND.PENDING.DELETE 197 \CHTOPC 37 \COPYSEL 26 \SHOWSEL 3 TEXTOBJ) (280 TEXTOBJ 268 TEXTOBJ 252 SELECTION 244 NORMAL 231 PENDINGDEL 219 TEXTOBJ 209 SELECTION 200 PIECE 192 TEXTOBJ 186 SELECTION 182 SELECTION 175 SELECTION 162 SELECTION 155 LEFT 145 SELECTION 128 SELECTION 122 SELECTION 111 SELECTION 77 SELECTION 53 SELECTION 42 SELECTION 30 SELECTION 17 TEXTOBJ 10 TEXTOBJ) () TEDIT.SHOWSEL :D4 (P 0 TEXTOBJ I 2 SEL I 1 ONFLG I 0 STREAM) +@BBHBH BHhA h(39 \SHOWSEL 24 \FIXSEL) (32 TEXTOBJ 15 SELECTION 3 STREAM) () (PRETTYCOMPRINT TEDITSELECTIONCOMS) (RPAQQ TEDITSELECTIONCOMS ((FILES TEDITDECLS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) (FILES (LOADCOMP) TEDITDECLS)) (FNS TEDIT.SEL.AS.STRING TEDIT.SELECTED.PIECES \TEDIT.FIND.FIRST.LINE \TEDIT.FIND.LAST.LINE \TEDIT.FIND.OVERLAPPING.LINE \TEDIT.FIND.PROTECTED.END \TEDIT.FIND.PROTECTED.START \TEDIT.WORD.BOUND) (INITVARS (TEDIT.EXTEND.PENDING.DELETE T)) (VARS ( TEDIT.SELECTION (create SELECTION)) (TEDIT.SCRATCHSELECTION (create SELECTION)) ( TEDIT.SHIFTEDSELECTION (create SELECTION HASCARET _ NIL)) (TEDIT.COPYLOOKSSELECTION (create SELECTION HASCARET _ NIL)) (TEDIT.MOVESELECTION (CREATE SELECTION HASCARET _ NIL HOWHEIGHT _ 32767)) ( TEDIT.DELETESELECTION (CREATE SELECTION HOW _ BLACKSHADE HASCARET _ NIL HOWHEIGHT _ 32767)) SELECTION SELECTION (TEDIT.SELPENDING NIL)) (GLOBALVARS TEDIT.SELECTION TEDIT.SCRATCHSELECTION TEDIT.MOVESELECTION TEDIT.SHIFTEDSELECTION TEDIT.COPYLOOKSSELECTION TEDIT.DELETESELECTION TEDIT.SELPENDING TEDIT.EXTEND.PENDING.DELETE) (COMS (* Selection manipulating code) (FNS TEDIT.EXTEND.SEL TEDIT.SELECT TEDIT.SCAN.LINE TEDIT.SELECT.LINE.SCANNER \TEDIT.SELECT.CHARACTER) (FNS \FIXSEL \TEDIT.FIXDELSEL \TEDIT.FIXINSSEL \TEDIT.FIXSELS) (FNS TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS) (FNS \SHOWSEL \SHOWSEL.HILIGHT \TEDIT.UPDATE.SHOWSEL \TEDIT.SHOWSELS \TEDIT.REFRESH.SHOWSEL) (FNS \COPYSEL \TEDIT.SEL.CHANGED?)) (COMS (* * User entries to the selection code) (FNS TEDIT.GETPOINT TEDIT.GETSEL TEDIT.MAKESEL TEDIT.SCANSEL TEDIT.SET.SEL.LOOKS TEDIT.SETSEL TEDIT.SHOWSEL)))) (FILESLOAD TEDITDECLS) (RPAQ? TEDIT.EXTEND.PENDING.DELETE T) (RPAQ TEDIT.SELECTION (create SELECTION)) (RPAQ TEDIT.SCRATCHSELECTION (create SELECTION)) (RPAQ TEDIT.SHIFTEDSELECTION (create SELECTION HASCARET _ NIL)) (RPAQ TEDIT.COPYLOOKSSELECTION (create SELECTION HASCARET _ NIL)) (RPAQ TEDIT.MOVESELECTION (CREATE SELECTION HASCARET _ NIL HOWHEIGHT _ 32767)) (RPAQ TEDIT.DELETESELECTION (CREATE SELECTION HOW _ BLACKSHADE HASCARET _ NIL HOWHEIGHT _ 32767)) (RPAQQ SELECTION NOBIND) (RPAQQ SELECTION NOBIND) (RPAQQ TEDIT.SELPENDING NIL) (PUTPROPS TEDITSELECTION COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987)) NIL