(FILECREATED "31-May-85 15:37:32" ("compiled on " {PHYLUM}RELEASE1.2I>INTERMEZZOTEDITFIXES.;4) "19-Mar-85 14:34:17" recompiled changes: TEDIT.GET \TEDIT.MARK.LINES.DIRTY in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "31-May-85 15:36:57" {PHYLUM}RELEASE1.2I>INTERMEZZOTEDITFIXES.;4 13728 changes to: (VARS INTERMEZZOTEDITFIXESCOMS) (FNS \TEDIT.MARK.LINES.DIRTY TEDIT.GET) previous date: "29-May-85 17:50:53" {PHYLUM}RELEASE1.2I>INTERMEZZOTEDITFIXES.;2) TEDIT.PUTA0001 D1 (NAME ERRORSET F 0 OFILE F 1 TEXTOBJ F 2 UNFORMATTED? F 3 RESETVARSLST F 4 RESETY F 5 FONTFILEUSED F 6 CACHE) oPgghRoQ oo chScQ8hQoPPo i QjQPR c P VPg g cQ, QP,Qj,gci(207Q CLOSEF? 173Q OPENSTREAM 165Q FULLNAME 153Q CLOSEF 144Q TEDIT.PUT.PCTB 124Q TEDIT.PROMPTPRINT 120Q CONCAT 44Q OPENSTREAM 26Q TEDIT.FORMATTEDFILEP) (234Q We 224Q TEXTOBJ 214Q TEXTOBJ 202Q TEXTOBJ 170Q INPUT 162Q OLD 131Q TEXTOBJ 104Q STREAM 67Q THISLINE 62Q TEXTOBJ 12Q NEW 7 OUTPUT) ( 115Q "..." 100Q "PUTting file " 40Q ((TYPE TEXT)) 33Q ((TYPE BINARY)) 21Q ((TYPE TEXT)) 3 (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE)))) TEDIT.PUT D1 (P 23Q \INTERRUPTABLE P 22Q RESETZ P 21Q RESETY P 20Q LISPXHIST P 17Q PC P 16Q CH#S P 15Q TITLE P 14Q FILENAME P 13Q MENUSTREAM P 12Q CACHE 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 3 UNFORMATTED? I 2 FORCENEW I 1 FILE I 0 STREAM F 24Q LISPXHIST F 25Q RESETVARSLST) @ ABHo HoH H Fg _H Fg _M6O H.Mg glOgW(!W*og hg_$ O$N _Hl(_;O7O%OOO_OMOhOHo H _HO H _d/Ol'ghgO _OgO OgO HjjdhHhHggjdhdddh OH.H,g glOh(566Q FULLNAME 540Q \TEDIT.HISTORYADD 461Q MBUTTON.SET.FIELD 446Q MBUTTON.SET.FIELD 431Q PACKFILENAME 400Q TEDITMENU.STREAM 374Q \TEDIT.WINDOW.TITLE 371Q \TEDIT.ORIGINAL.WINDOW.TITLE 361Q TEXTSTREAM.TITLE 355Q TEDIT.PROMPTPRINT 231Q REVERSE 222Q ERROR! 213Q RESETRESTORE 200Q TEDIT.PUTA0001 136Q FULLNAME 104Q LISTGET 71Q TEXTOBJ 63Q LISTGET 50Q TEXTOBJ 43Q \TEDIT.MAKEFILENAME 40Q TEDIT.GETINPUT 35Q \TEXTSTREAM.FILENAME 23Q TEDIT.GETINPUT 3 TEXTOBJ) (571Q AFTER 563Q OLD 556Q TEXTOBJ 550Q TEXTOBJ 516Q LEFT 513Q Put 504Q TEXTOBJ 466Q TEXTOBJ 454Q Put 441Q Get 424Q BODY 420Q VERSION 340Q PIECE 327Q PIECE 316Q PIECE 275Q PIECE 264Q PIECE 242Q TEXTOBJ 206Q ERROR 175Q INTERNAL 152Q DON'T 141Q BEFORE 133Q NEW 125Q TEXTOBJ 101Q CACHE 74Q TEXTOBJ 60Q PUTFN 53Q TEXTOBJ) ( 352Q "done." 172Q (TEDIT.PUTA0001) 31Q "File to PUT to: " 20Q "File to PUT to: ") 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 UNFORMATTED? F 14Q TEDIT.GET.FINISHEDFORMS F 15Q RESETY)  gRL` hhTcg` hhTcR R. Ug c RURhdR@R:W HIIcWd Rc RU,Rj,VhRjRWdkkkHIIkSSk kSj SgSkRjR jRj`j`jRRS 4VVRhR SR Shi R cRW R c/Wl'ghgW cWgW WgW Rd Rgghdddddh ci(721Q \TEDIT.HISTORYADD 667Q \TEDIT.SET.WINDOW.EXTENT 664Q \TEDIT.PRIMARYW 656Q MBUTTON.SET.FIELD 643Q MBUTTON.SET.FIELD 626Q PACKFILENAME 576Q TEDITMENU.STREAM 571Q \TEDIT.WINDOW.TITLE 566Q \TEDIT.ORIGINAL.WINDOW.TITLE 555Q TEXTSTREAM.TITLE 550Q \SHOWSEL 541Q \FIXSEL 533Q \FILLWINDOW 527Q \TEDIT.PRIMARYW 507Q \TEDIT.GET.INSERT.CHARLOOKS 172Q EVAL 145Q TEDIT.BUILD.PCTB 110Q OPENSTREAM 100Q \TEXTCLOSEF 66Q \SHOWSEL 43Q CURSOR 20Q TTYDISPLAYSTREAM) (677Q LEFT 674Q Get 651Q Put 636Q Get 621Q BODY 615Q VERSION 516Q LINEDESCRIPTOR 502Q TEXTOBJ 471Q SELECTION 466Q TEDIT.SHIFTEDSELECTION 456Q SELECTION 453Q TEDIT.SELECTION 443Q SELECTION 436Q TEXTOBJ 425Q SELECTION 420Q TEXTOBJ 407Q SELECTION 402Q TEXTOBJ 371Q SELECTION 362Q LEFT 357Q SELECTION 347Q SELECTION 333Q SELECTION 327Q SELECTION 305Q ARRAYP 264Q ARRAYP 256Q TEXTOBJ 245Q TEXTOBJ 235Q LINEDESCRIPTOR 224Q TEXTOBJ 214Q TEXTOBJ 203Q 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 17Q RESETZ P 16Q RESETY P 15Q LISPXHIST P 13Q TEDIT.GET.FINISHEDFORMS P 12Q MENUSTREAM P 11Q FILENAME P 10Q TITLE P 7 RESP P 6 USER.CMFILE P 5 LINES P 4 OCURSOR P 3 OFILE P 2 GETFN P 1 PCTB P 0 SEL I 2 UNFORMATTED? I 1 FILE I 0 TEXTOBJ F 20Q LISPXHIST F 21Q RESETVARSLST) @@@ Fg  @,j$@L@L oi@L hA @o [dyd gJ@.K glJgW !W"og hg_ OJ:@.@,_OglJK@o @oi h(334Q TEDIT.PROMPTPRINT 321Q TEDIT.PROMPTPRINT 240Q ERROR! 231Q RESETRESTORE 216Q TEDIT.GETA0001 157Q FULLNAME 140Q INFILEP 130Q \TEDIT.MAKEFILENAME 125Q TEDIT.GETINPUT 107Q MOUSECONFIRM 70Q FRESHLINE 32Q LISTGET 17Q TEXTOBJ) (277Q AFTER 266Q STREAM 257Q TEXTOBJ 251Q TEXTOBJ 224Q ERROR 213Q INTERNAL 172Q DON'T 162Q BEFORE 151Q TEXTOBJ 102Q TEXTOBJ 63Q TEXTOBJ 54Q TEXTOBJ 41Q TEXTOBJ 27Q GETFN 22Q TEXTOBJ 11Q TEXTOBJ 3 TEXTOBJ) ( 330Q "[Get aborted.]" 316Q "[File not found.]" 210Q (TEDIT.GETA0001) 122Q "File to GET: " 75Q "Not saved yet; LEFT go Get anyway.") \TEDIT.MARK.LINES.DIRTY D1 (P 5 WW P 3 CHLIM# P 2 CH# I 2 CHLIM I 1 CH1 I 0 TEXTOBJ) xA@HdIIBm @k؀B@#L @kRhLhLLMg ^KNdJNk(N(113Q GETWINDOWUSERPROP 27Q IEQP) (162Q LINEDESCRIPTOR 151Q LINEDESCRIPTOR 136Q LINEDESCRIPTOR 123Q LINEDESCRIPTOR 110Q LINES 62Q TEXTOBJ 46Q TEXTOBJ 34Q TEXTOBJ 4 TEXTOBJ) () (PRETTYCOMPRINT INTERMEZZOTEDITFIXESCOMS) (RPAQQ INTERMEZZOTEDITFIXESCOMS ((FNS TEDIT.PUT TEDIT.GET \TEDIT.MARK.LINES.DIRTY))) (PUTPROPS INTERMEZZOTEDITFIXES COPYRIGHT ("Xerox Corporation" 1985)) NIL