(FILECREATED "29-May-85 10:14:44" ("compiled on " {DSK}TEDITCHAT.;29) "14-May-85 18:51:54" recompiled changes: TEDITCHAT.CHARFN TEDITSTREAM.INIT TEDITCHAT.MENUFN in "INTERLISP-D 14-May-85 ..." dated "14-May-85 19:09:04") (FILECREATED "24-May-85 15:24:30" {DSK}TEDITCHAT.;28 14945 changes to: (VARS TEDITCHAT.MENU TEDITCHATCOMS TEDITCHAT.MENUITEMS) (FNS TEDITSTREAM.INIT TEDITCHAT.MENUFN TEDITCHAT.CHARFN TEDIT.CHAT.CHARFN) previous date: "22-May-85 18:17:37" {DSK}TEDITCHAT.;22) TEDITCHAT.CHARFN D1 (P 1 SEL P 0 TEXTSTREAM I 1 CHAT.STATE I 0 CH) WA H H  @dl&HoI IIH  l hH@!(112Q MOVETO 101Q TEXTOBJ 61Q \TEDIT.CHARDELETE 40Q \CARET.DOWN 30Q TEXTOBJ 14Q TEXTOBJ) (104Q TEXTOBJ 73Q SELECTION 65Q SELECTION 33Q TEXTOBJ 17Q TEXTOBJ 3 CHAT.STATE) ( 55Q "") \TEXTSTREAMBOUT D1 (P 41Q FONT P 40Q CURLINE P 37Q IMAGECACHE P 36Q TABSEEN P 35Q DY P 34Q OLHEIGHT P 33Q OFLOWFN P 32Q SAVEWIDTH P 31Q PREVLINE P 30Q DX P 27Q NEWLINEFLG P 26Q LINES P 25Q NEXTLINE P 24Q FIXEDLINE P 23Q PREVSPACE P 22Q OCR\END P 21Q OCHLIM P 20Q OXLIM P 17Q CHWIDTH P 16Q CHORIG P 15Q EOLFLAG P 14Q LOOKS P 13Q LN P 12Q L1 P 11Q THISLINE P 10Q SEL 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) "@H[HZH_dOYJHId AIH JbH8OOH4HH `!OOkOO OgOj OgO_@O@kO@O@kO_BJ OAOB H$lAl jH OHJ O_O_OdgOg7O3OdgOgOjhJ OH(OH&Hh>JjOdgOg(O$OdgOgO l HAdOB O@OJO OOAOB OOH]@M@H@LL_@j@dOk==d<H @j@d@k @j@h h(1033Q CHARWIDTH 1010Q TEDIT.DISPLAYTEXT 767Q CHARWIDTH 754Q SCROLLW 740Q SHOULDNT 563Q DSPCLIPPINGREGION 427Q \FIXSEL 416Q TEDIT.UPDATE.SCREEN 364Q CHARWIDTH 346Q DSPFONT 157Q \TEDIT.APPLY.STYLES 102Q \INSERTCH 73Q \TEDIT.MARK.LINES.DIRTY) (1242Q STREAM 1232Q STREAM 1214Q STREAM 1203Q STREAM 1171Q TEXTOBJ 1145Q STREAM 1110Q TEXTOBJ 1104Q STREAM 1074Q STREAM 1062Q TEXTOBJ 1051Q SELECTION 1044Q SELECTION 1023Q SELECTION 1016Q SELECTION 776Q SELECTION 743Q LINEDESCRIPTOR 730Q RIGHT 717Q LEFT 711Q SELECTION 675Q RIGHT 664Q LEFT 656Q SELECTION 642Q TEXTOBJ 626Q TEXTOBJ 620Q SELECTION 605Q TEXTOBJ 577Q SELECTION 551Q LINEDESCRIPTOR 542Q RIGHT 534Q LINEDESCRIPTOR 524Q LEFT 516Q SELECTION 502Q RIGHT 471Q LEFT 463Q SELECTION 450Q SELECTION 435Q SELECTION 371Q TEXTOBJ 354Q SELECTION 335Q CHARLOOKS 321Q LINEDESCRIPTOR 314Q LINEDESCRIPTOR 300Q LINEDESCRIPTOR 273Q LINEDESCRIPTOR 261Q CHAR 256Q SELECTION 245Q SELECTION 235Q LEFT 232Q SELECTION 220Q SELECTION 213Q SELECTION 177Q SELECTION 172Q SELECTION 151Q TEXTOBJ 143Q TEXTOBJ 134Q SELECTION 124Q SELECTION 115Q TEXTOBJ 60Q SELECTION 42Q SELECTION 32Q TEXTOBJ 23Q TEXTOBJ 14Q TEXTOBJ 3 STREAM) () TEDITSTREAM.INIT D1 (P 1 TEXTOBJ P 0 TEXTSTREAM I 1 MENUFN I 0 WINDOW) h@hdo H H FH Fgi H gihFHg.IkkjhII8h@gA H(176Q PUTWINDOWPROP 65Q TEXTOBJ 60Q LISTPUT 44Q TEXTOBJ 31Q TEXTOBJ 22Q TEXTOBJ 13Q OPENTEXTSTREAM) (172Q TEDIT.TITLEMENUFN 160Q THISLINE 153Q TEXTOBJ 147Q SELECTION 142Q TEXTOBJ 124Q SELECTION 117Q TEXTOBJ 111Q \TEXTSTREAMBOUT 106Q STREAM 73Q COPYBYBKSYSBUF 70Q TEXTOBJ 54Q COPYBYBKSYSBUF 47Q TEXTOBJ 34Q TEXTOBJ) ( 7 (READONLY T)) TEDITCHAT.MENUFN D1 (P 1 COMMAND P 0 STATE I 0 WINDOW F 2 TEDITCHAT.MENUITEMS) @g H`kj@ @ kkjh`@ `3`dRdg dgjdndh=d= < YdgHgIgHg@gg -IdgHg@gi gIH@lIHjjdhh(267Q PUTWINDOWPROP 232Q PUTWINDOWPROP 155Q MENU 63Q \CARET.DOWN 35Q TOTOPW 30Q CHAT.RECONNECT 6 GETWINDOWUSERPROP) (314Q CHAT.STATE 273Q Freeze 263Q KEEPCHAT 254Q CLOSE 251Q CHAT.STATE 241Q Suspend 227Q NEW 224Q KEEPCHAT 215Q CLOSE 212Q CHAT.STATE 203Q New 174Q CLOSE 171Q CHAT.STATE 162Q Close 152Q TEDITCHAT.MENU 115Q DEFAULTMENUHELDFN 106Q CLRPROMPT 74Q MENUTYPE# 67Q TEDITCHAT.MENU 56Q \CARET.UP 41Q CHAT.STATE 17Q LASTMOUSEBUTTONS 3 CHATSTATE) () TEDIT.DISPLAYTEXTA0001 D1 (NAME ERRORSET L (0 NIL) P 1 CHAR F 6 LINE F 7 DS F 10Q CH F 11Q XPOINT F 12Q TEXTOBJ F 13Q RESETVARSLST F 14Q FONT F 15Q TERMSA F 16Q RESETY) ^ gd gW WcW.W WWQHkٻHKHغHCjhi]Kk[JMLKLKYdl .hjdWWVl$V ggj l$jW l 5hjdWWVIW l=dl<V ggj W.I thzWdl .hjdWWVl$V ggj l$jW Fl 5hjdWWVWW l=dl<V ggj W.W ci(530Q \DSPPRINTCHAR 513Q BKBITBLT 455Q CHARWIDTH 422Q RELMOVETO 411Q BKBITBLT 331Q \DSPPRINTCHAR 314Q BKBITBLT 256Q CHARWIDTH 224Q RELMOVETO 213Q BKBITBLT 17Q SETTOPVAL 6 GETTOPVAL) (521Q TEXTOBJ 506Q REPLACE 503Q TEXTURE 476Q LINEDESCRIPTOR 444Q LINEDESCRIPTOR 404Q REPLACE 401Q TEXTURE 374Q LINEDESCRIPTOR 364Q LINEDESCRIPTOR 323Q TEXTOBJ 307Q REPLACE 304Q TEXTURE 277Q LINEDESCRIPTOR 246Q LINEDESCRIPTOR 206Q REPLACE 203Q TEXTURE 176Q LINEDESCRIPTOR 166Q LINEDESCRIPTOR 40Q STREAM 33Q TEXTOBJ 12Q \PRIMTERMSA 2 \PRIMTERMSA) () TEDIT.DISPLAYTEXT D1 (P 10Q CHAR P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 FONT P 2 DY P 1 TERMSA P 0 LOOKS I 6 SEL I 5 DS I 4 XPOINT I 3 LINE I 2 CHWIDTH I 1 CH I 0 TEXTOBJ F 15Q LISPXHIST F 16Q RESETVARSLST)  @4@@ @<"DCHjE I(W!Wog hg^ N@AAQ Ok_O_OO_OCjhi_Ok_OOOOOO_dl /hjdEhE Cl$C ggj l$jE l 8hjdEhE COK l=dl<C ggj uOE lsAdl /hjdEhE Cl$C ggj l$jE ?l 5hjdEhE CAK l=dl<C ggj AE h(623Q BLTCHAR 615Q BKBITBLT 557Q CHARWIDTH 544Q DSPXPOSITION 524Q RELMOVETO 514Q BKBITBLT 463Q DSPXPOSITION 434Q BLTCHAR 423Q BKBITBLT 365Q CHARWIDTH 351Q DSPXPOSITION 331Q RELMOVETO 321Q BKBITBLT 270Q DSPXPOSITION 121Q ERROR! 113Q RESETRESTORE 101Q TEDIT.DISPLAYTEXTA0001 55Q MOVETO 17Q \TEDIT.APPLY.STYLES) (610Q REPLACE 605Q TEXTURE 600Q LINEDESCRIPTOR 550Q LINEDESCRIPTOR 507Q REPLACE 504Q TEXTURE 477Q LINEDESCRIPTOR 467Q LINEDESCRIPTOR 416Q REPLACE 413Q TEXTURE 406Q LINEDESCRIPTOR 355Q LINEDESCRIPTOR 314Q REPLACE 311Q TEXTURE 304Q LINEDESCRIPTOR 274Q LINEDESCRIPTOR 107Q ERROR 76Q INTERNAL 43Q CHARLOOKS 35Q LINEDESCRIPTOR 23Q TEXTOBJ 11Q TEXTOBJ 3 TEXTOBJ) ( 73Q (TEDIT.DISPLAYTEXTA0001)) (PRETTYCOMPRINT TEDITCHATCOMS) (RPAQQ TEDITCHATCOMS ((COMS (* character routines) (FNS TEDITCHAT.CHARFN \TEXTSTREAMBOUT)) (COMS (FNS TEDITSTREAM.INIT TEDITCHAT.MENUFN)) (COMS (* TEDIT update routines) (FNS TEDIT.DISPLAYTEXT)) ( GLOBALVARS TEDITCHAT.MENU CHAT.DRIVERTYPES CHAT.DISPLAYTYPES) (VARS TEDITCHAT.MENUITEMS ( TEDITCHAT.MENU)) (ADDVARS (CHAT.DRIVERTYPES (TEDIT TEDITCHAT.CHARFN NILL))))) (RPAQQ TEDITCHAT.MENUITEMS ((Close (QUOTE Close) "Closes the connection and returns") (Suspend (QUOTE Suspend) "Closes the connection but leaves window up") (New (QUOTE New) "Closes this connection and prompts for a new host") (Freeze (QUOTE Freeze) "Holds typeout in this window until you bug it again") ("Dribble" (FUNCTION CHAT.TYPESCRIPT) "Starts a typescript of window typeout") ("Input" (FUNCTION CHAT.TAKE.INPUT) "Allows input from a file"))) (RPAQQ TEDITCHAT.MENU NIL) (ADDTOVAR CHAT.DRIVERTYPES (TEDIT TEDITCHAT.CHARFN NILL)) (PUTPROPS TEDITCHAT COPYRIGHT ("Xerox Corporation" 1985)) NIL