(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Jan-87 22:28:16" ("compiled on " {ERIS}LIBRARY>CHAT.;41) "21-Jan-87 21:13:09" brecompiled changes%: nothing in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED "26-Jan-87 22:24:19" {ERIS}LIBRARY>CHAT.;41 67090 changes to%: (VARS CHATCOMS) (VARIABLES CHAT.TTY.PROCESS CHAT.ALLHOSTS CHAT.AUTOCRLF CHAT.CONTROLCHAR CHAT.DISPLAYTYPES CHAT.DRIVERTYPES CHAT.EMACSCOMMANDS CHAT.EMULATORTYPE CHAT.FONT CHAT.HOSTMENU CHAT.IN.EMACS? CHAT.INTERRUPTS CHAT.KEYACTIONS CHAT.METACHAR CHAT.PROTOCOLTYPES CHAT.REOPENMENU CHAT.WAIT.TIME CHAT.WINDOW.REGION CHAT.WINDOW.SIZE CHATDEBUGFLG CHATMENU CHATWINDOW CHATWINDOWLST CLOSECHATWINDOWFLG DEFAULTCHATHOST NETWORKLOGINFO) previous date%: " 4-Dec-86 23:29:39" {ERIS}LIBRARY>CHAT.;40) CHAT :D4 (L (4 FROMMENU 3 WINDOW 2 INITSTREAM 1 LOGOPTION 0 HOST))   @Du`O``XKj`>`Ko dMdodg dgjdndhdN  bdghbdKK[h`b@2` ohoD C` hdo  bG@ Y'o@ D4C`_ JO  bI_@kOX"oZCJg Cgg @ @CL bHC@L @`@`hg@ddi3 g@hCddi3 gChAddi3 gAhBddi3 gBhhgo@ gg _g` _ _`#dlhdO OdhdO `d_OO O `O @(525 TTY.PROCESS 515 PROCESSPROP 505 KEYACTION 483 INTCHAR 467 INTCHAR 442 CURRENTINTERRUPTS 437 KEYACTIONTABLE 426 ADD.PROCESS 416 PACK* 303 CHAT.INIT 293 GETCHATWINDOW 283 CHAT.CHOOSE.EMULATOR 276 PUTWINDOWPROP 264 GETWINDOWUSERPROP 226 GETPROMPTWINDOW 221 PRIN1 214 TERPRI 199 CONCAT 188 FIND.CHAT.PROTOCOL 178 MKATOM 175 PROMPTFORWORD 165 GETPROMPTWINDOW 142 TTY.PROCESS 97 MENU 46 \APPEND2) (519 CHAT.TTY.PROCESS 491 CHAT.KEYACTIONS 450 CHAT.INTERRUPTS 434 \DEFAULTKEYACTION 431 KEYACTION 422 NO 419 RESTARTABLE 408 NAME 395 QUOTE 377 QUOTE 359 QUOTE 341 QUOTE 327 CHAT.TYPEIN 323 CHAT.HOSTMENU 318 CHAT.ALLHOSTS 314 CHAT.ALLHOSTS 308 CHAT.ALLHOSTS 273 CHAT.RECONNECT 270 BUTTONEVENTFN 261 CHATHOST 209 PROMPTWINDOW 161 PROMPTWINDOW 139 \RUNNING.PROCESS 130 DEFAULTCHATHOST 103 Other 94 CHAT.HOSTMENU 71 DEFAULTMENUHELDFN 64 CLRPROMPT 37 |MENUTYPE#| 32 CHAT.HOSTMENU 24 DEFAULTCHATHOST 20 CHAT.ALLHOSTS 15 CHAT.HOSTMENU) ( 412 "CHAT#" 251 "Failed" 195 "Unknown Chat host: " 171 (13) 152 "Enter name of host to chat to, or to abort" 147 " Host: " 57 "Host" 43 (Other)) CHAT.CHOOSE.EMULATOR :D4 (L (0 HOST) F 0 CHAT.DISPLAYTYPES) *Pd3 ` hP`h@PdPo h(38 ERROR) (15 CHAT.EMULATORTYPE 8 CHAT.EMULATORTYPE) ( 35 "Please set CHAT.DISPLAYTYPES to be a list of (HOST TTY-TYPE-# EMULATORTYPE)") CHAT.SET.EMULATOR :D4 (L (2 NEWEMULATOR 1 WINDOW 0 CHAT.STATE)) 0@B$H A gAgBhg@hh (45 ADD.PROCESS 19 CLEARW 15 DEL.PROCESS) (33 QUOTE 26 QUOTE 22 CHAT.TYPEOUT 3 CHAT.STATE) () CHAT.CHANGE.EMULATOR :D4 (L (0 CHAT.STATE)) @A@`0`dNMh_M&OdJdi dodg dgjdndhdK \I H gHgLh@h (134 ADD.PROCESS 114 CLEARW 110 DEL.PROCESS 103 MENU) (121 QUOTE 117 CHAT.TYPEOUT 80 DEFAULTMENUHELDFN 73 CLRPROMPT 25 CHAT.DRIVERTYPES 18 |MENUTYPE#| 12 CHAT.STATE 3 CHAT.STATE) ( 66 "Available terminals") CHAT.INIT :D4 (L (3 DISPLAYTYPE 2 HOST 1 WINDOW 0 STREAMS) F 5 CHAT.IN.EMACS?) @A@C`didUkjdHdIdAA dKdjdjdjdk0AgL JgLAg  RAg Agg Agg Ag Ag Agg Ag Ag Ag Agg Ag Agg HgH* HgC Hg*g(238 STREAMPROP 230 STREAMPROP 217 PUTWINDOWPROP 207 PUTWINDOWPROP 200 WINDOWADDPROP 189 PUTWINDOWPROP 181 PUTWINDOWPROP 173 PUTWINDOWPROP 165 PUTWINDOWPROP 154 PUTWINDOWPROP 146 PUTWINDOWPROP 138 PUTWINDOWPROP 127 PUTWINDOWPROP 116 PUTWINDOWPROP 105 TEDITSTREAM.INIT 88 PUTWINDOWPROP 50 \INSUREWINDOW) (250 CHAT.ENDOFSTREAMOP 245 CHAT.ENDOFSTREAMOP 242 STREAM 234 DISPLAYTYPE 225 STREAM 221 OLDEOSOP 214 CHAT.ICONFN 211 ICONFN 204 ICONWINDOW 197 CHAT.CLOSEFN 194 CLOSEFN 186 SCROLLFN 178 CURSOROUTFN 170 RIGHTBUTTONFN 162 GIVE.TTY.PROCESS 159 WINDOWENTRYFN 151 NEWREGIONFN 143 REPAINTFN 135 CHAT.BUTTONFN 132 BUTTONEVENTFN 124 CHAT.RESHAPEWINDOW 121 RESHAPEFN 113 CURSORMOVEDFN 102 TEDITCHAT.MENUFN 98 CHAT.STATE 92 TEDIT 84 CHATSTATE 15 |CHAT.STATETYPE#|) () FIND.CHAT.PROTOCOL :D4 (L (0 NAME) F 2 CHAT.PROTOCOLTYPES) RHh@kIHXNIL NIL () CHAT.TYPEINA0001 :D4 (L (1 STATE 0 WINDOW) F 0 RESETSTATE) PA@i (15 CHAT.CLOSE) (6 CHAT.STATE) () CHAT.TYPEINA0002 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 INITSTREAM F 6 PROCEED-CASE0197 F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS* F 9 STREAM) ^i@ggggVgjgg gg WggWiU U Ug ch (89 \MVLIST 81 OPENSTREAM 73 OPENSTRINGSTREAM 68 STRINGP 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (78 INPUT 55 SI::NLSETQHANDLER 52 SERIOUS-CONDITION 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () CHAT.TYPEIN :D4 (L (2 LOGOPTION 1 WINDOW 0 HOST) P 15 PROCEED-CASE0197 P 6 STREAM I 3 INITSTREAM F 16 SI::*RESETFORMS*)  `iAg J[J\Hgg HgA A ]`g M M Ag` Ag@B gAJhhhW c Lg _sJgAgOhgJhhgg OLO JLA Bg@BAJ C4hhO __O_OdgO _j:M h_JdiͿNIJPjOKAg _K_Ndiq```~_dl,OOd`KJ l`KJ lO kOOll A K &N ON K N hAhdi 1 dgA "dgAi oJ h(521 BLOCK 517 SHOULDNT 514 CONCAT 497 CHAT.CLOSE 483 CHAT.CLOSE 464 CLEARW 458 \TTYBACKGROUND 453 GETPROMPTWINDOW 443 CLOSEF 438 FORCEOUTPUT 431 BOUT 423 EOFP 416 FORCEOUTPUT 410 \SYSBUFP 406 FLASHWINDOW 401 BOUT 382 BOUT 373 CHAT.BIN 359 CHAT.BIN 334 \GETKEY 329 \SYSBUFP 325 \WAIT.FOR.TTY 296 CL:MAKE-BROADCAST-STREAM 293 GETSTREAM 248 TTYDISPLAYSTREAM 232 CL:VALUES-LIST 205 CHAT.TYPEINA0002 190 CHAT.LOGIN 177 CHAT.SCREENPARAMS 170 CHAT.SETDISPLAYTYPE 157 ADD.PROCESS 116 STREAMPROP 91 PUTWINDOWPROP 81 PUTWINDOWPROP 71 DSPRESET 67 DSPFONT 63 DEFAULTFONT 49 \INSUREWINDOW 45 PROCESSPROP 37 PROCESSPROP 10 GETWINDOWUSERPROP) (509 CHAT.STATE 489 ABORT 476 CLOSE 470 CHAT.STATE 366 CHAT.METACHAR 351 CHAT.CONTROLCHAR 320 \TTY.PROCESS 317 \RUNNING.PROCESS 313 \RUNNING.PROCESS 290 OUTPUT 274 CHAT.STATE 257 CHAT.STATE 224 :NORMAL 181 NONE 154 CHAT.TYPEOUT 151 NAME 139 QUOTE 131 QUOTE 127 CHAT.TYPEOUT 124 CHAT.STATE 113 DISPLAYTYPE 94 CHAT.TYPEINA0001 85 CHATHOST 78 \RUNNING.PROCESS 75 PROCESS 60 DISPLAY 55 CHAT.FONT 41 WINDOW 34 CHAT.TTYENTRYFN 31 TTYENTRYFN 24 CHAT.STATE 17 CHAT.STATE 7 CHATSTATE 2 \RUNNING.PROCESS) ( 505 "Unknown state in CHAT: ") CHAT.BIN :D4 (L (1 STATE 0 OUTSTREAM)) iH@ h(26 \GETKEY 19 \TTYBACKGROUND 13 FORCEOUTPUT 6 \SYSBUFP) NIL () CHAT.CLOSE :D4 (L (2 CLOSING 1 ABORTED 0 WINDOW)) @g @ B@ g@ g@ Hd H,\!I@ o@ L @ L I`@ @g hAHH @` @g [@g IE@ @g ]B`@`@ Mgghdd@ih Kd1 +@g Zd! J` JgJgg h(270 PUTWINDOWPROP 267 PUTWINDOWPROP 252 ICONW.SHADE 243 OPENWP 236 GETWINDOWUSERPROP 227 DEL.PROCESS 219 ADD.PROCESS 193 CLOSEW 174 PUTWINDOWPROP 166 CHAT.DEACTIVATE.WINDOW 159 PUTWINDOWPROP 151 PUTWINDOWPROP 141 DREMOVE 133 CHAT.CLOSE.CONNECTION 117 ALLOW.BUTTON.EVENTS 104 PUTWINDOWPROP 96 \CARET.DOWN 85 CLOSEF 80 PRINT 76 CLOSEF 71 PRIN1 62 TERPRI 45 DEL.PROCESS 31 DSPSCROLL 24 DSPOPERATION 17 DETACHALLWINDOWS 10 OPENWP 6 GETWINDOWUSERPROP) (264 CHAT.RECONNECT 261 BUTTONEVENTFN 257 OLDBUTTONEVENTFN 249 HIGHLIGHTSHADE 233 ICONWINDOW 204 CHAT 198 NEW 187 CHATWINDOW 182 CLOSECHATWINDOWFLG 171 KEEPCHAT 156 CLOSEFN 148 PROCESS 144 CHATWINDOWLST 138 CHATWINDOWLST 128 CHAT.STATE 122 CHAT.STATE 107 CHAT.STATE 101 CHATSTATE 91 \CARET.UP 50 CHAT.STATE 40 CHAT.STATE 27 ON 20 REPLACE 3 CHATSTATE) ( 67 "Closing ") CHAT.DEACTIVATE.WINDOW :D4 (L (0 WINDOW)) <@ (@gHkoH jk o @gg @g (57 PUTWINDOWPROP 50 PUTWINDOWPROP 40 PUTWINDOWPROP 37 CONCAT 30 SUBSTRING 22 STRPOS 3 \INSUREWINDOW) (54 EXPANDFN 47 CHAT.RECONNECT 44 BUTTONEVENTFN 12 TITLE) ( 34 ", closed" 18 ", height") CHAT.CLOSEFN :D4 (L (0 WINDOW)) @hi (5 CHAT.CLOSE) NIL () CHAT.CLOSE.CONNECTION :D4 (L (1 OUTSTREAM 0 INSTREAM)) @ @ A A (19 CLOSEF 13 OPENP 8 CLOSEF 3 OPENP) NIL () CHAT.LOGIN :D4 (L (3 CHATSTATE 2 WINDOW 1 OPTION 0 HOST)) @ @g Bg SIJ]@hdddH [AgIM@K g\dIY(` o` L` o` ZJIHd_dgNl N /gNl N OdgKgK N N hOdgM ` ` (229 DISMISS 222 DISMISS 215 CHAT.FLUSH&WAIT 199 FORCEOUTPUT 190 PRIN3 186 \DECRYPT.PWD 161 FORCEOUTPUT 156 BOUT 143 FORCEOUTPUT 138 BOUT 109 PRIN1 98 PRIN1 90 PRIN1 79 TERPRI 61 CHAT.LOGINFO 44 \INTERNAL/GETPASSWORD 17 GETWINDOWUSERPROP 10 GETHOSTINFO 3 GETOSTYPE) (226 CHAT.WAIT.TIME 219 CHAT.WAIT.TIME 207 WAIT 178 PASSWORD 169 USERNAME 148 LF 129 CR 115 CHAT.STATE 106 PROMPTWINDOW 95 PROMPTWINDOW 87 PROMPTWINDOW 76 PROMPTWINDOW 66 LOGIN 51 ATTACH 31 CHAT.STATE 14 CHATSTATE 7 LOGINFO) ( 103 " not implemented for this type of host" 84 "Login option ") ADD.CHAT.MESSAGE :D4 (L (1 MSG 0 STREAM)) @g@g oA (23 STREAMPROP 20 CONCAT 10 STREAMPROP) (7 MESSAGE 3 MESSAGE) ( 16 "") CHAT.LOGINFO :D4 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(13 FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.SENDSCREENPARAMS :D4 (L (2 WIDTH 1 HEIGHT 0 INSTREAM)) @g H @ABlH(13 FNTYP 6 STREAMPROP) (3 SENDSCREENPARAMS) () CHAT.SETDISPLAYTYPE :D4 (L (1 CODE 0 INSTREAM)) @g A3H @AlH(18 FNTYP 6 STREAMPROP) (3 SETDISPLAYTYPE) () CHAT.LOGINFO :D4 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(13 FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.FLUSH&WAIT :D4 (L (0 INSTREAM)) @g H @kH(13 FNTYP 6 STREAMPROP) (3 FLUSH&WAIT) () CHAT.ENDOFSTREAMOP :D4 (L (0 STREAM)) @@g g*m(10 STREAMPROP) (15 \EOSERROR 7 EOSOP 3 STREAM) () CHAT.OPTIONMENU :D4 (L (0 INSTREAM)) &@g Hd @kHHd(14 FNTYP 6 STREAMPROP) (33 MENU 25 MENU 3 OPTIONMENU) () CHAT.TYPEOUT :D4 (L (2 CHAT.STATE 1 DPYNAME 0 WINDOW)) 4 k BA`BA`_BkO_"Ag@g @ jK ZBj`L Kg %JlZBOlIB,]OJdl Ni;L Kgh l N"M(_Ml lOh^NMl hiMJ `n`iHkX`\kSJdm@LBgom@LBgo@LBgo @ @ . h(304 DEL.PROCESS 299 \INSUREWINDOW 294 OPENWP 289 CHAT.TYPEOUT.CLOSE 235 BLOCK 206 \BOUT 196 \BOUT 156 STREAMPROP 147 PRIN1 106 STREAMPROP 98 \CARET.DOWN 87 BLOCK 62 \INSUREWINDOW 57 GETWINDOWUSERPROP) (281 CLOSE 270 ABORT 254 CLOSE 227 CHATDEBUGFLG 217 CHATDEBUGFLG 210 CHATDEBUGFLG 171 STREAM 152 MESSAGE 125 CHAT.STATE 103 MESSAGE 93 \CARET.UP 78 CHAT.STATE 54 TEXTSTREAM 48 TEDIT 26 CHAT.DRIVERTYPES 22 CHAT.STATE 14 CHAT.DRIVERTYPES 7 CHAT.STATE) ( 285 "closed somehow" 274 "aborted" 258 "closed") CHAT.TYPEOUT.CLOSE :D4 (L (4 MSG 3 NEWSTATE 2 CHAT.STATE 1 OUTSTREAM 0 WINDOW)) 2@ $A oA DA oA A BCC(38 TERPRI 33 PRIN1 24 PRIN1 18 PRIN1 9 TERPRI 3 OPENWP) (43 CHAT.STATE) ( 29 " by remote host]" 14 "[Connection ") CHAT.DID.RESHAPE :D4 (L (0 CHAT.STATE)) @d@ @ (19 TERM.RESET.DISPLAY.PARMS 15 CHAT.SCREENPARAMS) (10 CHAT.STATE 4 CHAT.STATE) () CHAT.SCREENPARAMS :D4 (L (2 WINDOW 1 INSTREAM 0 CHAT.STATE)) Bg hB jHHjHdllhB dllB (#AHBgJkoJ \jk oHoI@jh[L'Jm 3 oKoHI o o  h(161 PUTWINDOWPROP 158 CONCAT 149 CONCAT 139 CHAT.SENDSCREENPARAMS 119 NTHCHAR 87 SUBSTRING 78 STRPOS 56 \INSUREWINDOW 44 LINELENGTH 16 DSPLINEFEED 11 \INSUREWINDOW 6 GETWINDOWPROP) (101 CHAT.STATE 68 TITLE 3 HEIGHT) ( 154 "" 146 "OFF" 133 "ON" 127 ", Emacs " 96 ", width = " 91 ", height = " 74 ", height") GETCHATWINDOW :D4 (L (2 DPYTYPE 1 WINDOW 0 HOST)) Bi o@ 1Ad `b 0Ag ZJAhi ihAgH A /``h`KKH b iI `AA`A(114 DSPSCROLL 106 \INSUREWINDOW 101 DECODE.WINDOW.ARG 74 \INSUREWINDOW 69 PUTWINDOWPROP 55 CHAT.CLOSE 39 GETWINDOWUSERPROP 30 WINDOWP 20 WINDOWP 12 CONCAT 4 L-CASE) (132 CHATWINDOWLST 128 CHATWINDOWLST 123 CHATWINDOW 118 CHATWINDOW 93 CHAT.WINDOW.REGION 86 CHATWINDOWLST 81 CHAT.WINDOW.SIZE 65 TITLE 46 CHAT.STATE 36 CHATSTATE 25 CHATWINDOW) ( 8 " Chat connection to ") CHAT.BUTTONFN :D4 (L (0 WINDOW)) H`dlj3@g XHjH@ hgHh kj@ (69 CHAT.MENU 57 PROCESS.APPLY 46 CHAT.HOLD 21 GETWINDOWUSERPROP) (51 CHAT.EMACS.MOVE 38 CHAT.STATE 28 CHAT.STATE 18 CHATSTATE 2 LASTMOUSEBUTTONS) () CHAT.HOLD :D4 (L (0 WINDOW) P 2 \INTERRUPTABLE) W@g @ Hdj,Hk`lYjII Hjjdhh(65 \BACKGROUND 61 \FZEROP 42 GETMOUSESTATE 13 TOTOPW 6 GETWINDOWUSERPROP) (73 CHAT.STATE 46 LASTMOUSEBUTTONS 31 CHAT.STATE 20 CHAT.STATE 3 CHATSTATE) () CHAT.MENU :D4 (P 0 STATE I 0 WINDOW) s@g AH`kj@ @ kkjh`@ ```S0`EdZo ggoggggJhhhhhNMh_M&OHg HPjooo dKdg dgjdndhdL YdgHHPjkjPZgHgJIdgHg@gg +gHg@gi IdgH@lIHjjdhh(335 PUTWINDOWPROP 309 PUTWINDOWPROP 233 MENU 193 \APPEND2 190 \APPEND2 187 \APPEND2 184 \APPEND2 158 STREAMPROP 84 CONCAT 51 \CARET.DOWN 29 TOTOPW 24 CHAT.RECONNECT 6 GETWINDOWUSERPROP) (357 CHAT.STATE 341 Freeze 331 KEEPCHAT 324 CLOSE 321 CHAT.STATE 314 Suspend 306 NEW 303 KEEPCHAT 296 CLOSE 293 CHAT.STATE 285 New 276 CLOSE 273 CHAT.STATE 267 Close 250 CHAT.STATE 246 CHAT.STATE 238 ECHO 210 DEFAULTMENUHELDFN 203 CLRPROMPT 162 CHAT.STATE 155 OPTIONS 150 CHAT.STATE 106 QUOTE 103 WINDOW 100 STATE 97 CHAT.SET.EMULATOR 90 LAMBDA 87 QUOTE 71 CHAT.DRIVERTYPES 62 CHAT.DRIVERTYPES 59 CHATMENUITEMS 55 |MENUTYPE#| 46 \CARET.UP 33 CHAT.STATE 15 LASTMOUSEBUTTONS 3 CHATSTATE) ( 181 ((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") (Clear (FUNCTION CHAT.CLEAR.FROM.MENU) "Clears window, sets roll mode") ("Dribble" (FUNCTION CHAT.TYPESCRIPT) "Starts a typescript of window typeout") ("Input" (FUNCTION CHAT.TAKE.INPUT) "Allows input from a file") ("Emacs" (FUNCTION CHAT.SWITCH.EMACS) "Toggle EMACS positioning")) 177 (("Local Echo ON" (QUOTE ECHO) "Turn on local echoing")) 172 (("Local Echo OFF" (QUOTE ECHO) "Turn off local echoing")) 94 (STATE WINDOW) 81 " Mode") CHAT.CLEAR.FROM.MENU :D4 (L (1 WINDOW 0 STATE)) A @ @ (11 TERM.HOME 7 TERM.RESET.DISPLAY.PARMS 3 DSPRESET) NIL () CHAT.TAKE.INPUT :D4 (L (1 WINDOW 0 STATE)) A .gAh (14 PROCESS.APPLY 3 \INSUREWINDOW) (8 CHAT.TAKE.INPUT1) () CHAT.TAKE.INPUT1A0001 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 FILE F 6 PROCEED-CASE0211 F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) Ti@ggggVgjgg gg WggWiUg c h (79 \MVLIST 71 OPENSTREAM 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (68 INPUT 55 SI::NLSETQHANDLER 52 SERIOUS-CONDITION 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () CHAT.TAKE.INPUT1 :D4 (L (0 WINDOW) P 6 PROCEED-CASE0211 P 5 *LAST-CONDITION* P 1 FILE F 7 STREAM) @ AH WohdH I _ioH W H FhhN \LKdgJ j:hH oH Ic H MH h(129 PRIN1 123 CLEARW 118 FULLNAME 111 PRIN1 102 CLEARW 90 CL:VALUES-LIST 71 CHAT.TAKE.INPUT1A0001 58 PRIN1 54 FULLNAME 48 PRIN1 34 CLEARW 24 PROMPTFORWORD 10 CLEARW 3 GETPROMPTWINDOW) (83 :NORMAL) ( 107 "Reading " 44 "Can't, still reading " 18 "Take input from file (cr to return): ") DO.CHAT.OPTION :D4 (L (1 WINDOW 0 CHAT.STATE)) @ o` h (25 MENU 20 PRIN1 8 CHAT.OPTIONMENU) (17 PROMPTWINDOW 3 CHAT.STATE) ( 14 "This protocol has no options.") CHAT.RECONNECT :D4 (L (0 WINDOW)) @g @aHg Y@ @kJ`kj@g g@kK`0`dodg dgjdndhdL  B@ gI]ddi3 gMhI^ddi3 gNhhHih (180 TTY.PROCESS 177 ADD.PROCESS 120 CHAT.RECONNECT.OFF 114 MENU 48 GETWINDOWUSERPROP 25 CHAT.RECONNECT.OFF 19 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (160 QUOTE 139 QUOTE 123 CHAT 111 CHAT.REOPENMENU 88 DEFAULTMENUHELDFN 81 CLRPROMPT 68 |MENUTYPE#| 63 CHAT.REOPENMENU 53 TOTOPW 45 OLDBUTTONEVENTFN 35 LASTMOUSEBUTTONS 16 CHATHOST 3 ICONFOR) ( 74 ((ReConnect T "Will reestablish this Chat connection"))) CHAT.RECONNECT.OFF :D4 (L (0 WINDOW)) @g g@gH H(22 PUTWINDOWPROP 6 PUTWINDOWPROP) (18 BUTTONEVENTFN 11 TOTOPW 3 OLDBUTTONEVENTFN) () CHAT.RESHAPEWINDOW :D4 (L (3 OLDSCREENREGION 2 IMAGEREGION 1 OLDIMAGE 0 WINDOW)) 1@AB @g HdY I IgHh h(44 PROCESS.APPLY 33 RELPROCESSP 27 PROCESSP 12 GETWINDOWUSERPROP 5 RESHAPEBYREPAINTFN) (38 CHAT.DID.RESHAPE 21 CHAT.STATE 9 CHATSTATE) () CHAT.TTYENTRYFN :D4 (L (0 PROCESS)) @g dg djh(14 GETWINDOWUSERPROP 6 PROCESSPROP) (19 CHAT.STATE 11 CHATSTATE 3 WINDOW) () CHAT.TTYEXITFN :D4 (L (1 NEWPROCESS 0 PROCESS)) hNIL NIL () CHAT.TYPESCRIPT :D4 (L (0 STATE)) @dg@h h(16 PROCESS.APPLY) (10 CHAT.TYPESCRIPT1 3 CHAT.STATE) () CHAT.TYPESCRIPT1A0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PWINDOW) ohdP (9 PROMPTFORWORD) NIL ( 3 "Typescript to file (cr to close): ") CHAT.TYPESCRIPT1A0002 :D4 (P 4 SI::*NLSETQFLAG* P 3 *CONDITION-HANDLER-BINDINGS* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 FILE F 6 PROCEED-CASE0219 F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) Wi@ggggVgjgg gg WggWiUgg c h (82 \MVLIST 74 OPENSTREAM 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (71 NEW 68 OUTPUT 55 SI::NLSETQHANDLER 52 SERIOUS-CONDITION 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () CHAT.TYPESCRIPT1 :D4 (L (0 CHAT.STATE) P 6 PROCEED-CASE0219 P 5 SI::*RESETFORMS* P 1 FILE P 0 PWINDOW) @ AH g` hhhg   YiH I'hhN \LKdgJ j:GhD@d,@, H oH @@I,I,IoH I oH IH h(186 PRIN1 180 PRIN1 171 FULLNAME 166 PRIN1 138 PRIN1 129 PRIN1 125 CLOSEF 98 CL:VALUES-LIST 79 CHAT.TYPESCRIPT1A0002 65 CLEARW 54 MKATOM 50 CL:VALUES-LIST 46 SI::RESETUNWIND 43 \MVLIST 40 CHAT.TYPESCRIPT1A0001 24 TTY.PROCESS 15 CLEARW 8 GETPROMPTWINDOW) (147 CHAT.STATE 143 CHAT.STATE 120 CHAT.STATE 111 CHAT.STATE 91 :NORMAL 37 SI::RESETUNWIND 21 \RUNNING.PROCESS 18 TTY.PROCESS 3 CHAT.STATE) ( 176 "Could not open " 162 "Opened " 134 " closed. ") CHAT.CHOOSE.PHONE.NUMBERA0007 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 NUMBER) o c(6 PROMPTFORWORD) NIL ( 3 "Please enter a phone number in the form (800)555-1212: ") CHAT.CHOOSE.PHONE.NUMBER :D4 (P 6 SI::*RESETFORMS* P 2 NUMBER) ` kA`C`d`dodg dgjdndhHdI `` g1Jdg_g` hhhg  Jd A O.O] ML kOEL[h`hK_l0OOdl9_OOh__O_O&__OOLOO Ok_O_(258 RPLCHARCODE 163 NCHARS 157 ALLOCSTRING 154 LENGTH 139 CHCON 133 CL:VALUES-LIST 129 SI::RESETUNWIND 126 \MVLIST 123 CHAT.CHOOSE.PHONE.NUMBERA0007 107 TTYDISPLAYSTREAM 82 MENU 5 LENGTH) (189 CHAT.PHONE.NUMBER.MENU 185 CHAT.PHONE.NUMBERS 181 CHAT.PHONE.NUMBERS 120 SI::RESETUNWIND 104 PROMPTWINDOW 101 TTYDISPLAYSTREAM 94 Other 86 Other 79 CHAT.PHONE.NUMBER.MENU 75 CHAT.PHONE.NUMBER.MENU 71 CHAT.PHONE.NUMBER.MENU 44 DEFAULTMENUHELDFN 37 CLRPROMPT 22 CHAT.PHONE.NUMBERS 17 |MENUTYPE#| 12 CHAT.PHONE.NUMBER.MENU 2 CHAT.PHONE.NUMBERS) ( 30 "Phone Number ") CHAT.EMACS.MOVE :D4 (L (0 CHAT.STATE)) h@ !@@@` @@H@YjI1dm @` jI @ @`2Ij3Ik@` I @ @` H@Zdj4dk@` J @ @` @ h(250 FORCEOUTPUT 240 BOUT 223 PRIN3 214 MKSTRING 209 BOUT 175 BOUT 159 PRIN3 150 MKSTRING 145 BOUT 110 PRIN3 101 MKSTRING 94 BOUT 45 BOUT 9 CURSORPOSITION) (245 CHAT.STATE 233 CHAT.EMACSCOMMANDS 228 CHAT.STATE 218 CHAT.STATE 205 CHAT.EMACSCOMMANDS 200 CHAT.STATE 182 CHAT.STATE 169 CHAT.EMACSCOMMANDS 164 CHAT.STATE 154 CHAT.STATE 141 CHAT.EMACSCOMMANDS 136 CHAT.STATE 120 CHAT.EMACSCOMMANDS 115 CHAT.STATE 105 CHAT.STATE 90 CHAT.EMACSCOMMANDS 85 CHAT.STATE 65 CHAT.STATE 56 CHAT.STATE 50 CHAT.STATE 37 CHAT.EMACSCOMMANDS 32 CHAT.STATE 22 CHAT.STATE 16 CHAT.STATE 4 CHAT.STATE) () CHAT.SWITCH.EMACS :D4 (L (1 WINDOW 0 CHATSTATE)) (@@jkjHIIjh@hA (37 CHAT.SCREENPARAMS) (7 CHAT.STATE 3 CHAT.STATE) () CHAT.ICONFN :D4 (L (1 OLDICON 0 WINDOW)) D@ . i g -A*````h@g gl (65 TITLEDICONW 62 FONTCREATE 53 GETWINDOWUSERPROP 20 FNTYP 13 TTY.PROCESS 8 TTY.PROCESSP 3 \INSUREWINDOW) (57 HELVETICA 50 CHATHOST 46 TTYKBDICONSPEC 39 TTYKBDICONSPECREGION 36 TTYKBDMASK 33 TTYKBD 28 TTYKBDICONSPEC 17 TITLEDICONW) () \SPAWN.CHAT :D4 NIL ` o (14 TTY.PROCESS 11 ADD.PROCESS) (2 \RUNNING.PROCESS) ( 8 (CHAT NIL NIL NIL NIL T)) (PRETTYCOMPRINT CHATCOMS) (RPAQQ CHATCOMS ((COMS (* ; "CHAT typein") (FNS CHAT CHAT.CHOOSE.EMULATOR CHAT.SET.EMULATOR CHAT.CHANGE.EMULATOR CHAT.INIT FIND.CHAT.PROTOCOL CHAT.TYPEIN CHAT.BIN CHAT.CLOSE CHAT.DEACTIVATE.WINDOW CHAT.CLOSEFN CHAT.CLOSE.CONNECTION CHAT.LOGIN) (VARIABLES CHAT.TTY.PROCESS)) ( COMS (* ; "CHAT streams") (FNS ADD.CHAT.MESSAGE CHAT.LOGINFO CHAT.SENDSCREENPARAMS CHAT.SETDISPLAYTYPE CHAT.LOGINFO CHAT.FLUSH&WAIT CHAT.ENDOFSTREAMOP CHAT.OPTIONMENU)) (COMS (* ; "CHAT typeout") (FNS CHAT.TYPEOUT CHAT.TYPEOUT.CLOSE CHAT.DID.RESHAPE CHAT.SCREENPARAMS)) (COMS (* ; "window stuff") (FNS GETCHATWINDOW CHAT.BUTTONFN CHAT.HOLD CHAT.MENU CHAT.CLEAR.FROM.MENU CHAT.TAKE.INPUT CHAT.TAKE.INPUT1 DO.CHAT.OPTION CHAT.RECONNECT CHAT.RECONNECT.OFF CHAT.RESHAPEWINDOW CHAT.TTYENTRYFN CHAT.TTYEXITFN CHAT.TYPESCRIPT CHAT.TYPESCRIPT1)) (COMS (* ; "for dialouts") (FNS CHAT.CHOOSE.PHONE.NUMBER) (INITVARS (CHAT.PHONE.NUMBER.MENU) (CHAT.PHONE.NUMBERS (QUOTE (Other))))) (COMS (* ; "for EMACS") (FNS CHAT.EMACS.MOVE CHAT.SWITCH.EMACS)) (COMS (FNS CHAT.ICONFN) (BITMAPS TTYKBD TTYKBDMASK) (VARS TTYKBDICONSPECREGION) (INITVARS (TTYKBDICONSPEC))) (VARIABLES CHAT.ALLHOSTS CHAT.AUTOCRLF CHAT.CONTROLCHAR CHAT.DISPLAYTYPES CHAT.DRIVERTYPES CHAT.EMACSCOMMANDS CHAT.EMULATORTYPE CHAT.FONT CHAT.HOSTMENU CHAT.IN.EMACS? CHAT.INTERRUPTS CHAT.KEYACTIONS CHAT.METACHAR CHAT.PROTOCOLTYPES CHAT.REOPENMENU CHAT.WAIT.TIME CHAT.WINDOW.REGION CHAT.WINDOW.SIZE CHATDEBUGFLG CHATMENU CHATWINDOW CHATWINDOWLST CLOSECHATWINDOWFLG DEFAULTCHATHOST NETWORKLOGINFO) (ADDVARS (CHATMENUITEMS)) (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T) (FILES (SOURCE) CHATDECLS) (RECORDS EMACSCOMMANDS) (GLOBALVARS CHATMENUITEMS)) (INITVARS (INVERTWINDOWFN (QUOTE INVERTW))) (COMS (FNS \SPAWN.CHAT) (DECLARE%: DONTEVAL@LOAD DOCOPY (ADDVARS (BackgroundMenuCommands (CHAT (QUOTE (\SPAWN.CHAT)) "Runs a new CHAT process; prompts for host"))) (P (SETQ BackgroundMenu)) (FILES DMCHAT) (* ; "need DMCHAT since its the default emulator") (INITRECORDS CHAT.STATE))))) (DEFGLOBALVAR CHAT.TTY.PROCESS T) (RPAQ? CHAT.PHONE.NUMBER.MENU) (RPAQ? CHAT.PHONE.NUMBERS (QUOTE (Other))) (RPAQQ TTYKBD #*(64 64)@@@OOOOOOOOOO@@@@@AOOOOOOOOOOH@@@@COOOOOOOOOOL@@@@CH@@@@@@@@CL@@@@CH@@@@@@@@AL@@@@CHOOOOOOOOAL@@@@CIOOOOOOOOIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIHAIBBGLAIL@@@@CIHBEBEA@AIL@@@@CIHBABEA@AIL@@@@CIHBANGA@AIL@@@@CIHBABHI@AIL@@@@CIHBEBHI@AIL@@@@CIHAIBHI@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIH@@@@@@AIL@@@@CIOOOOOOOOIL@@@@CHOOOOOOOOAL@@@@OH@@@@@@@@AO@@@AOH@@@@@@@@AOH@@CL@@@@@@@@@@CL@@GHGCILNGCILNAN@@O@@@@@@@@@@@@O@ANALNGCILNGCILGHCL@@@@@@@@@@@@CLGHFGCILNGCILNGANO@@@@@@@@@@@@@@ON@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOLGOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@ON@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GN@@@@@@@@@@@@@@GO@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOGOOOOOOOOOOOOOONCOOOOOOOOOOOOOOL ) (RPAQQ TTYKBDMASK #*(64 64)@@@OOOOOOOOOO@@@@@AOOOOOOOOOOH@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@COOOOOOOOOOL@@@@OOOOOOOOOOOO@@@AOOOOOOOOOOOOH@@COOOOOOOOOOOOL@@GOOOOOOOOOOOON@@OOOOOOOOOOOOOO@AOOOOOOOOOOOOOOHCOOOOOOOOOOOOOOLGOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOLGOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOGOOOOOOOOOOOOOONCOOOOOOOOOOOOOOL ) (RPAQQ TTYKBDICONSPECREGION (4 3 56 14)) (RPAQ? TTYKBDICONSPEC) (DEFGLOBALVAR CHAT.ALLHOSTS NIL) (CL:DEFVAR CHAT.AUTOCRLF T) (DEFGLOBALVAR CHAT.CONTROLCHAR 193) (CL:DEFVAR CHAT.DISPLAYTYPES (QUOTE ((NIL 10 DM2500)))) (DEFGLOBALVAR CHAT.DRIVERTYPES NIL) (DEFGLOBALVAR CHAT.EMACSCOMMANDS (QUOTE (21 16 14 6 1))) (DEFGLOBALVAR CHAT.EMULATORTYPE (QUOTE DM2500)) (DEFGLOBALVAR CHAT.FONT NIL) (DEFGLOBALVAR CHAT.HOSTMENU NIL) (CL:DEFVAR CHAT.IN.EMACS? NIL) (DEFGLOBALVAR CHAT.INTERRUPTS NIL) (DEFGLOBALVAR CHAT.KEYACTIONS NIL) (DEFGLOBALVAR CHAT.METACHAR 195) (CL:DEFVAR CHAT.PROTOCOLTYPES NIL) (DEFGLOBALPARAMETER CHAT.REOPENMENU NIL) (DEFGLOBALVAR CHAT.WAIT.TIME 2000) (DEFGLOBALVAR CHAT.WINDOW.REGION NIL) (DEFGLOBALVAR CHAT.WINDOW.SIZE NIL) (DEFGLOBALVAR CHATDEBUGFLG NIL) (DEFGLOBALPARAMETER CHATMENU NIL) (DEFGLOBALVAR CHATWINDOW NIL) (DEFGLOBALVAR CHATWINDOWLST NIL) (DEFGLOBALVAR CLOSECHATWINDOWFLG NIL) (DEFGLOBALVAR DEFAULTCHATHOST NIL) (DEFGLOBALPARAMETER NETWORKLOGINFO (QUOTE ((TENEX (LOGIN "LOGIN " USERNAME " " PASSWORD " ") (ATTACH "ATTACH " USERNAME " " PASSWORD " ") (WHERE "WHERE " USERNAME CR "ATTACH " USERNAME " " PASSWORD CR)) (TOPS20 (LOGIN "LOGIN " USERNAME CR PASSWORD CR) (ATTACH "ATTACH " USERNAME "lama " CR PASSWORD CR) (WHERE "LOGIN " USERNAME CR PASSWORD CR)) (UNIX (LOGIN WAIT CR WAIT USERNAME CR WAIT PASSWORD CR)) (IFS (LOGIN "Login " USERNAME " " PASSWORD CR) (ATTACH)) (NS (LOGIN)) (VMS (LOGIN USERNAME CR PASSWORD CR))))) (ADDTOVAR CHATMENUITEMS) (RPAQ? INVERTWINDOWFN (QUOTE INVERTW)) (ADDTOVAR BackgroundMenuCommands (CHAT (QUOTE (\SPAWN.CHAT)) "Runs a new CHAT process; prompts for host")) (SETQ BackgroundMenu) (FILESLOAD DMCHAT) (/DECLAREDATATYPE (QUOTE CHAT.STATE) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG (BITS 1) POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((CHAT.STATE 0 ( FLAGBITS . 0)) (CHAT.STATE 0 (FLAGBITS . 16)) (CHAT.STATE 0 (FLAGBITS . 32)) (CHAT.STATE 0 (FLAGBITS . 48)) (CHAT.STATE 0 (FLAGBITS . 64)) (CHAT.STATE 0 (FLAGBITS . 80)) (CHAT.STATE 0 (BITS . 96)) ( CHAT.STATE 0 POINTER) (CHAT.STATE 2 POINTER) (CHAT.STATE 4 POINTER) (CHAT.STATE 6 POINTER) (CHAT.STATE 8 POINTER) (CHAT.STATE 10 POINTER) (CHAT.STATE 12 (BITS . 15)) (CHAT.STATE 13 (BITS . 15)) ( CHAT.STATE 14 (BITS . 15)) (CHAT.STATE 15 (BITS . 15)) (CHAT.STATE 16 (BITS . 15)) (CHAT.STATE 17 ( BITS . 15)) (CHAT.STATE 18 (BITS . 15)) (CHAT.STATE 19 (BITS . 15)) (CHAT.STATE 20 (BITS . 15)) ( CHAT.STATE 22 POINTER) (CHAT.STATE 24 POINTER) (CHAT.STATE 26 POINTER) (CHAT.STATE 28 POINTER) ( CHAT.STATE 30 POINTER) (CHAT.STATE 32 POINTER) (CHAT.STATE 34 POINTER) (CHAT.STATE 36 POINTER) ( CHAT.STATE 38 POINTER) (CHAT.STATE 40 POINTER) (CHAT.STATE 42 POINTER) (CHAT.STATE 44 POINTER))) ( QUOTE 46)) (PUTPROPS CHAT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986 1987)) NIL