(FILECREATED " 5-Oct-84 18:07:10" ("compiled on " {ERIS}SOURCES>CHAT.;12) "29-Sep-84 14:49:30" recompiled exprs: CHAT FIND.CHAT.PROTOCOL CHAT.TYPEIN CHAT.RESHAPEWINDOW in "INTERLISP-D 29-Sep-84 ..." dated "29-Sep-84 15:08:03") (FILECREATED " 5-Oct-84 18:06:17" {ERIS}SOURCES>CHAT.;12 50914 changes to: (FNS CHAT.TYPEIN CHAT FIND.CHAT.PROTOCOL CHAT.RESHAPEWINDOW) previous date: "25-Sep-84 16:32:15" {ERIS}SOURCES>CHAT.;11) CHAT D1 (L (4 FROMMENU 3 WINDOW 2 INITSTREAM 1 LOGOPTION 0 HOST)) E`zoi i n i g@ A@@ddidd g@hAdddidd gAhh go p@Du`O``XKj`>`Ko dLdodg dgjdndhdM  bdghbdKK[h`b@ohoD` b;@ Yo@ D(` J` bI@kNX"oZCJg Cgg @C bHC@ @`@`hD`go@ @CAB g@ddidd g@hCddidd gChAddidd gAhBddidd gBhhgo@ gg @(1101Q ADD.PROCESS 1067Q PACK* 662Q CHAT.TYPEIN 652Q PROCESSPROP 647Q PACK* 601Q CHAT.INIT 570Q GETCHATWINDOW 560Q PUTWINDOWPROP 544Q GETWINDOWUSERPROP 501Q PRIN1 471Q TERPRI 457Q CONCAT 444Q FIND.CHAT.PROTOCOL 432Q MKATOM 427Q PROMPTFORWORD 336Q MENU 253Q \APPEND2 173Q RETEVAL 160Q BKSYSBUF 155Q MKSTRING 41Q CLEARBUF 34Q DISMISS 25Q PRINTBELLS 21Q READP 14Q PRIN1) (1075Q NO 1072Q RESTARTABLE 1057Q NAME 1042Q QUOTE 1006Q QUOTE 752Q QUOTE 716Q QUOTE 666Q CHAT.TYPEIN 637Q NAME 634Q \RUNNING.PROCESS 625Q CHAT.HOSTMENU 620Q CHAT.ALLHOSTS 614Q CHAT.ALLHOSTS 606Q CHAT.ALLHOSTS 555Q CHAT.RECONNECT 552Q BUTTONEVENTFN 541Q CHATHOST 476Q PROMPTWINDOW 466Q PROMPTWINDOW 424Q PROMPTWINDOW 377Q DEFAULTCHATHOST 344Q Other 333Q CHAT.HOSTMENU 304Q DEFAULTMENUHELDFN 275Q CLRPROMPT 242Q MENUTYPE# 235Q CHAT.HOSTMENU 225Q DEFAULTCHATHOST 221Q CHAT.ALLHOSTS 214Q CHAT.HOSTMENU 164Q CHAT 142Q QUOTE 103Q QUOTE 45Q CHAT 2 \RUNNING.PROCESS) ( 1063Q "CHAT#" 643Q "CHAT#" 527Q "Failed" 453Q "Unknown Chat host: " 416Q "Enter name of host to chat to, or to abort" 411Q " Host: " 266Q "Host" 250Q (Other) 170Q (PROCESSWORLD T) 10Q "Turning on Process mechanism and trying again... ") CHAT.INIT D1 (L (2 HOST 1 WINDOW 0 STREAMS) F 1 CHAT.IN.EMACS?) U@AghiH@hddQh Agg Agg Agg HgH" Hg"h(110Q STREAMPROP 73Q WINDOWADDPROP 61Q PUTWINDOWPROP 47Q PUTWINDOWPROP 35Q PUTWINDOWPROP) (117Q CHAT.ENDOFSTREAMOP 114Q STREAM 103Q STREAM 77Q OLDEOSOP 70Q CHAT.CLOSEFN 65Q CLOSEFN 56Q CHAT.BUTTONFN 53Q BUTTONEVENTFN 44Q CHAT.RESHAPEWINDOW 41Q RESHAPEFN 10Q CHATSTATE) () FIND.CHAT.PROTOCOL D1 (L (0 NAME) F 2 CHAT.PROTOCOLS) RHh@kIHXNIL NIL () CHAT.TYPEINA0001 D1 (L (1 STATE 0 WINDOW) F 0 RESETSTATE) P A@i (14Q CHAT.CLOSE) NIL () CHAT.TYPEINA0002 D1 (NAME ERRORSET F 0 INITSTREAM F 1 STREAM) P Pg g ci(21Q \GETSTREAM 13Q OPENFILE) (16Q INPUT 10Q INPUT) () CHAT.TYPEIN D1 (L (2 LOGOPTION 1 WINDOW 0 HOST) P 5 STREAM I 3 INITSTREAM F 12Q RESETVARSLST)  `iAg s J[Hgg Hgg ```H H HgA A \`g L L Ag` Ag@B gAJhhhWc`_dd$@O _dO O_O_JgAOddidd gOhh JA OJO Bg@BAJ Cog L JdiMI]iS```[KNd`dJ l`KJ lN K &KM M K M hAhdi _ z dgA dgAi oJ h(730Q BLOCK 724Q SHOULDNT 721Q CONCAT 705Q CHAT.CLOSE 667Q CHAT.CLOSE 647Q CLEARW 640Q \TTYBACKGROUND 631Q GETPROMPTWINDOW 617Q CLOSEF 612Q FORCEOUTPUT 604Q EOFP 577Q BOUT 566Q FORCEOUTPUT 560Q \SYSBUFP 554Q BOUT 544Q CHAT.BIN 526Q CHAT.BIN 507Q \GETKEY 502Q \SYSBUFP 476Q \WAIT.FOR.TTY 433Q TTYDISPLAYSTREAM 426Q CHAT.TYPEINA0002 411Q CHAT.LOGIN 373Q CHAT.SETDISPLAYTYPE 357Q CHAT.SCREENPARAMS 346Q ADD.PROCESS 245Q ASSOC 234Q ASSOC 163Q PUTWINDOWPROP 151Q PUTWINDOWPROP 137Q DSPRESET 133Q DSPFONT 127Q DEFAULTFONT 111Q \INSUREWINDOW 105Q PROCESSPROP 74Q TTY.PROCESS 67Q CHAT.TTYENTRYFN 47Q PROCESSPROP 35Q PROCESSPROP 12Q GETWINDOWUSERPROP) (675Q ABORT 660Q CLOSE 535Q CHAT.METACHAR 516Q CHAT.CONTROLCHAR 471Q \TTY.PROCESS 466Q \RUNNING.PROCESS 462Q \RUNNING.PROCESS 423Q NOBREAK 400Q NONE 332Q QUOTE 300Q CHAT.TYPEOUT 210Q CHAT.DISPLAYTYPE 166Q CHAT.TYPEINA0001 155Q CHATHOST 146Q \RUNNING.PROCESS 143Q PROCESS 124Q DISPLAY 117Q CHAT.FONT 101Q WINDOW 61Q \TTY.PROCESS 56Q \RUNNING.PROCESS 52Q \RUNNING.PROCESS 44Q CHAT.TTYENTRYFN 41Q TTYENTRYFN 32Q CHAT.TTYEXITFN 27Q TTYEXITFN 7 CHATSTATE 2 \RUNNING.PROCESS) ( 713Q "Unknown state in CHAT: " 420Q (CHAT.TYPEINA0002)) CHAT.BIN D1 (L (1 STATE 0 OUTSTREAM)) iH@ h(32Q \GETKEY 23Q \TTYBACKGROUND 15Q FORCEOUTPUT 6 \SYSBUFP) NIL () CHAT.CLOSE D1 (L (2 CLOSING 1 ABORTED 0 WINDOW)) @g A@ Hd HZ@ o@ J @ `@ @g hAHH @` @g Y@gg @ (@gLkoL jk o @gg @g [B`@`@ Kgghdd@ih Id h(353Q DEL.PROCESS 344Q ADD.PROCESS 312Q CLOSEW 267Q PUTWINDOWPROP 260Q PUTWINDOWPROP 245Q PUTWINDOWPROP 242Q CONCAT 233Q SUBSTRING 223Q STRPOS 202Q \INSUREWINDOW 176Q WINDOWDELPROP 163Q PUTWINDOWPROP 151Q DREMOVE 141Q CHAT.CLOSE.CONNECTION 117Q PUTWINDOWPROP 107Q \CARET.DOWN 76Q PRINT 72Q CLOSEF 65Q PRIN1 54Q TERPRI 35Q DEL.PROCESS 15Q DETACHALLWINDOWS 6 GETWINDOWUSERPROP) (325Q CHAT 317Q NEW 304Q CHATWINDOW 277Q CLOSECHATWINDOWFLG 264Q KEEPCHAT 255Q CHAT.RECONNECT 252Q BUTTONEVENTFN 211Q TITLE 173Q CHAT.CLOSEFN 170Q CLOSEFN 160Q PROCESS 154Q CHATWINDOWLST 146Q CHATWINDOWLST 114Q CHATSTATE 102Q \CARET.UP 3 CHATSTATE) ( 237Q ", closed" 217Q ", height" 61Q "Closing ") CHAT.CLOSEFN D1 (L (0 WINDOW)) @hi (5 CHAT.CLOSE) NIL () CHAT.CLOSE.CONNECTION D1 (L (1 OUTSTREAM 0 INSTREAM)) @ @ A A (23Q CLOSEF 15Q OPENP 10Q CLOSEF 3 OPENP) NIL () CHAT.LOGIN D1 (L (3 CHATSTATE 2 WINDOW 1 OPTION 0 HOST)) @ g` Bg RI\H@ ZAgH L@J g[dH X(` o` K` o` aIHPd^dgMl M 8gJ+NdgJ gL ` ` NM M h(317Q FORCEOUTPUT 306Q PRIN3 300Q DISMISS 271Q DISMISS 262Q CHAT.FLUSH&WAIT 246Q \DECRYPT.PWD 216Q FORCEOUTPUT 211Q BOUT 156Q PRIN1 143Q PRIN1 133Q PRIN1 120Q TERPRI 107Q ASSOC 74Q CHAT.LOGINFO 64Q ASSOC 51Q \INTERNAL/GETPASSWORD 26Q GETWINDOWUSERPROP 16Q ASSOC 3 GETOSTYPE) (275Q CHAT.WAIT.TIME 266Q CHAT.WAIT.TIME 253Q WAIT 236Q PASSWORD 223Q USERNAME 200Q CR 153Q PROMPTWINDOW 140Q PROMPTWINDOW 130Q PROMPTWINDOW 115Q PROMPTWINDOW 101Q LOGIN 60Q ATTACH 23Q CHATSTATE 13Q NETWORKLOGINFO 10Q IFS) ( 150Q " not implemented for this type of host" 125Q "Login option ") ADD.CHAT.MESSAGE D1 (L (1 MSG 0 STREAM)) @g@g oA (27Q STREAMPROP 24Q CONCAT 12Q STREAMPROP) (7 MESSAGE 3 MESSAGE) ( 20Q "") CHAT.LOGINFO D1 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(15Q FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.SENDSCREENPARAMS D1 (L (2 WIDTH 1 HEIGHT 0 INSTREAM)) @g H @ABlH(15Q FNTYP 6 STREAMPROP) (3 SENDSCREENPARAMS) () CHAT.SETDISPLAYTYPE D1 (L (1 CODE 0 INSTREAM)) .AddoA @g H @AlH(42Q FNTYP 33Q STREAMPROP 23Q ERROR) (30Q SETDISPLAYTYPE) ( 17Q "Non-numeric arg: ") CHAT.LOGINFO D1 (L (2 NAME 1 HOST 0 INSTREAM)) @g H ABlH(15Q FNTYP 6 STREAMPROP) (3 LOGINFO) () CHAT.FLUSH&WAIT D1 (L (0 INSTREAM)) @g H @kH(15Q FNTYP 6 STREAMPROP) (3 FLUSH&WAIT) () CHAT.ENDOFSTREAMOP D1 (L (0 STREAM)) @@g g"m(12Q STREAMPROP) (17Q \EOSERROR 7 EOSOP 3 STREAM) () CHAT.OPTIONMENU D1 (L (0 INSTREAM)) @g H @kH(15Q FNTYP 6 STREAMPROP) (3 OPTIONMENU) () CHAT.TYPEOUT D1 (L (1 DPYTYPE) P 33Q FONTDESCENT P 32Q FONTHEIGHT P 31Q FONTWIDTH P 30Q PLAINFONT P 27Q CHATBOLDFONT P 26Q FONT P 25Q AUTOLF P 24Q EATTOCRLF P 23Q EATCRLF P 22Q EATLF P 21Q BLINKMODE P 20Q TYPESCRIPTSTREAM P 17Q IDMODE P 16Q ADDRESSING P 14Q DINGED P 13Q TTYHEIGHT P 12Q TTYWIDTH P 11Q DSP P 10Q OUTSTREAM P 7 INSTREAM P 6 HOMEPOS P 5 ROLLMODE P 1 YPOS P 0 XPOS I 0 WINDOW) KjdkA`` g@g i@ _L_@g _jO _L`O Og OkKO _Odl O8i_8EO Ogh l O8)O  _:O l lO:h_8O8O l h_8iO O `m`iJkZ`[kZQOdmO o.mO oO O LgO oO O Lgh(500Q TERPRI 472Q PRIN1 460Q TERPRI 443Q TERPRI 435Q PRIN1 423Q TERPRI 402Q TERPRI 357Q BLOCK 322Q \BOUT 304Q \BOUT 226Q STREAMPROP 214Q PRIN1 152Q STREAMPROP 141Q \CARET.DOWN 125Q BLOCK 103Q CHAT.HOME 77Q CHAT.RESET.DISPLAY.PARMS 71Q \GETSTREAM 46Q \INSUREWINDOW 33Q GETWINDOWUSERPROP 16Q ASSOC) (506Q CLOSE 451Q ABORT 347Q CHATDEBUGFLG 335Q CHATDEBUGFLG 326Q CHATDEBUGFLG 247Q STREAM 222Q MESSAGE 147Q MESSAGE 133Q \CARET.UP 66Q OUTPUT 30Q CHATSTATE 24Q DMCHAT.HANDLECHARACTER 13Q CHAT.DRIVERTYPES 10Q CHAT.EMULATORTYPE) ( 465Q "[Connection closed by remote host in unknown way]" 430Q "[Connection aborted by remote host]" 407Q "[Connection closed by remote host]") CHAT.RESET.DISPLAY.PARMS D1 (F 0 FONTHEIGHT F 1 FONTWIDTH F 2 DSP F 3 FONT F 4 FONTDESCENT F 5 WINDOW F 6 TTYWIDTH F 7 HOMEPOS F 10Q PLAINFONT F 11Q TTYHEIGHT) G jhR clAhR cc cScUg c dQQc Ug cdPkPTc(67Q GETWINDOWPROP 47Q GETWINDOWPROP 26Q CHARWIDTH 17Q DSPFONT 5 DSPLINEFEED) (64Q HEIGHT 44Q WIDTH 34Q FONTDESCRIPTOR) () CHAT.DID.RESHAPE D1 (F 0 INSTREAM F 1 DSP) PQ (7 CHAT.RESET.DISPLAY.PARMS 4 CHAT.SCREENPARAMS) NIL () DMCHAT.HANDLECHARACTER D1 (L (0 CHAR) F 0 IDMODE F 1 DINGED F 2 EATTOCRLF F 3 EATCRLF F 4 EATLF F 5 WINDOW F 6 AUTOLF F 7 ADDRESSING F 10Q ROLLMODE F 11Q BLINKMODE F 12Q CHATBOLDFONT F 13Q FONT F 14Q PLAINFONT F 15Q DSP) @lQUk`icQUk`hcV@l Rhc W@ Tl @l@hccR=P@ Thc@l $S+@dl ichcl@l@l@dlhc@l P@dl hci lP@dll mc@dllhc@l@dlnlRfP^X@dlPICl@dl&W3icWWgg ccW lic@lich(572Q DSPFONT 561Q FONTCOPY 513Q CHAT.UP 505Q CHAT.DELETELINE 466Q DMCHAT.RIGHT 460Q CHAT.ADDCHAR 440Q CHAT.CLEAR 411Q CHAT.CLEARMODES 376Q CHAT.CLEARMODES 372Q CHAT.HOME 340Q CHAT.ERASE.TO.EOL 322Q CHAT.LEFT 313Q CHAT.DELCHAR 276Q DMCHAT.NEWLINE 253Q CHAT.DOWN 244Q CHAT.ADDLINE 137Q DMCHAT.PRINTCHAR 132Q CHAT.ADDCHAR 72Q DMCHAT.ADDRESS 56Q CHAT.DOWN) (556Q BOLD 553Q WEIGHT 33Q INVERTWINDOWFN 16Q INVERTWINDOWFN) () CHAT.SCREENPARAMS D1 (L (1 WINDOW 0 INSTREAM)) Ag hA jHHjHdllhA dllA (Ag $@KAgJkoJ ]jk oHoIK\M+Jm doLoHI o o  h(253Q PUTWINDOWPROP 250Q CONCAT 237Q CONCAT 225Q CHAT.SENDSCREENPARAMS 175Q NTHCHAR 136Q SUBSTRING 125Q STRPOS 101Q GETWINDOWUSERPROP 70Q \INSUREWINDOW 54Q LINELENGTH 20Q DSPLINEFEED 13Q \INSUREWINDOW 6 GETWINDOWPROP) (113Q TITLE 76Q CHATSTATE 3 HEIGHT) ( 244Q "" 234Q "OFF" 217Q "ON" 211Q ", Emacs " 147Q ", width = " 142Q ", height = " 121Q ", height") CHAT.ADDCHAR D1 (F 1 XPOS F 2 FONTWIDTH F 3 DSP F 4 FONTHEIGHT F 5 YPOS F 6 FONTDESCENT F 7 TTYWIDTH) )UVSQHSQRHWQRTgg QHRT h(45Q CHAT.ERASEBITS 36Q BKBITBLT) (32Q REPLACE 27Q INPUT) () CHAT.ADDLINE D1 (L (0 ATYPOS) F 0 DSP F 1 FONTDESCENT F 2 FONTHEIGHT F 3 TTYWIDTH F 4 YPOS) %@TbPjRPjdS@Qgg j@QSR (42Q CHAT.ERASEBITS 31Q BKBITBLT) (25Q REPLACE 22Q INPUT) () DMCHAT.ADDRESS D1 (L (0 CHAR) F 2 ADDRESSING F 3 FONTWIDTH F 4 TTYWIDTH F 5 FONTHEIGHT F 6 XPOS F 7 YPOS F 10Q FONTDESCENT F 11Q HOMEPOS F 12Q DSP) _ @l@l@dlhcl mcjR@l`cRSTSHdIIc WW@l`UHdIIcW hci(130Q MOVETO) NIL () CHAT.CLEAR D1 (L (0 SETROLL) F 0 WINDOW F 1 ROLLMODE) P @ic(17Q CHAT.HOME 6 CHAT.CLEARMODES 3 CLEARW) NIL () CHAT.CLEARMODES D1 (F 0 BLINKMODE F 1 PLAINFONT F 2 DSP F 3 IDMODE F 4 FONT F 5 ADDRESSING) PQR Qchcc c(7 DSPFONT) NIL () CHAT.DELCHAR D1 (F 1 FONTWIDTH F 2 XPOS F 3 DSP F 4 FONTHEIGHT F 5 TTYWIDTH F 6 YPOS F 7 FONTDESCENT) +VWSRQHSRHURQTgg UQHQT h(47Q CHAT.ERASEBITS 36Q BKBITBLT) (32Q REPLACE 27Q INPUT) () CHAT.DELETELINE D1 (L (0 ATYPOS) F 0 DSP F 1 FONTHEIGHT F 2 TTYWIDTH F 3 YPOS F 4 FONTDESCENT) #@SbPjdPjQR@Tgg jdRQ (40Q CHAT.ERASEBITS 31Q BKBITBLT) (25Q REPLACE 22Q INPUT) () CHAT.DOWN D1 (F 0 YPOS F 1 XPOS F 2 DSP F 3 HOMEPOS F 4 FONTDESCENT F 5 FONTHEIGHT F 6 ROLLMODE) PTQPUcR VQScR S (35Q CHAT.DELETELINE 30Q MOVETO 15Q MOVETO) NIL () CHAT.ERASE.TO.EOL D1 (F 0 XPOS F 1 YPOS F 2 FONTHEIGHT F 3 FONTDESCENT F 4 TTYWIDTH) PQSTPR (12Q CHAT.ERASEBITS) NIL () CHAT.ERASEBITS D1 (L (3 HEIGHT 2 WIDTH 1 BOTTOM 0 LEFT) F 0 DSP) hddP@ABCggj (22Q BKBITBLT) (15Q REPLACE 12Q TEXTURE) () CHAT.HOME D1 (F 0 XPOS F 1 HOMEPOS F 2 YPOS F 3 DSP) jcQcS (11Q MOVETO) NIL () CHAT.LEFT D1 (F 0 XPOS F 1 FONTWIDTH F 2 YPOS F 3 DSP) Pj PQcRS (16Q MOVETO) NIL () DMCHAT.NEWLINE D1 (L (0 EXPLICIT) F 0 XPOS F 1 YPOS F 2 DSP F 3 EATCRLF F 4 AUTOLF F 5 EATLF) jcQR ic@dc ic(7 MOVETO) NIL () DMCHAT.PRINTCHAR D1 (L (0 CHAR) F 1 OUTSTREAM F 2 XPOS F 3 EATTOCRLF F 4 FONTWIDTH F 5 TTYWIDTH) (Q Q@lHRTcU`ich(37Q DMCHAT.NEWLINE) (33Q CHAT.AUTOCRLF 3 STREAM) () DMCHAT.RIGHT D1 (F 0 XPOS F 1 FONTWIDTH F 2 DSP F 3 TTYWIDTH F 4 YPOS) PQSPQcdTR (25Q DMCHAT.NEWLINE 21Q MOVETO) NIL () CHAT.UP D1 (F 0 YPOS F 1 HOMEPOS F 2 DSP F 3 XPOS F 4 FONTHEIGHT) QP SPTcR (16Q MOVETO) NIL () GETCHATWINDOW D1 (L (1 WINDOW 0 HOST)) ho@ !A`b ,Ag ZJAhi ihAgH A H b iI `AA`A(122Q DSPSCROLL 112Q \INSUREWINDOW 105Q CREATEW 75Q \INSUREWINDOW 70Q PUTWINDOWPROP 52Q CHAT.CLOSE 36Q GETWINDOWUSERPROP 25Q WINDOWP 7 CONCAT) (144Q CHATWINDOWLST 140Q CHATWINDOWLST 133Q CHATWINDOW 126Q CHATWINDOW 64Q TITLE 33Q CHATSTATE 20Q CHATWINDOW) ( 3 "Chat connection to ") CHAT.BUTTONFN D1 (L (0 WINDOW)) G`dlj2@g XHH@ hg kj@ (104Q CHAT.MENU 70Q PROCESS.APPLY 60Q CHAT.HOLD 25Q GETWINDOWUSERPROP) (65Q CHAT.EMACS.MOVE 22Q CHATSTATE 2 LASTMOUSEBUTTONS) () CHAT.HOLD D1 (L (0 WINDOW) P 1 \INTERRUPTABLE) 6@g @ HdHi`ljHhh(53Q \BACKGROUND 36Q GETMOUSESTATE 15Q TOTOPW 6 GETWINDOWUSERPROP) (42Q LASTMOUSEBUTTONS 3 CHATSTATE) () CHAT.MENU D1 (P 0 STATE I 0 WINDOW) @g !H`kj@ @ i`@ `/`d`dg dgjdndhdJ  YdgHgBgHg@gg )IdgHg@gi gIH@lIHhh(237Q PUTWINDOWPROP 205Q PUTWINDOWPROP 136Q MENU 50Q \CARET.DOWN 35Q TOTOPW 30Q CHAT.RECONNECT 6 GETWINDOWUSERPROP) (243Q Freeze 233Q KEEPCHAT 225Q CLOSE 214Q Suspend 202Q NEW 177Q KEEPCHAT 171Q CLOSE 161Q New 153Q CLOSE 143Q Close 133Q CHATMENU 104Q DEFAULTMENUHELDFN 75Q CLRPROMPT 66Q CHATMENUITEMS 61Q MENUTYPE# 54Q CHATMENU 43Q \CARET.UP 17Q LASTMOUSEBUTTONS 3 CHATSTATE) () CHAT.CLEAR.FROM.MENU D1 (L (0 STATE)) @o (16Q PROCESS.EVAL) NIL ( 13Q (CHAT.CLEAR T)) CHAT.TAKE.INPUT D1 (L (1 WINDOW 0 STATE)) A .gAh (16Q PROCESS.APPLY 3 \INSUREWINDOW) (10Q CHAT.TAKE.INPUT1) () CHAT.TAKE.INPUT1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE) P g h(11Q OPENSTREAM 3 MKATOM) (6 INPUT) () CHAT.TAKE.INPUT1 D1 (L (0 WINDOW) P 1 FILE F 2 STREAM) v@ H RohdH YH TioH R =o H YoH Ic  H oH H h(162Q PRIN1 154Q ERRORN 150Q PRIN1 137Q PRIN1 133Q ERRORSTRING 127Q ERRORN 122Q FULLNAME 113Q PRIN1 76Q CLEARW 72Q CHAT.TAKE.INPUT1A0001 61Q FULLNAME 54Q PRIN1 36Q CLEARW 27Q PROMPTFORWORD 12Q CLEARW 3 GETPROMPTWINDOW) NIL ( 144Q " - " 107Q "Reading " 67Q (DUMMY.FOR.ERRORSET) 50Q "Can't, still reading " 21Q "Take input from file: ") DO.CHAT.OPTION D1 (L (1 WINDOW 0 STATE)) @ o` h (27Q MENU 22Q PRIN1 6 CHAT.OPTIONMENU) (17Q PROMPTWINDOW) ( 14Q "This protocol has no options.") CHAT.RECONNECT D1 (L (0 WINDOW)) @g 1H@gg @ `kj@ `0`dodg dgjdndhdI  ]@gg gHZddidd gJhH[ddidd gKhh@ih h(277Q TTY.PROCESS 274Q ADD.PROCESS 157Q PUTWINDOWPROP 143Q MENU 52Q TOTOPW 33Q TOTOPW 26Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (253Q QUOTE 215Q QUOTE 163Q CHAT 154Q TOTOPW 151Q BUTTONEVENTFN 140Q CHAT.REOPENMENU 111Q DEFAULTMENUHELDFN 102Q CLRPROMPT 65Q MENUTYPE# 60Q CHAT.REOPENMENU 41Q LASTMOUSEBUTTONS 23Q TOTOPW 20Q BUTTONEVENTFN 3 CHATHOST) ( 73Q ((ReConnect T "Will reestablish this Chat connection"))) CHAT.RESHAPEWINDOW D1 (L (3 OLDSCREENREGION 2 IMAGEREGION 1 OLDIMAGE 0 WINDOW)) !@AB @g ddg h(35Q PROCESS.APPLY 14Q GETWINDOWUSERPROP 5 RESHAPEBYREPAINTFN) (32Q CHAT.DID.RESHAPE 11Q CHATSTATE) () CHAT.TTYENTRYFN D1 (L (0 PROCESS)) @g !HHg 0` hd LKh]K&MY@g0`d LKh]K&MI @g0`dZJJ LKh]K&M h(224Q PROCESSPROP 176Q KEYACTION 147Q PROCESSPROP 144Q \NCONC2 116Q INTERRUPTCHAR 52Q INTERRUPTCHAR 35Q \APPEND2 22Q GETWINDOWUSERPROP 6 PROCESSPROP) (161Q CHAT.KEYACTIONS 153Q CHAT.KEYACTIONS 71 CHAT.INTERRUPTS 65 CHAT.INTERRUPTS 26 \CURRENTINTERRUPTS 15 CHATSTATE 3 WINDOW) () CHAT.TTYEXITFN D1 (L (1 NEWPROCESS 0 PROCESS)) 0@gh d @gh dHH h(47Q KEYACTION 32Q PROCESSPROP 15Q INTERRUPTCHAR 7 PROCESSPROP) (26Q CHAT.KEYACTIONS 3 CHAT.INTERRUPTS) () CHAT.TYPESCRIPT D1 (L (0 STATE)) @dg@h h(22Q PROCESS.APPLY) (14Q CHAT.TYPESCRIPT1) () CHAT.TYPESCRIPT1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FILE) Pgg ci(11Q OPENSTREAM) (6 NEW 3 OUTPUT) () CHAT.TYPESCRIPT1 D1 (L (0 CHATSTATE) P 1 FILE F 2 TYPESCRIPTSTREAM F 3 WINDOW) qS H ohdH YiSH Io 5R@IcI3oH I  H oH oH IH h(155Q PRIN1 147Q PRIN1 134Q PRIN1 123Q PRIN1 117Q CLOSEF 112Q FULLNAME 105Q PRIN1 52Q CHAT.TYPESCRIPT1A0001 40Q CLEARW 27Q MKATOM 24Q PROMPTFORWORD 12Q CLEARW 3 GETPROMPTWINDOW) NIL ( 143Q "Could not open " 130Q " closed. " 101Q "Opened " 47Q (DUMMY.FOR.ERRORSET) 16Q "Typescript to file (cr to close): ") CHAT.EMACS.MOVE D1 (F 4 WINDOW F 5 FONTWIDTH F 6 FONTHEIGHT F 7 XPOS F 10Q YPOS) Tg hT "UWH` WVIVZjJ"dmH` jJ H H`#Jj$JkH` J H H` IU[dj%dkH` K H H` H h(253Q FORCEOUTPUT 246Q BOUT 232Q PRIN3 226Q MKSTRING 221Q BOUT 171Q BOUT 156Q PRIN3 152Q MKSTRING 145Q BOUT 114Q PRIN3 110Q MKSTRING 101Q BOUT 43Q BOUT 17Q CURSORPOSITION 6 GETWINDOWUSERPROP) (237Q CHAT.EMACSCOMMANDS 215Q CHAT.EMACSCOMMANDS 163Q CHAT.EMACSCOMMANDS 141Q CHAT.EMACSCOMMANDS 121Q CHAT.EMACSCOMMANDS 75Q CHAT.EMACSCOMMANDS 33Q CHAT.EMACSCOMMANDS 3 CHATSTATE) () CHAT.SWITCH.EMACS D1 (L (1 WINDOW 0 CHATSTATE)) @@hhA (30Q CHAT.SCREENPARAMS) NIL () \SPAWN.CHAT D1 NIL ` o (16Q TTY.PROCESS 13Q ADD.PROCESS) (2 \RUNNING.PROCESS) ( 10Q (CHAT NIL NIL NIL NIL T)) (PRETTYCOMPRINT CHATCOMS) (RPAQQ CHATCOMS ((COMS (* CHAT typein) (FNS CHAT CHAT.INIT FIND.CHAT.PROTOCOL CHAT.TYPEIN CHAT.BIN CHAT.CLOSE CHAT.CLOSEFN CHAT.CLOSE.CONNECTION CHAT.LOGIN)) (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 and DM simulation) (FNS CHAT.TYPEOUT CHAT.RESET.DISPLAY.PARMS CHAT.DID.RESHAPE DMCHAT.HANDLECHARACTER CHAT.SCREENPARAMS CHAT.ADDCHAR CHAT.ADDLINE DMCHAT.ADDRESS CHAT.CLEAR CHAT.CLEARMODES CHAT.DELCHAR CHAT.DELETELINE CHAT.DOWN CHAT.ERASE.TO.EOL CHAT.ERASEBITS CHAT.HOME CHAT.LEFT DMCHAT.NEWLINE DMCHAT.PRINTCHAR DMCHAT.RIGHT CHAT.UP)) (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.RESHAPEWINDOW CHAT.TTYENTRYFN CHAT.TTYEXITFN CHAT.TYPESCRIPT CHAT.TYPESCRIPT1)) (COMS (* for EMACS) (FNS CHAT.EMACS.MOVE CHAT.SWITCH.EMACS)) (ADDVARS (CHAT.DRIVERTYPES (DM2500 . DMCHAT.HANDLECHARACTER))) ( INITVARS (CHAT.EMULATORTYPE (QUOTE DM2500)) (CHAT.DISPLAYTYPE 10) (CHAT.METACHAR 195) ( CHAT.CONTROLCHAR 193) (CHAT.INTERRUPTS) (CHAT.KEYACTIONS) (DEFAULTCHATHOST) (CHATDEBUGFLG) ( CHATWINDOWLST) (CHATWINDOW) (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) ( CHAT.PROTOCOLS)) (VARS (CHATMENU) (CHAT.REOPENMENU) CHATMENUITEMS NETWORKLOGINFO) (DECLARE: EVAL@COMPILE DONTCOPY (LOCALVARS . T) (COMS * CHATDEFS)) (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 BSP))))) (ADDTOVAR CHAT.DRIVERTYPES (DM2500 . DMCHAT.HANDLECHARACTER)) (RPAQ? CHAT.EMULATORTYPE (QUOTE DM2500)) (RPAQ? CHAT.DISPLAYTYPE 10) (RPAQ? CHAT.METACHAR 195) (RPAQ? CHAT.CONTROLCHAR 193) (RPAQ? CHAT.INTERRUPTS) (RPAQ? CHAT.KEYACTIONS) (RPAQ? DEFAULTCHATHOST) (RPAQ? CHATDEBUGFLG) (RPAQ? CHATWINDOWLST) (RPAQ? CHATWINDOW) (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) (RPAQ? CHAT.PROTOCOLS) (RPAQQ CHATMENU NIL) (RPAQQ CHAT.REOPENMENU NIL) (RPAQQ CHATMENUITEMS ((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") ( "Option" (FUNCTION DO.CHAT.OPTION) "Do protocol specific option"))) (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 USERNAME CR WAIT PASSWORD CR)) (IFS (LOGIN "Login " USERNAME " " PASSWORD CR) ( ATTACH)))) (RPAQ? INVERTWINDOWFN (QUOTE INVERTW)) (ADDTOVAR BackgroundMenuCommands (CHAT (QUOTE (\SPAWN.CHAT)) "Runs a new CHAT process; prompts for host")) (SETQ BackgroundMenu) (FILESLOAD BSP) (PUTPROPS CHAT COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL