(FILECREATED "15-Oct-85 17:04:10" ("compiled on " {ERIS}TEXTOFD.;28) "12-Oct-85 13:51:54" recompiled changes: OPENTEXTSTREAM \TEXTBACKFILEPTR \TEXTRIGHTMARGIN in "INTERLISP-D 12-Oct-85 ..." dated "12-Oct-85 14:36:55") (FILECREATED "15-Oct-85 16:58:35" {ERIS}TEXTOFD.;28 129922 changes to: (FNS OPENTEXTSTREAM \TEXTBACKFILEPTR \TEXTRIGHTMARGIN) previous date: "11-Oct-85 18:45:40" {ERIS}TEXTOFD.;25) COPYTEXTSTREAM D1 (P 5 NEWTEXTOBJ P 4 NEWSTREAM P 3 PCLST P 2 PCTB P 1 TSEL P 0 TEXTOBJ I 1 CROSSCOPY I 0 ORIGINAL) @ aHZHYhdddHF \d ]IkIHk IH HIAgHM [MkKHhdA MHMH8jkj^8NjhL(146Q \TEDIT.INSERT.PIECES 125Q TEDIT.SELECTED.PIECES 47Q TEXTOBJ 42Q OPENTEXTSTREAM 3 TEXTOBJ) (172Q TEXTOBJ 166Q TEXTOBJ 156Q TEXTOBJ 152Q TEXTOBJ 135Q TEXTOBJ 117Q \TEDIT.COPYTEXTSTREAM.PIECEMAPFN 105Q TEXTOBJ 101Q SELECTION 67Q TEXTOBJ 63Q SELECTION 54Q SELECTION 34Q TEXTOBJ 21Q TEXTOBJ 12Q TEXTOBJ) () OPENTEXTSTREAM D1 (P 32Q PARALOOKS P 31Q CLEARGET? P 30Q PROP P 27Q OTEXTOBJ P 26Q TEXTSTREAM P 25Q PC P 24Q PCTB P 23Q SEL P 22Q FONT P 21Q TEXTOBJ.WINDOW.VALID P 20Q PROPS P 3 TEDIT.GET.FINISHEDFORMS P 2 TEXTOBJ I 4 PROPS I 3 END I 2 START I 1 WINDOW I 0 TEXT F 33Q BXCARET F 34Q \CARETRATE) @d`5`(@`H dmdmdjt@``@ dmdmdjP`dj:d`:dj8`nghj HdIngjd HdIngjd HdIdjHdI8dj,dh,dj*dj(dj&dj$`dndndjdjdghhHdIhhHdIdjdjHdI"`dnwwdjdkdjdghhHdIhhHdIdjdjHdI `dmdndjdjdghhHdIhhHdIdjdjHdI`dkdkdndjdghhHdIhhHdIdjdjHdI`dkdkdndjdghhHdIhhHdIdjdjHdIdgdodhdj dj dmdhdjD` JF AdJ JAg JAdhJhJO F@`@.bO g'`O g',O g'O g'O g' O g'`hJ _$O g'_4JO4 `` _4J :@`@_.`@_,JJJ JJ"h,dO.LLJLjjLjO,JJO,.Jh0J,jJd, Jj,O$JO$J @J`` `dM(`dNdJ_.O_,J@JBCO$O4O g' _(O(ll_*Kd JO(dkkk_OOkJJdO$J _@O J 4J`Ad _dOdiW6 _dOdW8 dW6 dil_dOl_dO2JO g'kj_:OjhJO g'_0d0." 34Q "TEdit consistency-check failure [RETURN to continue]: ") \SETUPGETCH D1 (L (1 TEXTOBJ 0 CH#))  AA. Ih@dM@@JJ3IJIjIjIjIjI(jIKhA_kOOko ,@H HKk_OO@HKK^IJIkkjhJN_I(NIKJ\NOIL ,J]JNOIMJjh J]1oJ I(JJA IJ JA 2hg _lNkO IjIjINIJIjINIjI(O(IO22hIkIkIkIjIkIj?(526Q \SETUPGETCH 505Q IMAGEOBJPROP 473Q \TEDIT.APPLY.STYLES 455Q \TEDIT.APPLY.PARASTYLES 430Q ERROR 411Q \TEDIT.TEXTBIN.FILESETUP 354Q \TEDIT.TEXTBIN.STRINGSETUP 207Q \CHTOPCNO 200Q ERROR) (726Q STREAM 716Q STREAM 667Q STREAM 655Q STREAM 650Q STREAM 637Q TEXTIMAGEDATA 632Q STREAM 625Q TEXTIMAGEDATA 620Q STREAM 610Q STREAM 600Q STREAM 562Q PIECE 544Q STREAM 533Q STREAM 521Q STREAM 502Q SUBSTREAM 463Q STREAM 446Q PIECE 442Q TEXTIMAGEDATA 435Q STREAM 376Q PIECE 334Q STREAM 325Q TEXTIMAGEDATA 320Q STREAM 306Q PIECE 270Q STREAM 261Q STREAM 242Q ARRAYP 222Q ARRAYP 151Q TEXTOBJ 140Q STREAM 130Q TEXTIMAGEDATA 123Q STREAM 113Q STREAM 103Q STREAM 61Q STREAM 22Q STREAM 11Q TEXTOBJ 3 TEXTOBJ) ( 424Q "Piece is neither a file nor a string??" 175Q "TRYING TO \SETUPGETCH BEYOND END OF TEXT") \TEDIT.REOPEN.STREAM D1 (I 1 PIECESTREAM I 0 TEXTSTREAM) ?AAg @ Il(ZdHAJHJZ(22Q TEXTOBJ 16Q OPENSTREAM) (70Q PIECE 60Q PIECE 47Q PIECE 25Q TEXTOBJ 13Q INPUT 3 STREAM) () \TEDIT.COPYTEXTSTREAM.PIECEMAPFN D1 (P 2 COPYFN P 1 NEWOBJ P 0 OBJ I 3 TOOBJ I 2 FROMOBJ I 1 TEXTOBJ I 0 PC) 0`@ dkbdw@Xg Z6HB.C.lJYdgAoi g @IH@H Hg ZHCB.C.lJ@(162Q IMAGEOBJPROP 150Q COPYALL 124Q RETFROM 115Q TEDIT.PROMPTPRINT 46Q IMAGEOBJPROP 11Q NCREATE2) (207Q TEXTOBJ 201Q TEXTOBJ 172Q TEXTOBJ 157Q WHENCOPIEDFN 144Q PIECE 133Q PIECE 121Q TEDIT.COPY 100Q DON'T 64Q TEXTOBJ 56Q TEXTOBJ 43Q COPYFN 35Q PIECE 25Q PIECE 5 PIECETYPE#) ( 111Q "COPY of this object not allowed.") \TEXTINITA0016 D1 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) ABdgh@ A gh@ A Bd@ A h@ A  (76Q \ILLEGAL.ARG 70Q BITMAPHEIGHT 64Q DSPSCALE 56Q BITMAPWIDTH 52Q DSPSCALE 40Q BITMAPHEIGHT 34Q DSPSCALE 20Q BITMAPWIDTH 14Q DSPSCALE) (25Q HEIGHT 4 WIDTH) () \TEXTINITA0020 D1 (I 1 CHARCODE I 0 STREAM) Ah@ (10Q CHARWIDTH 5 DSPFONT) NIL () \TEXTINITA0022 D1 (I 2 RDTBL I 1 STR I 0 STREAM) Ah@ Bd (12Q STRINGWIDTH 5 DSPFONT) NIL () \TEXTINITA0029 D1 (I 0 STREAM) @ @l lHNIL (3 STREAM) () \TEXTINITA0033 D1 (I 2 Y I 1 X I 0 STREAM) +@&@AlH@&@BlHNIL (35Q IMAGEOPS 30Q STREAM 10Q IMAGEOPS 3 STREAM) () \TEXTINITA0037 D1 (I 0 STREAM) @ @l lHNIL (3 STREAM) () \TEXTINITA0070 D1 (I 5 STREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) Eg E(6 \SETACCESS) (3 BOTH) () \TEXTINIT D1 (P 2 OLDERRORINFO F 3 ERRORTYPELST) `dgdgdgdg dg dgdgdg,dgHdgFdgDdgBdg@dg>dgdO>djdkdjdjdh_*BO*_@lOk@ Ok@+O*NBO*OgB B_BO*_BnN BN BABANi_2BHdNCAO _&O OO&k_@O@O@_$OpNOj`OOk _BdOBB4_DdOD O_FdOFdjdkdjdjdh_*OOkO BOp`Bn _HOH_JdOJB4_LdOL OOB: B _NdONdjdkdjdjdh_*BnN BO*_O*NBO*_@lOk@ Ok@+BN BAi_2AOAOO&O&jOO$BhO&OO$AB BhO&l _&OXO O _4OO_6OO4O6B:O6O4 B:O4BO&B_O* O$_,O*B4 O*OjlOaO_,O _,dO,BH_.g AO.j_0AOj&O.gO.O.N; B:BO0gggOAOO0O.hdh O2O&AkO _&OkkO&l+OV>OVjjOVOV ^jOVOTOkkOTOkk4OOTOOTOTNHIIJOTl_V_TBNO_BANBkkjhB,jhiBd,i Bk,kjhOOjOkj_POPjhh(2641Q \TEDIT.WINDOW.TITLE 2636Q \TEDIT.ORIGINAL.WINDOW.TITLE 2411Q \FZEROP 2335Q \CHTOPCNO 2313Q \TEDIT.HISTORYADD 2225Q \FZEROP 1622Q \INSERTPIECE 1607Q \SPLITPIECE 1506Q RPLSTRING 1353Q \TEDIT.UNIQUIFY.PARALOOKS 1347Q COPYALL 1263Q ALLOCSTRING 1240Q SUBSTRING 1115Q SUBSTRING 1026Q \CHTOPCNO 703Q \INSERTPIECE 635Q RPLSTRING 474Q ALLOCSTRING 454Q SUBSTRING 345Q RPLSTRING 11Q NCHARS) (2667Q PIECE 2662Q PIECE 2614Q TEXTOBJ 2576Q TEXTOBJ 2565Q TEXTOBJ 2521Q ARRAYP 2476Q ARRAYP 2452Q ARRAYP 2430Q ARRAYP 2345Q ARRAYP 2262Q PIECE 2255Q RIGHT 2252Q Insert 2246Q Replace 2233Q TEXTOBJ 2201Q Insert 2143Q Delete 2133Q TEXTOBJ 2122Q PIECE 2114Q PIECE 2103Q PIECE 2070Q PIECE 2047Q PIECE 2035Q TEXTOBJ 2031Q PIECE 2013Q PIECE 2001Q TEXTOBJ 1770Q TEXTOBJ 1754Q TEXTOBJ 1736Q TEXTOBJ 1723Q PIECE 1711Q PIECE 1704Q PIECE 1673Q PIECE 1661Q PIECE 1654Q PIECE 1643Q PIECE 1632Q PIECE 1547Q ARRAYP 1462Q PIECE 1450Q PIECE 1342Q TEXTOBJ 1332Q PIECE 1307Q TEXTOBJ 1253Q PIECETYPE# 1230Q PIECE 1152Q PIECE 1132Q TEXTOBJ 1103Q PIECETYPE# 1051Q ARRAYP 777Q TEXTOBJ 761Q TEXTOBJ 751Q TEXTOBJ 712Q TEXTOBJ 677Q LASTPIECE 670Q PIECE 661Q TEXTOBJ 651Q PIECE 611Q PIECE 532Q PIECE 512Q PIECE 471Q % 462Q PIECETYPE# 444Q PIECE 427Q TEXTOBJ 364Q PIECE 300Q PIECE 241Q TEXTOBJ 220Q TEXTOBJ 207Q TEXTOBJ 201Q TEXTOBJ 173Q TEXTOBJ 165Q TEXTOBJ 157Q TEXTOBJ 151Q TEXTOBJ) () \INSERTCR D1 (P 0 INPC I 2 TEXTOBJ I 1 CH# I 0 CH) AB:j@l jB l AB @l jBkBjh(37Q \INSERTCH 27Q \TEDIT.CONVERT.TO.FORMATTED) (71Q TEXTOBJ 60Q PIECE 53Q TEXTOBJ 6 TEXTOBJ) () \CHTOPC D1 (I 1 PCTB I 0 CH#) A@A kHII(5 \CHTOPCNO) (16Q ARRAYP) () \CHTOPCNO D1 (L (1 PCTB 0 CH#)) rAjAkkklmAkkkHJ\@LJYdKmZj$JL@J[IJmZjJdllHJNIL (36Q ARRAYP 12Q ARRAYP 3 ARRAYP) () \CLEARPCTB D1 (L (0 PCTB)) v@kk1@llk@llgHlJI@JJhJkZ@kkl@dHlػK@NIL (155Q ARRAYP 137Q ARRAYP 120Q ARRAYP 74Q ARRAYP 54Q LASTPIECE 41Q ARRAYP 22Q ARRAYP 3 ARRAYP) () \CREATEPIECEORSTREAM D1 (P 0 PC I 4 END I 3 START I 2 PARALOOKS I 1 LOOKS I 0 STRING) 0@`d@dh@ dI^@`dodhdjF3@gg @ @Rj@@d`0 b`d@dh@ dJdjdBdjXdA`  HB `` H(255Q NCREATE2 233Q CHARLOOKS.FROM.FONT 167Q NCHARS 142Q MKSTRING 110Q STREAMP 103Q OPENSTREAM 31Q NCHARS) (252Q TEDIT.DEFAULT.FMTSPEC 247Q FMTSPECTYPE# 241Q PIECE 230Q DEFAULTFONT 222Q PIECE 150Q PIECETYPE# 134Q PIECETYPE# 115Q STREAM 100Q OLD 75Q INPUT 44Q PIECETYPE# 12Q PIECETYPE#) ( 52Q "") \DELETEPIECE D1 (P 12Q HIBASE P 11Q LOBASE P 7 LO P 6 HI P 2 PCLIM P 1 PCLEN P 0 PCNO I 2 PC# I 1 PCTB I 0 PC) B@A @@3j@Akk#HJHlH3 O!OjVOO JjOJNNJ=AOO_ANN_OOINl_ԾOl_AJlٻkkKAdkؼL@@@ @ @ @h(106Q \FZEROP 7 \FINDPIECE) (350Q PIECE 344Q PIECE 337Q PIECE 327Q PIECE 316Q PIECE 312Q PIECE 305Q PIECE 275Q PIECE 263Q ARRAYP 251Q ARRAYP 232Q ARRAYP 147Q ARRAYP 131Q ARRAYP 31Q ARRAYP 23Q PIECE) () \FINDPIECE D1 (P 1 I I 1 PCTB I 0 PC) pAkklJ5JjKJJ AjJIAkkIAkk@AIIIkوIlZԹh o@ (155Q ERROR 40Q \FZEROP) (113Q ARRAYP 73Q ARRAYP 53Q ARRAYP 3 ARRAYP) ( 151Q "Piece not found: ") \INSERTPIECE D1 (P 26Q I P 21Q \INTERRUPTABLE P 6 BASE2 P 5 BASE P 4 NPCTB P 3 OLIM P 2 PCNO P 1 PCTB P 0 PLEN I 4 PC# I 3 DONTUPDATECH#S I 2 TEXTOBJ I 1 OLD I 0 NEW) y@BDAI ZIkk[jHo@ sAg<@h@h JlWIJk_OOb@@A0@A@A A A @A@ Jlj@h@IJk_OO I_jOsO lI l I I _dOOghj I]jLjI MdI k Ld I _OBLYI]Kk_O^hNhMJdMJdlKJk MJhIJIJl_OOO$O&O&O(MJkhIJk_OO@IKl_kkOIdk_ O CnKlJlO.+O.jYO.O. MjO.O,KlO,Kl6IO,IO,O,HO0O2O2O4O,l_._,J(1050Q \FZEROP 603Q \MOVEWORDS 477Q ARRAYSIZE 473Q ARRAYSIZE 465Q \ZEROWORDS 456Q ARRAYSIZE 447Q \MOVEWORDS 442Q ARRAYSIZE 416Q ARRAY 371Q ARRAYSIZE 365Q ARRAYSIZE 356Q ARRAYSIZE 350Q \FZEROP 60Q ERROR 26Q \FINDPIECE) (1134Q ARRAYP 1110Q ARRAYP 777Q ARRAYP 763Q ARRAYP 743Q ARRAYP 714Q ARRAYP 653Q ARRAYP 631Q ARRAYP 530Q ARRAYP 507Q ARRAYP 433Q ARRAYP 423Q ARRAYP 411Q POINTER 324Q ARRAYP 303Q ARRAYP 271Q PIECE 262Q PIECE 240Q PIECE 230Q PIECE 223Q PIECE 214Q PIECE 203Q PIECE 177Q PIECE 167Q PIECE 160Q PIECE 150Q PIECE 131Q ARRAYP 105Q PIECE 75Q PIECE 66Q LASTPIECE 33Q ARRAYP 11Q TEXTOBJ 3 PIECE) ( 54Q "Negative Piece Length") \MAKEPCTB D1 (P 2 PCTB P 1 FREE P 0 LEN I 1 MINLEN I 0 PC1) AlllAl2Hghj Z@>dIJkklJllkJllgJJIkٻKJkklJllkJll@J@kؼllLJllgJ(33Q ARRAY) (300Q LASTPIECE 265Q ARRAYP 245Q ARRAYP 235Q PIECE 214Q ARRAYP 174Q ARRAYP 155Q ARRAYP 143Q ARRAYP 127Q LASTPIECE 114Q ARRAYP 74Q ARRAYP 55Q ARRAYP 43Q ARRAYP 26Q POINTER) () \SPLITPIECE D1 (P 4 \INTERRUPTABLE P 3 NEWLEN P 2 CHNO P 1 NEWPC P 0 PCNO I 3 PC# I 2 TEXTOBJ I 1 CH I 0 PC) C @B `@ "ABHHZdjo @jjdh@%I@Jk I@J@dkJ 0@1I@Idj@Jd؃@JI@J@JI@gBiHl BHBHHIMNNOBjjdhI(260Q \INSERTPIECE 142Q SUBSTRING 115Q SUBSTRING 57Q SHOULDNT 20Q NCREATE2 11Q \FINDPIECE) (336Q TEXTOBJ 316Q ARRAYP 273Q ARRAYP 246Q LASTPIECE 167Q PIECE 64Q PIECE 32Q ARRAYP 14Q PIECETYPE#) ( 54Q "Splitting a piece at the start.") \TEXTCLOSEF D1 (P 5 I P 2 PC P 1 PCTB P 0 TEXTOBJ I 0 STREAM) @ 1HYH[jKK vIkkklN:NjZNN PjNMIkkkMIkkk'IMMZJ Ml^ԽH, h(241Q CLOSEF? 216Q CLOSEF? 107Q \FZEROP 42Q \FZEROP 3 TEXTOBJ) (234Q TEXTOBJ 211Q PIECE 202Q PIECE 166Q ARRAYP 145Q ARRAYP 123Q ARRAYP 50Q ARRAYP 21Q TEXTOBJ 12Q TEXTOBJ) () \TEXTDSPFONT D1 (P 0 WIN I 1 NEWFONT I 0 STREAM) G@ 4A6@Ag &@ @ dAH (77Q DSPFONT 57Q TEXTOBJ 44Q TEXTOBJ 36Q TRUE 33Q TEDIT.CARETLOOKS 30Q \COERCEFONTDESC 3 TEXTOBJ) (62Q TEXTOBJ 47Q TEXTOBJ 25Q DISPLAY 13Q CHARLOOKS 6 TEXTOBJ) () \TEXTEOFP D1 (P 1 PC I 0 STREAM) v@hN@@j=@Hj HH #@h@IiZjJJ hIY(150Q \FZEROP 61Q \FZEROP) (157Q PIECE 131Q PIECE 114Q PIECE 107Q STREAM 75Q PIECE 70Q STREAM 36Q STREAM 23Q STREAM 15Q STREAM 3 STREAM) () \TEXTGETEOFPTR D1 (L (0 STREAM)) @NIL (10Q TEXTOBJ 3 STREAM) () \TEXTGETFILEPTR D1 (L (0 STREAM)) @@@@@5H@_kOLO@IIMJ@KLlۂKLk@dNNkNIL (167Q TEXTOBJ 162Q STREAM 135Q STREAM 116Q ARRAYP 111Q TEXTOBJ 104Q STREAM 75Q PIECE 54Q TEXTOBJ 47Q STREAM 33Q STREAM 25Q STREAM 17Q STREAM 11Q STREAM 3 STREAM) () \TEXTOPENF D1 (P 4 I P 2 PC P 1 PCTB P 0 TEXTOBJ I 4 ZXCV I 3 QWER I 2 ASDF I 1 ACCESS I 0 STREAM) @!HYdkkklM:MjkMM ajMLIkkkLIkkk8ILLZJRj@J Ll]Լ@(212Q \TEDIT.REOPEN.STREAM 62Q \FZEROP) (205Q PIECE 172Q STREAM 165Q PIECE 155Q PIECE 141Q ARRAYP 120Q ARRAYP 76Q ARRAYP 23Q ARRAYP 14Q TEXTOBJ 3 STREAM) () \TEXTOUTCHARFN D1 (I 1 STREAM I 0 CH) @AA (24Q \INSERTCH) (17Q STREAM 11Q TEXTOBJ 4 STREAM) () \TEXTBACKFILEPTR D1 (P 3 REALFILE P 2 PF P 1 PS P 0 PC I 0 STREAM) p@@j@@j@@ \L@k@h@@mH o ]j?M5H@H H@ 2HY Hkk@I r H XHZ"Hdkk@JHjhg ;H@j+o "@^jN@@ @ i @ @@@Kj@K K K @K@K@K@K(534Q \PEEKBIN 527Q \BACKFILEPTR 522Q \BACKFILEPTR 442Q \FZEROP 435Q \PAGEDBACKFILEPTR 430Q \PAGEDBACKFILEPTR 373Q ERROR 342Q \TEDIT.TEXTBIN.FILESETUP 260Q \FZEROP 253Q \TEDIT.TEXTBIN.STRINGSETUP 221Q \TEDIT.APPLY.STYLES 150Q ERROR) (614Q STREAM 610Q STREAM 577Q STREAM 573Q STREAM 562Q STREAM 556Q STREAM 545Q STREAM 541Q STREAM 513Q STREAM 503Q STREAM 471Q STREAM 463Q STREAM 457Q STREAM 450Q STREAM 421Q STREAM 401Q STREAM 357Q STREAM 350Q PIECE 336Q PEEKBIN 324Q PIECE 311Q PIECE 277Q PIECE 266Q PIECE 241Q PIECE 230Q PIECE 214Q STREAM 205Q PIECE 201Q STREAM 156Q PIECE 126Q STREAM 122Q STREAM 112Q STREAM 101Q STREAM 65Q PIECE 60Q STREAM 54Q STREAM 37Q STREAM 31Q STREAM 14Q STREAM 6 STREAM) ( 370Q "CAN'T GET TO NEXT PIECE" 145Q "Trying to BACKFILEPTR thru start of text.") \TEXTBOUT D1 (P 7 OFFST P 6 PSTR P 5 PC P 4 PS P 3 TEXTLEN P 2 WINDOW P 1 CH# P 0 TEXTOBJ I 1 BYTE I 0 STREAM) @@ krH[HZdHId AIH JH H]\@M@H@LL_@j@dOk_OH @j@d@k @j@h h(61Q TEDIT.UPDATE.SCREEN 53Q \INSERTCH 44Q \TEDIT.MARK.LINES.DIRTY 11Q \TEXTGETFILEPTR) (230Q STREAM 221Q STREAM 205Q STREAM 175Q STREAM 164Q TEXTOBJ 145Q STREAM 113Q TEXTOBJ 107Q STREAM 100Q STREAM 66Q TEXTOBJ 31Q TEXTOBJ 22Q TEXTOBJ 3 STREAM) () \TEXTSETEOF D1 (L (1 EOFPTR 0 STREAM)) @A @AnHI INIL (14Q STREAM 3 STREAM) () \TEXTSETFILEPTR D1 (P 0 TEXTOBJ I 1 FILEPOS I 0 STREAM) l@1HYjWII MAmjAHjHkJJkH @ #jAAHA AkػkKKkH h(150Q \SETUPGETCH 130Q \ILLEGAL.ARG 102Q \SETUPGETCH 33Q \FZEROP) (120Q TEXTOBJ 64Q TEXTOBJ 51Q TEXTOBJ 14Q TEXTOBJ 3 STREAM) () \TEXTDSPXPOSITION D1 (I 1 XPOSITION I 0 STREAM) h@  (15Q DSPXPOSITION 4 TEXTOBJ) (7 TEXTOBJ) () \TEXTDSPYPOSITION D1 (I 1 YPOSITION I 0 STREAM) h@  (15Q DSPYPOSITION 4 TEXTOBJ) (7 TEXTOBJ) () \TEXTLEFTMARGIN D1 (I 1 XPOSITION I 0 STREAM) @ :l(3 TEXTOBJ) (13Q FMTSPEC 6 TEXTOBJ) () \TEXTRIGHTMARGIN D1 (I 1 XPOSITION I 0 STREAM) <@ Hd:jHH$ln:l(3 TEXTOBJ) (64Q FMTSPEC 57Q TEXTOBJ 42Q TEXTOBJ 33Q TEXTOBJ 20Q FMTSPEC 13Q TEXTOBJ) () \TEXTBIN D1 (L (0 STREAM))   @@Z@'@d@@ @@#@ "g ^@@kN @i  @_jOz@[{@jjdhN_kN @k@j@J@j@k@j@(N(@N22N  @@Md_OZJ_jOO @kkjh@hJ@@l@(#@(_@JlO\@LZLJ[/MJW@(JJ@ Jg ^kN @(N(@N2'J M @J J@ 2JYjJ@I @ JX!JjJ@HJjhg @ J[v@jjdhN\kN @j@J@J@j@j@j@(N(@N22N @jKo @"@"_@kO@jK@ (1412Q \TEDIT.TEXTBIN.NEW.PAGE 1344Q ERROR 1204Q \SETUPGETCH 1135Q \TEDIT.TEXTBIN.FILESETUP 1065Q \TEDIT.TEXTBIN.STRINGSETUP 1036Q \TEDIT.APPLY.STYLES 1010Q EQCLOOKS 725Q \SETUPGETCH 710Q IMAGEOBJPROP 675Q \TEDIT.APPLY.PARASTYLES 456Q \FZEROP 371Q \FZEROP 253Q \SETUPGETCH 151Q \PAGEDBIN 144Q \TEDIT.TEXTBIN.NEW.PAGE 112Q IMAGEOBJPROP 102Q \PAGEDBIN 55Q \PAGEDBIN) (1401Q STREAM 1361Q STREAM 1351Q STREAM 1330Q STREAM 1315Q STREAM 1311Q STREAM 1301Q TEXTIMAGEDATA 1274Q STREAM 1270Q TEXTIMAGEDATA 1263Q STREAM 1254Q STREAM 1245Q STREAM 1231Q PIECE 1220Q PIECE 1214Q STREAM 1177Q STREAM 1155Q STREAM 1144Q PIECE 1131Q PEEKBIN 1117Q PIECE 1107Q PIECE 1074Q PIECE 1056Q PIECE 1045Q PIECE 1031Q STREAM 1022Q PIECE 1016Q STREAM 1003Q PIECE 775Q PIECE 765Q STREAM 761Q STREAM 750Q TEXTIMAGEDATA 743Q STREAM 737Q TEXTIMAGEDATA 732Q STREAM 720Q STREAM 705Q SUBSTREAM 670Q STREAM 661Q PIECE 655Q TEXTIMAGEDATA 650Q STREAM 637Q PIECE 631Q PIECE 620Q PIECE 602Q STREAM 557Q TEXTIMAGEDATA 552Q STREAM 542Q TEXTIMAGEDATA 535Q STREAM 522Q STREAM 516Q STREAM 502Q STREAM 464Q STREAM 434Q PIECE 414Q PIECE 406Q STREAM 377Q STREAM 357Q STREAM 353Q STREAM 343Q TEXTIMAGEDATA 336Q STREAM 332Q TEXTIMAGEDATA 325Q STREAM 316Q STREAM 307Q STREAM 273Q PIECE 263Q STREAM 246Q STREAM 222Q STREAM 207Q PIECE 202Q STREAM 156Q STREAM 125Q STREAM 121Q STREAM 107Q SUBSTREAM 70Q STREAM 62Q STREAM 44Q STREAM 33Q PIECE 26Q STREAM 14Q STREAM 6 STREAM) ( 1341Q "CAN'T GET TO NEXT PIECE") \TEDIT.TEXTBIN.STRINGSETUP D1 (L (3 PS 2 STREAM 1 CHARSLEFT 0 CHOFFSET)) CCjhiWBCCBjB@BjBjBABBk BjBh BjBiRBCCXBjBjBHkBHk@BABBk BjBh BhhNIL (262Q STREAM 252Q STREAM 242Q STREAM 201Q STREAM 171Q STREAM 140Q STREAM 127Q STREAM 117Q STREAM 107Q STREAM 60Q STREAM 50Q STREAM) () \TEDIT.TEXTBIN.FILESETUP D1 (P 3 FPOS P 2 CH P 1 BYTEOFFSET P 0 BYTESLEFT I 7 NOERRORFLG I 6 OPERATION I 5 FATP I 4 PF I 3 STREAM I 2 CHARSLEFT I 1 CHOFFSET I 0 PC) EBBEAARDRjjCD bC@[CKnDKI D \j&LL KID FdgYDG CDCDCDCn CDDHؽdMMCHCCCD CECEkgD j^NjhJ(151Q \PEEKBIN 127Q GETEOFPTR 116Q \FZEROP 101Q GETEOFPTR 75Q SETFILEPTR 34Q \TEDIT.REOPEN.STREAM) (274Q BIN 265Q STREAM 256Q STREAM 247Q STREAM 230Q STREAM 137Q PEEKBIN 57Q STREAM 43Q STREAM) () \TEDIT.TEXTBIN.NEW.PAGE D1 (P 1 CH P 0 FILE I 1 SPLITCHAR I 0 STREAM) @ !HRjjHHg g XHHH Y@H@H@H@@HdJJ@@@@AI@ I(232Q \PAGEDBIN 52Q \GETSTREAM 44Q OPENFILE) (217Q STREAM 206Q STREAM 200Q STREAM 174Q STREAM 155Q STREAM 147Q STREAM 143Q STREAM 133Q STREAM 127Q STREAM 117Q STREAM 113Q STREAM 103Q STREAM 77Q STREAM 64Q STREAM 60Q STREAM 47Q INPUT 41Q INPUT 31Q STREAM 14Q STREAM 3 STREAM) () \TEXTPEEKBIN D1 (P 7 SUBSTREAM P 6 PO P 5 PC P 4 PS P 3 PF P 2 STR P 1 FILE P 0 CH I 1 NOERRORFLG I 0 STREAM)   @]5@@@u@4_@kOAhM@ @@k@ @A @ @ \d@L LA L @A M;@_jO@A  @M_O]d@@l@M M@ 2M^{@jjdhO`kO @j@M@M@j@j@j@(O(@O22O @jNM\jM@L @A M[ MjM@KMjhgA o A#@"_@kOA@"_@kOh(707Q ERROR 677Q \TEDIT.TEXTBIN.FILESETUP 630Q \PEEKBIN 623Q \TEDIT.TEXTBIN.STRINGSETUP 442Q \SETUPGETCH 372Q \TEDIT.APPLY.STYLES 276Q \FZEROP 272Q \TEDIT.PEEKBIN.NEW.PAGE 235Q \PAGEDPEEKBIN 226Q \PAGEDBACKFILEPTR 221Q \PAGEDPEEKBIN 213Q \PAGEDBIN 162Q \PAGEDBACKFILEPTR 155Q \PAGEDPEEKBIN 147Q \PAGEDBIN 120Q \PEEKBIN) (741Q STREAM 717Q STREAM 672Q PEEKBIN 660Q PIECE 650Q PIECE 635Q PIECE 614Q PIECE 602Q PIECE 571Q STREAM 555Q STREAM 550Q STREAM 540Q TEXTIMAGEDATA 533Q STREAM 526Q TEXTIMAGEDATA 521Q STREAM 512Q STREAM 503Q STREAM 467Q PIECE 456Q PIECE 452Q STREAM 435Q STREAM 411Q STREAM 400Q PIECE 365Q STREAM 356Q PIECE 352Q STREAM 337Q STREAM 333Q STREAM 310Q PIECE 304Q STREAM 247Q STREAM 203Q STREAM 177Q STREAM 170Q STREAM 133Q STREAM 125Q STREAM 111Q PIECE 101Q PIECE 56Q FDEV 51Q STREAM 41Q STREAM 25Q STREAM 17Q STREAM 6 STREAM) ( 704Q "CAN'T GET TO NEXT PIECE") \TEDIT.PEEKBIN.NEW.PAGE D1 (P 1 CH P 0 FILE I 1 NOERRORFLG I 0 STREAM) @ 1HRjjHHg g XHHH4HkJAh&H @H HA H HA Y@H@H@H@@HdKK@@@I(162Q \PEEKBIN 153Q \PAGEDBACKFILEPTR 146Q \PAGEDPEEKBIN 140Q \PAGEDBIN 122Q \PEEKBIN 52Q \GETSTREAM 44Q OPENFILE) (276Q STREAM 270Q STREAM 264Q STREAM 245Q STREAM 237Q STREAM 233Q STREAM 223Q STREAM 217Q STREAM 207Q STREAM 203Q STREAM 173Q STREAM 167Q STREAM 130Q STREAM 101Q FDEV 74Q STREAM 64Q STREAM 60Q STREAM 47Q INPUT 41Q INPUT 31Q STREAM 14Q STREAM 3 STREAM) () CGETTEXTPROP D1 (L (1 PROP 0 WINFORM)) *gggg@hAddi3 gAhhNIL (37Q QUOTE 13Q of 10Q EDITPROPS 5 fetch 2 LISTGET) () CTEXTPROP D1 (I 0 FORMTAIL) @d-oi i g@hi i g@h gg@g@h@ ggggg@hhggggg@hh@@hhigggg@hgg@@hhhh(120Q CGETTEXTPROP 56Q CGETTEXTPROP 43Q TERPRI 36Q PRIN1 22Q TERPRI 15Q PRIN1) (252Q LIST 247Q WITH 237Q TEXTOBJ 234Q OF 231Q EDITPROPS 226Q REPLACE 171Q TEXTOBJ 166Q OF 163Q EDITPROPS 160Q FETCH 155Q LISTPUT 140Q TEXTOBJ 135Q OF 132Q EDITPROPS 127Q FETCH 124Q COND 103Q TEXTOBJ 72Q IGNOREMACRO 65Q QUOTE 46Q TEXTOBJ 26Q TEXTPROP) ( 11Q "Possible error in call to TEXTPROP: less than 2 args") GETTEXTPROP D1 (I 1 PROP I 0 WINDOW) @FA'NIL (3 TEXTOBJ) () PUTTEXTPROP D1 (I 2 VALUE I 1 PROP I 0 TEXTOBJ) /@ F@ FAB @ ABhHIFI(34Q TEXTOBJ 27Q LISTPUT 15Q TEXTOBJ 3 TEXTOBJ) (37Q TEXTOBJ 20Q TEXTOBJ 6 TEXTOBJ) () TEXTPROP D1 (P 0 X) (eHdl@ AB l @ A  (45Q \ILLEGAL.ARG 41Q GETTEXTPROP 35Q TEXTOBJ 23Q PUTTEXTPROP 16Q TEXTOBJ) NIL () (PRETTYCOMPRINT TEXTOFDCOMS) (RPAQQ TEXTOFDCOMS ((FILES TEDITSELECTION) (RECORDS EDITMARK PIECE TEXTOBJ TEXTIMAGEDATA TEXTSTREAM) ( FNS COPYTEXTSTREAM OPENTEXTSTREAM REOPENTEXTSTREAM TEDIT.STREAMCHANGEDP TEXTSTREAMP TXTFILE \DELETECH \SETUPGETCH \TEDIT.REOPEN.STREAM \TEDIT.COPYTEXTSTREAM.PIECEMAPFN \TEXTINIT \TEXTMARK \TEXTTTYBOUT) ( FNS \INSERTCH \INSERTCR) (COMS (* * Functions to manipulate the Piece Table (PCTB)) (FNS \CHTOPC \CHTOPCNO \CLEARPCTB \CREATEPIECEORSTREAM \DELETEPIECE \FINDPIECE \INSERTPIECE \MAKEPCTB \SPLITPIECE)) (COMS (* Generic-IO type operations support) (FNS \TEXTCLOSEF \TEXTDSPFONT \TEXTEOFP \TEXTGETEOFPTR \TEXTGETFILEPTR \TEXTOPENF \TEXTOUTCHARFN \TEXTBACKFILEPTR \TEXTBOUT \TEXTSETEOF \TEXTSETFILEPTR \TEXTDSPXPOSITION \TEXTDSPYPOSITION \TEXTLEFTMARGIN \TEXTRIGHTMARGIN) (FNS \TEXTBIN \TEDIT.TEXTBIN.STRINGSETUP \TEDIT.TEXTBIN.FILESETUP \TEDIT.TEXTBIN.NEW.PAGE) (FNS \TEXTPEEKBIN \TEDIT.PEEKBIN.NEW.PAGE)) (COMS (* Support for TEXTPROP) (FNS CGETTEXTPROP CTEXTPROP GETTEXTPROP PUTTEXTPROP TEXTPROP) (MACROS TEXTPROP)) (COMS (* Private data structures and constants) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (\PCTBFreePieces 0) (\PCTBLastPieceOffset 1) (\FirstPieceOffset 2) ( \SecondPieceOffset 4) (\EltsPerPiece 2)) (MACROS \EDITELT \GETCH \GETCHB \EDITSETA \WORDSETA) ( GLOBALVARS \TEXTIMAGEOPS \TEXTOFD \TEXTFDEV))) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\TEXTINIT))) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA TEXTPROP))) )) (FILESLOAD TEDITSELECTION) (RECORD EDITMARK (PC PCOFF . PCNO)) (DATATYPE PIECE ((* The piece describes either a string or part of a file. , or a generalized OBJECT.) PSTR (* The string where this piece's text resides, or NIL) PFILE (* The file which contains this piece's text, or NIL) PFPOS (* The FILEPTR of the start of the piece in the file) PLEN (* Length of the piece, in characters.) NEXTPIECE (* -> Next piece in this textobj.) (PREVPIECE FULLXPOINTER) (* -> Prior piece in this text object.) PLOOKS (* Formatting info and formatting events in this piece) POBJ (* The OBJECT this piece describes) (PPARALAST FLAG) (* This piece contains a paragraph break) PPARALOOKS (* Paragraph looks for this piece) (PNEW FLAG) (* This text is new here; used by the tentative edit system, and anyone else interested.) (PFATP FLAG) (* T if the characters in this piece are FAT -- i.e., are 16 bits each.)) PSTR _ NIL PFILE _ NIL PFPOS _ 0 PLEN _ 0 PPARALOOKS _ TEDIT.DEFAULT.FMTSPEC) (DATATYPE TEXTOBJ ((* * This is where TEdit stores its state information, and internal data about the text being edited.) PCTB (* The piece table) TEXTLEN (* # of chars in the text) \INSERTPC (* Piece to hold type-in) \INSERTPCNO (* Piece # of the input piece) \INSERTNEXTCH (* CH# of next char which is typed into that piece.) \INSERTLEFT (* Space left in the type-in piece) \INSERTLEN (* # of characters already in the piece.) \INSERTSTRING (* The string which the piece describes.) \INSERTFIRSTCH (* CH# of first char in the piece.) (\INSERTPCVALID FLAG) (* T if it's OK to use the cached piece. Set to NIL by people who require that the next insertion/deletion use a different piece.) \WINDOW (* The window where this textobj is displayed) MOUSEREGION (* Section of the window the mouse is in.) LINES (* -> to top of chain of line descriptors for displayed text) DS (* Display stream where this textobj is displayed) SEL (* The current selection within the text) SCRATCHSEL (* Scratch space for the selection code) MOVESEL (* Source for the next MOVE of text) SHIFTEDSEL (* Source for the next COPY) DELETESEL (* Text to be deleted imminently) WRIGHT (* Right edge of the window (or subregion) where this is displayed) WTOP (* Top of the window/region) WBOTTOM (* Bottom of the window/region) WLEFT (* Left edge of the window/region) TXTFILE (* The original text file we're editing) (\XDIRTY FLAG) (* T => changed since last saved.) (STREAMHINT FULLXPOINTER) (* -> the TEXTOFD stream which gives access to this textobj) EDITFINISHEDFLG (* T => The guy has asked the editor to go way) CARET (* Describes the flashing caret for the editing window) CARETLOOKS (* Font to be used for inserted text. ) WINDOWTITLE (* Original title for this window, of there was one.) THISLINE (* Cache of line-related info, to speed up selection &c) (MENUFLG FLAG) (* T if this TEXTOBJ is a tedit-style menu) FMTSPEC (* Default Formatting Spec to be used when formatting paragraphs) (FORMATTEDP FLAG) (* Flag for paragraph formatting. T if this document is to contain paragraph formatting information.) (TXTREADONLY FLAG) (* This is only available for shift selection.) TXTTERMSA (* Special instructions for displaying characters on the screen) EDITOPACTIVE (* T if there is an editing operation in progress. Used to interlock the TEdit menu) DEFAULTCHARLOOKS (* The default character looks -- if any -- to be applied to characters coming into the file from outside.) TXTRTBL (* The READTABLE to be used by the command loop for command dispatch) TXTWTBL (* The READTABLE to be used to decide on word breaks) EDITPROPS (* The PROPS that were passed into this edit session) (BLUEPENDINGDELETE FLAG) (* T if the next insertion in this document is to be preceded by a deletion of the then-current selection) TXTHISTORY (* The history list for this edit session.) (SELWINDOW FULLXPOINTER) (* The window in which the last "real" selection got made for this edit; used to control caret placement) PROMPTWINDOW (* A window to be used for unscheduled interactions; normally a small window above the edit window) DISPLAYCACHE (* The bitmap to be used when building the image of a line for display) DISPLAYCACHEDS (* The DISPLAYSTREAM that is used to build line images) DISPLAYHCPYDS (* The DISPLAYSTREAM used to build line images of lines that are displayed in "hardcopy" simulation mode) TXTPAGEFRAMES (* A tree of page frames, specifying how the document is to be laid out.) (TXTNEEDSUPDATE FLAG) (* T => Screen invalid, need to run updater) TXTCHARLOOKSLIST (* List of all the CHARLOOKSs in the document, so they can be kept unique) TXTPARALOOKSLIST (* List of all the FMTSPECs in the document, so they can be kept unique)) ( ACCESSFNS TEXTOBJ ((\DIRTY (ffetch (TEXTOBJ \XDIRTY) of DATUM) (PROGN (IF (NEQ (FETCH (TEXTOBJ \XDIRTY ) OF DATUM) NEWVALUE) THEN (* update the title to reflect the change) (\TEDIT.WINDOW.TITLE DATUM ( \TEDIT.ORIGINAL.WINDOW.TITLE (ffetch (TEXTOBJ TXTFILE) of DATUM) NEWVALUE))) (freplace \XDIRTY OF DATUM WITH NEWVALUE))))) SEL _ (create SELECTION) SCRATCHSEL _ (create SELECTION) MOVESEL _ (create SELECTION HOW _ EDITMOVESHADE HOWHEIGHT _ 32767 HASCARET _ NIL) SHIFTEDSEL _ (create SELECTION HOW _ COPYSELSHADE HASCARET _ NIL) DELETESEL _ (create SELECTION HOW _ BLACKSHADE HOWHEIGHT _ 32767 HASCARET _ NIL) \INSERTNEXTCH _ -1 \INSERTPC _ NIL \INSERTLEFT _ 0 \INSERTLEN _ 0 \INSERTSTRING _ NIL \INSERTFIRSTCH _ 1000000 TEXTLEN _ 0 WRIGHT _ 0 WTOP _ 0 WLEFT _ 0 WBOTTOM _ 0 TXTFILE _ NIL \XDIRTY _ NIL MOUSEREGION _ (QUOTE TEXT) THISLINE _ (create THISLINE) MENUFLG _ NIL FMTSPEC _ TEDIT.DEFAULT.FMTSPEC FORMATTEDP _ NIL) (DATATYPE TEXTIMAGEDATA (TICURPARALOOKS (* The current paragraph looks) TICURIMAGESTREAM (* The image stream for this hardcopy transduction) TILOOKSUPDATEFN (* The function to call to update looks for this stream) TIPCOFFSET (* The offset into the current piece, as of the last page cross.))) (ACCESSFNS TEXTSTREAM ((REALFILE (fetch F1 of DATUM) (REPLACE F1 OF DATUM WITH NEWVALUE)) (* The real, underlying file behind the current piece) (CHARSLEFT (fetch F2 of DATUM) (REPLACE F2 OF DATUM WITH NEWVALUE)) (* The # of characters that will be left in the current piece the next time its file crosses a page boundary) (TEXTOBJ (fetch F3 of DATUM) (REPLACE F3 OF DATUM WITH NEWVALUE)) (* The TEXTOBJ that is editing this text) (PIECE (fetch F5 of DATUM) (REPLACE F5 OF DATUM WITH NEWVALUE)) (* The PIECE we're currently fetching chars from/putting chars into) (PCNO (fetch FW8 of DATUM) (REPLACE FW8 OF DATUM WITH NEWVALUE)) (* The position of that piece in the piece table) (PCSTARTPG (fetch FW6 of DATUM) (REPLACE FW6 OF DATUM WITH NEWVALUE)) (* The underlying file page# that this piece starts on ) (PCSTARTCH (fetch FW7 of DATUM) (REPLACE FW7 OF DATUM WITH NEWVALUE)) (* The char within page of the underlying file that this piece starts on -- for backbin & co) (PCOFFSET (fetch TIPCOFFSET of (fetch IMAGEDATA of DATUM)) (REPLACE TIPCOFFSET OF (fetch IMAGEDATA of DATUM) with NEWVALUE)) (* The offset into the current piece, as of the last page cross.) (CURRENTLOOKS (fetch F10 of DATUM) (replace F10 of DATUM with NEWVALUE)) (* The CHARLOOKS that are currently applicable to characters being taken from the stream.) (CURRENTPARALOOKS (fetch TICURPARALOOKS of (fetch IMAGEDATA of DATUM)) (REPLACE TICURPARALOOKS OF (fetch IMAGEDATA of DATUM) with NEWVALUE)) (* The FMTSPEC that is currently applicable to characters being taken from the stream.) (CURRENTIMAGESTREAM (fetch TICURIMAGESTREAM of (fetch IMAGEDATA of DATUM)) (REPLACE TICURIMAGESTREAM OF (fetch IMAGEDATA of DATUM) with NEWVALUE) (* The image stream that this text is being put onto; used for scaling decisions)) (LOOKSUPDATEFN (fetch TILOOKSUPDATEFN of (fetch IMAGEDATA of DATUM)) (REPLACE TILOOKSUPDATEFN OF (fetch IMAGEDATA of DATUM) with NEWVALUE)) (* Function to be called each time character looks change.) (FATSTREAMP (fetch F4 of DATUM) (REPLACE F4 OF DATUM WITH NEWVALUE)) (* T if the current piece is 16 bit characters.)) (CREATE (create STREAM using \TEXTOFD IMAGEDATA _ (create TEXTIMAGEDATA)))) (/DECLAREDATATYPE (QUOTE PIECE) (QUOTE (POINTER POINTER POINTER POINTER POINTER FULLXPOINTER POINTER POINTER FLAG POINTER FLAG FLAG)) (QUOTE ((PIECE 0 POINTER) (PIECE 2 POINTER) (PIECE 4 POINTER) (PIECE 6 POINTER) (PIECE 8 POINTER) (PIECE 10 FULLXPOINTER) (PIECE 12 POINTER) (PIECE 14 POINTER) (PIECE 14 ( FLAGBITS . 0)) (PIECE 16 POINTER) (PIECE 16 (FLAGBITS . 0)) (PIECE 16 (FLAGBITS . 16)))) (QUOTE 18)) (/DECLAREDATATYPE (QUOTE TEXTOBJ) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG POINTER FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER FLAG POINTER FULLXPOINTER POINTER POINTER POINTER POINTER POINTER FLAG POINTER POINTER)) (QUOTE ((TEXTOBJ 0 POINTER) (TEXTOBJ 2 POINTER) ( TEXTOBJ 4 POINTER) (TEXTOBJ 6 POINTER) (TEXTOBJ 8 POINTER) (TEXTOBJ 10 POINTER) (TEXTOBJ 12 POINTER) ( TEXTOBJ 14 POINTER) (TEXTOBJ 16 POINTER) (TEXTOBJ 16 (FLAGBITS . 0)) (TEXTOBJ 18 POINTER) (TEXTOBJ 20 POINTER) (TEXTOBJ 22 POINTER) (TEXTOBJ 24 POINTER) (TEXTOBJ 26 POINTER) (TEXTOBJ 28 POINTER) (TEXTOBJ 30 POINTER) (TEXTOBJ 32 POINTER) (TEXTOBJ 34 POINTER) (TEXTOBJ 36 POINTER) (TEXTOBJ 38 POINTER) ( TEXTOBJ 40 POINTER) (TEXTOBJ 42 POINTER) (TEXTOBJ 44 POINTER) (TEXTOBJ 44 (FLAGBITS . 0)) (TEXTOBJ 46 FULLXPOINTER) (TEXTOBJ 48 POINTER) (TEXTOBJ 50 POINTER) (TEXTOBJ 52 POINTER) (TEXTOBJ 54 POINTER) ( TEXTOBJ 56 POINTER) (TEXTOBJ 56 (FLAGBITS . 0)) (TEXTOBJ 58 POINTER) (TEXTOBJ 58 (FLAGBITS . 0)) ( TEXTOBJ 58 (FLAGBITS . 16)) (TEXTOBJ 60 POINTER) (TEXTOBJ 62 POINTER) (TEXTOBJ 64 POINTER) (TEXTOBJ 66 POINTER) (TEXTOBJ 68 POINTER) (TEXTOBJ 70 POINTER) (TEXTOBJ 70 (FLAGBITS . 0)) (TEXTOBJ 72 POINTER) ( TEXTOBJ 74 FULLXPOINTER) (TEXTOBJ 76 POINTER) (TEXTOBJ 78 POINTER) (TEXTOBJ 80 POINTER) (TEXTOBJ 82 POINTER) (TEXTOBJ 84 POINTER) (TEXTOBJ 84 (FLAGBITS . 0)) (TEXTOBJ 86 POINTER) (TEXTOBJ 88 POINTER))) (QUOTE 90)) (/DECLAREDATATYPE (QUOTE TEXTIMAGEDATA) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( TEXTIMAGEDATA 0 POINTER) (TEXTIMAGEDATA 2 POINTER) (TEXTIMAGEDATA 4 POINTER) (TEXTIMAGEDATA 6 POINTER) )) (QUOTE 8)) (PUTPROPS TEXTPROP MACRO (ARGS (CTEXTPROP ARGS))) (\TEXTINIT) (PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985)) NIL