(FILECREATED " 9-SEP-83 17:14:53" ("compiled on " {PHYLUM}TXDT.;4) " 8-SEP-83 19:22:13" tcompl'd in {PHYLUM}FUGUE>DEMO.SYSOUT dated " 9-SEP-83 14:01:30") (FILECREATED "20-NOV-81 08:33:28" {PHYLUM}TXDT.;4 143654 changes to: TXDTINIT previous date: " 8-AUG-81 12:03:43" {PHYLUM}TXDT.;3) EDITCHAR D1 (P 2 PAGENO P 1 FILENAME P 0 SOURCE I 2 BACKWARDS I 1 POS I 0 REC F 3 EDITCHARREC F 4 EDITCHARPOS F 5 TXDTCURRENTPAGEFILE F 6 EDITCHARCODE F 7 TXDTCURRENTPAGENO F 10Q TXDTCURRENTPAGE) @cAc@dh40SXHIUJWJIi cIc JcWT c B.TkcSHScdj3Skٰ)TkcSScdjScV(103Q GETBASEBYTE 61Q MAPPAGE) (232Q TXDTRECORD 220Q TXDTRECORD 210Q TXDTRECORD 176Q TXDTRECORD 157Q TXDTRECORD 144Q TXDTRECORD 134Q TXDTRECORD 122Q TXDTRECORD 30Q TXDTRECORD 12Q TXDTRECORD) NIL EDITCLOSEALL D1 (P 0 FILE F 1 EDITREADFILELST) QddH H hc(21Q CLOSEF 14Q OPENP) NIL NIL EDITCLOSEF D1 (I 0 FILENAME F 0 EDITREADFILELST) !@ddd b bdP c@(33Q REMOVE 24Q CLOSEF 17Q JFNS) NIL NIL EDITCLOSEST D1 (L (2 RPALST 1 POS 0 REC) F 20Q TXDTCLOSESTFORWFLG F 21Q EDITCLOSESTREC) @YAHپIA_LBh__ htoBP_HOH@OAOiOd_HO!H@OAOJOO_H@AJًNHjJؾi,Hdg_iH@NHjHؾMBh__ hwn'BQ_IOI@OAOiOd_IO"I@OAOKOO_I@KAٌOKjI_i1Idjg_iI@OIjI_L.MONhc Hc"Oic Ic"OONhc Hc"OMNOic Ic"OLHMQIGNIL (722Q TXDTRECORD 706Q TXDTRECORD 570Q TXDTRECORD 561Q TXDTRECORD 537Q BTM 526Q TXDTRECORD 505Q TXDTRECORD 304Q TXDTRECORD 275Q TXDTRECORD 254Q TOP 245Q TXDTRECORD 224Q TXDTRECORD 25Q TXDTRECORD 15Q TXDTRECORD) (62Q -23420Q) EDITCONTIGP D1 (P 6 TEMPPAGE P 5 NEXTPAGE P 4 TEMPFILENAME P 3 NEXTFILENAME P 2 TEMPSOURCE P 1 NEXTSOURCE P 0 NEXTREC I 3 POS2 I 2 REC2 I 1 POS1 I 0 REC1 F 7 EDITMOVECREC F 10Q EDITMOVECPOS F 11Q TXDTPAGESIZE) p@d@BkBCi @dWAWhXdh@Z^HY]jJ\I[@Hj)@WjHjjLKNkMjHbb}(26Q EDITMOVEC) (225Q TXDTRECORD 171Q TXDTRECORD 154Q TXDTRECORD 141Q TXDTRECORD 133Q TXDTRECORD 103Q TXDTRECORD 71Q TXDTRECORD 57Q TXDTRECORD 50Q TXDTRECORD 7 TXDTRECORD) NIL EDITCOPYGRABBED D1 (P 0 TEMP I 0 REC F 4 TXDTRECORDCNT) j@@dYXTkc`dH@dI@dJdh@ dHdh @ dK bH@@(101Q EDITCOPYGRABBED) (142Q TXDTRECORD 120Q TXDTRECORD 74Q TXDTRECORD 53Q TXDTRECORD 37Q TXDTRECORD 25Q TXDTRECORDTYPE# 12Q TXDTRECORD) NIL EDITCOUNTLC D1 (P 12Q PAGENO P 11Q FILENAME P 10Q SOURCE P 7 MYOFFSET2 P 6 MYOFFSET1 P 5 CURCHARCODE P 4 STOPCHARCODE P 3 MYCOUNTC P 2 MYCOUNTL P 1 MYSTOPPOS P 0 MYSTOPREC I 5 STOPCHAR I 4 JUSTCHARS I 3 POS2 I 2 REC2 I 1 POS1 I 0 REC1 F 13Q TXDTCURRENTPAGEFILE F 14Q TXDTCURRENTPAGENO F 15Q TXDTCURRENTPAGE F 16Q EOLCODE F 17Q EDITCOUNTSTOPREC F 20Q EDITCOUNTSTOPPOS F 21Q EDITCOUNTL F 22Q EDITCOUNTC) > @@d@@djZDXEqj@dBACCAٻ@Aٻ@bdBKCBػdK@@ذEm1@jZHdhYX 0 H__O_OWOWOOi cOcOcHd@AHdBC_NOIHBHXhXYWI ]dLHcIc Jc"Kc$hWDjJkغKkػIkذ(422Q GETBASEBYTE 307Q MAPPAGE 232Q CHCON1) (403Q TXDTRECORD 356Q TXDTRECORD 340Q TXDTRECORD 243Q TXDTRECORD 215Q TXDTRECORD 165Q TXDTRECORD 157Q TXDTRECORD 143Q TXDTRECORD 127Q TXDTRECORD 110Q TXDTRECORD 77Q TXDTRECORD 30Q TXDTRECORD 20Q TXDTRECORD 7 TXDTRECORD) NIL EDITDELETE D1 (P 1 OLDINTERRUPTABLEVAL P 0 TEMPREC I 4 COUNTLCFLG I 3 POS2 I 2 REC2 I 1 POS1 I 0 REC1 F 6 EDITDELETEREC F 7 EDITCOUNTL F 10Q TXDTRECORDCNT F 11Q EDITDELETEPOS F 12Q EDITCOUNTC F 13Q TXDTDELTA)  `D3@ABCDg DdgjWٰgjWهjWgc@XBHd@`B`jAjC@B ACh @BA@jyC@jUo@@ o@@ o@dn @c HRo@C @c CcI hWkc`BdJBdKdABdLdBdh B dM boBd @h o@@A@j@bo@A @XHXBoHdn CBj%oBdn BbboBC o@B oB@ I Bc Cch(1000Q INTERRUPTABLE 773Q /REPLACEFIELD 761Q /REPLACEFIELD 747Q /REPLACEFIELD 715Q /REPLACEFIELD 655Q /REPLACEFIELD 614Q /REPLACEFIELD 541Q /REPLACEFIELD 536Q \NCONC2 376Q INTERRUPTABLE 361Q /REPLACEFIELD 317Q /REPLACEFIELD 274Q /REPLACEFIELD 250Q /REPLACEFIELD 165Q INTERRUPTABLE 160Q ERROR! 112Q ERROR! 22Q EDITCOUNTLC) (731Q TXDTRECORD 722Q TXDTRECORD 704Q TXDTRECORD 664Q TXDTRECORD 644Q TXDTRECORD 624Q TXDTRECORD 576Q TXDTRECORD 564Q TXDTRECORD 552Q TXDTRECORD 526Q TXDTRECORD 502Q TXDTRECORD 454Q TXDTRECORD 433Q TXDTRECORD 417Q TXDTRECORD 412Q TXDTRECORDTYPE# 343Q TXDTRECORD 333Q TXDTRECORD 324Q TXDTRECORD 306Q TXDTRECORD 267Q TXDTRECORD 261Q TXDTRECORD 243Q TXDTRECORD 235Q TXDTRECORD 216Q TXDTRECORD 202Q TXDTRECORD 130Q TXDTRECORDTYPE# 120Q TXDTRECORDTYPE# 100Q TXDTRECORD 62Q UNABLE-TO-GIVE-MEANINGFUL-CHAR-COUNT 44Q LINES 30Q CHARS 15Q CHARS) (766Q (TXDTRECORD 10Q POINTER) 754Q (TXDTRECORD 6 POINTER) 742Q (TXDTRECORD 2 POINTER) 677Q (TXDTRECORD 4 POINTER) 637Q (TXDTRECORD 4 POINTER) 607Q (TXDTRECORD 4 POINTER) 546Q (TXDTRECORD 6 POINTER) 521Q (TXDTRECORD 12Q POINTER) 354Q (TXDTRECORD 2 POINTER) 301Q (TXDTRECORD 4 POINTER) 255Q (TXDTRECORD 6 POINTER) 231Q (TXDTRECORD 10Q POINTER)) EDITFINDSPLITREC D1 (P 1 LST P 0 ANS I 1 POS I 0 OLDREC) 0 A@A@@@ YdA XI(47Q EDITFINDSPLITREC) (34Q TXDTRECORD 21Q TXDTRECORD 7 TXDTRECORD) NIL EDITGOTO D1 (I 2 FLG I 1 CHARNO I 0 LINENO F 0 EDITGOTOREC F 1 TOPREC F 2 EDITGOTOPOS F 3 EDITMOVECPOS F 4 EDITMOVECREC) a@6k@$BdghcQcdc@dk h@kAdAkQQB TcSc(130Q EDITMOVE 60Q EQP 22Q ERROR!) (121Q TXDTRECORD 114Q TXDTRECORD 106Q TXDTRECORD 44Q TXDTRECORD 34Q TXDTRECORD 14Q BOUNDARYERR) NIL EDITGRABA0269 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 LASTREC F 1 REC1 F 2 REC2 F 3 POS2 F 4 POS1 F 5 RESETVARSLST F 6 RESETY F 7 COUNTLCFLG) iohUc QR SThGhQTi QchRSi RQcTRSW oQ oH Qc i(140Q /REPLACEFIELD 127Q /REPLACEFIELD 116Q EDITDELETE 65Q EDITINSERT 44Q EDITINSERT 6 RESETUNDO) (101Q TXDTRECORD 72Q TXDTRECORD 51Q TXDTRECORD) (134Q (TXDTRECORD 6 POINTER) 123Q (TXDTRECORD 10Q POINTER) 3 (EDITRESETSAVEFN)) EDITGRAB D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 COUNTLCFLG I 3 POS2 I 2 REC2 I 1 POS1 I 0 REC1 F 3 TXDTDELTA F 4 LISPXHIST F 5 RESETVARSLST) E@B ACjDogjdjcT!Uog hgZ JI(100Q ERROR! 73Q RESETRESTORE 61Q EDITGRABA0269) (67Q ERROR 56Q INTERNAL 26Q BOTH) (53Q (DUMMY.FOR.ERRORSET) 22Q "") EDITGREATERP D1 (L (3 POS2 2 REC2 1 POS1 0 REC1)) $@dBAC@bdBhdiNIL (33Q TXDTRECORD 15Q TXDTRECORD) NIL EDITINSERT D1 (P 24Q X P 23Q X P 22Q ACTIVEPAGE P 21Q DEFAULTMSG P 20Q TEMPCHAIN P 17Q PAGE2 P 16Q PAGE1 P 15Q FILE P 3 OLDINTERRUPTABLEVAL P 2 GRABBEDOBJFLG P 1 X P 0 CHAIN I 3 COUNTLCFLG I 2 POS I 1 REC I 0 OBJ F 25Q TXDTRECORDCNT F 26Q EDITINSERTREC1 F 27Q EDITINSERTREC2 F 30Q EDITINSERTPOS1 F 31Q EDITINSERTPOS2 F 32Q TXDTINSERTFILEPOS1BOX F 33Q TXDTPAGESIZE F 34Q TXDTINSERTFILEPOS2BOX F 35Q TXDTSCRATCHFILE F 36Q TXDTINSERTPOS2BOX F 37Q EDITREADFILELST F 40Q TXDTINSERTPOS1BOX F 41Q TXDTDELTA F 42Q EDITCOUNTL F 43Q EDITCOUNTC F 44Q TXDTINSERTFILEKEY F 45Q TXDTESCAPECHAR) G A`jBBnoABh @d`X`Ho K@g?H 9iHd`do@g Ac,c.Bc0c2CdgjdjcBh@go@goo@  hXp@W:_m O c4@dicWH@g @g o@ _@@c4O c4@@c8)O dO(W: W: O c8Odio@ OW:OW>OW>c>W8W4#Ac,c.Bc0c2C6CgjdjcB%W4W6_W4W6c@W8W6_W8W6c W(W,kc,DdgJW,ذgIW4عIW4عW4jJW,؁W,W(Bc*NW*NL N^kW(W6 W:_W<_0O__O_OW0OW2OOi c.Oc0Oc2W.O Ok_OMO__0O__O_OW0OW2OOi c.Oc0Oc2MdlW:WBHcAAbcAcDWQdSDgG?HAjBظAbbAdDzAcchcQdDgQcc(416Q ERROR! 264Q ERROR! 145Q ERROR! 36Q ERROR!) (434Q TXDTRECORD 425Q TXDTRECORD 411Q BOUNDARYERR 400Q TXDTRECORD 360Q TXDTRECORD 351Q TXDTRECORD 331Q TXDTRECORD 317Q TXDTRECORD 310Q TXDTRECORD 274Q TXDTRECORD 256Q BOUNDARYERR 245Q TXDTRECORD 224Q TXDTRECORD 215Q TXDTRECORD 204Q TXDTRECORD 165Q TXDTRECORD 137Q BOUNDARYERR 125Q TXDTRECORD 116Q TXDTRECORD 104Q TXDTRECORD 63Q TXDTRECORD 30Q BOUNDARYERR 16Q TXDTRECORD) NIL EDITMOVEL D1 (P 7 CHARCODE P 6 OFFSET2 P 5 MYCOUNT P 4 PAGENO P 3 FILENAME P 2 SOURCE P 1 OFFSET1 P 0 MYCOUNT I 4 FLG I 3 BACKWARDS I 2 POS I 1 REC I 0 LINECNT F 10Q EDITMOVELREC F 11Q EDITMOVELPOS F 12Q TXDTCURRENTPAGEFILE F 13Q TXDTCURRENTPAGENO F 14Q TXDTCURRENTPAGE F 15Q EOLCODE) CjAcBkcWdWWWckcWWdDgj0WZJKWLWLKi cKcLcWWW >HkX@6WkcWWcchWcchWkcIW񲭱Mj!AcBcWdWWWccWWdDgg0WZJKWLWLKi cKcLcWW _W(Mk]@ WkcNWWcchWkcNWc(545Q GETBASEBYTE 522Q MAPPAGE 457Q ERROR! 220Q GETBASEBYTE 173Q MAPPAGE 130Q ERROR!) (614Q TXDTRECORD 605Q TXDTRECORD 470Q TXDTRECORD 451Q BOUNDARYERR 441Q TXDTRECORD 430Q TXDTRECORD 416Q TXDTRECORD 407Q TXDTRECORD 374Q TXDTRECORD 361Q TXDTRECORD 311Q TXDTRECORD 302Q TXDTRECORD 267Q TXDTRECORD 260Q TXDTRECORD 246Q TXDTRECORD 141Q TXDTRECORD 122Q BOUNDARYERR 112Q TXDTRECORD 101Q TXDTRECORD 65Q TXDTRECORD 56Q TXDTRECORD 43Q TXDTRECORD 30Q TXDTRECORD) NIL EDITPRINT D1 (P 3 LASTMSG P 2 MSG P 1 POS12 P 0 LASTCHARCODE I 7 BITMASK I 6 FILE I 5 PTRCHARS I 4 PTRRECPOSLST I 3 POS2 I 2 REC2 I 1 POS1 I 0 REC1 F 4 TXDTPRINTUSERFNBOX F 5 TXDTESCAPECHAR F 6 TXDTPTRCHAR) j1Gjb@ @d@dBCD@DADDIyADUJ%@ADFG Ed?Eb @V=o7KJT@AT cJF ZdKo@J Jh VoF DbDbnIAUJ@AIFG @dB0HKJT@AT cJF ZdKo@J Jhbb(402Q /REPLACEFIELD 363Q TXDTPRINTUSERFN 353Q TXDTBOXRECPOS 324Q PRINTSEG 263Q PRIN1 237Q /REPLACEFIELD 220Q TXDTPRINTUSERFN 210Q TXDTBOXRECPOS 143Q PRINTSEG) (423Q TXDTRECORD 414Q TXDTRECORD 50Q TXDTRECORD 26Q TXDTRECORD 16Q TXDTRECORD) (375Q (TXDTRECORD 14Q POINTER) 257Q "" 232Q (TXDTRECORD 14Q POINTER) 170Q "") EDITPUTMSG D1 (P 2 TAIL P 0 OLDMSG I 2 MSG I 1 POS I 0 REC F 3 EDITINSERTREC2) yBjABd0IZh0B l& kJddJiءhB khoB A@jh@A Sb@ Xo@B H(165Q /REPLACEFIELD 140Q EDITINSERT 116Q ERROR 101Q NCHARS 45Q NCHARS 34Q LENGTH) (151Q TXDTRECORD 124Q TXDTRECORD) (160Q (TXDTRECORD 14Q POINTER) 112Q "ATTEMPT TO INSERT ILLEGAL MESSAGE!") EDITRESETSAVEFN D1 (F 0 RESETSTATE F 1 OLDVALUE) PQ (6 RESETUNDO) NIL NIL EDITSEARCHA0305 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 31Q PAGENO P 30Q FILENAME P 27Q SOURCE P 26Q PAGENO P 25Q FILENAME P 24Q SOURCE P 23Q PAGENO P 22Q FILENAME P 21Q SOURCE P 20Q RELEVENTOFFSET P 17Q CHAR P 16Q J P 15Q CHAR P 14Q I P 12Q TEMP P 11Q CURRENTPOINTER P 10Q J P 7 TEMPSTR P 6 PATTERNSIZE P 5 ENDCHARPOS P 4 ENDCHARREC P 3 EDITCHARPOS P 2 EDITCHARREC P 1 FINDFIRSTMODE P 0 STRINGFOUND? F 32Q EDITSEARCHREC2 F 33Q EDITSEARCHPOS2 F 34Q BACK F 35Q EDITSEARCHPATTERNARRAY F 36Q EDITSEARCHREC1 F 37Q EDITSEARCHPOS1 F 40Q EDITSEARCHNEXTARRAY F 41Q TXDTCURRENTPAGEFILE F 42Q TXDTCURRENTPAGENO F 43Q COUNT F 44Q TXDTFINDCNT F 45Q TXDTCURRENTPAGE F 46Q STR F 47Q TXDTRESETFORMBREAKLOCKSFLG F 50Q REC2 F 51Q POS2 F 52Q REC1 F 53Q POS1 F 54Q EDITSEARCHPATTERNSIZE F 55Q TXDTCURBUF F 56Q LFCODE F 57Q EOLCODE) b OcNWFkcFW8WPc4cWTWVWTc4cWPWRWL jkWFWFcHO W8W4djcHhjcHWL ^WXNcX c:N c@WLk _Nk OO2W8O O  W:OO W\W^ O*Ok_k_j_W@kj*NOHOdjW:O(W:O(W@O(_Ok_Ok_W@OW:O(W:O(W@O(Ok!W4dW8W4c4c6W4dGW4d<0W4_"_$O"_&O$WBO&WDO&O$i cJO$cBO&cDW8W4W4_ W8W4dW4LW6MhDOkW4cW8W6kc6O W6gW4c4kc6W4_ W4dh0W4_(_*O(_,O*WBO,WDO,O*i cJO*cBO,cDWJW6 _}WJW6 _W6kc6O W6bW4c4c6W4dFW4_ 0W4_._0O._2O0WBO2WDO2O0i cJO0cBO2cDOjOW:O(W@O(_Ok_NWHkcHWFiX(W8WZk_WZc4c$W8!W<_W4c_W6c>Oc6hcNHh(1316Q MAPPAGE 1153Q FCHARACTER 1150Q GETBASEBYTE 1134Q FCHARACTER 1131Q GETBASEBYTE 1104Q MAPPAGE 614Q MAPPAGE 276Q FCHARACTER 265Q CHCON1 251Q GNC 243Q GLC 214Q SUBSTRING 203Q ARRAY 174Q ARRAY 161Q NCHARS 100Q NCHARS) (1446Q TXDTBUFFER 1427Q TXDTBUFFER 1252Q TXDTRECORD 1235Q TXDTRECORD 1223Q TXDTRECORD 1210Q TXDTRECORD 1201Q TXDTRECORD 1040Q TXDTRECORD 1020Q TXDTRECORD 1005Q TXDTRECORD 771Q TXDTRECORD 762Q TXDTRECORD 670Q TXDTRECORD 652Q TXDTRECORD 642Q TXDTRECORD 550Q TXDTRECORD 533Q TXDTRECORD 520Q TXDTRECORD 505Q TXDTRECORD 476Q TXDTRECORD 460Q TXDTRECORD 134Q TXDTRECORD) NIL EDITSEARCH D1 (I 6 COUNT I 5 BACK I 4 POS2 I 3 REC2 I 2 POS1 I 1 REC1 I 0 STR) o (6 EDITSEARCHA0305) NIL (3 (DUMMY.FOR.ERRORSET)) EDITSUBST D1 (P 2 SAVEDTXDTDELTA P 1 TEMP P 0 INITCOUNT I 10Q COUNTLCFLG I 7 MAXSUBSTS I 6 BACKWARDS I 5 POS2 I 4 REC2 I 3 POS1 I 2 REC1 I 1 OLDSTR I 0 NEWSTR F 3 TXDTDELTA F 4 EDITINSERTREC2 F 5 EDITINSERTPOS2 F 6 EDITDELETEPOS F 7 EDITSEARCHREC1 F 10Q EDITSEARCHPOS1 F 11Q EDITINSERTREC1 F 12Q EDITSEARCHREC2 F 13Q EDITSEARCHPOS2 F 14Q EDITDELETEREC F 15Q EDITINSERTPOS1)   G!GdggGmbFbBcCc A jGGgjdjcjGjATUDE WWWWI IS@WVI IhGkbDcEcA jGGgjdjcjGj7ABCWWi )WWWWI IS@WVI IhGkbjGjGk؂HGٹGISJcGgSgcI(316Q EDITINSERT 301Q EDITDELETE 262Q EDITSEARCH 210Q NCHARS 157Q EDITINSERT 142Q EDITDELETE 121Q EDITSEARCH 50Q NCHARS) (402Q UNABLE-TO-GIVE-MEANINGFUL-CHAR-COUNT 374Q BOTH 224Q BOTH 64Q BOTH 20Q LINES 12Q BOTH) NIL EDITWRITEA0306 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 NEXTREC P 1 EDITWRITEREC P 0 STOPFLG F 3 FILENAME F 4 REC2 F 5 EDITREADFILELST F 6 REC1 F 7 TXDTEXTENSION F 10Q TXDTSCRATCHSTRING F 11Q POS1 F 12Q STRINGPOINTERTEMP F 13Q POS2) p 0gSgW c SUc VHKIIddVWITIJITWJiWW S IT IdJS i(154Q CLOSEF 126Q PRIN3 122Q EDITMKSTRING 23Q OUTFILE 16Q PACKFILENAME) (141Q TXDTRECORD 107Q TXDTRECORD 63Q TXDTRECORD 43Q TXDTRECORD 11Q EXTENSION 5 BODY) NIL EDITWRITE D1 (I 4 POS2 I 3 REC2 I 2 POS1 I 1 REC1 I 0 FILENAME F 0 TXDTRESETFORMBREAKLOCKSFLG) 8icog @ @ @ @ o@ bhc@(57Q ERROR! 53Q ERROR 42Q DELFILE 35Q EDITCLOSEF 27Q OPENP 21Q EDITCLOSEF 14Q EDITWRITEA0306) (11Q NOBREAK) (47Q "TXDTWRITE INTERRUPTED - FILE CLOSED AND DELETED" 6 (DUMMY.FOR.ERRORSET)) GETBTMREC D1 (L (0 REC)) @d@@bNIL (3 TXDTRECORD) NIL GETTOPREC D1 (L (0 REC)) @d@@bNIL (3 TXDTRECORD) NIL MARKEDP D1 (L (0 CHAIN)) '@d`ioHh@bNIL (37Q TXDTRECORD 17Q TXDTRECORD 10Q TXDTRECORDTYPE#) (26Q -2734Q) PRINTSEG D1 (P 4 PAGENO P 3 FILENAME P 2 SOURCE P 1 I P 0 CHARCODE I 4 BITMASK I 3 FILE I 2 POS2 I 1 POS1 I 0 REC F 5 TXDTCURRENTPAGEFILE F 6 TXDTCURRENTPAGENO F 7 TXDTCURRENTPAGE F 10Q TXDTSCRATCHSTRINGPTR F 11Q TXDTSCRATCHSTRING) BAdg ]jA0@ZJKULVLKi cKc Lc WI Xdl DH ojHC IkعBIH@A@BiWWDi C (200Q CHCON1 175Q GLC 172Q PRIN3 166Q EDITMKSTRING 133Q TXDTPRINTFN 116Q LSH 102Q GETBASEBYTE 60Q MAPPAGE 12Q DEFINEDP) (30Q TXDTRECORD 7 TXDTPRINTFN) (122Q 400000Q) RTXDT D1 (P 4 COM F 16Q HIDDENFNS F 17Q RTXDTFNS F 20Q TXDTCOMS F 21Q TXDTFNS F 22Q RTXDTCOMS) 5@W" d[W KgdIHhZH&JcPW d\dgodggL gggW0gW d[xKdg5g0 K!dW d_O Oh_O&_O:g3g0 K!dW d_O Oh_O&_OKh]NM_^tO h ^MLIHhZH& Jc$h(423Q LAST 413Q \APPEND2 316Q MEMB 226Q MEMB 161Q ASSOC 123Q REMOVE 16Q MEMB) (301Q NOLINKFNS 273Q NOLINKFNS 211Q ENTRIES 202Q ENTRIES 154Q BLOCKS 144Q TXDT 141Q BLOCKS 131Q BLOCKS 117Q HIDDENFNS 111Q VARS 73Q FNS 23Q TXDTPRINTUSERFN) (102Q (FNS * RTXDTFNS)) TXDTADDRP D1 (L (0 X)) @`@NIL (4 TXDTADDRTYPE#) NIL TXDTANCHOREDFIND D1 (P 2 I P 0 TEMPADDR I 5 OLDBOX I 4 BEHIND I 3 BACKWARDS I 2 ADDR2 I 1 ADDR1 I 0 STR) @@ bA A bB B bCgBE Xim k@ IJ9AH Jk.@k H @J HhJkdm ihJkٺiDdgHBBHAE X@ kJI"HB h@J Hhk ihJkZiDdgAHA(263Q TXDTCHAR 255Q NTHCHAR 245Q TXDTEQUAL 227Q NCHARS 222Q TXDTBOX 153Q TXDTCHAR 136Q NTHCHAR 126Q TXDTCHAR 122Q NTHCHAR 106Q TXDTEQUAL 71Q NCHARS 64Q TXDTCHAR 55Q TXDTBOX 42Q TXDTCOPY 35Q TXDTADDRP 26Q TXDTCOPY 21Q TXDTADDRP 12Q MKSTRING) (311Q BOTH 201Q BOTH) NIL TXDTBOX D1 (P 1 POS P 0 REC I 3 SPECIALBTMFLG I 2 OLDBOX I 1 BOUNDARYERRFLG I 0 ADDR F 2 TXDTUNBOXPOS F 3 EDITMOVECREC F 4 EDITMOVECPOS) 7 @Ag RYCHdkHIi gSTjHIB (64Q TXDTBOXRECPOS 43Q EDITMOVEC 14Q TXDTUNBOXRECPOS) (47Q SPECIAL-BTM-MARK 27Q TXDTRECORD 11Q BOUNDARYERR) NIL TXDTBOXRECPOS D1 (I 2 OLDBOX I 1 POS I 0 REC F 0 TXDTADDRCNT) 2B`B@BAPkc`d@dAbBNIL (41Q TXDTADDRTYPE# 23Q TXDTADDR 13Q TXDTADDR 4 TXDTADDRTYPE#) NIL TXDTCHAR D1 (I 2 MOVEFLG I 1 CHARCODEFLG I 0 ADDR F 0 EDITCHARREC F 1 EDITCHARPOS F 2 EDITCHARCODE F 3 TXDTUNBOXPOS) @d`?d0Bd+m%@@@@h@ cScPdBm@ Pji PQ@ PQBm BZ@ TBmG@d3@@j@@@mPQ@ RhARR (346Q CHARACTER 326Q TXDTBOXRECPOS 203Q TXDTADDRP 174Q EDITCHAR 161Q TXDTBOXRECPOS 152Q EDITCHAR 142Q TXDTADDRP 110Q TXDTUNBOXRECPOS) (313Q TXDTADDR 302Q TXDTRECORD 275Q TXDTADDR 271Q TXDTADDR 256Q TXDTRECORD 251Q TXDTADDR 243Q TXDTADDR 232Q TXDTRECORD 224Q TXDTRECORD 217Q TXDTADDR 123Q TXDTRECORD 76Q TXDTRECORD 71Q TXDTADDR 65Q TXDTADDR 54Q TXDTRECORD 47Q TXDTADDR 43Q TXDTADDR 21Q TXDTRECORD 13Q TXDTADDR 5 TXDTADDRTYPE#) NIL TXDTCLOSEALL D1 NIL (2 EDITCLOSEALL) NIL NIL TXDTCLOSEF D1 (I 0 FILENAME) @ (3 EDITCLOSEF) NIL NIL TXDTCLOSEST D1 (P 5 ADDR P 1 POS P 0 REC I 1 ADDRLST I 0 ADDR F 6 TXDTUNBOXPOS) ; @ VYHI0A!dM VHIMKJh\J&L (70Q EDITCLOSEST 32Q TXDTUNBOXRECPOS 6 TXDTUNBOXRECPOS) NIL NIL TXDTCONTIGIFY D1 (P 4 STARTPOS P 3 POS2 P 2 POS1 P 1 REC2 P 0 REC1 I 4 OLDBOX I 3 BEHIND I 2 FILE I 1 ADDR2 I 0 ADDR1 F 5 EDITINSERTREC1 F 6 EDITINSERTPOS1 F 7 EDITINSERTREC2 F 10Q EDITINSERTPOS2 F 11Q TXDTUNBOXPOS F 12Q EDITDELETEPOS F 13Q TXDTSCRATCHFILE F 14Q EDITDELETEREC) P@g WAg WHJIK Hc Jc IcKc0BFWb HJIKhdB HJIK BLB WW Cdg UVD WW g B WWD UVD (233Q TXDTBOXRECPOS 224Q TXDTBOXRECPOS 211Q IOFILE 203Q OPENP 173Q TXDTBOXRECPOS 164Q TXDTBOXRECPOS 144Q EDITINSERT 133Q GETFILEPTR 124Q EDITDELETE 114Q EDITPRINT 100Q GETFILEPTR 43Q EDITCONTIGP 30Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (200Q BOTH 152Q BOTH 25Q BTM 10Q TOP) NIL TXDTCONTIGP D1 (P 4 NBOX P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 2 OLDCONS I 1 ADDR2 I 0 ADDR1 F 5 TXDTUNBOXPOS F 6 TXDTPAGESIZE) IP@g UYAg U[HIJK %BhhbHVHIؼBLB(41Q EDITCONTIGP 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (72Q TXDTRECORD 60Q TXDTRECORD 24Q BTM 10Q TOP) NIL TXDTCOPYA0312 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X F 1 REC F 2 TXDTUNBOXPOS F 3 POS) P cRci(3 TXDTUNBOXRECPOS) NIL NIL TXDTCOPY D1 (P 1 POS P 0 REC I 0 X F 3 TXDTGRABBEDOBJCNT) h0@ X og o@ HI dgogo@ Skc`@ dJdg(130Q EDITCOPYGRABBED 104Q ERROR! 100Q ERROR 46Q TXDTBOXRECPOS 40Q ERROR! 34Q ERROR 23Q TXDTCOPYA0312 6 TXDTGRABBEDP) (142Q GRABBED 123Q TXDTGRABBEDOBJ 116Q TXDTGRABBEDOBJTYPE# 66Q GRABBED&UNDONE 53Q GRABBED&INSERTED 20Q NOBREAK) (74Q "CANNOT COPY RESULT OF AN UNDONE GRAB" 62Q "CANNOT COPY INSERTED GRABBED OBJECT" 30Q "CANNOT COPY INVALID ADDRESS" 15Q (DUMMY.FOR.ERRORSET)) TXDTCOUNTLC D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 2 COUNTLCFLG I 1 ADDR2 I 0 ADDR1 F 4 TXDTUNBOXPOS F 5 EDITCOUNTC F 6 EDITCOUNTL) A@Bh@g TYAg T[HIJKBg BdgUgVVU(53Q EDITCOUNTLC 33Q TXDTUNBOXRECPOS 17Q TXDTUNBOXRECPOS) (67Q LINES 60Q CHARS 46Q CHARS 30Q BTM 14Q TOP) NIL TXDTCOUNTPIECES D1 (P 4 ANS P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 1 ADDR2 I 0 ADDR1 F 5 TXDTUNBOXPOS) 8P@g UAg kHJHdLLkؼHX(27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (61Q TXDTRECORD 43Q TXDTRECORD 24Q BTM 10Q TOP) NIL TXDTCURBUF D1 (P 5 TEMP$ P 4 TEMPPOETDOTADDR P 3 TEMPPOETDOT P 2 TEMPBTM P 1 TEMPTOP P 0 TXDTPOETFLG I 3 TOPMSG I 2 DEFAULTFLG I 1 UNDOABLY I 0 BUF F 6 TXDTCURBUFLST F 7 TXDTRECORDCNT F 10Q TXDTBUFFERCNT F 11Q TXDTEOLPNOTINTERRUPTED F 12Q TXDT$ F 13Q TOPREC F 14Q BTMREC F 15Q TXDTCURBUF F 16Q EDITCOUNTL F 17Q TXDTPOETDOT F 20Q TXDTPOETDOTADDR) z `hc@Wlc`dhdjdl#dhdhdC `dhdjdl#dIdhIIIJJJWkc`dIdJdhdhdhbATgI gJ JYgo@ @Bh@Bh@Bh@IcJcM$IIJj W@MKMdjkdk@Kh\LK @LAgK gL gM KcLc Mc@dV Vc @c(556Q MEMB 533Q /SET 523Q /SET 513Q /SET 470Q TXDTBOX 414Q EDITCOUNTLC 275Q ERROR 250Q /SET 240Q /SET) (527Q TXDT$ 517Q TXDTPOETDOTADDR 507Q TXDTPOETDOT 475Q TXDTBUFFER 453Q TXDTBUFFER 424Q TXDTBUFFER 405Q TXDTRECORD 400Q TXDTRECORD 372Q TXDTRECORD 346Q TXDTBUFFER 332Q TXDTBUFFER 316Q TXDTBUFFER 302Q TXDTBUFFER 263Q KILLED 255Q TXDTBUFFER 244Q BTMREC 234Q TOPREC 171Q TXDTBUFFERTYPE# 153Q TXDTRECORD 143Q TXDTRECORD 133Q TXDTRECORD 73Q TXDTRECORDTYPE# 27Q TXDTRECORDTYPE#) (271Q "CAN'T REINSTATE A KILLED BUFFER") TXDTDELETEA0329 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 REC1 F 1 POS1 F 2 COUNTLCFLG F 3 REC2 F 4 POS2) PQSTR i(10Q EDITDELETE) NIL NIL TXDTDELETE D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 3 OLDBOX I 2 COUNTLCFLG I 1 ADDR2 I 0 ADDR1 F 4 TXDTUNBOXPOS F 5 EDITDELETEREC F 6 EDITDELETEPOS) @@@g TYAg T[og o@Ah UVC (75Q TXDTBOXRECPOS 66Q ERROR! 62Q ERROR 44Q TXDTDELETEA0329 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (41Q NOBREAK 24Q BTM 10Q TOP) (52Q "ILL-DEFINED WINDOW" 36Q (DUMMY.FOR.ERRORSET)) TXDTEMPTYP D1 (L (0 BUF) F 0 TOPREC F 1 BTMREC) +@ PQg@@NIL (45Q TXDTBUFFER 37Q TXDTRECORD 32Q TXDTBUFFER 23Q KILLED 16Q TXDTBUFFER 6 TXDTRECORD) NIL TXDTEOLP D1 (P 3 PAGENO P 2 FILENAME P 1 SOURCE P 0 PREVBTMREC F 4 TXDTCURRENTPAGEFILE F 5 TXDTCURRENTPAGENO F 6 TXDTCURRENTPAGE F 7 BTMREC F 10Q EOLCODE) QWHdh0HYIJTKUKJi c JcKc WVHk (115Q GETBASEBYTE 63Q MAPPAGE) (106Q TXDTRECORD 33Q TXDTRECORD 16Q TXDTRECORD 4 TXDTRECORD) NIL TXDTEQUAL D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 1 ADDR2 I 0 ADDR1 F 4 TXDTUNBOXPOS) @@ TYA T[HJIKj(15Q TXDTUNBOXRECPOS 6 TXDTUNBOXRECPOS) NIL NIL TXDTFILEPOSITIONA0330 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ADDR F 1 REC F 2 TXDTUNBOXPOS F 3 POS) Pg cRci(6 TXDTUNBOXRECPOS) (3 BOUNDARYERR) NIL TXDTFILEPOSITION D1 (P 2 SOURCE P 1 POS P 0 REC I 1 OLDCONS I 0 ADDR F 3 TXDTPAGESIZE) /0og hHZAhhbJASJIA(14Q TXDTFILEPOSITIONA0330) (23Q TXDTRECORD 11Q NOBREAK) (6 (DUMMY.FOR.ERRORSET)) TXDTFIND D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 7 OLDBOX I 6 ANCHOR I 5 COUNT I 4 BEHIND I 3 BACKWARDS I 2 ADDR2 I 1 ADDR1 I 0 STR F 4 TXDTUNBOXPOS F 5 EDITSEARCHREC1 F 6 EDITSEARCHPOS2 F 7 EDITSEARCHPOS1 F 10Q EDITSEARCHREC2) @F@ABCDG @@ bEkb jEE b ChbAg TYBg T[@HIJKCE )Ddg"GhhbUWG GWV GWVG UWG (223Q TXDTBOXRECPOS 212Q TXDTBOXRECPOS 175Q TXDTBOXRECPOS 164Q TXDTBOXRECPOS 127Q EDITSEARCH 111Q TXDTUNBOXRECPOS 75Q TXDTUNBOXRECPOS 53Q ABS 30Q MKSTRING 17Q TXDTANCHOREDFIND) (136Q BOTH 106Q BTM 72Q TOP) NIL TXDTFREESPACE D1 (P 0 VAR I 0 UNDOABLY) $od@Hg Hg h(33Q SET 23Q /SET) (30Q NOBIND 20Q NOBIND) (3 (EDITCHARREC EDITDELETEREC EDITGOTOREC EDITINSERTREC1 EDITINSERTREC2 EDITMOVECREC EDITMOVELREC EDITSEARCHREC1 EDITSEARCHREC2 EDITCLOSESTLST)) TXDTGETMSG D1 (P 1 POS P 0 REC I 0 ADDR) - @d` XdHH (24Q TXDTUNBOXRECPOS) (50Q TXDTRECORD 41Q TXDTRECORD 31Q TXDTRECORD 15Q TXDTBUFFER 10Q TXDTBUFFERTYPE#) NIL TXDTGETMSGLST D1 (P 6 CHARCNT P 5 MSG P 4 ANS P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 1 ADDR2 I 0 ADDR1 F 7 TXDTUNBOXPOS F 10Q EDITCOUNTC) p@gbAgb@ WA WH \dHIi WkؾhHdLH ]HJKJjLhNMh HJNHIؾHX(157Q \NCONC2 71Q EDITCOUNTLC 46Q GETTOPREC 36Q TXDTUNBOXRECPOS 26Q TXDTUNBOXRECPOS) (212Q TXDTRECORD 204Q TXDTRECORD 172Q TXDTRECORD 136Q TXDTRECORD 120Q TXDTRECORD 106Q TXDTRECORD 60Q TXDTRECORD 51Q TXDTRECORD 17Q BTM 7 TOP) NIL TXDTGOTO D1 (I 3 OLDBOX I 2 FLG I 1 CHARNO I 0 LINENO F 0 EDITGOTOREC F 1 EDITGOTOPOS) @AB PdQC (15Q TXDTBOXRECPOS 5 EDITGOTO) NIL NIL TXDTGRABA0331 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 REC1 F 1 POS1 F 2 REC2 F 3 ANS F 4 POS2 F 5 COUNTLCFLG) PQRTU ci(10Q EDITGRAB) NIL NIL TXDTGRAB D1 (P 4 ANS P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 3 OLDBOX I 2 COUNTLCFLG I 1 ADDR2 I 0 ADDR1 F 5 TXDTUNBOXPOS F 6 TXDTGRABBEDOBJCNT F 7 EDITDELETEREC F 10Q EDITDELETEPOS F 11Q TXDTGRABADDR) fP@g UYAg U[og o@Ah WWC cVkc `dLdg\oLg L(142Q /REPLACEFIELD 77Q TXDTBOXRECPOS 66Q ERROR! 62Q ERROR 44Q TXDTGRABA0331 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (137Q GRABBED 123Q GRABBED&UNDONE 111Q TXDTGRABBEDOBJTYPE# 41Q NOBREAK 24Q BTM 10Q TOP) (133Q (TXDTGRABBEDOBJ 2 POINTER) 52Q "ILL-DEFINED WINDOW" 36Q (DUMMY.FOR.ERRORSET)) TXDTGRABBEDP D1 (L (0 X)) @`@NIL (13Q TXDTGRABBEDOBJ 4 TXDTGRABBEDOBJTYPE#) NIL TXDTGREATERP D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 1 ADDR2 I 0 ADDR1 F 4 TXDTUNBOXPOS) @@ TYA T[HIJK (27Q EDITGREATERP 15Q TXDTUNBOXRECPOS 6 TXDTUNBOXRECPOS) NIL NIL TXDTINIT D1 (F 0 TXDTSCRATCHFILE F 1 TXDTEOLPNOTINTERRUPTED F 2 TXDTCURRENTPAGEFILE F 3 TXDTSCRATCHSTRING F 4 TXDTSCRATCHSTRINGPTR F 5 TXDTPAGESIZE F 6 EOLCODE F 7 TXDTCURRENTPAGENO) wg "o o o o hcPPg g cn c cnc l c g h hcdc(156Q TXDTCURBUF 152Q EDITCLOSEALL 147Q TXDTKILLBUF 141Q TXDTFREESPACE 123Q CONCAT 116Q ALLOCSTRING 105Q IOFILE 102Q CLOSEF 77Q OUTPUT 74Q OUTFILE 64Q OPENP 46Q DATATYPE 36Q DATATYPE 26Q DATATYPE 16Q DATATYPE 5 GETFIELDSPECS) (144Q ALL 71Q TXDTSCRATCHFILE.TXT 61Q BOTH 2 TXDTRECORD) (43Q (TXDTBUFFER (TXDTTOP TXDTBTM TXDTPOETDOT TXDTPOETDOTADDR TXDT$)) 33Q (TXDTGRABBEDOBJ (TXDTCHAIN TXDTGRABFLG)) 23Q (TXDTADDR (TXDTREC TXDTPOS)) 13Q (TXDTRECORD (TXDTSOURCE TXDTOFFSET1 TXDTOFFSET2 TXDTNEXT TXDTPREV TXDTSPLITRECS TXDTMSG))) TXDTINSERT D1 (P 1 POS P 0 REC I 4 OLDBOX I 3 COUNTLCFLG I 2 BEHIND I 1 ADDR I 0 OBJ F 2 EDITINSERTREC1 F 3 EDITINSERTPOS2 F 4 EDITINSERTPOS1 F 5 EDITINSERTREC2 F 6 TXDTUNBOXPOS) ; Ag VY@HIC BdgRTD US USD RTD (70Q TXDTBOXRECPOS 61Q TXDTBOXRECPOS 50Q TXDTBOXRECPOS 43Q TXDTBOXRECPOS 25Q EDITINSERT 13Q TXDTUNBOXRECPOS) (32Q BOTH 10Q TOP) NIL TXDTKILLBUF D1 (P 1 LISPXHISTORY P 0 X I 2 EVEN-IF-CURRENT-FLG I 1 UNDOABLY I 0 BUF F 2 TXDTCURBUFLST F 3 LISPXHISTORY F 4 TXDTCURBUF) @dgR bib@@@dHAB gSAh@dTKBo@ gg gg gg gg gg gg @g#@@@j gA@R @R o@g o@g o@g o@g o@g g(373Q /REPLACEFIELD 360Q /REPLACEFIELD 345Q /REPLACEFIELD 332Q /REPLACEFIELD 317Q /REPLACEFIELD 304Q /SET 301Q DREMOVE 273Q REMOVE 260Q EDITDELETE 203Q /SET 171Q /SET 157Q /SET 145Q /SET 133Q /SET 121Q /SET 107Q ERROR 45Q TXDTKILLBUF 13Q \APPEND2) (376Q KILLED 370Q KILLED 355Q KILLED 342Q KILLED 327Q KILLED 314Q KILLED 264Q TXDTCURBUFLST 252Q TXDTBUFFER 244Q TXDTRECORD 237Q TXDTBUFFER 231Q TXDTRECORD 224Q TXDTBUFFER 215Q KILLED 210Q TXDTBUFFER 200Q KILLED 175Q TXDT$ 166Q KILLED 163Q TXDTPOEDDOTADDR 154Q KILLED 151Q TXDTPOETDOT 142Q KILLED 137Q BTMREC 130Q KILLED 125Q TOPREC 116Q KILLED 113Q TXDTCURBUF 55Q KILLED 4 ALL) (364Q (TXDTBUFFER 10Q POINTER) 351Q (TXDTBUFFER 6 POINTER) 336Q (TXDTBUFFER 4 POINTER) 323Q (TXDTBUFFER 2 POINTER) 310Q (TXDTBUFFER 0 POINTER) 103Q "CAN'T KILL CURRENT BUFFER WITHOUT EXPRESS PERMISSION") TXDTMAPCHARS D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 4 UNTILFN I 3 MOVEFLG I 2 ASCIIFLG I 1 ADDR2 I 0 ADDR1 F 4 EDITCHARREC F 5 EDITCHARPOS F 6 TXDTUNBOXPOS) @@d`1d"@XhkDHI@ @g VAg V[HIJKBCmD +CmTdTcmc TU@ TU@ h(220Q TXDTBOXRECPOS 211Q TXDTBOXRECPOS 137Q EDITMAPCHARS 116Q TXDTUNBOXRECPOS 102Q TXDTUNBOXRECPOS 70Q TXDTBOXRECPOS) (171Q TXDTRECORD 161Q TXDTRECORD 153Q TXDTRECORD 113Q BTM 77Q TOP 50Q TXDTRECORD 42Q TXDTRECORD 35Q TXDTADDR 24Q TXDTRECORD 16Q TXDTADDR 10Q TXDTADDRTYPE#) NIL TXDTMAPMSG D1 (P 6 TAIL P 4 MSG P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 3 ARG2 I 2 FN I 1 ADDR2 I 0 ADDR1 F 7 TXDTUNBOXPOS F 10Q EDITINSERTREC2 F 11Q EDITINSERTPOS2) PB@A @gbAgb@ WYHjhHI WWA W[JjHhJK WWHXHJHdhH ClB\jALd0M^h0L l& kNddNiءhL khoL oHL HX(331Q /REPLACEFIELD 317Q ERROR 302Q NCHARS 246Q NCHARS 235Q LENGTH 131Q EDITINSERT 75Q TXDTUNBOXRECPOS 62Q EDITINSERT 36Q TXDTUNBOXRECPOS 11Q TXDTGETMSGLST) (336Q TXDTRECORD 173Q TXDTRECORD 161Q TXDTRECORD 144Q TXDTRECORD 120Q TXDTRECORD 105Q TXDTRECORD 46Q TXDTRECORD 27Q BTM 17Q TOP) (324Q (TXDTRECORD 14Q POINTER) 313Q "ATTEMPT TO INSERT ILLEGAL MESSAGE!") TXDTMKSTRING D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 4 BITMASK I 3 STRPTR I 2 RPLSTRING I 1 ADDR2 I 0 ADDR1 F 4 TXDTUNBOXPOS F 5 TXDTSCRATCHSTRING) /@@g TYAg T[HIJKBdBUCD (54Q EDITMKSTRING 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (24Q BTM 10Q TOP) NIL TXDTMOVE D1 (P 1 POS P 0 REC I 4 OLDBOX I 3 FLG I 2 ADDR I 1 CHARDIST I 0 LINEDIST F 2 TXDTUNBOXPOS F 3 EDITMOVECREC F 4 EDITMOVECPOS) 6 B@j@gAjAgg RY@AHIC SdTD (63Q TXDTBOXRECPOS 53Q EDITMOVE 37Q TXDTUNBOXRECPOS) (34Q TOP 30Q BTM 16Q BTM) NIL TXDTNEXTPIECE D1 (P 1 POS P 0 REC I 1 OLDBOX I 0 ADDR F 2 TXDTUNBOXPOS) ! @ RYHHA (36Q TXDTBOXRECPOS 6 TXDTUNBOXRECPOS) (30Q TXDTRECORD 23Q TXDTRECORD 15Q TXDTRECORD) NIL TXDTPIECE D1 (P 1 POS P 0 REC I 1 OLDBOX I 0 ADDR F 2 TXDTUNBOXPOS)  @ RYHdA (24Q TXDTBOXRECPOS 6 TXDTUNBOXRECPOS) (16Q TXDTRECORD) NIL TXDTPREVPIECE D1 (P 1 POS P 0 REC I 1 OLDBOX I 0 ADDR F 2 TXDTUNBOXPOS) > @ RYHXddHHA HdA (73Q TXDTBOXRECPOS 57Q TXDTBOXRECPOS 6 TXDTUNBOXRECPOS) (65Q TXDTRECORD 51Q TXDTRECORD 44Q TXDTRECORD 36Q TXDTRECORD 25Q TXDTRECORD 15Q TXDTRECORD) NIL TXDTPRINT D1 (P 12Q PTRADDR P 6 PTRPOS P 5 PTRREC P 4 POS2 P 3 REC2 P 2 POS1 P 1 REC1 P 0 FILE I 5 BITMASK I 4 DESTJFNORFILE I 3 PTRCHAR I 2 PTRADDR I 1 ADDR2 I 0 ADDR1 F 13Q TXDTUNBOXPOS F 14Q TXDTPTRCHAR) Dddd a@g WZAg W\BIJKLBCHE  dABBd70 B)d O WMN_O Oh_O&_O WMNhbCWb(205Q TXDTUNBOXRECPOS 136Q TXDTUNBOXRECPOS 76Q CHARACTER 73Q EDITPRINT 50Q TXDTUNBOXRECPOS 33Q TXDTUNBOXRECPOS 17Q JFNS) (45Q BTM 30Q TOP) NIL TXDTPUTMSG D1 (P 1 POS P 0 REC I 1 MSG I 0 ADDR F 2 TXDTUNBOXPOS) 1 @d`X oHA I RYHIA (56Q EDITPUTMSG 45Q TXDTUNBOXRECPOS 40Q /REPLACEFIELD) (24Q TXDTRECORD 16Q TXDTBUFFER 10Q TXDTBUFFERTYPE#) (33Q (TXDTRECORD 14Q POINTER)) TXDTREAD D1 (I 3 COUNTLCFLG I 2 BEHIND I 1 ADDR I 0 FILE F 0 TXDTINSERTFILEKEY) P@hABC (12Q TXDTINSERT) NIL NIL TXDTREADC D1 (P 0 CHAR I 0 FILE F 1 BUFFEREDLINEFEED F 2 LFCHARACTER F 3 EOLCHARACTER F 4 CRCHARACTER) QhcRS@ XicTH(16Q READC) NIL NIL TXDTRESETFORMFN D1 (F 0 TXDTRESETFORMBREAKLOCKSFLG) PhcNIL NIL NIL TXDTSUBST D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 7 OLDBOX I 6 COUNTLCFLG I 5 MAXSUBSTS I 4 BACKWARDS I 3 ADDR2 I 2 ADDR1 I 1 OLDSTR I 0 NEWSTR F 4 TXDTUNBOXPOS F 5 TXDTSUBSTCNT F 6 EDITINSERTREC1 F 7 EDITINSERTPOS2 F 10Q EDITINSERTPOS1 F 11Q EDITINSERTREC2) @Bg TYCg T[B7C4Bj/Bk*Bg#CgHIJK oBCh AA b@AHIJKDEdmF c DVWG WWG (212Q TXDTBOXRECPOS 200Q TXDTBOXRECPOS 164Q EDITSUBST 132Q MKSTRING 121Q ERROR! 115Q ERROR 77Q EDITGREATERP 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (65Q BTM 56Q TOP 24Q BTM 10Q TOP) (105Q "ILL-DEFINED WINDOW") TXDTSUBSTJFNS D1 (L (1 BUFLST 0 ALIST)) hNIL NIL NIL TXDTUNBOX D1 (P 6 SCRATCHNO P 5 FIRSTREC P 4 CLOSEADDR P 3 DOTPOS P 2 DOTREC P 1 POS P 0 REC I 3 OLDPAIR I 2 BOUNDARYERRFLG I 1 CHARFLG I 0 ADDR F 13Q EDITCOUNTC F 14Q EDITCOUNTL F 15Q TXDTPOETDOT F 16Q EDITCLOSESTLST F 17Q TOPREC F 20Q TXDTUNBOXPOS F 21Q EDITMOVECPOS F 22Q EDITCLOSESTREC F 23Q BTMREC F 24Q EDITMOVECREC F 25Q TXDTPOETFLG F 26Q TXDTCLOSESTFORWFLG F 27Q TXDTPOETDOTADDR F 30Q TXDT$)  ChhbddC@Bg W YW*AGH ]dHIAg ACWk_hdOCWkWk OOdOW. W g JKWhcWJWKWWHIW \dgAW$Wo@ WWHI CWkWk OOdOgIW$W&o@ HIW&j W0jWk^jhHI W(W"HIi CNWk OOdOW,YHIJK WjjCWWkW OOdOWW^jhHI W(W"HIi CNWk OOdOJKHI Wjj CWWWkW OOdOCWWWk OOdO(642Q EDITCOUNTLC 607Q EDITCOUNTLC 574Q EDITMOVE 513Q EDITCOUNTLC 454Q EDITCOUNTLC 441Q EDITMOVE 420Q EDITCOUNTLC 407Q ERROR 334Q EDITCOUNTLC 303Q ERROR 254Q EDITCLOSEST 202Q GETTOPVAL 170Q TXDTUNBOXRECPOS 111Q EDITCOUNTLC 62Q GETTOPREC 44Q TXDTUNBOXRECPOS) (366Q BTM 325Q TXDTRECORD 320Q TXDTRECORD 311Q TXDTRECORD 261Q TOP 177Q EDITCLOSESTLST 104Q CHARS 74Q TXDTRECORD 65Q TXDTRECORD 41Q BOUNDARYERR) (403Q "TXDT ADDRESS NOT IN CURRENT BUFFER" 277Q "TXDT ADDRESS NOT IN CURRENT BUFFER") TXDTUNBOXRECPOS D1 (P 3 DOTCHAR P 2 DOTLINE P 1 POS P 0 REC I 1 BOUNDARYERRFLG I 0 ADDR F 4 BTMREC F 5 TXDTVERIFYPOS F 6 TXDT$ F 7 EDITMOVECREC F 10Q EDITMOVECPOS F 11Q TXDTPOETDOTADDR F 12Q TXDTPOETDOT F 13Q EDITGOTOREC F 14Q EDITGOTOPOS F 15Q TXDTPOETFLG F 16Q TXDTUNBOXPOS F 17Q TOPREC) n @@ @ AHdUK@ddkY3@@kYd@d@di@bWWWk@dJIKW AHTU@VkATjJ@1@dJ@IA WWJIkW UA WW@dJV@JIkW UA WWqVjIkTjA WWZ@jVkIkTjA WWA@IA WW3@gWX@gATjo@ cH(550Q ERROR! 544Q ERROR 527Q ERROR! 457Q EDITGOTO 441Q EDITMOVE 410Q EDITMOVE 361Q EDITMOVE 353Q TXDTVERIFYADDR 315Q EDITMOVE 307Q TXDTVERIFYADDR 264Q EDITGOTO 233Q ERROR! 213Q ERROR! 201Q TXDTVERIFYADDR 33Q ERROR! 14Q TXDTVERIFYADDR 6 TXDTADDRP) (520Q BTM 510Q TXDTRECORD 502Q TXDTRECORD 473Q TOP 24Q TXDTRECORD) (540Q "TXDT ADDRESS NOT RECOGNIZED") TXDTVALIDPA0359 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X F 1 BOUNDARYERRFLG) PQg h(11Q TXDTUNBOXRECPOS) (6 BOUNDARYERR) NIL TXDTVALIDP D1 (I 1 BOUNDARYERRFLG I 0 X) og i(11Q TXDTVALIDPA0359) (6 NOBREAK) (3 (DUMMY.FOR.ERRORSET)) TXDTVERIFYADDR D1 (P 1 SPECIALBTMFLG P 0 REC I 0 ADDR F 2 TXDTVERIFYPOS F 3 EDITMOVECREC F 4 EDITMOVECPOS)  @X@cHdjcHgHcHijH1HRRHn o@ HR XFRHHRIkHR TcSdo@R o@S So@ h(274Q ERROR 262Q /REPLACEFIELD 250Q /REPLACEFIELD 220Q EDITMOVEC 155Q EDITFINDSPLITREC 147Q ERROR! 143Q ERROR) (232Q TXDTRECORD 201Q TXDTRECORD 167Q TXDTRECORD 122Q TXDTRECORD 107Q TXDTRECORD 76Q TXDTRECORD 50Q SPECIAL-BTM-MARK 32Q TXDTRECORD 20Q TXDTADDR 6 TXDTADDR) (270Q "TXDT ADDRESS INTO DELETED AREA" 255Q (TXDTADDR 0 POINTER) 243Q (TXDTADDR 2 POINTER) 137Q "TXDT ADDRESS NOT IN CURRENT BUFFER") TXDTWHEREIS D1 (P 1 POS P 0 REC I 0 ADDR F 4 TXDTCURBUFLST) 5@@ XdTZhHKKiJH(6 TXDTUNBOXRECPOS) (57Q TXDTRECORD 36Q TXDTBUFFER 13Q TXDTRECORD) NIL TXDTWRITE D1 (P 3 POS2 P 2 REC2 P 1 POS1 P 0 REC1 I 2 ADDR2 I 1 ADDR1 I 0 FILE F 4 TXDTUNBOXPOS) &@Ag TYBg T[@HIJK (43Q EDITWRITE 27Q TXDTUNBOXRECPOS 13Q TXDTUNBOXRECPOS) (24Q BTM 10Q TOP) NIL UNMARK D1 (I 0 CHAIN) '@`io@dn  @b(32Q /REPLACEFIELD) (37Q TXDTRECORD 21Q TXDTRECORD 4 TXDTRECORDTYPE#) (14Q (TXDTRECORD 4 POINTER)) (PRETTYCOMPRINT TXDTCOMS) (RPAQQ TXDTCOMS ((FNS * TXDTFNS) (VARS EOLCODE LFCODE (TXDTESCAPECHAR (QUOTE %)) TXDTINSERTFILEKEY ( STRINGPOINTERTEMP (MKSTRING)) (EDITSEARCHPATTERNSIZE 0) (EDITREADFILELST NIL) (TXDTPTRCHAR (QUOTE ^)) (TXDTRECORDCNT 0) (TXDTBUFFERCNT 0) (TXDTADDRCNT 0) (TXDTGRABBEDOBJCNT 0) (TXDTEXTENSION NIL) ( TXDTPOETFLG NIL) (TXDTRESETFORMBREAKLOCKSFLG NIL) (TXDTCURBUFLST NIL) (TXDTCHARACTER0 (CHARACTER 0)) ( TXDTSCRATCHFILE T) (TXDTPRINTUSERFNBOX NIL) HIDDENFNS (TXDTPAGESIZE 512) (TXDTSCRATCHSTRINGPTR "")) ( DECLARE: DOEVAL@COMPILE DOCOPY (RECORDS TXDTRECORD TXDTADDR TXDTGRABBEDOBJ TXDTBUFFER TXDTSOURCE) ( PROP MACRO TXDTSETQQ)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (BLOCKS (TXDT EDITCHAR EDITCLOSEALL EDITCLOSEF EDITCLOSEST EDITCONTIGP EDITCOPYGRABBED EDITCOUNTLC EDITDELETE EDITFINDSPLITREC EDITGOTO EDITGRAB EDITGREATERP EDITINSERT EDITINSERTESCAPE EDITMAPCHARS EDITMKSTRING EDITMOVE EDITMOVEC EDITMOVEL EDITPRINT EDITPUTMSG EDITRESETSAVEFN EDITSEARCH EDITSUBST EDITWRITE GETTOPREC PRINTSEG TXDTADDRP TXDTANCHOREDFIND TXDTBOX TXDTBOXRECPOS TXDTCHAR TXDTCLOSEALL TXDTCLOSEF TXDTCLOSEST TXDTCONTIGIFY TXDTCONTIGP TXDTCOPY TXDTCOUNTLC TXDTCOUNTPIECES TXDTCURBUF TXDTDELETE TXDTEMPTYP TXDTEOLP TXDTEQUAL TXDTFILEPOSITION TXDTFIND TXDTFREESPACE TXDTGETMSG TXDTGETMSGLST TXDTGOTO TXDTGRAB TXDTGRABBEDP TXDTGREATERP TXDTINIT TXDTINSERT TXDTKILLBUF TXDTMAPCHARS TXDTMAPMSG TXDTMKSTRING TXDTMOVE TXDTNEXTPIECE TXDTPIECE TXDTPREVPIECE TXDTPRINT TXDTPUTMSG TXDTREAD TXDTREADC TXDTRESETFORMFN TXDTSUBST TXDTSUBSTJFNS TXDTUNBOX TXDTUNBOXRECPOS TXDTVALIDP TXDTVERIFYADDR TXDTWHEREIS TXDTWRITE UNMARK (ENTRIES EDITRESETSAVEFN TXDTADDRP TXDTANCHOREDFIND TXDTBOX TXDTBOXRECPOS TXDTCHAR TXDTCLOSEALL TXDTCLOSEF TXDTCLOSEST TXDTCONTIGIFY TXDTCONTIGP TXDTCOPY TXDTCOUNTLC TXDTCOUNTPIECES TXDTCURBUF TXDTDELETE TXDTEMPTYP TXDTEOLP TXDTEQUAL TXDTFILEPOSITION TXDTFILEPOSITION TXDTFIND TXDTFREESPACE TXDTGETMSG TXDTGETMSGLST TXDTGOTO TXDTGRAB TXDTGRABBEDP TXDTGREATERP TXDTINIT TXDTINSERT TXDTKILLBUF TXDTMAPCHARS TXDTMAPCHARS TXDTMAPMSG TXDTMKSTRING TXDTMOVE TXDTNEXTPIECE TXDTPIECE TXDTPREVPIECE TXDTPRINT TXDTPUTMSG TXDTREAD TXDTREADC TXDTRESETFORMFN TXDTSUBST TXDTSUBSTJFNS TXDTSUBSTJFNS TXDTUNBOX TXDTUNBOXRECPOS TXDTVALIDP TXDTVERIFYADDR TXDTWHEREIS TXDTWHEREIS TXDTWRITE) (NOLINKFNS TXDTPRINTUSERFN) (BLKLIBRARY ASSOC EQUAL MEMB) (LOCALVARS CHAIN EDITCHARCODE EDITCHARPOS EDITCHARREC EDITCLOSESTREC EDITCOUNTC EDITCOUNTL EDITCOUNTSTOPPOS EDITCOUNTSTOPREC EDITDELETEPOS EDITDELETEREC EDITGOTOPOS EDITGOTOREC EDITINSERTPOS1 EDITINSERTPOS2 EDITINSERTREC1 EDITINSERTREC2 EDITMOVECPOS EDITMOVECREC EDITMOVELPOS EDITMOVELREC EDITSEARCHPOS1 EDITSEARCHPOS2 EDITSEARCHREC1 EDITSEARCHREC2) (GLOBALVARS BTMREC BUFFEREDLINEFEED CRCHARACTER EDITCLOSESTLST EDITREADFILELST EDITSEARCHNEXTARRAY EDITSEARCHPATTERNARRAY EDITSEARCHPATTERNSIZE EOLCHARACTER EOLCODE LFCHARACTER LFCODE STRINGPOINTERTEMP TOPREC TXDT$ TXDTADDRCNT TXDTBUFFERCNT TXDTCHARACTER0 TXDTCLOSESTFORWFLG TXDTCURBUF TXDTCURBUFLST TXDTCURRENTPAGE TXDTCURRENTPAGEFILE TXDTCURRENTPAGENO TXDTDELTA TXDTESCAPECHAR TXDTEXTENSION TXDTFINDCNT TXDTGRABADDR TXDTGRABBEDOBJCNT TXDTINSERTFILEKEY TXDTINSERTFILEPOS1BOX TXDTINSERTFILEPOS2BOX TXDTINSERTPOS1BOX TXDTINSERTPOS2BOX TXDTPAGESIZE TXDTPOETDOT TXDTPOETDOTADDR TXDTPRINTUSERFNBOX TXDTPTRCHAR TXDTRECORDCNT TXDTRESETFORMBREAKLOCKSFLG TXDTSCRATCHFILE TXDTSCRATCHSTRING TXDTSUBSTCNT TXDTUNBOXPOS TXDTVERIFYPOS) (SPECVARS LISPXHISTORY TXDTPOETFLG)))) (MACROS * TXDTMACROS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))) (P (COND ((NULL (GETD (QUOTE TXDTPRINTUSERFN)) ) (PUTD (QUOTE TXDTPRINTUSERFN) (QUOTE (LAMBDA (JFN FILE) NIL)))))))) (RPAQQ TXDTFNS (EDITCHAR EDITCLOSEALL EDITCLOSEF EDITCLOSEST EDITCONTIGP EDITCOPYGRABBED EDITCOUNTLC EDITDELETE EDITFINDSPLITREC EDITGOTO EDITGRAB EDITGREATERP EDITINSERT EDITINSERTESCAPE EDITMAPCHARS EDITMKSTRING EDITMOVE EDITMOVEC EDITMOVEL EDITPRINT EDITPUTMSG EDITRESETSAVEFN EDITSEARCH EDITSUBST EDITWRITE GETBTMREC GETTOPREC MARKEDP PRINTSEG RTXDT TXDTADDRP TXDTANCHOREDFIND TXDTBOX TXDTBOXRECPOS TXDTCHAR TXDTCLOSEALL TXDTCLOSEF TXDTCLOSEST TXDTCONTIGIFY TXDTCONTIGP TXDTCOPY TXDTCOUNTLC TXDTCOUNTPIECES TXDTCURBUF TXDTDELETE TXDTEMPTYP TXDTEOLP TXDTEQUAL TXDTFILEPOSITION TXDTFIND TXDTFREESPACE TXDTGETMSG TXDTGETMSGLST TXDTGOTO TXDTGRAB TXDTGRABBEDP TXDTGREATERP TXDTINIT TXDTINSERT TXDTKILLBUF TXDTMAPCHARS TXDTMAPMSG TXDTMKSTRING TXDTMOVE TXDTNEXTPIECE TXDTPIECE TXDTPREVPIECE TXDTPRINT TXDTPUTMSG TXDTREAD TXDTREADC TXDTRESETFORMFN TXDTSUBST TXDTSUBSTJFNS TXDTUNBOX TXDTUNBOXRECPOS TXDTVALIDP TXDTVERIFYADDR TXDTWHEREIS TXDTWRITE UNMARK)) (RPAQQ EOLCODE 13) (RPAQQ LFCODE 10) (RPAQQ TXDTESCAPECHAR %) (RPAQQ TXDTINSERTFILEKEY "TXDTINSERTFILEKEY") (RPAQ STRINGPOINTERTEMP (MKSTRING)) (RPAQ EDITSEARCHPATTERNSIZE 0) (RPAQ EDITREADFILELST NIL) (RPAQQ TXDTPTRCHAR ^) (RPAQ TXDTRECORDCNT 0) (RPAQ TXDTBUFFERCNT 0) (RPAQ TXDTADDRCNT 0) (RPAQ TXDTGRABBEDOBJCNT 0) (RPAQ TXDTEXTENSION NIL) (RPAQ TXDTPOETFLG NIL) (RPAQ TXDTRESETFORMBREAKLOCKSFLG NIL) (RPAQ TXDTCURBUFLST NIL) (RPAQ TXDTCHARACTER0 (CHARACTER 0)) (RPAQ TXDTSCRATCHFILE T) (RPAQ TXDTPRINTUSERFNBOX NIL) (RPAQQ HIDDENFNS (TXDTGETMSG TXDTGETMSGLST TXDTMAPMSG TXDTPUTMSG TXDTPRINTUSERFN RTXDT)) (RPAQ TXDTPAGESIZE 512) (RPAQ TXDTSCRATCHSTRINGPTR "") (DECLARE: EVAL@COMPILE (DATATYPE TXDTRECORD (TXDTSOURCE TXDTOFFSET1 TXDTOFFSET2 TXDTNEXT TXDTPREV TXDTSPLITRECS TXDTMSG)) (DATATYPE TXDTADDR (TXDTREC TXDTPOS)) (DATATYPE TXDTGRABBEDOBJ (TXDTCHAIN TXDTGRABFLG)) (DATATYPE TXDTBUFFER (TXDTTOP TXDTBTM TXDTPOETDOT TXDTPOETDOTADDR TXDT$)) (RECORD TXDTSOURCE (FILENAME PAGENO))) (/DECLAREDATATYPE (QUOTE TXDTRECORD) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) ) (/DECLAREDATATYPE (QUOTE TXDTADDR) (QUOTE (POINTER POINTER))) (/DECLAREDATATYPE (QUOTE TXDTGRABBEDOBJ) (QUOTE (POINTER POINTER))) (/DECLAREDATATYPE (QUOTE TXDTBUFFER) (QUOTE (POINTER POINTER POINTER POINTER POINTER))) (PUTPROPS TXDTSETQQ MACRO (X (LIST (QUOTE PROGN) (LIST (QUOTE SETQ) (CAR X) (CONS (QUOTE TXDTUNBOXRECPOS) (CDDR X))) (LIST (QUOTE SETQ) (CADR X) (QUOTE TXDTUNBOXPOS))))) (RPAQQ TXDTMACROS (BTMRECP EDITTESTCHAR LOADREC EDITMKSTRINGADDCHAR TOPRECP)) (PUTPROPS BTMRECP MACRO (LAMBDA (REC) (EQ REC (fetch TXDTNEXT of REC)))) (PUTPROPS EDITTESTCHAR MACRO ((CHARCODE BITMASK) (OR (IGREATERP CHARCODE 32) (ZEROP (LOGAND 131072 ( LSH BITMASK CHARCODE)))))) (PUTPROPS LOADREC MACRO ((REC) (PROG (SOURCE FILENAME PAGENO) (SETQ SOURCE (fetch (TXDTRECORD TXDTSOURCE) of REC)) (SETQ FILENAME (fetch (TXDTSOURCE FILENAME) of SOURCE)) (SETQ PAGENO (fetch ( TXDTSOURCE PAGENO) of SOURCE)) (COND ((OR (NEQ FILENAME TXDTCURRENTPAGEFILE) (NEQ PAGENO TXDTCURRENTPAGENO)) (SETQ TXDTCURRENTPAGE (MAPPAGE PAGENO FILENAME T)) (SETQ TXDTCURRENTPAGEFILE FILENAME) (SETQ TXDTCURRENTPAGENO PAGENO)))))) (PUTPROPS EDITMKSTRINGADDCHAR MACRO ((CHARCODE CHAR) (COND ((EDITTESTCHAR CHARCODE BITMASK) (COND ((EQ CHARCOUNTER NCHARSTEMPSTR1) (SETQ FULLBUFLST (NCONC1 FULLBUFLST (CONCAT TEMPSTR1))) (SETQ CHARCOUNTER 0))) (SETQ CHARCOUNTER (ADD1 CHARCOUNTER)) (RPLSTRING TEMPSTR1 CHARCOUNTER CHAR))))) (PUTPROPS TOPRECP MACRO (LAMBDA (REC) (EQ REC (fetch TXDTPREV of REC)))) (COND ((NULL (GETD (QUOTE TXDTPRINTUSERFN))) (PUTD (QUOTE TXDTPRINTUSERFN) (QUOTE (LAMBDA (JFN FILE) NIL))))) (PUTPROPS TXDT COPYRIGHTOWNER NONE) NIL