(FILECREATED "19-Sep-84 12:09:52" ("compiled on " {ERIS}TEDITFILE.;30) "17-Sep-84 19:52:02" recompiled changes: TEDIT.PUT.PCTB in "INTERLISP-D 17-Sep-84 ..." dated "17-Sep-84 20:17:02") (FILECREATED "19-Sep-84 12:09:16" {ERIS}TEDITFILE.;30 54101 changes to: (FNS TEDIT.PUT.PCTB) previous date: "18-Sep-84 14:26:51" {ERIS}TEDITFILE.;29) TEDIT.BUILD.PCTB D1 (P 53Q LOOK P 51Q LOOK P 47Q OLDPC P 46Q PCN P 45Q OLDPARALOOKS P 44Q I P 42Q FILETYPE P 30Q EXISTINGFMTSPECS P 27Q EXLOOK P 26Q EXISTINGCHARLOOKS P 25Q USERTEMP P 24Q USERFILEFORMAT P 23Q TSTREAM P 22Q USER.CMFILE P 21Q TTEXTOBJ P 20Q CACHE? P 17Q CACHE P 16Q PIECEINFOCH# P 15Q PARALOOKSSEEN P 14Q NEWPC P 13Q CHLOOKSSEEN P 12Q PCLEN P 11Q TYPECODE P 10Q PCCOUNT P 7 OLDPC P 6 PC P 5 PCTB P 4 LINES P 3 SEL P 2 TEXTSTREAM P 1 CURCH# P 0 CURFILECH# I 6 CLEARGET? I 5 DEFAULTPARALOOKS I 4 DEFAULTLOOKS I 3 END I 2 START I 1 TEXTOBJ I 0 TEXT) J,BjkAd0 EA`` b AD` b@DEBC bd eAA@,AA Ng _ @ @j-ggg _@OBC O @ Obhbb@C _@`@ @,m>\FL`d@Bj_2dO2C@ Bj_4dO4dh dD dhdEdhb O`"OB^h_(?`d@dHC@ H_:dO:dh dD dhdEdh _8@O*lO8_& _D_6@kO6_*ODOB_BOj@AOBC o }O @Cd l @ _@O OkEl'OHOFLMOLOLIMOLk_>O>O>gMOLk_@kkO@MjM@ _@ @ dno_dlAA@ `OLl_Ll)ONONi@ _JAAi@OLl_LOdjH`d@dHdOdON dOJdhONN@ HNXNkz`d@dHdOdON dOJdhON+JN@H HNظ@ j@ @ @ N@ NNONON D Nko NO,)OPh_.*NO. +_RN OR ORiOP_PN O,_,O0+OTh_.*NO.+_VNOV OViOT_TNO0_0MOLOLIMOLk_<OZH Ng ^Hll[HH`\KfIdKgLMMKH> g-LK NMMKMKgK][I(170Q EQCLOOKS 150Q EQUALALL 34Q LISTGET 21Q TEXTOBJ 3 TEXTOBJ) (237Q PIECE 231Q CHARLOOKS 223Q PIECE 211Q PIECE 203Q PIECE 163Q PIECE 154Q PARALOOKS 143Q TEXTOBJ 135Q PIECE 125Q PIECE 115Q IMAGEOBJ 107Q PIECE 74Q TEDIT.DEFAULT.CHARLOOKS 65Q TEXTOBJ 46Q ARRAYP 41Q TEXTOBJ 31Q TEDIT.TENTATIVE 24Q TEXTOBJ 12Q TEXTOBJ) () TEDIT.GETA0001 D1 (NAME ERRORSET L (0 NIL) F 2 TEXTOBJ F 3 SEL F 4 RESETVARSLST F 5 OFILE F 6 LINES F 7 TITLE F 10Q FILENAME F 11Q MENUSTREAM F 12Q PCTB F 13Q TEDIT.GET.FINISHEDFORMS F 14Q RESETY)  gRV` hhTcg` hhTcR R0 Ug c RURhdRHR> HIIcWd Rc RU,Rh.VhRmRWdkkkHIIkSSk kSj SgSiRhR hRh`h`hRRS 6VVR SR Shi R cRW R c/Wl'ghgW cWgW WgW Rd Rgghdddddh ci(702Q \TEDIT.HISTORYADD 650Q \TEDIT.SET.WINDOW.EXTENT 645Q \TEDIT.PRIMARYW 637Q MBUTTON.SET.FIELD 624Q MBUTTON.SET.FIELD 607Q PACKFILENAME 557Q TEDITMENU.STREAM 552Q \TEDIT.WINDOW.TITLE 547Q \TEDIT.ORIGINAL.WINDOW.TITLE 536Q TEXTSTREAM.TITLE 531Q \SHOWSEL 522Q \FIXSEL 514Q \FILLWINDOW 476Q \TEDIT.GET.INSERT.CHARLOOKS 170Q EVAL 143Q TEDIT.BUILD.PCTB 110Q OPENSTREAM 100Q \TEXTCLOSEF 66Q \SHOWSEL 43Q CURSOR 20Q TTYDISPLAYSTREAM) (660Q LEFT 655Q Get 632Q Put 617Q Get 602Q BODY 576Q VERSION 505Q LINEDESCRIPTOR 471Q TEXTOBJ 461Q SELECTION 456Q TEDIT.SHIFTEDSELECTION 447Q SELECTION 444Q TEDIT.SELECTION 435Q SELECTION 430Q TEXTOBJ 420Q SELECTION 413Q TEXTOBJ 403Q SELECTION 376Q TEXTOBJ 366Q SELECTION 357Q LEFT 354Q SELECTION 344Q SELECTION 330Q SELECTION 324Q SELECTION 302Q ARRAYP 261Q ARRAYP 253Q TEXTOBJ 242Q TEXTOBJ 232Q LINEDESCRIPTOR 222Q TEXTOBJ 212Q TEXTOBJ 201Q TEXTOBJ 135Q TEXTOBJ 127Q TEXTOBJ 117Q TEXTOBJ 105Q INPUT 73Q TEXTOBJ 61Q TEXTOBJ 40Q WAITINGCURSOR 35Q CURSOR 15Q PROMPTWINDOW 6 TEXTOBJ 2 TTYDISPLAYSTREAM) () TEDIT.GET D1 (P 15Q RESETZ P 14Q RESETY P 13Q LISPXHIST P 12Q TEDIT.GET.FINISHEDFORMS P 11Q MENUSTREAM P 10Q FILENAME P 7 TITLE P 6 RESP P 5 USER.CMFILE P 4 LINES P 3 OCURSOR P 2 OFILE P 1 PCTB P 0 SEL I 1 FILE I 0 TEXTOBJ F 16Q LISPXHIST F 17Q RESETVARSLST) @@ @.oo@V hA @o Zd:d )W! Wog hg_ OJ@o @oi h(175Q TEDIT.PROMPTPRINT 163Q TEDIT.PROMPTPRINT 145Q ERROR! 136Q RESETRESTORE 123Q TEDIT.GETA0001 100Q INFILEP 70Q MKATOM 65Q TEDIT.GETINPUT 47Q MOUSECONFIRM) (131Q ERROR 120Q INTERNAL 42Q TEXTOBJ 22Q TEXTOBJ 11Q TEXTOBJ 3 TEXTOBJ) ( 171Q "[Get aborted.]" 160Q "[File not found.]" 115Q (TEDIT.GETA0001) 62Q "File to GET: " 36Q "LEFT to Get anyway." 32Q "Not Saved Yet... ") TEDIT.INCLUDE D1 (P 15Q NSTREAM P 14Q PCCOUNT P 13Q WASOPEN P 12Q NPC P 11Q PCLST P 10Q INSPC# P 7 LEN P 6 INSPC P 5 INSERTCH# P 4 NNFILE P 3 NFILE P 2 TEXTLEN P 1 PCTB P 0 SEL I 3 END I 2 START I 1 FILE I 0 STREAM F 20Q TEXTOBJ) @ bdHiA @o [W oi h K W o hC>ggg K i_KKg [LBC OK L LhbbH@ @H Kg hddg@H h _ [@@@@@@K@K @HgHH k]I Ikk_@Ok_OO^g,MIOONM@O Ol_@K_dkkk_OOk_Okkkl_@MOll_ONO @@K@@MdO @ggOMOhddh @JO@@HMOJ HHMMOk HO HjHgHgHh"@@ H@ Hhi @i.NjOO@ @oi h(1207Q TEDIT.PROMPTPRINT 1175Q \SETUPGETCH 1147Q \SHOWSEL 1140Q \FIXSEL 1132Q TEDIT.UPDATE.SCREEN 1013Q \FIXILINES 756Q \TEDIT.HISTORYADD 722Q \TEDIT.CONVERT.TO.FORMATTED 671Q \TEDIT.INSERT.PIECES 515Q \SPLITPIECE 401Q \CHTOPCNO 332Q \TEDIT.CONVERT.TO.FORMATTED 270Q TEXTOBJ 263Q OPENTEXTSTREAM 254Q \TEDIT.GET.INSERT.CHARLOOKS 241Q OPENSTREAM 231Q \SHOWSEL 215Q TEDIT.DO.BLUEPENDINGDELETE 177Q CLOSEF 172Q CLOSEF 162Q COPYBYTES 153Q OPENFILE 135Q OPENP 130Q OPENSTREAM 107Q TEDIT.PROMPTPRINT 75Q INFILEP 70Q STREAMP 63Q TEDIT.PROMPTPRINT 46Q MKATOM 43Q TEDIT.GETINPUT 3 TEXTOBJ) (1154Q TEXTOBJ 1122Q TEXTOBJ 1112Q SELECTION 1103Q CHAR 1100Q SELECTION 1071Q RIGHT 1066Q SELECTION 1056Q SELECTION 1045Q SELECTION 1024Q SELECTION 1020Q SELECTION 776Q TEXTOBJ 763Q TEXTOBJ 732Q LEFT 727Q Include 706Q TEXTOBJ 676Q TEXTOBJ 644Q ARRAYP 615Q ARRAYP 571Q ARRAYP 551Q ARRAYP 541Q TEXTOBJ 532Q TEXTOBJ 470Q ARRAYP 460Q LASTPIECE 442Q ARRAYP 426Q TEXTOBJ 407Q ARRAYP 370Q SELECTION 361Q SELECTION 353Q LEFT 346Q SELECTION 337Q TEXTOBJ 323Q TEXTOBJ 314Q TEXTOBJ 303Q TEXTOBJ 274Q TEXTOBJ 247Q FONT 236Q INPUT 222Q TEXTOBJ 150Q INPUT 125Q NEW 122Q OUTPUT 117Q {NODIRCORE} 22Q SELECTION 11Q TEXTOBJ) ( 1203Q "Please choose the place for the INCLUDE first." 104Q "[File not found.]" 57Q "[Include aborted.]" 40Q "Name of the file to load: ") TEDIT.PUTA0001 D1 (NAME ERRORSET F 0 OFILE F 1 TEXTOBJ F 2 CLEARPUT F 3 RESETVARSLST F 4 RESETY F 5 FONTFILEUSED F 6 CACHE) oP gghRoQ oo chScQ:hQoPPo i QjQPR c P VPg cQ, QP,Qh.gci(211Q CLOSEF? 175Q OPENSTREAM 156Q CLOSEF 147Q TEDIT.PUT.PCTB 127Q TEDIT.PROMPTPRINT 123Q CONCAT 47Q OPENSTREAM 31Q TEDIT.FORMATTEDFILEP 7 MKATOM) (235Q We 226Q TEXTOBJ 216Q TEXTOBJ 204Q TEXTOBJ 172Q INPUT 165Q STREAM 134Q TEXTOBJ 107Q STREAM 72Q THISLINE 65Q TEXTOBJ 15Q NEW 12Q OUTPUT) ( 120Q "..." 103Q "PUTting file " 43Q ((TYPE TEXT)) 36Q ((TYPE BINARY)) 24Q ((TYPE TEXT)) 3 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE)))) TEDIT.PUT D1 (P 22Q RESETZ P 21Q RESETY P 20Q LISPXHIST P 16Q TITLE P 15Q FILENAME P 14Q MENUSTREAM P 13Q CACHE P 12Q CLEARPUT P 11Q PUTFN P 10Q WINDOW P 7 PROPS P 6 FONTFILEUSED P 5 OFILE P 4 OCURSOR P 3 OUTPUT.FILE.WRITTEN P 2 TEDIT.GET.FINISHEDFORMS P 1 TEDIT.PUT.FINISHEDFORMS P 0 TEXTOBJ I 2 FORCENEW I 1 FILE I 0 STREAM F 23Q LISPXHIST F 24Q RESETVARSLST) o@ AGBHo;H,`)H, ]Mg HoMd Ho H Ng _H Ng _H Ng _MO"H0MMglOgW&!W(og hg_$ O$Ho H _HO H _d/Ol'ghgO _OgO OgO HmHhHggjdhdddh O#H0H,_OglOh(507Q \TEDIT.HISTORYADD 436Q MBUTTON.SET.FIELD 423Q MBUTTON.SET.FIELD 406Q PACKFILENAME 355Q TEDITMENU.STREAM 351Q \TEDIT.WINDOW.TITLE 346Q \TEDIT.ORIGINAL.WINDOW.TITLE 336Q TEXTSTREAM.TITLE 332Q TEDIT.PROMPTPRINT 320Q ERROR! 311Q RESETRESTORE 276Q TEDIT.PUTA0001 200Q LISTGET 165Q TEXTOBJ 157Q LISTGET 144Q TEXTOBJ 136Q LISTGET 123Q TEXTOBJ 116Q TEDIT.GETINPUT 105Q TEDIT.GETINPUT 102Q PACKFILENAME 66Q LISTPUT 55Q UNPACKFILENAME 3 TEXTOBJ) (545Q AFTER 534Q STREAM 525Q TEXTOBJ 517Q TEXTOBJ 465Q LEFT 462Q Put 453Q TEXTOBJ 443Q TEXTOBJ 431Q Put 416Q Get 401Q BODY 375Q VERSION 304Q ERROR 273Q INTERNAL 250Q DON'T 237Q BEFORE 227Q STREAM 221Q TEXTOBJ 175Q CACHE 170Q TEXTOBJ 154Q CLEARPUT 147Q TEXTOBJ 133Q PUTFN 126Q TEXTOBJ 63Q VERSION 50Q STREAM 43Q TEXTOBJ 34Q STREAMTYPE# 26Q TEXTOBJ) ( 327Q "done." 270Q (TEDIT.PUTA0001) 113Q "File to PUT to: " 74Q "File to PUT to: " 20Q "File to PUT to: ") TEDIT.PUT.PCTB D1 (P 26Q CH P 24Q I P 22Q PARALOOKSSEEN P 21Q TEDIT.PUT.FINISHEDFORMS P 20Q TRUEFILE P 17Q FONTFILE P 16Q PREVPC P 15Q CURCH# P 14Q OLDCH# P 13Q OLDLOOKS P 12Q OFILELEN P 11Q POBJ P 10Q PSTR P 7 PFILE P 6 PC P 5 CH P 4 OCURSOR P 3 CACHE P 2 EDITSTENTATIVE P 1 PCCOUNT P 0 OLDPARALOOKS I 3 SEPARATEFORMAT I 2 CLEARPUT I 1 OFILE I 0 TEXTOBJ) @>j@ Ng @ Ng @ll^@H`_AjA_ ggg bA k__@`ggg _@` N&OOOOOOOOJ IkعO"jdOOXO$N@> COggg _OOOOOOOJ IkعO_ON i_$IkعNOggg _OdOOOOOOJ IkعO_NAOO _IkعO_ON 4JNOdOO9N@> (Ok OOON OJ N _Oj ON 4JNOdOOPN@> ?Oggg _OOjOOOOOJ IkعN _O_N_N_9NkOCO*_0O*_2O0O*k_.O0O.zK#A NANOkNhON_N_^ NOOg _OANNN O2O0dk_0_,O(O&tAO, O(k_(\d O OBCAO AO O bA OBShA OIl OIl Olz Ol BCOAjO O CO O(1717Q DELFILE 1706Q CLOSEF 1700Q COPYBYTES 1675Q GETEOFPTR 1657Q \BOUT 1647Q \BOUT 1637Q \BOUT 1625Q \BOUT 1612Q \DWOUT 1607Q GETEOFPTR 1571Q OPENP 1557Q COPYCHARS 1550Q COPYBYTES 1522Q EVAL 1502Q \BOUT 1442Q COPYBYTES 1404Q OPENSTREAM 1355Q OPENP 1265Q RANDACCESSP 1114Q \TEDIT.PUT.CHARLOOKS 1061Q OPENFILE 1040Q EQUALALL 756Q EQCLOOKS 740Q \BOUT 716Q \TEDIT.PUT.CHARLOOKS 672Q \BOUT 662Q EQUALALL 600Q EQCLOOKS 550Q TEDIT.PUT.OBJECT 526Q \TEDIT.PUT.CHARLOOKS 473Q OPENFILE 431Q \TEDIT.PUT.PARALOOKS 411Q \TEDIT.PUT.CHARLOOKS 360Q OPENFILE 337Q EQUALALL 255Q \TEDIT.PUT.CHARLOOKS 217Q TEDIT.PUT.PAGEFRAMES 204Q OPENFILE 152Q GETFILEPTR 143Q OPENFILE 44Q LISTGET 31Q TEXTOBJ 25Q LISTGET 12Q TEXTOBJ) (1434Q PIECE 1426Q PIECE 1420Q PIECE 1401Q INPUT 1370Q STREAM 1363Q PIECE 1344Q PIECE 1330Q PIECE 1316Q PIECE 1303Q PIECE 1273Q PIECE 1236Q STRINGP 1222Q STRINGP 1210Q STRINGP 1173Q PIECE 1161Q PIECE 1143Q PIECE 1125Q PIECE 1056Q NEW 1053Q BOTH 1050Q {NODIRCORE} 1033Q TEXTOBJ 1025Q PIECE 1015Q PIECE 1000Q PIECE 767Q PIECE 751Q PIECE 723Q PIECE 705Q PIECE 655Q TEXTOBJ 647Q PIECE 637Q PIECE 622Q PIECE 611Q PIECE 573Q PIECE 470Q NEW 465Q BOTH 462Q {NODIRCORE} 446Q PIECE 355Q NEW 352Q BOTH 347Q {NODIRCORE} 332Q TEXTOBJ 324Q PIECE 310Q PIECE 272Q PIECE 212Q TEXTOBJ 201Q NEW 176Q BOTH 173Q {NODIRCORE} 164Q TEXTOBJ 140Q NEW 135Q BOTH 132Q {NODIRCORE} 114Q STREAM 106Q TEDIT.DEFAULT.CHARLOOKS 77Q TEXTOBJ 60Q ARRAYP 53Q TEXTOBJ 41Q CACHE 34Q TEXTOBJ 22Q TEDIT.TENTATIVE 15Q TEXTOBJ 3 TEXTOBJ) () TEDIT.PUT.PIECE.DESCRIPTOR D1 (P 1 STR P 0 FONT I 3 LOOKS I 2 CHLIM I 1 CH1 I 0 FILE) CQoHg Zddidd gJhoHg oHg [ddidd gKho Y@BA @I \Ml LMl I@ @CljCljCljCkj h(301Q \BOUT 217Q PRIN1 211Q \BOUT 200Q \BOUT 166Q NCHARS 161Q \DWOUT 151Q CONCAT 105Q FONTPROP 72Q FONTPROP 23Q FONTPROP) (265Q CHARLOOKS 252Q CHARLOOKS 237Q CHARLOOKS 224Q CHARLOOKS 135Q QUOTE 102Q FACE 67Q SIZE 53Q QUOTE 20Q FAMILY 3 CHARLOOKS) ( 145Q " )" 76Q " " 63Q " " 14Q "(FONTCREATE ") \ARBIN D1 (P 0 USERSTR I 0 STREAM) @ H jH H h(25Q CLOSEF? 21Q READ 12Q NCHARS 3 \STRINGIN) NIL () \ARBOUT D1 (I 1 ITEM I 0 STREAM) 4@AA jHIl HIl AhA jA@ (61Q PRIN3 50Q NCHARS 36Q \BOUT 25Q \BOUT 6 NCHARS) NIL () \ATMIN D1 (P 2 I P 0 LEN I 0 STREAM) D@ @ dnoHdjhk2JI@ L Mh\JkZM&K (101Q PACK 50Q CHARACTER) NIL ( 17Q 200000Q) \ATMOUT D1 (P 2 CH I 1 ATOM I 0 STREAM) V@A HIl HIl A j3kA2`I`I\HLKHdkظº@J h(120Q \BOUT 36Q NCHARS 31Q \BOUT 20Q \BOUT 4 NCHARS) (64Q \PNPSPACE 52Q \PNPSPACE) () \DWIN D1 (I 0 FILE) @ @ @ @ NIL NIL () \DWOUT D1 (I 1 NUMBER I 0 FILE) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () \STRINGIN D1 (P 3 I P 1 STR P 0 LEN I 0 STREAM) 6@ @ dnoH YHjHkKJIK@ +Kk[I(27Q ALLOCSTRING) NIL ( 17Q 200000Q) \STRINGOUT D1 (P 3 CH P 2 I I 2 LEN I 1 STRING I 0 STREAM) _BA b@Bl @Bl Bj?BAkCIIMIkؼMLNMdkؽ»JH@K Jkغh(124Q \BOUT 32Q \BOUT 21Q \BOUT 6 NCHARS) (70Q STRINGP 60Q STRINGP 51Q STRINGP) () \TEDIT.FORMATTEDP1 D1 (P 2 PASSWORD P 1 NPIECES P 0 DESCPTR I 1 LEN I 0 FILE) nA@ b0Alh@Al @ @ @ dnoչ@ @ dnoZdnzj@H Inzj@H jI@j h(152Q SETFILEPTR 140Q SETFILEPTR 122Q SETFILEPTR 37Q \DWIN 32Q SETFILEPTR 6 GETEOFPTR) NIL ( 102Q 200000Q 60Q 200000Q) TEDIT.RAW.INCLUDE D1 (P 15Q WASOPEN P 14Q NPC P 13Q PCLST P 12Q INSPC# P 11Q LEN P 10Q INSPC P 7 INSERTCH# P 6 HOLDING.FILE P 5 TEXTLEN P 4 PCTB P 3 SEL P 2 END P 1 START P 0 STREAM I 3 END I 2 START I 1 INFILE I 0 STREAM) @ BCH[do J>ggg A i_AAg bNIJ OA N NbhZHHKgKK k_L Lkk_HOk_OO_g1OLOOOOHO _Ol_H`dAIj_dOJA A Ag A A Ij_ dO dh dh` _"dO" dh`` _$dO$dh__HOOOOO HMOHHKOOM KKOOOk KO KjKgKgKh"HH KH Khi Hi.OjOlH h(1026Q \SETUPGETCH 777Q \SHOWSEL 770Q \FIXSEL 762Q TEDIT.UPDATE.SCREEN 641Q \FIXILINES 603Q \TEDIT.INSERT.PIECES 534Q NCREATE2 505Q CHARLOOKS.FROM.FONT 446Q CLOSEF 442Q GETEOFPTR 435Q OPENSTREAM 424Q GETEOFPTR 417Q OPENP 340Q \SPLITPIECE 220Q \CHTOPCNO 132Q CLOSEF 125Q CLOSEF 115Q COPYBYTES 105Q OPENFILE 67Q OPENP 62Q OPENSTREAM 40Q SHOULDNT 3 TEXTOBJ) (1004Q TEXTOBJ 752Q TEXTOBJ 742Q SELECTION 733Q CHAR 730Q SELECTION 721Q RIGHT 716Q SELECTION 706Q SELECTION 675Q SELECTION 652Q SELECTION 646Q SELECTION 623Q TEXTOBJ 610Q TEXTOBJ 557Q PIECE 531Q TEDIT.DEFAULT.FMTSPEC 526Q FMTSPECTYPE# 502Q TEDIT.DEFAULT.FONT 432Q INPUT 365Q PIECETYPE# 357Q TEXTOBJ 311Q ARRAYP 300Q LASTPIECE 261Q ARRAYP 245Q TEXTOBJ 226Q ARRAYP 206Q SELECTION 177Q SELECTION 171Q LEFT 164Q SELECTION 155Q TEXTOBJ 146Q TEXTOBJ 102Q INPUT 57Q NEW 54Q OUTPUT 51Q {NODIRCORE} 26Q SELECTION 17Q TEXTOBJ) ( 35Q "\TEDIT.INCLUDE.SPAN called with no selection set") \WATOM D1 (P 2 CH I 1 ATOM I 0 STREAM) N@A HIl HIl kA2`I`I\HLKHdkظº@J h(110Q \BOUT 31Q \BOUT 20Q \BOUT 4 NCHARS) (54Q \PNPSPACE 42Q \PNPSPACE) () \WSTRING D1 (P 3 CH P 2 I I 2 LEN I 1 STRING I 0 STREAM) ZBA b@Bl @Bl BAkCIIMIkؼMLNMdkؽ»JH@K Jkغh(117Q \BOUT 32Q \BOUT 21Q \BOUT 6 NCHARS) (63Q STRINGP 53Q STRINGP 44Q STRINGP) () (PRETTYCOMPRINT TEDITFILECOMS) (RPAQQ TEDITFILECOMS ((FILES TEXTOFD TEDITABBREV TEDITLOOKS IMAGEOBJ TFBRAVO) (FNS TEDIT.BUILD.PCTB TEDIT.FORMATTEDFILEP TEDIT.GET TEDIT.INCLUDE TEDIT.PUT TEDIT.PUT.PCTB TEDIT.PUT.PIECE.DESCRIPTOR \ARBIN \ARBOUT \ATMIN \ATMOUT \DWIN \DWOUT \STRINGIN \STRINGOUT \TEDIT.FORMATTEDP1 TEDIT.RAW.INCLUDE \WATOM \WSTRING) (GLOBALVARS TEDIT.INPUT.FORMATS) (INITVARS (TEDIT.INPUT.FORMATS NIL)))) (FILESLOAD TEXTOFD TEDITABBREV TEDITLOOKS IMAGEOBJ TFBRAVO) (RPAQ? TEDIT.INPUT.FORMATS NIL) (PUTPROPS TEDITFILE COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984)) NIL