(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Dec-86 23:30:26" ("compiled on " {ERIS}LIBRARY>CHAT.;40) "30-Nov-86 17:19:54" recompiled changes%: CHAT.TAKE.INPUT1 in "Xerox Lisp 30-Nov-86 ..." dated "30-Nov-86 17:50:29") (FILECREATED " 4-Dec-86 23:29:39" {ERIS}LIBRARY>CHAT.;40 67255 changes to%: (FNS CHAT.TAKE.INPUT1) previous date%: "13-Nov-86 09:41:25" {ERIS}LIBRARY>CHAT.;39) CHAT D1 (L (4 FROMMENU 3 WINDOW 2 INITSTREAM 1 LOGOPTION 0 HOST) F 13 \DEFAULTKEYACTION)   @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 _gW _ _`#dlhdO OdhdO `d_OO O `O @(524 TTY.PROCESS 514 PROCESSPROP 504 KEYACTION 482 INTCHAR 466 INTCHAR 441 CURRENTINTERRUPTS 436 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 139 THIS.PROCESS 97 MENU 46 \APPEND2) (518 CHAT.TTY.PROCESS 490 CHAT.KEYACTIONS 449 CHAT.INTERRUPTS 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 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 D1 (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 D1 (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 D1 (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 D1 (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 D1 (L (0 NAME) F 3 CHAT.PROTOCOLTYPES) S!Hh@kJYhiIHXNIL NIL () CHAT.TYPEINA0001 D1 (L (1 STATE 0 WINDOW) F 0 RESETSTATE) PA@i (15 CHAT.CLOSE) (6 CHAT.STATE) () CHAT.TYPEINA0002 D1 (NAME ERRORSET F 0 INITSTREAM F 1 STREAM) PP Pg ci(15 OPENSTREAM 7 OPENSTRINGSTREAM) (12 INPUT) () CHAT.TYPEIN D1 (L (2 LOGOPTION 1 WINDOW 0 HOST) P 6 STREAM I 3 INITSTREAM F 12 RESETVARSLST)  `iAg  J[J\Hgg HgA A ]`g M M Ag` Ag@B gAJhhhWcLg _|JgAgOhgJhhgg OLO JLA Bg@BAJ Co M h_Ji"JdgݿA _NIJPjOKAg _K_Ndiq```~_dl,OOd`KJ l`KJ lO kOOll A K &N ON K N hAhdi  dgAi oJ h(488 BLOCK 484 SHOULDNT 481 CONCAT 464 CHAT.CLOSE 449 CLEARW 443 \TTYBACKGROUND 438 GETPROMPTWINDOW 428 CLOSEF 423 FORCEOUTPUT 416 BOUT 408 EOFP 401 FORCEOUTPUT 395 \SYSBUFP 391 FLASHWINDOW 386 BOUT 367 BOUT 358 CHAT.BIN 344 CHAT.BIN 319 \GETKEY 314 \SYSBUFP 310 \WAIT.FOR.TTY 281 CL:MAKE-BROADCAST-STREAM 278 GETSTREAM 239 CHAT.CLOSE 205 TTYDISPLAYSTREAM 200 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) (476 CHAT.STATE 456 ABORT 351 CHAT.METACHAR 336 CHAT.CONTROLCHAR 305 \TTY.PROCESS 302 \RUNNING.PROCESS 298 \RUNNING.PROCESS 275 OUTPUT 259 CHAT.STATE 229 CLOSE 223 CHAT.STATE 213 CHAT.STATE 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) ( 472 "Unknown state in CHAT: " 197 (CHAT.TYPEINA0002)) CHAT.BIN D1 (L (1 STATE 0 OUTSTREAM)) iH@ h(26 \GETKEY 19 \TTYBACKGROUND 13 FORCEOUTPUT 6 \SYSBUFP) NIL () CHAT.CLOSE D1 (L (2 CLOSING 1 ABORTED 0 WINDOW) F 6 \CARET.UP) @g @ B@ g@ g@ Hd H,\!I@ o@ L @ L IV@ @g hAHH @` @g [@g IE@ @g ]B`@`@ Mgghdd@ih Kd1 +@g Zd! J` JgJgg h(268 PUTWINDOWPROP 265 PUTWINDOWPROP 250 ICONW.SHADE 241 OPENWP 234 GETWINDOWUSERPROP 225 DEL.PROCESS 217 ADD.PROCESS 191 CLOSEW 172 PUTWINDOWPROP 164 CHAT.DEACTIVATE.WINDOW 157 PUTWINDOWPROP 149 PUTWINDOWPROP 139 DREMOVE 131 CHAT.CLOSE.CONNECTION 115 ALLOW.BUTTON.EVENTS 102 PUTWINDOWPROP 94 \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) (262 CHAT.RECONNECT 259 BUTTONEVENTFN 255 OLDBUTTONEVENTFN 247 HIGHLIGHTSHADE 231 ICONWINDOW 202 CHAT 196 NEW 185 CHATWINDOW 180 CLOSECHATWINDOWFLG 169 KEEPCHAT 154 CLOSEFN 146 PROCESS 142 CHATWINDOWLST 136 CHATWINDOWLST 126 CHAT.STATE 120 CHAT.STATE 105 CHAT.STATE 99 CHATSTATE 50 CHAT.STATE 40 CHAT.STATE 27 ON 20 REPLACE 3 CHATSTATE) ( 67 "Closing ") CHAT.DEACTIVATE.WINDOW D1 (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 D1 (L (0 WINDOW)) @hi (5 CHAT.CLOSE) NIL () CHAT.CLOSE.CONNECTION D1 (L (1 OUTSTREAM 0 INSTREAM)) @ @ A A (19 CLOSEF 13 OPENP 8 CLOSEF 3 OPENP) NIL () CHAT.LOGIN D1 (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 D1 (L (1 MSG 0 STREAM)) @g@g oA (23 STREAMPROP 20 CONCAT 10 STREAMPROP) (7 MESSAGE 3 MESSAGE) ( 16 "") CHAT.LOGINFO D1 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(13 FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.SENDSCREENPARAMS D1 (L (2 WIDTH 1 HEIGHT 0 INSTREAM)) @g H @ABlH(13 FNTYP 6 STREAMPROP) (3 SENDSCREENPARAMS) () CHAT.SETDISPLAYTYPE D1 (L (1 CODE 0 INSTREAM)) @g A3H @AlH(18 FNTYP 6 STREAMPROP) (3 SETDISPLAYTYPE) () CHAT.LOGINFO D1 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(13 FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.FLUSH&WAIT D1 (L (0 INSTREAM)) @g H @kH(13 FNTYP 6 STREAMPROP) (3 FLUSH&WAIT) () CHAT.ENDOFSTREAMOP D1 (L (0 STREAM)) @@g g"m(10 STREAMPROP) (15 \EOSERROR 7 EOSOP 3 STREAM) () CHAT.OPTIONMENU D1 (L (0 INSTREAM)) &@g Hd @kHHd(14 FNTYP 6 STREAMPROP) (33 MENU 25 MENU 3 OPTIONMENU) () CHAT.TYPEOUT D1 (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 D1 (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 D1 (L (0 CHAT.STATE)) @d@ @ (19 TERM.RESET.DISPLAY.PARMS 15 CHAT.SCREENPARAMS) (10 CHAT.STATE 4 CHAT.STATE) () CHAT.SCREENPARAMS D1 (L (2 WINDOW 1 INSTREAM 0 CHAT.STATE)) Bg hB jHhiHjHdllhB dllB (#A?BgJkoJ \jk oHoI@jh[L+Jm 3 hHI ioKoo o  h(170 PUTWINDOWPROP 167 CONCAT 158 CONCAT 134 CHAT.SENDSCREENPARAMS 124 NTHCHAR 91 SUBSTRING 82 STRPOS 60 \INSUREWINDOW 48 LINELENGTH 16 DSPLINEFEED 11 \INSUREWINDOW 6 GETWINDOWPROP) (105 CHAT.STATE 72 TITLE 3 HEIGHT) ( 163 "" 155 "OFF" 150 "ON" 144 ", Emacs " 100 ", width = " 95 ", height = " 78 ", height") GETCHATWINDOW D1 (L (2 DPYTYPE 1 WINDOW 0 HOST)) Bi o@ 1Ad `b 4Ag ZhiJhiAhi AgH A /``h`KKH b iI `AA`A(118 DSPSCROLL 110 \INSUREWINDOW 105 DECODE.WINDOW.ARG 78 \INSUREWINDOW 73 PUTWINDOWPROP 64 CHAT.CLOSE 39 GETWINDOWUSERPROP 30 WINDOWP 20 WINDOWP 12 CONCAT 4 L-CASE) (136 CHATWINDOWLST 132 CHATWINDOWLST 127 CHATWINDOW 122 CHATWINDOW 97 CHAT.WINDOW.REGION 90 CHATWINDOWLST 85 CHAT.WINDOW.SIZE 69 TITLE 50 CHAT.STATE 36 CHATSTATE 25 CHATWINDOW) ( 8 " Chat connection to ") CHAT.BUTTONFN D1 (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 D1 (L (0 WINDOW) P 2 \INTERRUPTABLE) [@g @ Hdjhi,Hk`lYjII Hjjdhh(69 \BACKGROUND 65 \FZEROP 46 GETMOUSESTATE 13 TOTOPW 6 GETWINDOWUSERPROP) (77 CHAT.STATE 50 LASTMOUSEBUTTONS 35 CHAT.STATE 20 CHAT.STATE 3 CHATSTATE) () CHAT.MENU D1 (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 D1 (L (1 WINDOW 0 STATE)) A @ @ (11 TERM.HOME 7 TERM.RESET.DISPLAY.PARMS 3 DSPRESET) NIL () CHAT.TAKE.INPUT D1 (L (1 WINDOW 0 STATE)) A .gAh (14 PROCESS.APPLY 3 \INSUREWINDOW) (8 CHAT.TAKE.INPUT1) () CHAT.TAKE.INPUT1A0001 D1 (NAME ERRORSET F 0 FILE) Pg ci(6 OPENSTREAM) (3 INPUT) () CHAT.TAKE.INPUT1 D1 (L (0 WINDOW) P 2 *LAST-CONDITION* P 1 FILE F 3 STREAM) g@ H SohdH IBioH S H *o H oH Ic H JH h(99 PRIN1 93 CLEARW 88 FULLNAME 81 PRIN1 72 CLEARW 66 CHAT.TAKE.INPUT1A0001 56 PRIN1 52 FULLNAME 47 PRIN1 33 CLEARW 23 PROMPTFORWORD 10 CLEARW 3 GETPROMPTWINDOW) NIL ( 77 "Reading " 63 (CHAT.TAKE.INPUT1A0001) 43 "Can't, still reading " 17 "Take input from file (cr to return): ") DO.CHAT.OPTION D1 (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 D1 (L (0 WINDOW)) @g @aHg Y@ @kJ`kjhi@g g@kK`0`dodg dgjdndhdL  @ gI]ddi3higMhMI^ddi3higNhNhHih (195 TTY.PROCESS 192 ADD.PROCESS 124 CHAT.RECONNECT.OFF 118 MENU 52 GETWINDOWUSERPROP 25 CHAT.RECONNECT.OFF 19 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (173 QUOTE 147 QUOTE 127 CHAT 115 CHAT.REOPENMENU 92 DEFAULTMENUHELDFN 85 CLRPROMPT 72 |MENUTYPE#| 67 CHAT.REOPENMENU 57 TOTOPW 49 OLDBUTTONEVENTFN 35 LASTMOUSEBUTTONS 16 CHATHOST 3 ICONFOR) ( 78 ((ReConnect T "Will reestablish this Chat connection"))) CHAT.RECONNECT.OFF D1 (L (0 WINDOW)) @g g@gH H(22 PUTWINDOWPROP 6 PUTWINDOWPROP) (18 BUTTONEVENTFN 11 TOTOPW 3 OLDBUTTONEVENTFN) () CHAT.RESHAPEWINDOW D1 (L (3 OLDSCREENREGION 2 IMAGEREGION 1 OLDIMAGE 0 WINDOW)) 4@AB @g HdY I hi IgHh (49 PROCESS.APPLY 33 RELPROCESSP 27 PROCESSP 12 GETWINDOWUSERPROP 5 RESHAPEBYREPAINTFN) (43 CHAT.DID.RESHAPE 21 CHAT.STATE 9 CHATSTATE) () CHAT.TTYENTRYFN D1 (L (0 PROCESS)) @g dg djh(14 GETWINDOWUSERPROP 6 PROCESSPROP) (19 CHAT.STATE 11 CHATSTATE 3 WINDOW) () CHAT.TTYEXITFN D1 (L (1 NEWPROCESS 0 PROCESS)) hNIL NIL () CHAT.TYPESCRIPT D1 (L (0 STATE)) @dg@h h(16 PROCESS.APPLY) (10 CHAT.TYPESCRIPT1 3 CHAT.STATE) () CHAT.TYPESCRIPT1A0001 D1 (NAME ERRORSET F 0 PWINDOW F 1 MACROY) ohdP ci(9 PROMPTFORWORD) NIL ( 3 "Typescript to file (cr to close): ") CHAT.TYPESCRIPT1A0002 D1 (NAME ERRORSET F 0 FILE) Pgg ci(9 OPENSTREAM) (6 NEW 3 OUTPUT) () CHAT.TYPESCRIPT1 D1 (L (0 CHAT.STATE) P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE P 1 FILE P 0 PWINDOW F 6 RESETVARSLST) @ H ` 1gJhhVc og higKc gK ML YibH Io D@d,@, H oH @@I,I,IoH I oH IH h(185 PRIN1 179 PRIN1 170 FULLNAME 165 PRIN1 137 PRIN1 128 PRIN1 124 CLOSEF 103 CHAT.TYPESCRIPT1A0002 93 CLEARW 84 MKATOM 78 ERROR! 72 APPLY 48 CHAT.TYPESCRIPT1A0001 21 TTY.PROCESS 15 CLEARW 8 GETPROMPTWINDOW) (146 CHAT.STATE 142 CHAT.STATE 119 CHAT.STATE 110 CHAT.STATE 65 TTY.PROCESS 56 ERROR 45 INTERNAL 27 TTY.PROCESS 18 \RUNNING.PROCESS 3 CHAT.STATE) ( 175 "Could not open " 161 "Opened " 133 " closed. " 100 (CHAT.TYPESCRIPT1A0002) 42 (CHAT.TYPESCRIPT1A0001)) CHAT.CHOOSE.PHONE.NUMBERA0007 D1 (NAME ERRORSET F 0 NUMBER F 1 MACROY) o cci(6 PROMPTFORWORD) NIL ( 3 "Please enter a phone number in the form (800)555-1212: ") CHAT.CHOOSE.PHONE.NUMBER D1 (P 9 RESETSTATE P 8 MACROY P 6 OLDVALUE P 2 NUMBER F 19 RESETVARSLST) :` kA`C`d`dodg dgjdndhHdI `` g1Jdg` 1 gNhhW&c&_og hig_Oc&gO OJd AO.O] ML kOEL[h`hK_l0OOdl9_OOh__O_O&__$O"O LO"O$ O"k_"O_(297 RPLCHARCODE 202 NCHARS 196 ALLOCSTRING 193 LENGTH 178 CHCON 171 ERROR! 164 APPLY 136 CHAT.CHOOSE.PHONE.NUMBERA0007 106 TTYDISPLAYSTREAM 82 MENU 5 LENGTH) (228 CHAT.PHONE.NUMBER.MENU 224 CHAT.PHONE.NUMBERS 220 CHAT.PHONE.NUMBERS 156 TTYDISPLAYSTREAM 144 ERROR 133 INTERNAL 112 TTYDISPLAYSTREAM 103 PROMPTWINDOW 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) ( 130 (CHAT.CHOOSE.PHONE.NUMBERA0007) 30 "Phone Number ") CHAT.EMACS.MOVE D1 (L (0 CHAT.STATE)) h@ !@@hi@` @@H@YjI1dm @` jI @ @`2Ij3Ik@` I @ @` H@Zdj4dk@` J @ @` @ h(254 FORCEOUTPUT 244 BOUT 227 PRIN3 218 MKSTRING 213 BOUT 179 BOUT 163 PRIN3 154 MKSTRING 149 BOUT 114 PRIN3 105 MKSTRING 98 BOUT 49 BOUT 9 CURSORPOSITION) (249 CHAT.STATE 237 CHAT.EMACSCOMMANDS 232 CHAT.STATE 222 CHAT.STATE 209 CHAT.EMACSCOMMANDS 204 CHAT.STATE 186 CHAT.STATE 173 CHAT.EMACSCOMMANDS 168 CHAT.STATE 158 CHAT.STATE 145 CHAT.EMACSCOMMANDS 140 CHAT.STATE 124 CHAT.EMACSCOMMANDS 119 CHAT.STATE 109 CHAT.STATE 94 CHAT.EMACSCOMMANDS 89 CHAT.STATE 69 CHAT.STATE 60 CHAT.STATE 54 CHAT.STATE 41 CHAT.EMACSCOMMANDS 36 CHAT.STATE 22 CHAT.STATE 16 CHAT.STATE 4 CHAT.STATE) () CHAT.SWITCH.EMACS D1 (L (1 WINDOW 0 CHATSTATE)) ,@@jhikjHIIjh@hA (41 CHAT.SCREENPARAMS) (7 CHAT.STATE 3 CHAT.STATE) () CHAT.ICONFN D1 (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 D1 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) (INITVARS (CHAT.TTY.PROCESS T)) (GLOBALVARS 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))) (INITVARS ( CHAT.DISPLAYTYPES (QUOTE ((NIL 10 DM2500)))) (CHAT.DRIVERTYPES) (CHAT.PROTOCOLTYPES) ( CHAT.EMULATORTYPE (QUOTE DM2500)) (CHAT.METACHAR 195) (CHAT.CONTROLCHAR 193) (CHAT.INTERRUPTS) ( CHAT.KEYACTIONS) (DEFAULTCHATHOST) (CHATDEBUGFLG) (CHATWINDOW) (CHAT.WINDOW.REGION) (CHAT.WINDOW.SIZE) (CHATWINDOWLST) (CHAT.AUTOCRLF T) (CLOSECHATWINDOWFLG) (CHAT.ALLHOSTS) (CHAT.HOSTMENU) (CHAT.FONT) ( CHAT.IN.EMACS? NIL) (CHAT.EMACSCOMMANDS (QUOTE (21 16 14 6 1))) (CHAT.WAIT.TIME 2000)) (VARS (CHATMENU ) (CHAT.REOPENMENU) NETWORKLOGINFO) (ADDVARS (CHATMENUITEMS)) (DECLARE%: EVAL@COMPILE DONTCOPY ( LOCALVARS . T) (FILES (SOURCE) CHATDECLS) (RECORDS EMACSCOMMANDS) (GLOBALVARS CHAT.ALLHOSTS CHAT.CONTROLCHAR CHAT.EMACSCOMMANDS CHAT.FONT CHAT.HOSTMENU CHAT.INTERRUPTS CHAT.KEYACTIONS CHAT.METACHAR CHAT.REOPENMENU CHAT.WAIT.TIME CHATDEBUGFLG CHATMENU CHATWINDOW CHAT.WINDOW.REGION CHAT.WINDOW.SIZE CHATWINDOWLST CLOSECHATWINDOWFLG DEFAULTCHATHOST NETWORKLOGINFO CHATMENUITEMS CHAT.EMULATORTYPE CHAT.DRIVERTYPES)) (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)) (* need DMCHAT since its the default emulator) (FILES DMCHAT) (INITRECORDS CHAT.STATE))))) (RPAQ? CHAT.TTY.PROCESS T) (RPAQ? CHAT.PHONE.NUMBER.MENU) (RPAQ? CHAT.PHONE.NUMBERS (QUOTE (Other))) (RPAQ TTYKBD (READBITMAP)) (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@" "ANALNGCILNGCILGH" "CL@@@@@@@@@@@@CL" "GHFGCILNGCILNGAN" "O@@@@@@@@@@@@@@O" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "COOOOOOOOOOOOOOL" "GOOOOOOOOOOOOOON" "OOOOOOOOOOOOOOOO" "O@@@@@@@@@@@@@@O" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "N@@@@@@@@@@@@@@G" "O@@@@@@@@@@@@@@O" "OOOOOOOOOOOOOOOO" "GOOOOOOOOOOOOOON" "COOOOOOOOOOOOOOL") (RPAQ TTYKBDMASK (READBITMAP)) (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@" "AOOOOOOOOOOOOOOH" "COOOOOOOOOOOOOOL" "GOOOOOOOOOOOOOON" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "COOOOOOOOOOOOOOL" "GOOOOOOOOOOOOOON" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "OOOOOOOOOOOOOOOO" "GOOOOOOOOOOOOOON" "COOOOOOOOOOOOOOL") (RPAQQ TTYKBDICONSPECREGION (4 3 56 14)) (RPAQ? TTYKBDICONSPEC) (RPAQ? CHAT.DISPLAYTYPES (QUOTE ((NIL 10 DM2500)))) (RPAQ? CHAT.DRIVERTYPES) (RPAQ? CHAT.PROTOCOLTYPES) (RPAQ? CHAT.EMULATORTYPE (QUOTE DM2500)) (RPAQ? CHAT.METACHAR 195) (RPAQ? CHAT.CONTROLCHAR 193) (RPAQ? CHAT.INTERRUPTS) (RPAQ? CHAT.KEYACTIONS) (RPAQ? DEFAULTCHATHOST) (RPAQ? CHATDEBUGFLG) (RPAQ? CHATWINDOW) (RPAQ? CHAT.WINDOW.REGION) (RPAQ? CHAT.WINDOW.SIZE) (RPAQ? CHATWINDOWLST) (RPAQ? CHAT.AUTOCRLF T) (RPAQ? CLOSECHATWINDOWFLG) (RPAQ? CHAT.ALLHOSTS) (RPAQ? CHAT.HOSTMENU) (RPAQ? CHAT.FONT) (RPAQ? CHAT.IN.EMACS? NIL) (RPAQ? CHAT.EMACSCOMMANDS (QUOTE (21 16 14 6 1))) (RPAQ? CHAT.WAIT.TIME 2000) (RPAQQ CHATMENU NIL) (RPAQQ CHAT.REOPENMENU NIL) (RPAQQ NETWORKLOGINFO ((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 "" 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)) NIL