(FILECREATED "23-Apr-87 17:08:53" ("compiled on " {PHYLUM}LISP>CHATEMACS.;6) "12-Nov-85 14:59:23" recompiled changes: CHAT.BUTTONFN CHAT.TYPEOUT in "LOOPS/KOTO 15-Jan-87 ..." dated "15-Jan-87 19:49:03") (FILECREATED "23-Apr-87 17:08:34" {PHYLUM}LISP>CHATEMACS.;6 11080 changes to: (FNS CHAT.BUTTONFN CHAT.TYPEOUT) (VARS CHATEMACSCOMS) previous date: "20-Mar-87 19:16:51" {PHYLUM}LISP>CHATEMACS.;4) CHAT.BUTTONFN D1 (P 12Q \INTERRUPTABLE P 11Q SS P 10Q I P 6 CSTRING P 5 SHIFTSTATE P 4 TTYLINES P 3 BUTTONS P 2 CX P 1 CY I 0 WINDOW)  @g `@g H H `H HjIH2`llH `lkvH KjhHdjvok OMLIHkj YHlJHZl JoIoKoMo ^ N _ MOؽO_Od_ @ (417Q DOWINDOWCOM 412Q CHAT.HOLD 355Q SHIFTDOWNP 346Q BKSYSBUF 336Q CONCAT 306Q CHARACTER 255Q MAX 173Q CHAT.MENU 147Q GETMOUSESTATE 143Q DOWINDOWCOM 117Q GETMOUSESTATE 56Q LASTMOUSEX 45Q LASTMOUSEY 31Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP 2 GETMOUSESTATE) (405Q CHAT.STATE 275Q CHAT.STATE 262Q CHAT.STATE 243Q CHAT.STATE 207Q CHAT.STATE 166Q CHAT.STATE 153Q LASTMOUSEBUTTONS 136Q CHAT.STATE 123Q LASTMOUSEBUTTONS 107Q CHAT.STATE 73Q CHAT.STATE 65Q CHAT.STATE 61Q LASTMOUSEBUTTONS 51Q CHAT.STATE 40Q CHAT.STATE 26Q CHATSTATE 15Q CHAT.STATETYPE# 6 CHATSTATE) ( 332Q ";" 325Q ";" 320Q ";" 313Q ";" 223Q (SHIFT CTRL META)) CHAT.TYPEINA0001 D1 (I 1 STATE I 0 WINDOW F 0 RESETSTATE) PA@i (17Q CHAT.CLOSE) (6 CHAT.STATE) () CHAT.TYPEINA0002 D1 (NAME ERRORSET F 0 INITSTREAM F 1 STREAM) PP Pg ci(17Q OPENSTREAM 7 OPENSTRINGSTREAM) (14Q INPUT) () CHAT.TYPEIN D1 (P 12Q CHATPROMPTWINDOW P 11Q DISPLAYNAME P 10Q 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 13Q RESETVARSLST F 14Q CHAT.META.ESC)  `iAg  J[J\Hgg Hgg ```H H HgA A ]`g M M Ag` Ag@B gAJhhhWcLg _xJgAgOhgJhhgg OLO JLA Bg@BAJ Co M Ji!JdgҿA _NI^i```_KWOdnjKl!Ol$O`KJ lOd`KJ l!K @KWN _dnjKl!OlO!N K N hAhdi _ ! dgAi oJ h(771Q BLOCK 765Q SHOULDNT 762Q CONCAT 741Q CHAT.CLOSE 722Q CLEARW 713Q \TTYBACKGROUND 704Q GETPROMPTWINDOW 672Q CLOSEF 665Q FORCEOUTPUT 657Q EOFP 607Q FORCEOUTPUT 601Q \SYSBUFP 571Q CHAT.BIN 546Q CHAT.BIN 473Q \GETKEY 464Q \SYSBUFP 460Q \WAIT.FOR.TTY 413Q CHAT.CLOSE 355Q TTYDISPLAYSTREAM 350Q CHAT.TYPEINA0002 336Q CHAT.LOGIN 321Q CHAT.SCREENPARAMS 312Q CHAT.SETDISPLAYTYPE 275Q ADD.PROCESS 224Q STREAMPROP 173Q PUTWINDOWPROP 161Q PUTWINDOWPROP 147Q DSPRESET 143Q DSPFONT 137Q DEFAULTFONT 121Q \INSUREWINDOW 115Q PROCESSPROP 104Q TTY.PROCESS 77Q CHAT.TTYENTRYFN 57Q PROCESSPROP 45Q PROCESSPROP 12Q GETWINDOWUSERPROP) (755Q CHAT.STATE 731Q ABORT 561Q CHAT.METACHAR 537Q CHAT.CONTROLCHAR 453Q \TTY.PROCESS 450Q \RUNNING.PROCESS 444Q \RUNNING.PROCESS 401Q CLOSE 373Q CHAT.STATE 361Q CHAT.STATE 325Q NONE 272Q CHAT.TYPEOUT 267Q NAME 253Q QUOTE 243Q QUOTE 237Q CHAT.TYPEOUT 234Q CHAT.STATE 221Q DISPLAYTYPE 176Q CHAT.TYPEINA0001 165Q CHATHOST 156Q \RUNNING.PROCESS 153Q PROCESS 134Q DISPLAY 127Q CHAT.FONT 111Q WINDOW 71Q \TTY.PROCESS 66Q \RUNNING.PROCESS 62Q \RUNNING.PROCESS 54Q CHAT.TTYENTRYFN 51Q TTYENTRYFN 42Q CHAT.TTYEXITFN 37Q TTYEXITFN 30Q CHAT.STATE 21Q CHAT.STATE 7 CHATSTATE 2 \RUNNING.PROCESS) ( 751Q "Unknown state in CHAT: " 345Q (CHAT.TYPEINA0002)) CHAT.TYPEOUT D1 (P 11Q TERM.STATE P 10Q ESCPENDING P 7 CRPENDING P 6 TYPESCRIPTSTREAM P 5 OUTSTREAM 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 14Q CHATDEBUGFLG F 15Q CHAT.DRIVERTYPES) T k BAWBAW_BkO_"Ag@g @ jL [Bj`M Lg Z Kl[l*O"h_`)B@ !M Lgh i__KBOlIB,^BKdl Oi_.l O$N _Nl lOh_ONl !h_iNK!WJWiHkXW:k1Kdm@MBgom@MBgo@MBgo @ @ . h(520Q DEL.PROCESS 513Q \INSUREWINDOW 506Q OPENWP 501Q CHAT.TYPEOUT.CLOSE 413Q BLOCK 226Q STREAMPROP 215Q PRIN1 207Q CHAT.SWITCH.EMACS 150Q STREAMPROP 140Q \CARET.DOWN 125Q BLOCK 74Q \INSUREWINDOW 67Q GETWINDOWUSERPROP) (471Q CLOSE 456Q ABORT 436Q CLOSE 316Q STREAM 255Q CHAT.STATE 222Q MESSAGE 200Q CHATEMACS.SWITCH.ENABLED 145Q MESSAGE 133Q \CARET.UP 114Q CHAT.STATE 64Q TEXTSTREAM 56Q TEDIT 25Q CHAT.STATE 7 CHAT.STATE) ( 475Q "closed somehow" 462Q "aborted" 442Q "closed") (PRETTYCOMPRINT CHATEMACSCOMS) (RPAQQ CHATEMACSCOMS ((DECLARE: (GLOBALVARS CHATEMACS.SWITCH.ENABLED)) (INITVARS ( CHATEMACS.SWITCH.ENABLED T)) (FNS CHAT.BUTTONFN CHAT.TYPEIN CHAT.TYPEOUT) (ADVISE CHAT.INIT CHAT.CLOSE ))) (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS CHATEMACS.SWITCH.ENABLED)) (RPAQ? CHATEMACS.SWITCH.ENABLED T) (PUTPROPS CHAT.INIT READVICE (NIL (AFTER NIL (WINDOWPROP WINDOW (QUOTE RIGHTBUTTONFN) (FUNCTION CHAT.BUTTONFN))))) (PUTPROPS CHAT.CLOSE READVICE (NIL (AFTER NIL (WINDOWPROP WINDOW (QUOTE RIGHTBUTTONFN) NIL)))) (READVISE CHAT.INIT CHAT.CLOSE) (PUTPROPS CHATEMACS COPYRIGHT ("Xerox Corporation" 1987)) NIL