(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "20-Oct-86 15:10:27" ("compiled on " IL:{DSK}TEDITCHAT.\;4) "19-Oct-86 18:07:50" "COMPILE-FILEd" IL:|in| "Xerox Lisp 19-Oct-86 ..." IL:|dated| "19-Oct-86 23:28:21") (IL:FILECREATED "20-Oct-86 15:05:37" IL:{DSK}TEDITCHAT.\;4 30286 IL:|changes| IL:|to:| ( IL:FNS IL:TEDITCHAT.MENUFN) IL:|previous| IL:|date:| "20-Oct-86 14:45:50" IL:{DSK}TEDITCHAT.\;3) (IL:RPAQQ IL:TEDITCHATCOMS ((IL:COMS (IL:* IL:|character| IL:|routines|) (IL:FNS IL:TEDITCHAT.CHARFN IL:\\TEXTSTREAMBOUT)) (IL:COMS (IL:FNS IL:TEDITSTREAM.INIT IL:TEDITCHAT.MENUFN)) (IL:COMS (IL:* IL:TEDIT IL:|update| IL:|routines|) (IL:FNS IL:TEDIT.DISPLAYTEXT)) (IL:GLOBALVARS IL:TEDITCHAT.MENU IL:CHAT.DRIVERTYPES IL:CHAT.DISPLAYTYPES) (IL:VARS IL:TEDITCHAT.MENUITEMS (IL:TEDITCHAT.MENU)) ( IL:ADDVARS (IL:CHAT.DRIVERTYPES (IL:TEDIT IL:TEDITCHAT.CHARFN IL:NILL))) (IL:DECLARE\: IL:EVAL@COMPILE IL:DONTCOPY (IL:FILES (IL:SOURCE) IL:CHATDECLS)))) IL:TEDITCHAT.CHARFN IL:D1 (IL:P 1 IL:SEL IL:P 0 IL:TEXTSTREAM IL:I 1 IL:CHAT.STATE IL:I 0 IL:CH) YA H H  @dl&HoI IIH  l hH@ (86 IL:BOUT 74 IL:MOVETO 65 IL:TEXTOBJ 49 IL:\\TEDIT.CHARDELETE 32 IL:\\CARET.DOWN 24 IL:TEXTOBJ 12 IL:TEXTOBJ) (68 IL:TEXTOBJ 59 IL:SELECTION 53 IL:SELECTION 27 IL:TEXTOBJ 15 IL:TEXTOBJ 3 IL:CHAT.STATE) ( 45 "") IL:\\TEXTSTREAMBOUT IL:D1 (IL:P 34 IL:FONT IL:P 33 IL:CURLINE IL:P 32 IL:IMAGECACHE IL:P 31 IL:TABSEEN IL:P 30 IL:DY IL:P 29 IL:OLHEIGHT IL:P 28 IL:OFLOWFN IL:P 27 IL:SAVEWIDTH IL:P 26 IL:PREVLINE IL:P 25 IL:DX IL:P 24 IL:NEWLINEFLG IL:P 23 IL:LINES IL:P 22 IL:NEXTLINE IL:P 21 IL:FIXEDLINE IL:P 20 IL:PREVSPACE IL:P 19 IL:OCR\\END IL:P 18 IL:OCHLIM IL:P 17 IL:OXLIM IL:P 16 IL:CHWIDTH IL:P 15 IL:CHORIG IL:P 14 IL:EOLFLAG IL:P 13 IL:LOOKS IL:P 12 IL:LN IL:P 11 IL:L1 IL:P 10 IL:THISLINE IL:P 8 IL:SEL IL:P 7 IL:OFFST IL:P 6 IL:PSTR IL:P 5 IL:PC IL:P 4 IL:PS IL:P 3 IL:TEXTLEN IL:P 2 IL:WINDOW IL:P 1 IL:CH# IL:P 0 IL:TEXTOBJ IL:I 1 BYTE IL:I 0 STREAM) #@ H[HZH_dhiOYJHId AIH JcH8OOH4HH `"OOkOO OgOj OgO_BOBkOBOBkO_DJ OAOD H$lAl jH OHJ O_O_OdgOg;O7OdgOgOjhJ hiOH(hiOH&Hh>JjOdgOg(O$OdgOgO l HAdOD OBOJO OOAOD OOH]@M@H@LL_@j@dOk_OH @j@d@k @j@h h(549 IL:CHARWIDTH 530 IL:TEDIT.DISPLAYTEXT 513 IL:CHARWIDTH 502 IL:SCROLLW 490 IL:SHOULDNT 373 IL:DSPCLIPPINGREGION 281 IL:\\FIXSEL 272 IL:TEDIT.UPDATE.SCREEN 246 IL:CHARWIDTH 232 IL:DSPFONT 113 IL:\\TEDIT.APPLY.STYLES 68 IL:\\INSERTCH 61 IL:\\TEDIT.MARK.LINES.DIRTY) (679 STREAM 671 STREAM 657 STREAM 648 STREAM 638 IL:TEXTOBJ 623 STREAM 594 IL:TEXTOBJ 590 STREAM 582 STREAM 572 IL:TEXTOBJ 563 IL:SELECTION 558 IL:SELECTION 541 IL:SELECTION 536 IL:SELECTION 520 IL:SELECTION 493 IL:LINEDESCRIPTOR 482 IL:RIGHT 473 IL:LEFT 467 IL:SELECTION 455 IL:RIGHT 446 IL:LEFT 440 IL:SELECTION 428 IL:TEXTOBJ 416 IL:TEXTOBJ 410 IL:SELECTION 395 IL:TEXTOBJ 389 IL:SELECTION 363 IL:LINEDESCRIPTOR 356 IL:RIGHT 350 IL:LINEDESCRIPTOR 342 IL:LEFT 336 IL:SELECTION 324 IL:RIGHT 315 IL:LEFT 309 IL:SELECTION 298 IL:SELECTION 287 IL:SELECTION 251 IL:TEXTOBJ 238 IL:SELECTION 223 IL:CHARLOOKS 211 IL:LINEDESCRIPTOR 206 IL:LINEDESCRIPTOR 194 IL:LINEDESCRIPTOR 189 IL:LINEDESCRIPTOR 179 IL:CHAR 176 IL:SELECTION 167 IL:SELECTION 159 IL:LEFT 156 IL:SELECTION 146 IL:SELECTION 141 IL:SELECTION 129 IL:SELECTION 124 IL:SELECTION 107 IL:TEXTOBJ 101 IL:TEXTOBJ 94 IL:SELECTION 86 IL:SELECTION 79 IL:TEXTOBJ 50 IL:SELECTION 34 IL:SELECTION 26 IL:TEXTOBJ 19 IL:TEXTOBJ 12 IL:TEXTOBJ 3 STREAM) () IL:TEDITSTREAM.INIT IL:D1 (IL:P 1 IL:TEXTOBJ IL:P 0 IL:TEXTSTREAM IL:I 1 IL:MENUFN IL:I 0 IL:WINDOW) h@hdo H H FH Fgi H gihFHg.IkII8h@gA H(123 IL:PUTWINDOWPROP 53 IL:TEXTOBJ 48 IL:LISTPUT 36 IL:TEXTOBJ 25 IL:TEXTOBJ 18 IL:TEXTOBJ 11 IL:OPENTEXTSTREAM) (119 IL:TEDIT.TITLEMENUFN 108 IL:THISLINE 103 IL:TEXTOBJ 99 IL:SELECTION 94 IL:TEXTOBJ 85 IL:SELECTION 80 IL:TEXTOBJ 73 IL:\\TEXTSTREAMBOUT 70 STREAM 59 IL:COPYBYBKSYSBUF 56 IL:TEXTOBJ 44 IL:COPYBYBKSYSBUF 39 IL:TEXTOBJ 28 IL:TEXTOBJ) ( 7 (IL:READONLY T)) IL:TEDITCHAT.MENUFN IL:D1 (IL:P 1 IL:COMMAND IL:P 0 IL:STATE IL:I 0 IL:WINDOW IL:F 3 IL:TEDITCHAT.MENUITEMS) @g !Hhi`kj@ @ Hkkjh`@ `-`dSdg dgjdndhdJ  YdgHgIgHg@gg -IdgHg@gi gIH@lIHjjdhh(182 IL:PUTWINDOWPROP 153 IL:PUTWINDOWPROP 108 IL:MENU 56 IL:\\CARET.DOWN 33 IL:TOTOPW 28 IL:CHAT.RECONNECT 6 IL:GETWINDOWUSERPROP) (203 IL:CHAT.STATE 186 IL:|Freeze| 178 IL:KEEPCHAT 171 IL:CLOSE 168 IL:CHAT.STATE 160 IL:|Suspend| 150 IL:NEW 147 IL:KEEPCHAT 140 IL:CLOSE 137 IL:CHAT.STATE 130 IL:|New| 123 IL:CLOSE 120 IL:CHAT.STATE 113 IL:|Close| 105 IL:TEDITCHAT.MENU 82 IL:DEFAULTMENUHELDFN 75 IL:CLRPROMPT 65 IL:|MENUTYPE#| 60 IL:TEDITCHAT.MENU 51 IL:\\CARET.UP 38 IL:CHAT.STATE 19 IL:LASTMOUSEBUTTONS 3 IL:CHATSTATE) () IL:TEDIT.DISPLAYTEXTA0001 IL:D1 (IL:NAME IL:ERRORSET IL:L (0 NIL) IL:P 1 IL:CHAR IL:F 7 IL:LINE IL:F 8 IL:DS IL:F 9 IL:CH IL:F 10 IL:XPOINT IL:F 11 IL:TEXTOBJ IL:F 12 IL:RESETVARSLST IL:F 13 IL:FONT IL:F 14 IL:TERMSA IL:F 15 IL:RESETY) m gd gW WcW.W WWaHkٻHKHغHCjhi]Kk[JMLKLKYdl 0hjdWWWl$W ggj l$jW l 9hjdWWWIW lNhiNlW ggj |W.I nhWdl 0hjdWWWl$W ggj l$jW Ll ;hjdWWWWW lHhiHlW ggj W.W ci(359 IL:\\DSPPRINTCHAR 346 IL:BKBITBLT 311 IL:CHARWIDTH 283 IL:RELMOVETO 274 IL:BKBITBLT 223 IL:\\DSPPRINTCHAR 209 IL:BKBITBLT 177 IL:CHARWIDTH 150 IL:RELMOVETO 141 IL:BKBITBLT 15 IL:SETTOPVAL 6 IL:GETTOPVAL) (352 IL:TEXTOBJ 341 IL:REPLACE 338 IL:TEXTURE 333 IL:LINEDESCRIPTOR 302 IL:LINEDESCRIPTOR 269 IL:REPLACE 266 IL:TEXTURE 261 IL:LINEDESCRIPTOR 252 IL:LINEDESCRIPTOR 217 IL:TEXTOBJ 204 IL:REPLACE 201 IL:TEXTURE 196 IL:LINEDESCRIPTOR 169 IL:LINEDESCRIPTOR 136 IL:REPLACE 133 IL:TEXTURE 128 IL:LINEDESCRIPTOR 119 IL:LINEDESCRIPTOR 32 STREAM 27 IL:TEXTOBJ 10 IL:\\PRIMTERMSA 2 IL:\\PRIMTERMSA) () IL:TEDIT.DISPLAYTEXT IL:D1 (IL:P 10 IL:CHAR IL:P 8 IL:RESETZ IL:P 7 IL:RESETY IL:P 6 IL:LISPXHIST IL:P 3 IL:FONT IL:P 2 IL:DY IL:P 1 IL:TERMSA IL:P 0 IL:LOOKS IL:I 6 IL:SEL IL:I 5 IL:DS IL:I 4 IL:XPOINT IL:I 3 IL:LINE IL:I 2 IL:CHWIDTH IL:I 1 IL:CH IL:I 0 IL:TEXTOBJ IL:F 15 IL:LISPXHIST IL:F 16 IL:RESETVARSLST) @4@@ @<BDCHjE I*W!W og hg_ OBAAQOk_O_OO_OCjhi_Ok_OOOOOO_dl /hjdEhE Cl$C ggj l$jE l 9hjdEhE COK lLhiLlC ggj tOE ktAdl /hjdEhE Cl$C ggj l$jE @l 6hjdEhE CAK lMhiMlC ggj AE h(407 IL:BLTCHAR 401 IL:BKBITBLT 370 IL:CHARWIDTH 359 IL:DSPXPOSITION 343 IL:RELMOVETO 335 IL:BKBITBLT 310 IL:DSPXPOSITION 287 IL:BLTCHAR 278 IL:BKBITBLT 247 IL:CHARWIDTH 235 IL:DSPXPOSITION 219 IL:RELMOVETO 211 IL:BKBITBLT 186 IL:DSPXPOSITION 83 IL:ERROR! 76 IL:RESETRESTORE 65 IL:TEDIT.DISPLAYTEXTA0001 45 IL:MOVETO 15 IL:\\TEDIT.APPLY.STYLES) (396 IL:REPLACE 393 IL:TEXTURE 388 IL:LINEDESCRIPTOR 363 IL:LINEDESCRIPTOR 330 IL:REPLACE 327 IL:TEXTURE 322 IL:LINEDESCRIPTOR 314 IL:LINEDESCRIPTOR 273 IL:REPLACE 270 IL:TEXTURE 265 IL:LINEDESCRIPTOR 239 IL:LINEDESCRIPTOR 206 IL:REPLACE 203 IL:TEXTURE 198 IL:LINEDESCRIPTOR 190 IL:LINEDESCRIPTOR 71 IL:ERROR 62 IL:INTERNAL 35 IL:CHARLOOKS 29 IL:LINEDESCRIPTOR 19 IL:TEXTOBJ 9 IL:TEXTOBJ 3 IL:TEXTOBJ) ( 59 (IL:TEDIT.DISPLAYTEXTA0001)) (IL:RPAQQ IL:TEDITCHAT.MENUITEMS ((IL:|Close| (QUOTE IL:|Close|) "Closes the connection and returns") (IL:|Suspend| (QUOTE IL:|Suspend|) "Closes the connection but leaves window up") (IL:|New| (QUOTE IL:|New|) "Closes this connection and prompts for a new host") (IL:|Freeze| (QUOTE IL:|Freeze|) "Holds typeout in this window until you bug it again") ("Dribble" (IL:FUNCTION IL:CHAT.TYPESCRIPT) "Starts a typescript of window typeout") ("Input" (IL:FUNCTION IL:CHAT.TAKE.INPUT) "Allows input from a file") ("Option" (IL:FUNCTION IL:DO.CHAT.OPTION) "Do protocol specific option"))) (IL:RPAQQ IL:TEDITCHAT.MENU NIL) (IL:ADDTOVAR IL:CHAT.DRIVERTYPES (IL:TEDIT IL:TEDITCHAT.CHARFN IL:NILL)) (IL:PUTPROPS IL:TEDITCHAT IL:COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL