(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 22:04:59" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>library>CHAT.;1) "13-Jun-2021 21:17:58" brecompiled explicitly%: CHAT.TYPEOUT in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 21:18:11") (FILECREATED "20-Jan-93 13:46:52" {DSK}lde>lispcore>library>CHAT.;3 54346 changes to%: ( RECORDS EMACSCOMMANDS) previous date%: "21-Dec-92 10:50:12" {DSK}lde>lispcore>library>CHAT.;2) CHAT :D8 (L (4 FROMMENU 3 WINDOW 2 INITSTREAM 1 LOGOPTION 0 HOST) F 5 DEFAULTCHATHOST F 6 CHAT.HOSTMENU F 7 CHAT.ALLHOSTS) P@DUViWUjLI`Lo dJdodg dgjdndhdK c Ugb8hCH Wgg ULg \xg:DoCd ohohdgo bgg@hgAhgBhgChgDhhgg YId I 0g @X!n g Cgg C (381 REMOVEPROMPTWINDOW 374 PUTWINDOWPROP 354 GETWINDOWUSERPROP 342 BLOCK 328 PROCESSPROP 314 PROCESS.RESULT 306 PROCESSP 297 ADD.PROCESS 221 PROMPTFORWORD 190 CHAT.PROMPT.FOR.INPUT 185 GETPROMPTWINDOW 157 SORT 142 LISP:MEMBER 123 MENU 41 \APPEND2) (369 CHAT.RECONNECT 364 BUTTONEVENTFN 349 CHATHOST 323 CHAT.STARTUP 292 NO 287 RESTARTABLE 271 QUOTE 262 QUOTE 253 QUOTE 244 QUOTE 235 QUOTE 230 CHAT.STARTUP 210 TTY 166 Other 152 UALPHORDER 137 STRING-EQUAL 132 :TEST 103 Other 71 DEFAULTMENUHELDFN 62 CLRPROMPT 29 |MENUTYPE#|) ( 215 (13) 203 "Enter name of host to chat to, or to abort" 197 " Host: " 177 "Chat to host: " 53 "Host" 36 (Other)) CHAT.STARTUP :D8 (L (4 FROMMENU 3 WINDOW 2 INITSTREAM 1 LOGOPTION 0 HOST) F 18 CHAT.HOST.TO.PROTOCOL F 19 CHAT.PROTOCOLTYPES F 20 CHAT.ALLHOSTS F 21 CHAT.TTY.PROCESS F 22 CHAT.PROTOCOL.ABBREVS F 23 CHAT.HOSTINFO F 24 CHAT.INTERRUPTS F 25 CHAT.HOSTMENU F 26 CHAT.OSTYPES F 27 CHAT.KEYACTIONS) D DW*` o@ \ @Lk W,gg ]r@W$gg ]HW&h__Jo@ DC`_ IO I W&Z@MlJZhW&ZoMo @kLk bMlJZ-@oMo _@kNZOfOWbdW(gg @W(g c(hc2@ J_@KAlOXoM@W$gg !@MW$c$@CK bHd&Md_gObHHXC@K `Cg _g` @g W4@W.gg O _W0O g'O"g'h.dlhdO OddhdO W6O g'O"g'hdd_OO O Ogo@ Ogi Ogg OgC C CgO Cg@A Oggg@hgCho Ogg @CAB (833 CHAT.TYPEIN 823 PROCESSPROP 805 PROCESSPROP 761 PUTWINDOWPROP 746 PUTWINDOWPROP 732 CLEARW 725 PROCESSPROP 711 PROCESSPROP 693 PROCESSPROP 679 PROCESSPROP 674 CONCAT 655 PROCESSPROP 633 KEYACTION 581 INTCHAR 560 INTCHAR 514 CURRENTINTERRUPTS 503 LISP:ASSOC 481 GETHOSTINFO 470 KEYACTIONTABLE 452 GETWINDOWUSERPROP 435 CHAT.INIT 382 GETCHATWINDOW 360 LISP:ASSOC 313 CHAT.CHOOSE.EMULATOR 300 SORT 283 LISP:MEMBER 236 CONCAT 209 SUBSTRING 197 CONCAT 152 GETPROMPTWINDOW 145 PRIN1 136 TERPRI 117 CONCAT 80 LISP:ASSOC 58 LISP:ASSOC 41 SUBSTRING 29 STRPOS 17 TTY.PROCESS) (818 HARDRESET 813 RESTARTABLE 788 QUOTE 779 QUOTE 774 CHAT.TYPEIN 769 RESTARTFORM 753 CHATHOST 739 PROCESS 719 WINDOW 706 CHAT.TTYENTRYFN 701 TTYENTRYFN 687 CHAT.STARTUP 663 NAME 650 \CURRENTKEYACTION 607 :KEYACTIONS 599 :KEYACTIONS 536 :INTERRUPTS 528 :INTERRUPTS 498 STRING-EQUAL 493 :TEST 476 OSTYPE 465 \CURRENTKEYACTION 460 KEYACTION 447 CHATSTATE 441 \RUNNING.PROCESS 406 LOGOPTION 355 STRING-EQUAL 350 :TEST 295 UALPHORDER 278 STRING-EQUAL 273 :TEST 129 PROMPTWINDOW 75 STRING-EQUAL 70 :TEST 53 STRING-EQUAL 48 :TEST 12 \RUNNING.PROCESS) ( 797 ((QUOTE HARDRESET)) 668 "CHAT#" 338 "Failed" 231 " host." 225 " is not a recognized " 192 " Chat protocol is not loaded." 186 "The " 111 "Unknown Chat host: " 23 "/") CHAT.PROMPT.FOR.INPUTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 WINDOW F 3 PROMPT F 4 MINLENGTH) g` hhQcRg ``SH Tl(lAH H h cgg gRhhdQcShdRhdo  g(167 CLEARW 161 TTYINPROMPTFORWORD 126 PUTWINDOWPROP 108 CREATEW 103 MAKEWITHINREGION 93 HEIGHTIFWINDOW 80 WIDTHIFWINDOW 73 CHARWIDTH 60 STRINGWIDTH 40 DEFAULTFONT 14 TTY.PROCESS) (173 CLEARW 132 CLOSEW 121 NILL 116 PAGEFULLFN 86 FONTDESCRIPTOR 53 LASTMOUSEY 48 LASTMOUSEX 35 DISPLAY 9 \RUNNING.PROCESS 4 TTY.PROCESS) ( 155 (13)) CHAT.PROMPT.FOR.INPUT :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 MINLENGTH I 1 WINDOW I 0 PROMPT F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 CHAT.PROMPT.FOR.INPUTA0001) (8 SI::RESETUNWIND) () CHAT.CHOOSE.EMULATOR :D8 (L (0 HOST) F 0 CHAT.DISPLAYTYPES F 1 CHAT.EMULATORTYPE) 7Pd3 Q"hPQh@Pgg dPo h(51 ERROR 36 LISP:ASSOC) (31 STRING-EQUAL 26 :TEST) ( 46 "Please set CHAT.DISPLAYTYPES to be a list of (HOST TTY-TYPE-# EMULATORTYPE)") CHAT.SET.EMULATOR :D8 (L (2 NEWEMULATOR 1 WINDOW 0 CHAT.STATE) F 3 CHAT.DISPLAYTYPES) @!BH A @h"A (AgBIoI @gAgBhg@hh @ dSZ hB dBJ(146 CHAT.SETDISPLAYTYPE 122 ADD.PROCESS 81 PUTWINDOWPROP 76 CONCAT 71 SUBSTRING 66 STRPOS 44 \INSUREWINDOW 29 CLEARW 23 DEL.PROCESS) (130 CHAT.STATE 108 QUOTE 99 QUOTE 93 CHAT.TYPEOUT 88 CHAT.STATE 53 TITLE 35 CHAT.STATE 5 CHAT.STATE) ( 60 " ") CHAT.INIT :D8 (L (3 DISPLAYTYPE 2 HOST 1 WINDOW 0 STREAMS) F 5 CHAT.IN.EMACS?) `@A@C`didUkjdH dIdAA dKdjdjdjdk0AgL JgLAg  Agh Agg Agg Agh Agh Agg Agh Agh Agh Agg Agh Agg HgH* HgC Hg*g(331 STREAMPROP 319 STREAMPROP 300 PUTWINDOWPROP 284 PUTWINDOWPROP 272 WINDOWADDPROP 255 PUTWINDOWPROP 242 PUTWINDOWPROP 229 PUTWINDOWPROP 216 PUTWINDOWPROP 199 PUTWINDOWPROP 186 PUTWINDOWPROP 173 PUTWINDOWPROP 156 PUTWINDOWPROP 139 PUTWINDOWPROP 122 TEDITSTREAM.INIT 96 PUTWINDOWPROP 54 \INSUREWINDOW) (349 CHAT.ENDOFSTREAMOP 342 CHAT.ENDOFSTREAMOP 337 STREAM 325 DISPLAYTYPE 312 STREAM 306 OLDEOSOP 295 CHAT.ICONFN 290 ICONFN 278 ICONWINDOW 267 CHAT.CLOSEFN 262 CLOSEFN 249 SCROLLFN 236 CURSOROUTFN 223 RIGHTBUTTONFN 211 GIVE.TTY.PROCESS 206 WINDOWENTRYFN 193 NEWREGIONFN 180 REPAINTFN 168 CHAT.BUTTONFN 163 BUTTONEVENTFN 151 CHAT.RESHAPEWINDOW 146 RESHAPEFN 133 CURSORMOVEDFN 117 TEDITCHAT.MENUFN 111 CHAT.STATE 102 TEDIT 90 CHATSTATE 17 |CHAT.STATETYPE#|) () FIND.CHAT.PROTOCOL :D8 (L (0 NAME) F 2 CHAT.PROTOCOLTYPES) RHh@kIHXNIL NIL () CHAT.TYPEINA0001 :D8 (L (0 WINDOW) F 0 RESETSTATE) Pdgh @i (20 CHAT.CLOSE) (8 HARDRESET) () CHAT.TYPEINA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INITSTREAM F 3 STREAM F 4 SI::NLSETQ-VALUE) +i@R R Rg chcg(29 OPENSTREAM 17 OPENSTRINGSTREAM 10 STRINGP) (40 :NORMAL 24 INPUT) () CHAT.TYPEIN :D8 (L (2 LOGOPTION 1 WINDOW 0 HOST) P 12 *CONDITION-HANDLER-BINDINGS* P 11 SI::*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SI::NLSETQ-VALUE P 6 STREAM I 3 INITSTREAM F 13 SI::*RESETFORMS* F 14 *PROCEED-CASES* F 15 *CONDITION-HANDLER-BINDINGS*)  Ag H_H _h^]gAhhdWcBgOg hYOIIZ HOA HgAgJhgHhhgggg Bg@BAH C" `WioW O A h[HdiӿNiHPjLOAg \ONdic```o]dlKM kKMll A O 0N KN O N hAhdi + dgA -dgAi oH h(534 BLOCK 528 SHOULDNT 523 CONCAT 501 CHAT.CLOSE 483 CHAT.CLOSE 458 CLEARW 450 \TTYBACKGROUND 443 GETPROMPTWINDOW 431 CLOSEF 424 FORCEOUTPUT 414 BOUT 405 EOFP 396 FORCEOUTPUT 387 \SYSBUFP 381 FLASHWINDOW 374 BOUT 355 BOUT 341 \GETKEY 334 \SYSBUFP 328 \WAIT.FOR.TTY 292 LISP:MAKE-BROADCAST-STREAM 287 GETSTREAM 234 TTYDISPLAYSTREAM 226 CHAT.TYPEINA0002 192 CHAT.LOGIN 172 ADD.PROCESS 110 CHAT.SCREENPARAMS 100 CHAT.SETDISPLAYTYPE 81 STREAMPROP 10 GETWINDOWUSERPROP) (516 CHAT.STATE 491 ABORT 474 CLOSE 466 CHAT.STATE 321 \TTY.PROCESS 316 \RUNNING.PROCESS 309 \RUNNING.PROCESS 282 OUTPUT 264 CHAT.STATE 245 CHAT.STATE 204 SI::NLSETQ-PROCEED-CASE 181 NONE 166 HARDRESET 161 RESTARTABLE 156 CHAT.TYPEOUT 151 NAME 137 QUOTE 128 QUOTE 122 CHAT.TYPEOUT 117 CHAT.STATE 76 DISPLAYTYPE 64 HARDRESET 44 CHAT.TYPEINA0001 30 CHAT.STATE 19 CHAT.STATE 5 CHATSTATE) ( 510 "Unknown state in CHAT: " 213 (LISP:ERROR . SI::NLSETQHANDLER)) CHAT.BIN :D8 (L (1 STATE 0 OUTSTREAM)) %iH@ h(32 \TTYBACKGROUND 24 FORCEOUTPUT 15 \GETKEY 8 \SYSBUFP) NIL () CHAT.CLOSE :D8 (L (2 CLOSING 1 ABORTED 0 WINDOW) F 6 CHATWINDOWLST F 7 CLOSECHATWINDOWFLG F 8 CHATWINDOW) r@g @ B@ g@ g@ Hd= H,\,I"@ o@ L @ L I`@ @gh hAH H @V c @gh [@gh IT@ @gh ]BW@W@ Mgghdd@ih KdG ?@g Zd1 *J` JgJgg h(366 PUTWINDOWPROP 361 PUTWINDOWPROP 338 ICONW.SHADE 325 OPENWP 316 GETWINDOWUSERPROP 303 DEL.PROCESS 293 ADD.PROCESS 261 CLOSEW 242 PUTWINDOWPROP 229 CHAT.DEACTIVATE.WINDOW 220 PUTWINDOWPROP 207 PUTWINDOWPROP 193 DREMOVE 185 CHAT.CLOSE.CONNECTION 163 ALLOW.BUTTON.EVENTS 146 PUTWINDOWPROP 133 \CARET.DOWN 118 CLOSEF 111 PRINT 105 CLOSEF 98 PRIN1 86 TERPRI 65 DEL.PROCESS 47 DSPSCROLL 36 DSPOPERATION 25 DETACHALLWINDOWS 16 OPENWP 10 GETWINDOWUSERPROP) (356 CHAT.RECONNECT 351 BUTTONEVENTFN 345 OLDBUTTONEVENTFN 333 HIGHLIGHTSHADE 311 ICONWINDOW 276 CHAT 268 NEW 236 KEEPCHAT 214 CLOSEFN 201 PROCESS 178 CHAT.STATE 170 CHAT.STATE 151 CHAT.STATE 140 CHATSTATE 126 \CARET.UP 72 CHAT.STATE 58 CHAT.STATE 41 ON 30 REPLACE 5 CHATSTATE) ( 92 "Closing ") CHAT.DEACTIVATE.WINDOW :D8 (L (0 WINDOW)) V@ (@gHkoH jm o @gg @gh (83 PUTWINDOWPROP 71 PUTWINDOWPROP 55 PUTWINDOWPROP 50 CONCAT 40 SUBSTRING 29 STRPOS 5 \INSUREWINDOW) (77 EXPANDFN 66 CHAT.RECONNECT 61 BUTTONEVENTFN 16 TITLE) ( 45 ", closed" 23 ", height") CHAT.CLOSEFN :D8 (L (0 WINDOW)) @hi (7 CHAT.CLOSE) NIL () CHAT.CLOSE.CONNECTION :D8 (L (1 OUTSTREAM 0 INSTREAM)) @ @ A A (27 CLOSEF 19 OPENP 12 CLOSEF 5 OPENP) NIL () CHAT.LOGIN :D8 (L (3 CHATSTATE 2 WINDOW 1 OPTION 0 HOST) F 8 CHAT.WAIT.TIME) Y@ @g Bg SIJ ]A'gId@dhdddH [ g\dIY;` o` L` o` JIYKgIgI@hdddH I_d_dgNl N >gNl N %OdgKgK N N hOdgM W W (341 DISMISS 333 DISMISS 325 CHAT.FLUSH&WAIT 305 FORCEOUTPUT 294 PRIN3 288 \DECRYPT.PWD 257 FORCEOUTPUT 250 BOUT 232 FORCEOUTPUT 225 BOUT 199 \INTERNAL/GETPASSWORD 147 PRIN1 131 PRIN1 119 PRIN1 103 TERPRI 79 CHAT.LOGINFO 72 \INTERNAL/GETPASSWORD 27 GETWINDOWUSERPROP 16 GETHOSTINFO 5 GETOSTYPE) (315 WAIT 278 PASSWORD 267 USERNAME 239 LF 213 CR 184 PASSWORD 176 USERNAME 156 CHAT.STATE 142 PROMPTWINDOW 126 PROMPTWINDOW 114 PROMPTWINDOW 98 PROMPTWINDOW 86 LOGIN 54 ATTACH 43 CHAT.STATE 22 CHATSTATE 11 LOGINFO) ( 137 " not implemented for this type of host" 109 "Login option ") ADD.CHAT.MESSAGE :D8 (L (1 MSG 0 STREAM)) %@g@g oA (34 STREAMPROP 29 CONCAT 16 STREAMPROP) (11 MESSAGE 5 MESSAGE) ( 23 "") CHAT.LOGINFO :D8 (L (2 NAME 1 HOST 0 INSTREAM)) @g HABlH(10 STREAMPROP) (5 LOGINFO) () CHAT.SENDSCREENPARAMS :D8 (L (2 WIDTH 1 HEIGHT 0 INSTREAM)) @g H @ABlH(10 STREAMPROP) (5 SENDSCREENPARAMS) () CHAT.SETDISPLAYTYPE :D8 (L (2 NAME 1 CODE 0 INSTREAM)) @g H @ABlH(10 STREAMPROP) (5 SETDISPLAYTYPE) () CHAT.FLUSH&WAIT :D8 (L (0 INSTREAM)) @g H@kH(10 STREAMPROP) (5 FLUSH&WAIT) () CHAT.ENDOFSTREAMOP :D8 (L (0 STREAM)) @@g g*m(16 STREAMPROP) (23 \EOSERROR 11 EOSOP 5 STREAM) () CHAT.OPTIONMENU :D8 (L (0 INSTREAM)) 0@g Hd @kHHd(20 FNTYP 10 STREAMPROP) (43 MENU 33 MENU 5 OPTIONMENU) () CHAT.TYPEOUT :D8 (L (2 CHAT.STATE 1 DPYNAME 0 WINDOW) F 11 CHAT.DRIVERTYPES F 12 CHATDEBUGFLG)  kAWB B"@ .Ag@g @ V KBAW_BkO["jJ _Bj`M Jg 1I_Ol_BKlOB,^[Odl !Oi_@M Jgh l O Nl h_ONl h_iNO W'L F``j3*iHkXWkOdm@MBgo!m@MBgo@MBgo @ @ . h(408 DEL.PROCESS 401 \INSUREWINDOW 394 OPENWP 387 CHAT.TYPEOUT.CLOSE 322 BLOCK 302 BLOCK 274 TTY.PROCESSP 263 \BOUT 248 \BOUT 231 \OUTCHAR 211 PUTSTREAMPROP 198 PRIN1 143 GETSTREAMPROP 131 \CARET.DOWN 116 BLOCK 56 \INSUREWINDOW 49 GETWINDOWUSERPROP 28 \INSUREWINDOW) (376 CLOSE 362 ABORT 343 CLOSE 289 \SYSBUFFER 283 \LONGSYSBUF 205 MESSAGE 170 CHAT.STATE 138 MESSAGE 124 \CARET.UP 105 CHAT.STATE 70 CHAT.STATE 44 TEXTSTREAM 36 TEDIT 20 CHAT.STATE 12 CHAT.STATE) ( 381 "closed somehow" 367 "aborted" 348 "closed") CHAT.TYPEOUT.CLOSE :D8 (L (4 MSG 3 NEWSTATE 2 CHAT.STATE 1 OUTSTREAM 0 WINDOW)) ]@ 0A oA DA oA A BC@ .Hd H h(88 DEL.PROCESS 81 TTY.PROCESSP 68 \INSUREWINDOW 52 TERPRI 45 PRIN1 33 PRIN1 25 PRIN1 13 TERPRI 5 OPENWP) (59 CHAT.STATE) ( 39 " by remote host]" 19 "[Connection ") CHAT.DID.RESHAPE :D8 (L (0 CHAT.STATE)) @d @ @ (27 TERM.RESET.DISPLAY.PARMS 21 CHAT.SCREENPARAMS) (14 CHAT.STATE 6 CHAT.STATE) () CHAT.SCREENPARAMS :D8 (L (2 WINDOW 1 INSTREAM 0 CHAT.STATE)) Bg hB jHHjHdllhB dllB (#AWBgJkoJ \jk oHoI@jh[L0Jm 3 $oKoHI o o  h(198 PUTWINDOWPROP 193 CONCAT 181 CONCAT 168 CHAT.SENDSCREENPARAMS 144 NTHCHAR 106 SUBSTRING 95 STRPOS 68 \INSUREWINDOW 54 LINELENGTH 24 DSPLINEFEED 17 \INSUREWINDOW 10 GETWINDOWPROP) (124 CHAT.STATE 82 TITLE 5 HEIGHT) ( 187 "" 176 "OFF" 160 "ON" 153 ", Emacs " 117 ", width = " 111 ", height = " 89 ", height") GETCHATWINDOW :D8 (L (2 DPYTYPE 1 WINDOW 0 HOST) F 4 CHATWINDOW F 5 CHATWINDOWLST F 6 CHAT.WINDOW.SIZE F 7 CHAT.WINDOW.REGION) Bi o@ 1Ad Tb >Ag ZJAhi ihAgH A -VUhWKKH b iI TAcAUc A(136 DSPSCROLL 126 \INSUREWINDOW 119 DECODE.WINDOW.ARG 95 \INSUREWINDOW 88 PUTWINDOWPROP 70 CHAT.CLOSE 50 GETWINDOWUSERPROP 37 WINDOWP 27 WINDOWP 17 CONCAT 6 L-CASE) (82 TITLE 59 CHAT.STATE 45 CHATSTATE) ( 11 " Chat connection to ") CHAT.BUTTONFN :D8 (L (0 WINDOW)) \`dljC @g X @ hjHYIgHh kj@ (89 CHAT.MENU 75 PROCESS.APPLY 36 CHAT.HOLD 27 GETWINDOWUSERPROP) (67 CHAT.EMACS.MOVE 56 CHAT.STATE 43 CHAT.STATE 22 CHATSTATE 4 LASTMOUSEBUTTONS) () CHAT.HOLD :D8 (L (0 WINDOW) P 2 \INTERRUPTABLE) n@g @ HdVdj9Hk`lYjII Hjjdhh(86 \BACKGROUND 80 \FZEROP 56 GETMOUSESTATE 19 TOTOPW 10 GETWINDOWUSERPROP) (96 CHAT.STATE 62 LASTMOUSEBUTTONS 43 CHAT.STATE 29 CHAT.STATE 5 CHATSTATE) () CHAT.MENU :D8 (P 0 STATE I 0 WINDOW F 8 CHAT.DRIVERTYPES) @g AH`kj@ @ kkjh`@ ``Wb0WUdZo ggoggggJhhhhhNMh_M&OH g HPjooo dKdg dgjdndhdL YdgHHPjkjPygHgcIdg#Hg@gg 8gHg@gi IdgH@lIHjjdhh(428 PUTWINDOWPROP 392 PUTWINDOWPROP 292 MENU 246 \APPEND2 241 \APPEND2 236 \APPEND2 231 \APPEND2 198 STREAMPROP 105 CONCAT 67 \CARET.DOWN 39 TOTOPW 32 CHAT.RECONNECT 10 GETWINDOWUSERPROP) (455 CHAT.STATE 437 Freeze 422 KEEPCHAT 413 CLOSE 408 CHAT.STATE 399 Suspend 387 NEW 382 KEEPCHAT 373 CLOSE 368 CHAT.STATE 358 New 347 CLOSE 342 CHAT.STATE 334 Close 315 CHAT.STATE 309 CHAT.STATE 299 ECHO 267 DEFAULTMENUHELDFN 258 CLRPROMPT 204 CHAT.STATE 193 OPTIONS 186 CHAT.STATE 140 QUOTE 135 WINDOW 130 STATE 125 CHAT.SET.EMULATOR 115 LAMBDA 110 QUOTE 79 CHATMENUITEMS 73 |MENUTYPE#| 60 \CARET.UP 45 CHAT.STATE 21 LASTMOUSEBUTTONS 5 CHATSTATE) ( 226 ((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")) 221 (("Local Echo ON" (QUOTE ECHO) "Turn on local echoing")) 215 (("Local Echo OFF" (QUOTE ECHO) "Turn off local echoing")) 120 (STATE WINDOW) 100 " Mode") CHAT.CLEAR.FROM.MENU :D8 (L (1 WINDOW 0 STATE)) A @ @ (17 TERM.HOME 11 TERM.RESET.DISPLAY.PARMS 5 CLEARW) NIL () CHAT.TAKE.INPUT :D8 (L (1 WINDOW 0 STATE)) A .gAh (20 PROCESS.APPLY 5 \INSUREWINDOW) (12 CHAT.TAKE.INPUT1) () CHAT.TAKE.INPUT1A0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILE F 3 SI::NLSETQ-VALUE) i@Rg chcg(15 OPENSTREAM) (26 :NORMAL 10 INPUT) () CHAT.TAKE.INPUT1 :D8 (L (0 WINDOW) P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 *LAST-CONDITION* P 1 FILE F 7 STREAM F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS*) @ H WohdH I)vioH W H V`WioWL gKH oH Ic H JH h(161 PRIN1 153 CLEARW 146 FULLNAME 137 PRIN1 125 CLEARW 106 CHAT.TAKE.INPUT1A0001 74 PRIN1 68 FULLNAME 60 PRIN1 43 CLEARW 31 PROMPTFORWORD 14 CLEARW 5 GETPROMPTWINDOW) (112 :NORMAL 85 SI::NLSETQ-PROCEED-CASE) ( 131 "Reading " 94 (LISP:ERROR . SI::NLSETQHANDLER) 54 "Can't, still reading " 23 "Take input from file (cr to return): ") DO.CHAT.OPTION :D8 (L (1 WINDOW 0 CHAT.STATE)) (@ o` h (36 MENU 29 PRIN1 12 CHAT.OPTIONMENU) (24 PROMPTWINDOW 5 CHAT.STATE) ( 19 "This protocol has no options.") CHAT.RECONNECT :D8 (L (0 WINDOW)) @g @aHg Y@ @kJ`kj@g g@kK`9`dodg dgjdndhdL  O@ gI]ddi3 gMhI^ddi3 gNhhHih (224 TTY.PROCESS 219 ADD.PROCESS 153 CHAT.RECONNECT.OFF 145 MENU 64 GETWINDOWUSERPROP 35 CHAT.RECONNECT.OFF 27 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (200 QUOTE 177 QUOTE 158 CHAT 140 CHAT.REOPENMENU 115 DEFAULTMENUHELDFN 106 CLRPROMPT 90 |MENUTYPE#| 83 CHAT.REOPENMENU 71 TOTOPW 59 OLDBUTTONEVENTFN 47 LASTMOUSEBUTTONS 22 CHATHOST 5 ICONFOR) ( 97 ((ReConnect T "Will reestablish this Chat connection"))) CHAT.RECONNECT.OFF :D8 (L (0 WINDOW)) %@gh g@gH H(33 PUTWINDOWPROP 11 PUTWINDOWPROP) (27 BUTTONEVENTFN 18 TOTOPW 5 OLDBUTTONEVENTFN) () CHAT.RESHAPEWINDOW :D8 (L (3 OLDSCREENREGION 2 IMAGEREGION 1 OLDIMAGE 0 WINDOW)) A@AB @g HdY I IgHh h(60 PROCESS.APPLY 45 RELPROCESSP 37 PROCESSP 18 GETWINDOWUSERPROP 7 RESHAPEBYREPAINTFN) (52 CHAT.DID.RESHAPE 29 CHAT.STATE 13 CHATSTATE) () CHAT.TTYENTRYFN :D8 (L (0 PROCESS)) &@g dg djh(23 GETWINDOWUSERPROP 10 PROCESSPROP) (30 CHAT.STATE 18 CHATSTATE 5 WINDOW) () CHAT.TTYEXITFN :D8 (L (1 NEWPROCESS 0 PROCESS)) hNIL NIL () CHAT.TYPESCRIPT :D8 (L (0 STATE)) @dg@h h(22 PROCESS.APPLY) (14 CHAT.TYPESCRIPT1 5 CHAT.STATE) () CHAT.TYPESCRIPT1A0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILE F 3 SI::NLSETQ-VALUE) "i@Rgg chcg(20 OPENSTREAM) (31 :NORMAL 15 NEW 10 OUTPUT) () CHAT.TYPESCRIPT1 :D8 (L (0 CHAT.STATE) P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 FILE F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) @ oH Yi I+`VioWK gJ\@d,$@, H oH @@I,I,IoH I H oH IH h(189 PRIN1 182 PRIN1 170 PRIN1 164 FULLNAME 158 PRIN1 124 PRIN1 112 PRIN1 106 CLOSEF 68 CHAT.TYPESCRIPT1A0001 33 LISP::SIMPLE-STRING-EQUAL 26 CHAT.PROMPT.FOR.INPUT 12 GETPROMPTWINDOW) (137 CHAT.STATE 131 CHAT.STATE 99 CHAT.STATE 88 CHAT.STATE 74 :NORMAL 48 SI::NLSETQ-PROCEED-CASE 5 CHAT.STATE) ( 176 "Could not open " 152 "Opened " 118 " closed. " 56 (LISP:ERROR . SI::NLSETQHANDLER) 20 "Typescript to file (cr to close): ") CHAT.CHOOSE.PHONE.NUMBER :D8 NIL `S`F`d`dodg dgjdndhHdI  gHgHol Xd,d AJ K Yh`hIl0NNdl9L Mh\[JZM&\(142 CONCATCODES 128 CHCON 118 CHAT.PROMPT.FOR.INPUT 87 MENU) (163 CHAT.PHONE.NUMBER.MENU 157 CHAT.PHONE.NUMBERS 151 CHAT.PHONE.NUMBERS 102 Other 93 Other 82 CHAT.PHONE.NUMBER.MENU 53 DEFAULTMENUHELDFN 44 CLRPROMPT 26 CHAT.PHONE.NUMBERS 19 |MENUTYPE#| 12 CHAT.PHONE.NUMBER.MENU 4 CHAT.PHONE.NUMBERS) ( 111 "Please enter a phone number in the form (800)555-1212: " 35 "Phone Number ") CHAT.EMACS.MOVE :D8 (L (0 CHAT.STATE) F 3 CHAT.EMACSCOMMANDS) 0h@ !@@@S @@H@YjI9dm(@S jI @ @S:Ij=Ik&@S I @ @S H@Zdj>dk&@S J @ @S @ h(300 FORCEOUTPUT 286 BOUT 267 PRIN3 254 MKSTRING 247 BOUT 209 BOUT 191 PRIN3 178 MKSTRING 171 BOUT 134 PRIN3 121 MKSTRING 112 BOUT 55 BOUT 13 CURSORPOSITION) (293 CHAT.STATE 274 CHAT.STATE 260 CHAT.STATE 238 CHAT.STATE 218 CHAT.STATE 198 CHAT.STATE 184 CHAT.STATE 162 CHAT.STATE 141 CHAT.STATE 127 CHAT.STATE 103 CHAT.STATE 81 CHAT.STATE 70 CHAT.STATE 62 CHAT.STATE 42 CHAT.STATE 30 CHAT.STATE 22 CHAT.STATE 6 CHAT.STATE) () CHAT.SWITCH.EMACS :D8 (L (1 WINDOW 0 CHATSTATE)) .@@jkjHIIjh@hA (43 CHAT.SCREENPARAMS) (11 CHAT.STATE 5 CHAT.STATE) () CHAT.ICONFN :D8 (L (1 OLDICON 0 WINDOW)) b@ . i g AA>````h@g gl (95 TITLEDICONW 90 FONTCREATE 77 GETWINDOWUSERPROP 30 FNTYP 19 TTY.PROCESS 12 TTY.PROCESSP 5 \INSUREWINDOW) (83 HELVETICA 72 CHATHOST 66 TTYKBDICONSPEC 57 TTYKBDICONSPECREGION 52 TTYKBDMASK 47 TTYKBD 40 TTYKBDICONSPEC 25 TITLEDICONW) () \SPAWN.CHAT :D8 (L (0 LOGOPTION)) ghg@ho (27 ADD.PROCESS) (10 QUOTE 4 CHAT) ( 19 (NIL NIL T)) (PRETTYCOMPRINT CHATCOMS) (RPAQQ CHATCOMS ((COMS (* ; "CHAT typein") (FNS CHAT CHAT.STARTUP CHAT.PROMPT.FOR.INPUT CHAT.CHOOSE.EMULATOR CHAT.SET.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 CHAT.HOST.TO.PROTOCOL CHAT.HOSTINFO CHAT.OSTYPES CHAT.PROTOCOL.ABBREVS CHAT.ALLHOSTS CHAT.DISPLAYTYPES CHAT.FONT CHAT.IN.EMACS? CHAT.INTERRUPTS CHAT.KEYACTIONS CHAT.PROTOCOLTYPES CHAT.WAIT.TIME CHAT.WINDOW.REGION CHAT.WINDOW.SIZE CHATWINDOW CLOSECHATWINDOWFLG DEFAULTCHATHOST NETWORKLOGINFO) ( PROP (VARTYPE) CHAT.OSTYPES CHAT.HOSTINFO NETWORKLOGINFO CHAT.PROTOCOL.ABBREVS CHAT.PROTOCOLTYPES)) ( COMS (* ; "CHAT streams") (FNS ADD.CHAT.MESSAGE CHAT.LOGINFO CHAT.SENDSCREENPARAMS CHAT.SETDISPLAYTYPE 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) (VARIABLES CHAT.EMACSCOMMANDS)) (COMS (FNS CHAT.ICONFN) (BITMAPS TTYKBD TTYKBDMASK) (VARS TTYKBDICONSPECREGION) (INITVARS (TTYKBDICONSPEC))) (ADDVARS (CHATMENUITEMS)) (INITVARS (CHATMENU) (* ; "Cached menu variables") (CHAT.REOPENMENU) (CHAT.HOSTMENU) (CHATWINDOWLST) ( CHAT.DRIVERTYPES) (CHATDEBUGFLG)) (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" (SUBITEMS ("No Login" (QUOTE (\SPAWN.CHAT (QUOTE NONE))) "Runs CHAT without doing automatic login"))))) (P (SETQ BackgroundMenu)) ( FILES DMCHAT) (* ; "need DMCHAT since it's the default emulator") (INITRECORDS CHAT.STATE))))) (DEFGLOBALVAR CHAT.TTY.PROCESS T "If true, Chat always grabs the tty when it starts; if NIL, Chat only grabs tty when invoked by mouse command." ) (DEFGLOBALVAR CHAT.HOST.TO.PROTOCOL NIL "A-list of (host . protocol), giving preferred transport protocol (key in CHAT.PROTOCOLTYPES)") (DEFGLOBALVAR CHAT.HOSTINFO NIL "A-list of (host . proplist) for Chat. Only recognized prop for now is :KEYACTIONS.") (DEFGLOBALVAR CHAT.OSTYPES (QUOTE ((UNIX :KEYACTIONS ((BS (127 127)))) (* ; "make the BS key send DEL when talking to UNIX hosts"))) "A-list of (host . proplist). Only recognized prop is :KEYACTIONS.") (DEFGLOBALVAR CHAT.PROTOCOL.ABBREVS NIL "A-list of (abbrev . protocol) for use in the host/x syntax.") (DEFGLOBALVAR CHAT.ALLHOSTS NIL "List of hosts to Chat to (clear CHAT.HOSTMENU if you change this).") (CL:DEFVAR CHAT.DISPLAYTYPES (QUOTE ((NIL 10 DM2500))) "List of triples (host code driver) telling the preferred driver (a symbol) for host. Code is numeric value for use with PupChat. Host = NIL gives default preference." ) (DEFGLOBALVAR CHAT.FONT NIL "Font to use in a Chat window (fixed-width is required for accurate terminal emulation)") (CL:DEFVAR CHAT.IN.EMACS? NIL "Initial state of Emacs feature on opening a connection.") (DEFGLOBALVAR CHAT.INTERRUPTS NIL "List of (charcode interrupt)'s of Lisp interrupts to leave enabled during Chat.") (DEFGLOBALVAR CHAT.KEYACTIONS NIL "List of (keyname . actions) to set during a chat connection (see also :KEYACTION property in CHAT.OSTYPES, CHAT.HOSTINFO)" ) (DEFGLOBALVAR CHAT.PROTOCOLTYPES NIL "List of (protocol . filterfn) describing possible Chat transport protocols.") (DEFGLOBALVAR CHAT.WAIT.TIME 2000 "Msecs to wait during the 'WAIT' part of a login") (DEFGLOBALVAR CHAT.WINDOW.REGION NIL "A Lisp region in which to create the first Chat window.") (DEFGLOBALVAR CHAT.WINDOW.SIZE NIL "A size (width . height) in pixels to use in prompting for Chat windows.") (DEFGLOBALVAR CHATWINDOW NIL "The default window to use for Chat connection") (DEFGLOBALVAR CLOSECHATWINDOWFLG NIL "If true, ALL chat windows, including the initial one, are closed on exit.") (DEFGLOBALVAR DEFAULTCHATHOST NIL "Where (CHAT) with no arguments chats to.") (DEFGLOBALVAR NETWORKLOGINFO (LIST (QUOTE (TENEX (LOGIN "LOGIN " USERNAME " " PASSWORD " ") (ATTACH "ATTACH " USERNAME " " PASSWORD " ") (WHERE "WHERE " USERNAME CR "ATTACH " USERNAME " " PASSWORD CR))) (LIST (QUOTE TOPS20) (QUOTE ( LOGIN "LOGIN " USERNAME CR PASSWORD CR)) (LIST (QUOTE ATTACH) "ATTACH " (QUOTE USERNAME) (MKSTRING #\Escape) (QUOTE CR) (QUOTE PASSWORD) (QUOTE CR)) (QUOTE (WHERE "LOGIN " USERNAME CR PASSWORD CR))) (* ;; "use LF when logging in to unix, as SUN OS 3.X telnet servers will only accept this (4.0 accepts either)." ) (QUOTE (UNIX (LOGIN WAIT LF WAIT USERNAME LF WAIT PASSWORD LF))) (QUOTE (IFS (LOGIN "Login " USERNAME " " PASSWORD CR) (ATTACH))) (QUOTE (NS (LOGIN "Logon" CR USERNAME CR PASSWORD CR))) (QUOTE ( VMS (LOGIN USERNAME CR PASSWORD CR)))) "A-list of (ostype . loginfo), where loginfo is a plist specifying what to send for different logging commands: LOGIN, ATTACH, or WHERE. Each property value is a list of strings mixed with the symbols USERNAME, PASSWORD, WAIT, CR, LF." ) (PUTPROPS CHAT.OSTYPES VARTYPE ALIST) (PUTPROPS CHAT.HOSTINFO VARTYPE ALIST) (PUTPROPS NETWORKLOGINFO VARTYPE ALIST) (PUTPROPS CHAT.PROTOCOL.ABBREVS VARTYPE ALIST) (PUTPROPS CHAT.PROTOCOLTYPES VARTYPE ALIST) (RPAQ? CHAT.PHONE.NUMBER.MENU) (RPAQ? CHAT.PHONE.NUMBERS (QUOTE (Other))) (DEFGLOBALVAR CHAT.EMACSCOMMANDS (QUOTE (21 16 14 6 1)) "List of 5 character codes that perform Emacs functions Arg, Up 1 Line, Down 1 Line, Forward Character, Beginning of Line" ) (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) (ADDTOVAR CHATMENUITEMS) (RPAQ? CHATMENU) (RPAQ? CHAT.REOPENMENU) (RPAQ? CHAT.HOSTMENU) (RPAQ? CHATWINDOWLST) (RPAQ? CHAT.DRIVERTYPES) (RPAQ? CHATDEBUGFLG) (RPAQ? INVERTWINDOWFN (QUOTE INVERTW)) (ADDTOVAR BackgroundMenuCommands ("Chat" (QUOTE (\SPAWN.CHAT)) "Runs a new CHAT process; prompts for host" (SUBITEMS ("No Login" (QUOTE (\SPAWN.CHAT (QUOTE NONE))) "Runs CHAT without doing automatic login")))) (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 2 POINTER) (CHAT.STATE 4 POINTER) (CHAT.STATE 6 POINTER) (CHAT.STATE 8 POINTER) (CHAT.STATE 10 POINTER) (CHAT.STATE 12 POINTER) (CHAT.STATE 1 (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 21 (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 ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1992 1993)) NIL