(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Jun-2021 21:06:18" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;1) "13-Jun-2021 14:44:27" brecompiled explicitly%: CHAT.TYPEOUT in "FULL 13-Jun-2021 ..." dated "13-Jun-2021 14:44:40") (FILECREATED "31-Mar-89 17:08:22" {ERINYES}MEDLEY>CHATEMACS.;2 19237 changes to%: (FILES CHATDECLS) (FNS CHAT.BUTTONFN CHAT.TYPEIN CHAT.TYPEOUT CHAT.SCREENPARAMS) (VARS CHATEMACSCOMS) previous date%: "18-Jan-89 16:46:52" |{IE:PARC:XEROX}MEDLEY>CHATEMACS.;1|) CHAT.BUTTONFN :D8 (P 11 \INTERRUPTABLE P 10 SS P 9 I P 7 CSTRING P 6 SHIFTSTATE P 5 TTYLINES P 4 BUTTONS P 3 CX P 2 CY I 0 WINDOW) i @g K@g H H `HHjJHF`llH `lkH LjhHdjok OMJHkYj"I _ NOؾO_Od_jZHlKH[l oKoJoLoNo _ O  @ (358 DOWINDOWCOM 351 CHAT.HOLD 338 BKSYSBUF 326 CONCAT 291 CHARACTER 238 SHIFTDOWNP 169 CHAT.MENU 139 GETMOUSESTATE 133 DOWINDOWCOM 107 GETMOUSESTATE 64 LASTMOUSEX 51 LASTMOUSEY 35 GETWINDOWUSERPROP 15 GETWINDOWUSERPROP 4 GETMOUSESTATE) (344 CHAT.STATE 280 CHAT.STATE 267 CHAT.STATE 216 CHAT.STATE 183 CHAT.STATE 162 CHAT.STATE 145 LASTMOUSEBUTTONS 126 CHAT.STATE 113 LASTMOUSEBUTTONS 97 CHAT.STATE 83 CHAT.STATE 75 CHAT.STATE 69 LASTMOUSEBUTTONS 57 CHAT.STATE 44 CHAT.STATE 30 CHATSTATE 20 CHAT.STATE 10 CHATSTATE) ( 320 ";" 314 ";" 308 ";" 302 ";" 296 "m" 198 (SHIFT CTRL META)) CHAT.TYPEINA0001 :D8 (I 1 STATE I 0 WINDOW F 0 RESETSTATE) PA @i (19 CHAT.CLOSE) (8 CHAT.STATE) () 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 (P 16 \INTERRUPTABLE P 15 *CONDITION-HANDLER-BINDINGS* P 14 SI::*NLSETQFLAG* P 13 *PROCEED-CASES* P 12 SI::NLSETQ-VALUE P 11 CSTRING P 10 CHATPROMPTWINDOW P 9 DISPLAYNAME P 8 DISPLAYTYPE P 7 CH P 6 STREAM P 5 WINDOWSTREAM P 4 INSTREAM P 3 CHATSTREAM P 2 STATE P 1 DEFAULTSTREAM P 0 THISPROC I 3 INITSTREAM I 2 LOGOPTION I 1 WINDOW I 0 HOST F 17 SI::*RESETFORMS* F 18 CHAT.FONT F 19 *PROCEED-CASES* F 20 CHAT.METACHAR F 21 *CONDITION-HANDLER-BINDINGS* F 22 CHAT.CONTROLCHAR) "`iAg  J[J \Hgg Hgg ```H H HgA A ]W$ g M M Ag` Ag@B gAJhhdW"c"Lg _JgAgOhgJhhgg OLO JLA Bg@BAJ C" `W&ioW*O M Ji(JdgrA _KNI^iKg [Kgh l oJJoJJo _O ```_K`OdnjKl Ol&OW,KJ lOdW(KJ l K TK`N _dnjKl OlO N K N hAhdi _ } dgAi oJ h(798 BLOCK 792 SHOULDNT 787 CONCAT 765 CHAT.CLOSE 746 CLEARW 737 \TTYBACKGROUND 728 GETPROMPTWINDOW 716 CLOSEF 709 FORCEOUTPUT 701 EOFP 694 BOUT 680 BOUT 647 FORCEOUTPUT 639 \SYSBUFP 633 BOUT 625 CHAT.BIN 605 CHAT.BIN 584 BOUT 553 \GETKEY 544 \SYSBUFP 538 \WAIT.FOR.TTY 513 BKSYSBUF 500 CONCAT 445 CHARACTER 437 STREAMPROP 423 STREAMPROP 389 CHAT.CLOSE 351 TTYDISPLAYSTREAM 343 CHAT.TYPEINA0002 309 CHAT.LOGIN 292 CHAT.SCREENPARAMS 283 CHAT.SETDISPLAYTYPE 268 ADD.PROCESS 209 STREAMPROP 178 PUTWINDOWPROP 164 PUTWINDOWPROP 148 DSPRESET 142 DSPFONT 136 DEFAULTFONT 119 \INSUREWINDOW 113 PROCESSPROP 100 TTY.PROCESS 93 CHAT.TTYENTRYFN 69 PROCESSPROP 53 PROCESSPROP 16 GETWINDOWUSERPROP) (780 CHAT.STATE 755 ABORT 656 CHAT.META.ESC 562 CHAT.META.ESC 531 \TTY.PROCESS 526 \RUNNING.PROCESS 519 \RUNNING.PROCESS 486 CHAT.STATE 478 CHAT.STATE 464 CHAT.STATE 456 CHAT.STATE 431 SEND.SCREEN.SIZE 418 SEND.SCREEN.SIZE 377 CLOSE 369 CHAT.STATE 357 CHAT.STATE 321 SI::NLSETQ-PROCEED-CASE 298 NONE 263 CHAT.TYPEOUT 258 %,NAME 244 QUOTE 234 QUOTE 228 CHAT.TYPEOUT 223 CHAT.STATE 204 DISPLAYTYPE 183 CHAT.TYPEINA0001 170 CHATHOST 159 \RUNNING.PROCESS 154 PROCESS 131 DISPLAY 107 WINDOW 85 \TTY.PROCESS 80 \RUNNING.PROCESS 74 \RUNNING.PROCESS 64 CHAT.TTYENTRYFN 59 TTYENTRYFN 48 CHAT.TTYEXITFN 43 TTYEXITFN 34 CHAT.STATE 25 CHAT.STATE 11 CHATSTATE 4 \RUNNING.PROCESS) ( 774 "Unknown state in CHAT: " 494 ";" 472 ";" 450 "s" 330 (CL:ERROR . SI::NLSETQHANDLER)) CHAT.TYPEOUT :D8 (P 12 A0206 P 10 CHAT.OUTSTREAM P 9 TERM.STATE P 8 ESCPENDING P 7 CRPENDING P 6 TYPESCRIPTSTREAM P 5 DSPSTREAM P 4 INSTREAM P 3 CH P 2 MSG P 1 HANDLECHARFN P 0 CNT I 2 CHAT.STATE I 1 DPYNAME I 0 WINDOW F 13 CHATDEBUGFLG F 14 CHAT.DRIVERTYPES)  k B B_AWBAW_BkO_"Ag@g @ jL [0Bj`M Lg Z=KlOh_Kdl1=BjbB@ Ogi JM Lgh l0Bj#B@ I lBOlOKBOlIB,^PKdl Oi_7Kdlؿi_l O Nl h_ONl h_iNK WWiHkXWkKdm@MBgo!m@MBgo@MBgo @ @ . h(476 DEL.PROCESS 469 \INSUREWINDOW 462 OPENWP 455 CHAT.TYPEOUT.CLOSE 390 BLOCK 362 \BOUT 348 \BOUT 331 \OUTCHAR 248 CHAT.SWITCH.EMACS 220 STREAMPROP 207 PRIN1 199 STREAMPROP 185 CHAT.SWITCH.EMACS 139 STREAMPROP 127 \CARET.DOWN 112 BLOCK 83 \INSUREWINDOW 76 GETWINDOWUSERPROP) (444 CLOSE 430 ABORT 411 CLOSE 280 CHAT.STATE 234 CHAT.STATE 214 MESSAGE 193 SEND.SCREEN.SIZE 171 CHAT.STATE 134 MESSAGE 120 \CARET.UP 101 CHAT.STATE 71 TEXTSTREAM 63 TEDIT 36 CHAT.STATE 18 CHAT.STATE 9 CHAT.STATE) ( 449 "closed somehow" 435 "aborted" 416 "closed") CHAT.SCREENPARAMS :D8 (P 5 TITLEMIDDLE P 4 EMACSMODE P 3 TITLE P 2 WIDTH P 1 HEIGHT I 2 WINDOW I 1 INSTREAM I 0 CHAT.STATE) Bg hB jHHjHdllhB dllB (#AWBgKkoK ]jk oIoJ@jh\M0Km 3 $oLoIJ o o  L@gi h(220 STREAMPROP 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) (214 SEND.SCREEN.SIZE 207 CHAT.STATE 124 CHAT.STATE 82 TITLE 5 HEIGHT) ( 187 "" 176 "OFF" 160 "ON" 153 ", Emacs " 117 ", width = " 111 ", height = " 89 ", height") (PRETTYCOMPRINT CHATEMACSCOMS) (RPAQQ CHATEMACSCOMS ((DECLARE%: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY (FILES (SOURCE FROM LOADUP) CHATDECLS)) (DECLARE%: (GLOBALVARS CHATEMACS.SWITCH.ENABLED CHAT.META.ESC)) (INITVARS ( CHATEMACS.SWITCH.ENABLED T) (CHAT.META.ESC T)) (FNS CHAT.BUTTONFN CHAT.TYPEIN CHAT.TYPEOUT CHAT.SCREENPARAMS) (ADVISE CHAT.INIT CHAT.CLOSE))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS CHATEMACS.SWITCH.ENABLED CHAT.META.ESC)) (RPAQ? CHATEMACS.SWITCH.ENABLED T) (RPAQ? CHAT.META.ESC T) (XCL:REINSTALL-ADVICE (QUOTE CHAT.INIT) :AFTER (QUOTE ((:LAST (WINDOWPROP WINDOW (QUOTE RIGHTBUTTONFN) (FUNCTION CHAT.BUTTONFN)))))) (XCL:REINSTALL-ADVICE (QUOTE CHAT.CLOSE) :AFTER (QUOTE ((:LAST (WINDOWPROP WINDOW (QUOTE RIGHTBUTTONFN ) NIL))))) (READVISE CHAT.INIT CHAT.CLOSE) (PUTPROPS CHATEMACS COPYRIGHT ("Xerox Corporation" 1987 1988 1989)) NIL