(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED "20-Apr-87 13:43:54" ("compiled on " {ERIS}LIBRARY>TCPCHAT.;17) "15-Apr-87 10:39:13" "COMPILE-FILEd" in "Xerox Lisp 15-Apr-87 ..." dated "15-Apr-87 11:06:40") (FILECREATED "20-Apr-87 13:43:23" {ERIS}LIBRARY>TCPCHAT.;17 17520 changes to%: (FNS TCPCHAT.TERMINAL.TYPE TCPCHAT.OPTION.OUTPUT TCPCHAT.OPEN TCPCHAT.OPTION.INPUT) (VARS TELNET.COMMANDS TELNET.OPTIONS) (RECORDS TELNET.OPTION) (FILES CHATDECLS) previous date%: " 2-Apr-87 11:57:48" {ERIS}LIBRARY>TCPCHAT.;15) (RPAQQ TCPCHATCOMS ((FNS TCPCHAT.BIN TCPCHAT.HOST.FILTER TCPCHAT.NEGOTIATE TCPCHAT.OPEN TCPCHAT.OPTION.COMMAND TCPCHAT.OPTION.INPUT TCPCHAT.OPTION.OUTPUT TCPCHAT.OPTION.TRACE TCPCHAT.TERMINAL.TYPE) (COMS (CONSTANTS * TELNET.COMMANDS) (CONSTANTS * TELNET.MARKS)) (VARS TCPCHAT.TELNET.TTY.TYPES TELNET.OPTIONS) (GLOBALVARS TCPCHAT.TELNET.TTY.TYPES TELNET.OPTIONS TELNET.MARKS) (ADDVARS (CHAT.PROTOCOLTYPES (TCP . TCPCHAT.HOST.FILTER))) (INITVARS (TCPCHAT.TRACEFLG) (TCPCHAT.TRACEFILE)) (RECORDS TELNET.OPTION TELNET.OPTIONSTATE) (FILES (SYSLOAD) TCP CHAT) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES CHATDECLS)))) TCPCHAT.BIN :D4 (P 0 CHAR I 0 STREAM) @ Xdlÿð—¿@ ¿°ð(17 TCPCHAT.NEGOTIATE 6 \BUFFERED.BIN) NIL () TCPCHAT.HOST.FILTER :D4 (I 0 HOST F 0 \IPFLG) P´@ ´@ gh(12 \CANONICAL.HOSTNAME 6 DODIP.HOSTP) (15 TCPCHAT.OPEN) () TCPCHAT.NEGOTIATE :D4 (I 0 STREAM) @ @ @ (14 TCPCHAT.OPTION.INPUT 11 \BUFFERED.BIN 7 \BUFFERED.BIN 3 TCP.OTHER.STREAM) NIL () TCPCHAT.OPEN :D4 (P 2 OUTPUTSTREAM P 1 OSTYPE P 0 STREAM I 0 HOST F 6 \IP.HOSTNAMES) Ë@ lhgg @ V ž@ V Éµ @g Hd¢±“jÏ¿Hg$¿Hgg¿Igð–Hd H Zg0`°dhdd»LµKh]\„Kh\¿µåM¿Jlýk¿Jlýl¿Jlûl¿Igð¯Jlýj¿Jlûj¿HJ(196 TCPCHAT.OPTION.COMMAND 188 TCPCHAT.OPTION.COMMAND 174 TCPCHAT.OPTION.COMMAND 165 TCPCHAT.OPTION.COMMAND 156 TCPCHAT.OPTION.COMMAND 148 STREAMPROP 102 TCP.OTHER.STREAM 96 TCP.OTHER.STREAM 84 STREAMPROP 47 GETHOSTINFO 33 GETHASH 29 U-CASE 24 GETHASH 20 U-CASE 16 TCP.OPEN 3 DODIP.HOSTP) (179 UNIX 112 TELNET.OPTIONS 106 OPTIONSTATES 89 INTERLISP 81 NILL 78 SETDISPLAYTYPE 71 TCPCHAT.BIN 68 STREAM 59 STREAM 44 OSTYPE 36 HOSTS.TXT.ENTRY 12 INPUT 9 ACTIVE) () TCPCHAT.OPTION.COMMAND :D4 (P 1 GO.AHEAD.WITH.COMMAND P 0 OPTIONSTATE I 3 TRACECAPTION I 2 OPTION I 1 COMMAND I 0 OUTPUTSTREAM) B@g Adlýð²¿Hgð³Oi¹Hg°Clûð²Hgð³7i¹Hg°,AdlþðŸ¿Hgð³i¹Hlüð²Hgð¨i¹Hg¿I´!@lÿ @A @B @ ABCµg(140 TCPCHAT.OPTION.TRACE 129 FORCEOUTPUT 125 BOUT 120 BOUT 115 BOUT 7 STREAMPROP) (137 SEND 104 NO 95 NO 76 NO 60 YES 50 YES 37 YES 26 YES 4 OPTIONSTATES) () TCPCHAT.OPTION.INPUT :D4 (P 0 OPTIONRECORD I 2 OPTION I 1 COMMAND I 0 OUTPUTSTREAM) §B`H¢±ŽAdlýð²¿gBg@HBlþð²gBg@HBAdlûð²¿gBg@HBlüð²gBg@HBAdlúð²¿gBg@HBAB @gB(164 TCPCHAT.OPTION.OUTPUT 156 TCPCHAT.OPTION.TRACE 150 TCPCHAT.OPTION.OUTPUT 138 TCPCHAT.OPTION.TRACE 119 TCPCHAT.OPTION.OUTPUT 108 TCPCHAT.OPTION.TRACE 92 TCPCHAT.OPTION.OUTPUT 82 TCPCHAT.OPTION.TRACE 63 TCPCHAT.OPTION.OUTPUT 54 TCPCHAT.OPTION.TRACE 38 TCPCHAT.OPTION.OUTPUT 30 TCPCHAT.OPTION.TRACE) (160 WONT 135 RECV 131 SB 105 RECV 101 WONT 79 RECV 75 WILL 51 RECV 47 DONT 27 RECV 23 DO 3 TELNET.OPTIONS) () TCPCHAT.OPTION.OUTPUT :D4 (P 0 CMDNUM I 2 OPTION I 1 COMMAND I 0 OUTPUTSTREAM) %AhðµAoX™@HBg@ kA(30 TCP.OTHER.STREAM 25 TCPCHAT.OPTION.COMMAND) (22 SENDBACK) ( 12 ((WILL . 251) (WONT . 252) (DO . 253) (DONT . 254))) TCPCHAT.OPTION.TRACE :D4 (I 2 PREFIX I 1 OPTION I 0 COMMAND) n`´<@µ8B` ¿o` ¿@` ¿o` A``` dlýð•¿g°lþð”g°@dlûð”¿gˆlüð“g€@b¿°Ÿ(62 TERPRI 56 PRINTCONSTANT 46 PRIN1 35 PRIN1 27 PRIN1 16 PRIN1) (101 WONT 93 WILL 81 DONT 72 DO 59 TCPCHAT.TRACEFILE 53 TCPCHAT.TRACEFILE 50 TELNET.MARKS 43 TCPCHAT.TRACEFILE 32 TCPCHAT.TRACEFILE 24 TCPCHAT.TRACEFILE 13 TCPCHAT.TRACEFILE 2 TCPCHAT.TRACEFLG) ( 40 " " 21 ": ") TCPCHAT.TERMINAL.TYPE :D4 (P 2 DISPLAYTYPE P 1 OUTPUTSTREAM P 0 COMMAND I 0 INPUTSTREAM) d@ dkð¢±å`šo` ¿@ Xlÿðœ`²o`ˆ`˜Ho ¿@ Xlððœ`²#o`‰`²Ho ¿`–` ¿@ @g `µIg `Ilÿ Ilú Il Ij JI Ilÿ Ilð I `´‚±—o` J` o` ` jð²J`²o` ¿` ¿@ Xlðð³`²óH ` °æ`´9o` ` `´#o` H` o` ` (353 TERPRI 347 PRIN1 337 PRIN1 330 PRIN1 314 TERPRI 308 PRIN1 291 PRIN1 285 CHARACTER 270 \BUFFERED.BIN 265 TERPRI 258 PRIN1 238 TERPRI 232 PRIN1 222 PRIN1 215 PRIN1 196 FORCEOUTPUT 192 BOUT 186 BOUT 180 PRIN1 175 BOUT 170 BOUT 164 BOUT 158 BOUT 141 STREAMPROP 124 STREAMPROP 114 TCP.OTHER.STREAM 109 TERPRI 98 PRIN1 67 \BUFFERED.BIN 62 PRIN1 32 \BUFFERED.BIN 27 PRIN1 6 \BUFFERED.BIN) (350 TCPCHAT.TRACEFILE 344 TCPCHAT.TRACEFILE 334 TCPCHAT.TRACEFILE 327 TCPCHAT.TRACEFILE 318 TCPCHAT.TRACEFLG 311 TCPCHAT.TRACEFILE 305 TCPCHAT.TRACEFILE 296 TCPCHAT.TRACEFLG 288 TCPCHAT.TRACEFILE 279 TCPCHAT.TRACEFLG 262 TCPCHAT.TRACEFILE 255 TCPCHAT.TRACEFILE 246 TCPCHAT.TRACEFLG 235 TCPCHAT.TRACEFILE 229 TCPCHAT.TRACEFILE 219 TCPCHAT.TRACEFILE 212 TCPCHAT.TRACEFILE 199 TCPCHAT.TRACEFLG 147 TCPCHAT.TELNET.TTY.TYPES 138 DISPLAYTYPE 130 TCPCHAT.TELNET.TTY.TYPES 121 DISPLAYTYPE 106 TCPCHAT.TRACEFILE 102 TCPCHAT.TRACEFLG 88 TCPCHAT.TRACEFLG 84 TCPCHAT.TRACEFILE 75 TCPCHAT.TRACEFLG 53 TCPCHAT.TRACEFLG 49 TCPCHAT.TRACEFILE 40 TCPCHAT.TRACEFLG 24 TCPCHAT.TRACEFILE 16 TCPCHAT.TRACEFLG) ( 341 ", which is an error" 324 "REQUEST IS " 302 " SE" 252 "REQUEST IS IS, which is an error: rest of command is:" 226 " IAC SE" 209 "SEND(BACK) IAC SB TERMINAL-TYPE IS " 95 " EXPECTED SE, GOT " 81 " SE" 59 " EXPECTED IAC, GOT " 46 " IAC" 21 "REQUEST IS SEND") (RPAQQ TELNET.COMMANDS ((TELNET.SE 240) (TELNET.SB 250) (TELNET.WILL 251) (TELNET.WONT 252) (TELNET.DO 253) (TELNET.DONT 254) (TELNET.IAC 255) (TELNET.SEND 1) (TELNET.IS 0))) (RPAQQ TELNET.SE 240) (RPAQQ TELNET.SB 250) (RPAQQ TELNET.WILL 251) (RPAQQ TELNET.WONT 252) (RPAQQ TELNET.DO 253) (RPAQQ TELNET.DONT 254) (RPAQQ TELNET.IAC 255) (RPAQQ TELNET.SEND 1) (RPAQQ TELNET.IS 0) (CONSTANTS (TELNET.SE 240) (TELNET.SB 250) (TELNET.WILL 251) (TELNET.WONT 252) (TELNET.DO 253) ( TELNET.DONT 254) (TELNET.IAC 255) (TELNET.SEND 1) (TELNET.IS 0)) (RPAQQ TELNET.MARKS ((TELNET.BINARY 0) (TELNET.ECHO 1) (TELNET.SUPPRESS.GOAHEAD 3) (TELNET.STATUS 5) ( TELNET.TIMING.MARK 6) (TELNET.TERMINAL.TYPE 24))) (RPAQQ TELNET.BINARY 0) (RPAQQ TELNET.ECHO 1) (RPAQQ TELNET.SUPPRESS.GOAHEAD 3) (RPAQQ TELNET.STATUS 5) (RPAQQ TELNET.TIMING.MARK 6) (RPAQQ TELNET.TERMINAL.TYPE 24) (CONSTANTS (TELNET.BINARY 0) (TELNET.ECHO 1) (TELNET.SUPPRESS.GOAHEAD 3) (TELNET.STATUS 5) ( TELNET.TIMING.MARK 6) (TELNET.TERMINAL.TYPE 24)) (RPAQQ TCPCHAT.TELNET.TTY.TYPES ((DM2500 . DATAMEDIA-2500) (VT100 . DEC-VT100))) (RPAQQ TELNET.OPTIONS ((0 WILL WONT NIL DONT) (1 WONT WONT DO DO) (3 WILL WILL NIL NIL) (5 WONT WONT DONT DONT) (6 WILL NIL NIL NIL) (24 WILL NIL DONT NIL TCPCHAT.TERMINAL.TYPE))) (ADDTOVAR CHAT.PROTOCOLTYPES (TCP . TCPCHAT.HOST.FILTER)) (RPAQ? TCPCHAT.TRACEFLG) (RPAQ? TCPCHAT.TRACEFILE) (RECORD TELNET.OPTION (OPTION ON.DO ON.DONT ON.WILL ON.WONT ON.SB)) (RECORD TELNET.OPTIONSTATE (OPTION WILLING DOING)) (FILESLOAD (SYSLOAD) TCP CHAT) (PUTPROPS TCPCHAT COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL