(FILECREATED "22-Jun-87 13:58:31" ("compiled on " {CORE}TALK.;2 {CORE}TALKGAP.;1) "27-Apr-87 16:48:49" bcompl'd in "Xerox Lisp 15-Jun-87 ..." dated "15-Jun-87 15:55:45") (FILECREATED "22-Jun-87 11:29:35" {MCS:MCS:STANFORD}TALK.;8 changes to: (FNS TALK.TEDIT.LISTEN TALK.LISTEN TALK.TTY.LISTEN TALK.GET.NAME) (VARS TALKCOMS) previous date: "10-Jun-87 08:39:34" {MCS:MCS:STANFORD}TALK.;5) (FILECREATED " 1-Jun-87 18:41:46" {MCS:MCS:STANFORD}TALKGAP.;2 changes to: (COURIERPROGRAMS TALKGAP) (VARS TALKGAPCOMS) previous date: " 1-Jun-87 16:59:43" {MCS:MCS:STANFORD}TALKGAP.;1) TALK D4 (L (2 PROTOCOL 1 SERVICE 0 USER.OR.HOSTNAME)) ` @bhB`AOO'oBh`Y oBhjK[Ihh_^hY@H A`AOObI_HAlOZJdgooBh_jLO_OOh__O_MOh__@kMXOlihNZ`oAho@h__jOO_OOh__O_;Oh_goJJJIg@i (349 TALK.PROCESS 95 TALK.ADD.NAME 7 TALK.GET.NAME) (343 CLIENT 323 ANSWER 248 TALK.SERVICETYPES 148 CONNECT 106 TALK.SERVICETYPES 47 TALK.PROTOCOLTYPES 18 TALK.PROTOCOLTYPES) ( 329 "No answer from TALK service!" 264 "Host not found!" 255 "Unknown service type!" 162 "Protocol not available!" 157 "Can't connect to host!" 55 "Unknown protocol!" 39 "No protocols available!") TALK.PROCESS D4 (L (6 SPAWN? 5 USER 4 MODE 3 PROTOCOL 2 SERVICE 1 OUTPUTSTREAM 0 INPUTSTREAM)) P@ABCDE F7g@ABddi3 gBhCddi3 gChHh @ABCH (77 TALK.LISTEN 67 ADD.PROCESS 9 TALK.DISPLAY) (52 QUOTE 34 QUOTE 18 TALK.LISTEN) () TALK.DISPLAY D4 (L (5 USER 4 MODE 3 PROTOCOL 2 SERVICE 1 OUTPUTSTREAM 0 INPUTSTREAM) P 3 GREETING) C`@ABDElLb ` `` Z]MlJJJJJJoBo XJoCoE YHg@A Hgg IHg `d`di dkdgdg dgjdndhdN Ig B`_HI@ACElOg`[K [I (272 BKSYSBUF 263 ERRORSET 224 ATTACHMENU 158 ATTACHWINDOW 150 WINDOWADDPROP 140 PUTWINDOWPROP 129 CREATEW 126 CONCAT 111 CREATEW 108 PACK* 52 GETREGION 48 GETBOXREGION 30 REGIONP) (254 TALK.USER.MESSAGES 251 GREETING 228 TALK.SERVICETYPES 221 BOTTOM 197 DEFAULTMENUHELDFN 190 CLRPROMPT 183 TALK.WHENSELECTEDFN 166 TALK.MENU.ITEMS 161 MENUTYPE# 155 BOTTOM 147 TALK.CLOSEFN 144 CLOSEFN 134 STREAMS 41 TALK.DEFAULT.REGION 35 TALK.DEFAULT.REGION 27 TALK.DEFAULT.REGION 6 TALK.PROTOCOLTYPES) ( 122 ") Talk from " 117 "(" 105 ")" 100 "TALK (") TALK.LISTEN D4 (L (4 WINDOW 3 PROTOCOL 2 SERVICE 1 OUTPUTSTREAM 0 INPUTSTREAM)) D aB`HD@AClJi @ Dd oh[*hYDgD (` D ]!I5H 3HL YLiK^dg N MD h(141 FLASHWINDOW 132 CLOSEW 127 DETACHWINDOW 123 GETWINDOWUSERPROP 102 OPENWP 99 WINDOWPROP 90 SHRINKW 79 ATTACHEDWINDOWS 74 PUTWINDOWPROP 71 CONCAT 63 \INSUREWINDOW 40 OPENWP 35 CLOSEF? 31 TTY.PROCESS 3 MAINWINDOW) (120 MENU 68 TALK.CLOSED.STRING 59 TITLE 10 TALK.SERVICETYPES) ( 46 (ICON ICONWINDOW)) TALK.CLOSEFN D4 (L (0 WINDOW)) @gh Hd H (22 CLOSEF? 17 CLOSEF? 7 PUTWINDOWPROP) (3 STREAMS) () TALK.USERFN D4 (L (0 VAR)) :elaka dHl2JdIK aLMh\[JkZMh\(31 APPLY 11 TEXTPROP) NIL () TALK.ANSWER D4 (L (3 ADDRESS 2 PROTOCOL 1 SERVICE 0 USER)) 9o 2@ ZgH `hdJ hJ \LLLl [AoBo KKKKl J `J Ikl Il m KKKKKKKl J J @J H``5nа3C KKK@KKKKl J n .@+JgC Jg@ JgB Jgh J Jgh J Jg (310 GETWINDOWUSERPROP 302 CLOSEW 297 PUTWINDOWPROP 288 INVERTW 283 PUTWINDOWPROP 274 PUTWINDOWPROP 265 PUTWINDOWPROP 256 PUTWINDOWPROP 243 STRINGP 240 AWAIT.EVENT 230 TALK.ANSWER.USERNAME 226 CREATEREGION 191 TALK.ADD.NAME 173 TALK.RINGBELLS 166 DSPFONT 161 CENTERPRINTINREGION 157 CREATEREGION 124 CONCAT 121 SUBSTRING 113 SUBSTRING 106 DSPFONT 99 CENTERPRINTINREGION 95 CREATEREGION 75 CONCAT 61 CREATEREGION 41 DSPCLIPPINGREGION 36 BKBITBLT 27 PUTWINDOWPROP 19 TALK.ANSWER.WINDOW 15 SPAWN.MOUSE 9 DATE 2 CREATE.EVENT) (307 RESULT 293 EVENT 279 EVENT 270 PROTOCOL 261 USERNAME 252 ADDRESS 180 \IDLING 177 TALK.ANSWER.WAIT 102 TALK.ICON.FONT 30 TALK.ICON.BITMAP 23 EVENT) ( 72 ")" 67 "(" 6 (DATEFORMAT NO.SECONDS)) TALK.ANSWER.WINDOW D4 (L (0 USER)) @`@`Y2hX` [KK`#KKKKZg @JiI` jKKK`KK؊` jKK%` ``jd`` hji X`Hgg Hgg H(222 PUTWINDOWPROP 212 PUTWINDOWPROP 194 CREATEW 188 CREATEREGION 156 REGIONP 134 REGIONP 93 REGIONP 74 GETWINDOWUSERPROP 33 \INSUREWINDOW) (219 TALK.ICON.CLOSEFN 216 CLOSEFN 209 TALK.ICON.BUTTONEVENTFN 206 BUTTONEVENTFN 202 TALK.ICON.WINDOWS 198 TALK.ICON.WINDOWS 183 BITMAP 180 TALK.ICON.BITMAP 175 BITMAP 172 TALK.ICON.BITMAP 164 TALK.DEFAULT.REGION 160 TALK.DEFAULT.REGION 153 TALK.DEFAULT.REGION 131 TALK.DEFAULT.REGION 115 SCREENHEIGHT 90 TALK.DEFAULT.REGION 71 USERNAME 50 SCREENWIDTH 29 TALK.ICON.WINDOWS 14 TALK.ICON.WINDOWS 5 TALK.ICON.WINDOWS) () TALK.ANSWER.USERNAME D4 (L (2 WINDOW 1 REGION 0 USER)) hB !@ ` lAH dg@ YZ`B `lZ@kIk AAJAA B @Ikm AAJAA B HB @AB (131 CENTERPRINTINREGION 124 DSPFONT 119 CENTERPRINTINREGION 115 CREATEREGION 96 SUBSTRING 87 CENTERPRINTINREGION 83 CREATEREGION 64 SUBSTRING 44 DSPFONT 34 STRPOS 23 CHARWIDTH 17 BITMAPWIDTH 11 NCHARS 4 DSPFONT) (50 FONTDESCRIPTOR 47 TALK.ICON.FONT 40 TALK.ICON.FONT 30 % 14 TALK.ICON.BITMAP) () TALK.GET.NAME D4 NIL _0`@``o dIdg dgjdndhdJ dgohd` ` H(91 TERPRI 84 MKATOM 81 PROMPTFORWORD 61 MENU 21 \APPEND2) (88 PROMPTWINDOW 78 PROMPTWINDOW 65 OTHER 38 DEFAULTMENUHELDFN 31 CLRPROMPT 14 TALK.HOSTNAMES 10 MENUTYPE# 5 TALK.HOSTNAMES) ( 73 "User or host?" 18 ((Other (QUOTE OTHER) "Enter new user or hostname."))) TALK.ADD.NAME D4 (L (1 ADDRESS 0 NAME)) o@Af`@ "IhX9@Ah`JKd\ @Lkhih` KiIYH` @Ah`h(91 DREMOVE 69 STRPOS 54 EQP 51 NCHARS 14 NCHARS) (106 TALK.HOSTNAMES 102 TALK.HOSTNAMES 94 TALK.HOSTNAMES 88 TALK.HOSTNAMES 65 UPPERCASEARRAY 38 TALK.HOSTNAMES 34 TALK.HOSTNAMES 10 TALK.HOSTNAMES) () TALK.FLASH.CARET D4 (L (2 FLG 1 POSITION 0 WINDOW)) n@ hBdg!A[`hd@AAhddg g;`hd@Ah@ `Adh@ `hddg (107 BKBITBLT 85 DSPYPOSITION 67 DSPXPOSITION 43 BKBITBLT 3 OPENWP) (103 INVERT 91 CURSOR 88 DEFAULTCARET 73 CURSOR 70 DEFAULTCARET 56 CURSOR 53 DEFAULTCARET 47 ON 39 INVERT 24 CURSOR 21 DEFAULTCARET 10 OFF) () TALK.WHENSELECTEDFN D4 (L (2 BUTTON 1 FROMMENU 0 ITEM) P 3 STREAMS P 2 TEXTSTREAM P 1 MAINWINDOW P 0 WINDOW) .A 1H Yg ZIg [d @ (43 ERRORSET 35 OPENP 28 GETWINDOWUSERPROP 20 GETWINDOWUSERPROP 13 MAINWINDOW 6 MAINWINDOW 3 WFROMMENU) (25 STREAMS 17 TEXTSTREAM) () TALK.RINGBELLS D4 (L (0 WINDOW)) ` @ ` (15 PLAYTUNE 9 FLASHWINDOW 5 PLAYTUNE) (12 RINGBELLS.L2 2 RINGBELLS.L1) () TALK.TEDIT.DISPLAY D4 (L (5 USER 4 PROTOCOL 3 OUTPUTSTREAM 2 INPUTSTREAM 1 WINDOW 0 MAINWINDOW))  h@h` @dg F@g X FgC g X gChFHoE ,hAhd` kjg Ag HLYLI(118 GETWINDOWUSERPROP 111 TEDIT.SETSEL 103 OPENTEXTSTREAM 90 CONCAT 65 TEXTOBJ 61 GETWINDOWUSERPROP 53 LISTPUT 41 TEXTOBJ 37 GETWINDOWUSERPROP 22 TEXTOBJ 19 GETWINDOWUSERPROP 11 TEDIT) (125 TEXTOBJ 121 TEXTOBJ 115 TEXTOBJ 108 LEFT 99 TALK.FROM.TEDIT.PROPS 82 TEXTOBJ 71 TALK 68 TEXTOBJ 58 TEXTOBJ 49 TALK 44 TEXTOBJ 34 TEXTOBJ 25 TEXTOBJ 16 TEXTOBJ 8 TALK.TO.TEDIT.PROPS) ( 86 "Talk with ") TALK.TEDIT.LISTEN D4 (L (4 PROTOCOL 3 OUTPUTSTREAM 1 WINDOW 0 MAINWINDOW) I 2 INPUTSTREAM) WhdAg j l D`Kg ] l^I BClLB C AHg B B IKMJ AHg B _l_lOlxIKMJ OdlA lWB n_`h__h_O_IBlO_OO__OOOOOiOXlOOM NM AIKMJ 6IKMJ IO %@g _dO,` ,h(337 CONCAT 316 GETWINDOWUSERPROP 306 TALK.TEDIT.INSERT 299 TALK.TEDIT.INSERT 289 TALK.TEDIT.INSERT 277 GETFILEPTR 271 PRINTCCODE 255 SHOULDNT 171 READCCODE 160 TALK.RINGBELLS 147 TALK.TEDIT.INSERT 122 READCCODE 115 TALK.FLASH.CARET 106 TALK.TEDIT.INSERT 97 READP 92 OPENP 87 TALK.FLASH.CARET 75 OPENP 67 OPENP 51 OPENP 43 GETEOFPTR 39 OPENSTRINGSTREAM 18 ALLOCSTRING 13 ALLOCSTRING 9 GETWINDOWUSERPROP) (334 TALK.CLOSED.STRING 329 TEXTOBJ 324 TEXTOBJ 313 TEXTOBJ 181 TALK.ACTIONS 112 ON 84 OFF 36 BOTH 22 TALK.PROTOCOLTYPES 6 TEXTSTREAM) () TALK.TEDIT.CHARFN D4 (L (1 CCODE 0 TEXTOBJ)) @ Fg'H Al"AlAlAnAnAdnlH _n$Adn(dn2AmlH I>lFAdkhn+AdnJ$dnjdnIdninAnAAH H i(177 FORCEOUTPUT 172 READP 168 PRINTCCODE 100 PRINTCCODE 67 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TTY.DISPLAY D4 (L (5 USER 4 PROTOCOL 3 OUTPUTSTREAM 2 INPUTSTREAM 1 WINDOW 0 MAINWINDOW)) X`@ `A g@ gA E@goE @gg@CD`h X H (85 TTY.PROCESS 81 PUTWINDOWPROP 77 ADD.PROCESS 47 PUTWINDOWPROP 44 CONCAT 30 DSPSCROLL 23 DSPSCROLL 16 DSPFONT 9 DSPFONT) (61 TALK.PROTOCOLTYPES 55 TALK.TTY.CHARFN 52 TALK.TTY.PROCESS 36 ICON 26 ON 19 ON 12 TALK.TTY.FONT 5 TALK.TTY.FONT) ( 40 "Talk with ") TALK.TTY.LISTEN D4 (L (4 PROTOCOL 3 OUTPUTSTREAM 1 WINDOW 0 MAINWINDOW) I 2 INPUTSTREAM) hdlA` bD`^N]A BClLB C yAHg h_B [DgBi B IB _lMJl JdlA J _ZlhA IIA OA AHg m@g@g ` @gh [ K h(223 DEL.PROCESS 217 PROCESSP 213 PUTWINDOWPROP 205 PUTWINDOWPROP 202 CONCAT 196 GETWINDOWUSERPROP 182 TALK.FLASH.CARET 172 PRINTCCODE 164 DSPBACKUP 154 DSPXPOSITION 139 ELT 133 TALK.RINGBELLS 107 READCCODE 101 READP 96 SPP.CLEAREOM 83 OPENP 74 TALK.FLASH.CARET 64 OPENP 56 OPENP 40 OPENWP 10 CHARWIDTH) (209 TALK.TTY.PROCESS 199 TALK.CLOSED.STRING 193 ICON 189 ICON 179 ON 89 NS 71 OFF 17 TALK.PROTOCOLTYPES 7 TALK.TTY.FONT) () TALK.TTY.CHARFNA0001A0002 D4 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 0 SI*RESETFORMS*) 'g` hhPcgi hhPc(36 READCCODE 24 CONTROL 8 SETTERMTABLE) (20 CONTROL 5 TALK.TERMTABLE 2 SETTERMTABLE) () TALK.TTY.CHARFNA0001 D4 (NAME SI*UNWIND-PROTECT* P 3 SI*RESETFORMS* P 2 LISPXHIST I 0 SI*CLEANUP-FORMS* F 4 OUTPUTSTREAM F 5 DISPLAYSTREAM F 6 LISPXHIST F 7 CHARARRAY) clA` T RU LVg  YIlhU HHU WIT hi T I (94 ELT 87 FORCEOUTPUT 81 READP 75 PRINTCCODE 65 DSPBACKUP 56 DSPXPOSITION 42 CLVALUES-LIST 38 SIRESETUNWIND 35 \MVLIST 32 TALK.TTY.CHARFNA0001A0002 20 OPENWP 14 OPENP 7 CHARWIDTH) (29 SIRESETUNWIND 4 TALK.TTY.FONT) () TALK.TTY.CHARFN D4 (P 0 SI*RESETFORMS* I 2 CHARARRAY I 1 OUTPUTSTREAM I 0 DISPLAYSTREAM) (g@ hhhg  i (37 TTY.PROCESS 32 CLVALUES-LIST 28 SIRESETUNWIND 25 \MVLIST 22 TALK.TTY.CHARFNA0001 6 TTYDISPLAYSTREAM) (19 SIRESETUNWIND 2 TTYDISPLAYSTREAM) () TALK.ICON.BUTTONEVENTFN D4 (L (0 WINDOW)) t@gh !`lZjJJ H@gi Hi o@g o &@g h@g Y @ @ I (113 PROMPTPRINT 109 FLASHWINDOW 104 CLOSEW 99 PROCESSP 95 TALK 92 GETWINDOWUSERPROP 84 GETWINDOWUSERPROP 75 MOUSECONFIRM 72 CONCAT 65 GETWINDOWUSERPROP 53 NOTIFY.EVENT 48 PUTWINDOWPROP 38 ALLOW.BUTTON.EVENTS 33 \FZEROP 13 GETMOUSESTATE 7 PUTWINDOWPROP) (89 PROTOCOL 81 ADDRESS 62 USERNAME 44 RESULT 17 LASTMOUSEBUTTONS 3 EVENT) ( 69 "?" 58 "(Re)Connect to ") TALK.ICON.CLOSEFN D4 (L (0 WINDOW)) @gh @` i (24 NOTIFY.EVENT 16 DREMOVE 7 PUTWINDOWPROP) (19 TALK.ICON.WINDOWS 13 TALK.ICON.WINDOWS 3 EVENT) () TALK.TEDIT.INSERT D4 (L (3 SCRATCHPTR 2 STRINGSTREAM 1 STRING.OR.CCODE 0 TEXTSTREAM)) 8B@A  HjHH @AkHC Bj h(51 SETFILEPTR 46 TEDIT.INSERT 43 SUBSTRING 33 \FZEROP 17 GETFILEPTR 13 TEDIT.INSERT 10 MKSTRING 7 CHARACTER) NIL () TALK.TEDIT.DELETE D4 (L (0 TEXTSTREAM)) @d (7 TEDIT.DELETE 4 TEDIT.GETSEL) NIL () TALK.TEDIT.BACKSPACE D4 (L (0 TEXTSTREAM)) )@ @HdgH kk (38 TEDIT.DELETE 3 TEDIT.GETSEL) (30 SELECTION 24 SELECTION 17 LEFT 12 SELECTION) () TALK.TEDIT.UNDO D4 (L (0 TEXTSTREAM)) @ (6 TEDIT.UNDO 3 TEXTOBJ) NIL () TALK.TEDIT.REDO D4 (L (0 TEXTSTREAM)) @ (6 TEDIT.REDO 3 TEXTOBJ) NIL () TALK.TEDIT.WORDDELETE D4 (L (0 TEXTSTREAM)) @ (6 \TEDIT.WORDDELETE 3 TEXTOBJ) NIL () TALK.SELFN D4 (L (3 FINAL? 2 SELECTMODE 1 SELECTION 0 TEXTOBJ)) RCgKBgBgBg8@ Fg'H "lH lH A BhH H h(78 FORCEOUTPUT 73 PRIN2 65 TALK.ENCODE.SEL 60 PRINTCCODE 53 PRINTCCODE 45 OPENP 29 TEXTOBJ) (37 TALK 32 TEXTOBJ 22 DELETE 16 PENDINGDEL 10 NORMAL 3 FINAL) () TALK.SETSELFN D4 (L (6 OPERATION 5 LEAVECARETLOOKS 4 PENDINGDELFLG 3 POINT 2 LEN 1 CH#ORSEL 0 TEXTSTREAM)) E@ Fg'H /lH lH ABC F DgghH H h(65 FORCEOUTPUT 60 PRIN2 41 TALK.ENCODE.SEL 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (53 NORMAL 49 PENDINGDEL 11 TALK 6 TEXTOBJ) () TALK.TEDIT.SETSEL D4 (L (1 STREAM 0 TEXTSTREAM)) A @HH (15 TALK.DECODE.SEL 3 READ) NIL () TALK.IMAGEOBJFN D4 (L (2 CH#ORSEL 1 OBJECT 0 TEXTSTREAM)) K@ Fg'H 5lH lH AH @ BI I H H h(71 FORCEOUTPUT 66 PRIN2 62 TALK.ENCODE.SEL 45 TEDIT.GETSEL 40 WRITEIMAGEOBJ 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (57 SELECTION 51 SELECTION 11 TALK 6 TEXTOBJ) () TALK.TEDIT.INSERT.OBJECTA0001 D4 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS*)  (5 ERRORSET 2 READ) NIL () TALK.TEDIT.INSERT.OBJECT D4 (L (1 STREAM 0 TEXTSTREAM) P 0 SI*RESETFORMS*) 3gA hhhg  d@dA (48 TEDIT.INSERT.OBJECT 45 TALK.DECODE.SEL 42 READ 32 CLVALUES-LIST 28 SIRESETUNWIND 25 \MVLIST 22 TALK.TEDIT.INSERT.OBJECTA0001 6 INPUT) (19 SIRESETUNWIND 2 INPUT) () TALK.LOOKSFN D4 (L (3 LEN 2 CH#ORSEL 1 NEWLOOKS 0 TEXTSTREAM)) 9@ Fg'H #lH lH ABC hH H h(53 FORCEOUTPUT 48 PRIN2 41 TALK.ENCODE.SEL 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TEDIT.LOOKS D4 (L (1 STREAM 0 TEXTSTREAM)) A @H@H (19 TEDIT.LOOKS 16 TALK.DECODE.SEL 3 READ) NIL () TALK.PARAFN D4 (L (3 LEN 2 CH#ORSEL 1 NEWLOOKS 0 TEXTOBJ)) 9@ Fg'H #lH lH ABC hH H h(53 FORCEOUTPUT 48 PRIN2 41 TALK.ENCODE.SEL 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TEDIT.PARALOOKS D4 (L (1 STREAM 0 TEXTSTREAM)) A @ H@H (22 TEDIT.PARALOOKS 19 TALK.DECODE.SEL 10 TEXTOBJ 3 READ) NIL () TALK.INSERTFN D4 (L (4 DONTSCROLL 3 LOOKS 2 CH#ORSEL 1 TEXT 0 TEXTSTREAM)) <@ Fg'H &lH lH AB CDhH H h(56 FORCEOUTPUT 51 PRIN2 40 TALK.ENCODE.SEL 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TEDIT.INSERT.TEXT D4 (L (1 STREAM 0 TEXTSTREAM)) A @H@H HH (29 TEDIT.INSERT 16 TALK.DECODE.SEL 3 READ) NIL () TALK.INCLUDEFN D4 (L (3 END 2 START 1 FILE 0 TEXTSTREAM)) 7@ Fg'H !lH lH ABChH H h(51 FORCEOUTPUT 46 PRIN2 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TEDIT.INCLUDE D4 (L (1 STREAM 0 TEXTSTREAM)) A @HHH (19 TEDIT.INCLUDE 3 READ) NIL () TALK.DELETEFN D4 (L (2 LEN 1 CH#ORSEL 0 TEXTSTREAM)) ?@ Fg'H )lH lH A@ B BhH H h(59 FORCEOUTPUT 54 PRIN2 46 TALK.ENCODE.SEL 42 TEDIT.GETSEL 34 PRINTCCODE 27 PRINTCCODE 19 OPENP 3 TEXTOBJ) (11 TALK 6 TEXTOBJ) () TALK.TEDIT.DELETE.TEXT D4 (L (1 STREAM 0 TEXTSTREAM)) A @dH H (19 TEDIT.DELETE 13 TALK.DECODE.SEL 3 READ) NIL () TALK.GETFN D4 (L (2 WHEN 1 FULLFILENAME 0 TEXTSTREAM)) :Bg3@ Fg'H lH lH AhH H h(54 FORCEOUTPUT 49 PRIN2 41 PRINTCCODE 34 PRINTCCODE 26 OPENP 10 TEXTOBJ) (18 TALK 13 TEXTOBJ 3 BEFORE) () TALK.TEDIT.GET D4 (L (1 STREAM 0 TEXTSTREAM)) "@ Hj,jdhA HI (31 TEDIT.GET 24 READ 3 TEXTOBJ) (10 TEXTOBJ) () TALK.ENCODE.SEL D4 (L (2 POINT 1 LEN 0 CH#ORSEL)) U@40odd@og hXI HZYJ YHg@gAjgBgh(50 LAST 28 RECORDACCESS) (75 LEFT 69 POINT 62 DCH 58 CH# 25 FETCH 3 SELECTION) ( 22 (DATATYPE SELECTION ((* ;; "Description of a piece of selected text for TEdit. Text has to be selected before it can be operated on by the user.") Y0 (* ; "Y value of topmost line of selection") X0 (* ; "X value of left edge of selection") DX (* ; "Width of the selection, if it's on one line.") CH# (* ; "CH# of the first selected character") XLIM (* ; "X value of right edge of last selected character") CHLIM (* ; "CH# of the last character in the selection") DCH (* ; "# of characters selected (can be zero, for point selection.)") L1 (* ; "-> line descriptor for the line where the first selected character is") LN (* ; "-> line descriptor for the line which contains the end of the selection") YLIM (* ; "Y value of the bottom of the line that ends the selection") POINT (* ; "Which end should the caret appear at? (LEFT or RIGHT)") (SET FLAG) (* ; "T if this selection is real; NIL if not") (\TEXTOBJ FULLXPOINTER) (* ; "TEXTOBJ that describes the selected text") SELKIND (* ; "What kind of selection? CHAR or WORD or LINE or PARA") HOW (* ; "SHADE used to highlight this selection") HOWHEIGHT (* ; "Height of the highlight (1 usually, full line for delete selection...)") (HASCARET FLAG) (* ; "T if there should be a caret for this selection") SELOBJ (* ; "If this selection is inside an object, which object?") (ONFLG FLAG) (* ; "T if the selection is highlighted on the screen, else NIL") SELOBJINFO (* ; "A Place for the selected object to put info about selection inside itself.")) SET _ NIL HOW _ BLACKSHADE HOWHEIGHT _ 1 HASCARET _ T Y0 _ 0 X0 _ 0 POINT _ (QUOTE LEFT) L1 _ (LIST NIL) LN _ (LIST NIL)) 12 (CH# CHLIM DCH POINT SET SELKIND HOW HOWHEIGHT HASCARET SELOBJ ONFLG)) TALK.DECODE.SEL D4 (L (2 SELECTMODE 1 PLST 0 TEXTSTREAM)) (@Ag' @ Ag'Ag'BghB (37 TEDIT.SETSEL 11 TEDIT.GETSEL) (30 PENDINGDEL 25 POINT 20 DCH 14 SELECTION 4 CH#) () CH.USER.WORKSTATION D4 (L (1 WORKSTATION 0 USER)) CA9A X#Hj@g @gHhXo @HAo @g (64 CH.DELETE.PROPERTY 56 ERROR 44 CH.ADD.ITEM.PROPERTY 29 CH.DELETE.PROPERTY 9 \COERCE.TO.NSADDRESS) (61 ADDRESS.LIST 33 ADDRESS.LIST 26 ADDRESS.LIST 19 NSADDRESS 13 NSADDRESS) ( 53 "Address for host not found!" 41 (SEQUENCE NSADDRESS)) TALK.NS.HOSTNAME D4 (L (0 HOSTNAME)) @d@ (10 \COERCE.TO.NSADDRESS) (4 NSADDRESS) () TALK.NS.USERNAME D4 (L (4 USER 3 MODE 2 SERVICE 1 OUTPUTSTREAM 0 INPUTSTREAM)) oBgCg.Xo h``H HA A A BgCg@` @ BgAkPDb(78 RATOM 58 FORCEOUTPUT 53 TERPRI 48 PRIN1 41 CH.LOOKUP.OBJECT 26 STREQUAL 18 USERNAME) (98 SPPCON 93 STREAM 87 TTY 75 TALK.READTABLE 69 SERVER 63 TEdit 36 CH.NET.HINT 32 LOCAL.CLEARINGHOUSE 12 CLIENT 6 TEdit) ( 23 "") TALK.NS.CONNECT D4 (L (1 SERVICE 0 HOST)) i R@hig@ ZAM hoJ gMhMMJgg`g`h[+hhh``HIg dgg𲫰NLLiKòNiJd g(152 SPPOUTPUTSTREAM 103 COURIER.CALL 42 CLOSEF? 25 COURIER.OPEN 22 PACK* 7 CH.GETAUTHENTICATOR 3 CH.GETAUTHENTICATOR) (158 CONNECT 116 noAnswerOrBusy 108 ERROR 99 RETURNERRORS 94 SPP.USER.TIMEOUT 90 TALK.GAP.TRANSPORT 74 GAP.SERVICETYPES 71 service 68 TALK.GAP.PARAMETERS 65 Create 62 GAP 45 ANSWER 18 TALK#) () TALK.NS.EVENT D4 (L (1 OUTPUTSTREAM 0 INPUTSTREAM)) S@d !A @d @> @ (@ dg@ @ dg@ i@ (80 CLOSEF 71 SPP.CLEAREOM 57 SPP.CLEARATTENTION 46 EOFP 40 OPENP 35 AWAIT.EVENT 18 READP 11 OPENP 4 OPENP) (64 EOM 50 ATTENTION 30 SPPCON 25 STREAM) () TALK.NS.CREDENTIALS D4 (L (0 CREDENTIALS)) @ddgg km (22 SUBATOM 16 COURIER.READ.REP) (13 NAME 10 CLEARINGHOUSE) () TALK.TEDIT.SERVER D4 (L (7 VERIFIER 6 CREDENTIALS 5 WAITTIME 4 TRANSPORT 3 PARAMETERS 2 PROCEDURE 1 PROGRAM 0 INPUTSTREAM)) ZF @ Ijg`jJ4`HggI o@AB` @d gggH o(82 TALK.PROCESS 68 SPPOUTPUTSTREAM 63 COURIER.RETURN 48 TALK.ANSWER 7 SPP.DESTADDRESS 3 TALK.NS.CREDENTIALS) (77 SERVER 74 NS 71 TEdit 60 TALK.GAP.HANDLE 44 NS 41 TEdit 36 TALK.GAG 23 TALK.SERVICETYPES 20 TEdit 14 NSADDRESS) ( 87 (ABORT serviceNotFound) 53 (ABORT noAnswerOrBusy)) TALK.TTY.SERVER D4 (L (7 VERIFIER 6 CREDENTIALS 5 WAITTIME 4 TRANSPORT 3 PARAMETERS 2 PROCEDURE 1 PROGRAM 0 INPUTSTREAM)) EF @ Ij`HggI o@AB` @d gggH (66 TALK.PROCESS 52 SPPOUTPUTSTREAM 47 COURIER.RETURN 32 TALK.ANSWER 7 SPP.DESTADDRESS 3 TALK.NS.CREDENTIALS) (61 SERVER 58 NS 55 TTY 44 TALK.GAP.HANDLE 28 NS 25 TTY 20 TALK.GAG 14 NSADDRESS) ( 37 (ABORT serviceNotFound)) GAP.SERVER D4 (L (7 VERIFIER 6 CREDENTIALS 5 WAITTIME 4 TRANSPORT 3 PARAMETERS 2 PROCEDURE 1 PROGRAM 0 STREAM)) l`gD[hHi`X8o`hY hX L)iLJ JJiIK H@ABCDEFGlM(84 \DEFINEDP 58 EQP) (34 GAP.SERVICETYPES 20 GAP.SERVICETYPES 5 service) ( 28 (ABORT serviceNotFound)) DEFINE.GAP.SERVER D4 NIL gg rgg 1Hg'gKZg'Y+Jgg `Hg'L'ggH 5gigIh` ^NM L\ggg gg gg gg (162 UNMARKASCHANGED 153 DELDEF 144 UNMARKASCHANGED 134 COPYDEF 116 PUTASSOC 104 PUTASSOC 81 PUTDEF 53 LISTPUT 19 GETDEF 8 HASDEF) (159 COURIERPROGRAM 156 TALKGAP 150 COURIERPROGRAM 147 TALKGAP 141 COURIERPROGRAM 138 GAP 131 COURIERPROGRAM 128 GAP 125 TALKGAP 101 GAP.SERVICETYPES 94 DEFAULT 87 GAP.SERVER 77 COURIERPROGRAM 74 GAP 62 ERRORS 57 GAP.ADDITIONAL.ERRORS 50 GAP.SERVER 47 IMPLEMENTEDBY 39 IMPLEMENTEDBY 32 Create 27 PROCEDURES 16 COURIERPROGRAM 13 GAP 5 COURIERPROGRAM 2 GAP) () TALK.START.IP.SERVER D4 NIL ,g #g`jHogg h(39 ADD.PROCESS 5 FIND.PROCESS) (36 SYSTEM 33 RESTARTABLE 13 TALK.PROTOCOLTYPES 10 IP 2 TALK.IP.SERVER) ( 30 (TALK.IP.SERVER)) TALK.IP.SERVERA0001 D4 (NAME SI*UNWIND-PROTECT* I 0 SI*CLEANUP-FORMS* F 15 SOCKET F 16 SI*RESETFORMS*) 2g` chhdW c Wi YHll H_lOCjWg IH_lOC H_lOC`[KZJ`\L_jOIk WI `:H_lOCllH_lOC _JgHll Il WI 2Ij I_ WI Hll hOgg ] MNJggOi (300 TALK.PROCESS 283 TCP.OTHER.STREAM 279 TCP.OPEN 266 \GETBASEFIXP 256 UDP.SEND 249 UDP.APPEND.WORD 244 \TCP.SELECT.PORT 239 UDP.APPEND.BYTE 230 UDP.SEND 223 UDP.APPEND.BYTE 215 TALK.ANSWER 212 \GETBASEFIXP 197 \GETBASESTRING 152 UDP.SEND 145 UDP.APPEND.BYTE 91 UDP.APPEND.BYTE 70 UDP.SETUP 45 \GETBASEFIXP 35 \ALLOCATE.ETHERPACKET 31 UDP.GET 8 UDP.OPEN.SOCKET) (293 SERVER 290 IP 275 INPUT 272 PASSIVE 203 IP 159 TALK.GAG 125 TALK.SERVICETYPES 111 GAP.SERVICETYPES 66 FREE 5 TALK.UDP.PORT 2 UDP.CLOSE.SOCKET) () TALK.IP.SERVER D4 (P 2 SI*RESETFORMS* P 1 LISPXHIST P 0 SOCKET F 3 LISPXHIST) Sg  (22 CLVALUES-LIST 18 SIRESETUNWIND 15 \MVLIST 12 TALK.IP.SERVERA0001) (9 SIRESETUNWIND) () TALK.IP.USERNAME D4 (L (4 USER 3 MODE 2 SERVICE 1 OUTPUTSTREAM 0 INPUTSTREAM)) 7Bg*do hA A A @` @ Db(42 RATOM 34 FORCEOUTPUT 29 TERPRI 24 PRIN1 17 STREQUAL 9 USERNAME) (39 TALK.READTABLE 3 TEdit) ( 14 "") TALK.IP.EVENT D4 (L (1 OUTPUTSTREAM 0 INPUTSTREAM)) $@ A @d h @ (31 BLOCK 27 CLOSEF? 22 EOFP 16 READP 9 OPENP 3 OPENP) NIL () TALK.IP.CONNECTA0001 D4 (NAME SI*UNWIND-PROTECT* P 10 SERVICE I 0 SI*CLEANUP-FORMS* F 11 SOCKET F 12 SI*RESETFORMS* F 13 HOST F 14 SERVICE)  gchhdWc[o hW O7h\WI_lOChggi Z LJd O_hO_O_XW`jWg H`h]Jh Hj Hj HK HK WH` Ydl_lOCdkhONNiMl9i0O-i)gg(191 UDP.EXCHANGE 181 UDP.APPEND.STRING 175 UDP.APPEND.WORD 172 NCHARS 166 UDP.APPEND.WORD 160 UDP.APPEND.BYTE 154 UDP.APPEND.BYTE 138 UDP.SETUP 122 \ALLOCATE.ETHERPACKET 95 TCP.OTHER.STREAM 85 STREAMP 81 TCP.OPEN 33 STREQUAL 25 USERNAME 5 UDP.OPEN.SOCKET) (271 ANSWER 267 CONNECT 188 SPP.USER.TIMEOUT 143 GAP.SERVICETYPES 134 FREE 128 TALK.UDP.PORT 76 INPUT 73 ACTIVE 2 UDP.CLOSE.SOCKET) ( 30 "") TALK.IP.CONNECT D4 (P 2 SI*RESETFORMS* P 1 LISPXHIST P 0 SOCKET I 1 SERVICE I 0 HOST F 3 LISPXHIST) Sg  (22 CLVALUES-LIST 18 SIRESETUNWIND 15 \MVLIST 12 TALK.IP.CONNECTA0001) (9 SIRESETUNWIND) () TALK.IP.PROTOCOLP D4 NIL od i(9 GETD) NIL ( 3 (UDP.GET TCP.OPEN)) TALK.TEDIT.READVISE D4 NIL :`1HIH gH d` J KhZYHXKhZ(33 MEMB 24 APPLY) (30 ADVISEDFNS 20 READVISE 2 TALK.TEDIT.ADVISEDFNS) () COURIER.RESET.SOCKET D4 NIL lg i (11 CLOSENSOCKET 7 OPENNSOCKET) (4 ACCEPT) () (PRETTYCOMPRINT TALKCOMS) (RPAQQ TALKCOMS ((* * TALK server/client code) (LOCALVARS . T) (FNS TALK) (FNS TALK.PROCESS TALK.DISPLAY TALK.LISTEN TALK.CLOSEFN TALK.USERFN TALK.ANSWER TALK.ANSWER.WINDOW TALK.ANSWER.USERNAME TALK.GET.NAME TALK.ADD.NAME TALK.FLASH.CARET TALK.WHENSELECTEDFN TALK.RINGBELLS) (FNS TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN TALK.TEDIT.CHARFN) (FNS TALK.TTY.DISPLAY TALK.TTY.LISTEN TALK.TTY.CHARFN) (FNS TALK.ICON.BUTTONEVENTFN TALK.ICON.CLOSEFN) (* * TALK TEdit hooks) (FNS TALK.TEDIT.INSERT TALK.TEDIT.DELETE TALK.TEDIT.BACKSPACE TALK.TEDIT.UNDO TALK.TEDIT.REDO TALK.TEDIT.WORDDELETE TALK.SELFN TALK.SETSELFN TALK.TEDIT.SETSEL TALK.IMAGEOBJFN TALK.TEDIT.INSERT.OBJECT TALK.LOOKSFN TALK.TEDIT.LOOKS TALK.PARAFN TALK.TEDIT.PARALOOKS TALK.INSERTFN TALK.TEDIT.INSERT.TEXT TALK.INCLUDEFN TALK.TEDIT.INCLUDE TALK.DELETEFN TALK.TEDIT.DELETE.TEXT TALK.GETFN TALK.TEDIT.GET) (FNS TALK.ENCODE.SEL TALK.DECODE.SEL) (* * TALK data) (DECLARE: DONTCOPY ( MACROS TALKOPCODE) (RECORDS TALK.SERVICETYPE TALK.PROTOCOLTYPE)) (VARS TALK.ACTIONS TALK.MENU.ITEMS TALK.USER.MESSAGES) (ADDVARS (TALK.SERVICETYPES (TEdit (LAMBDA NIL (FGETD (QUOTE OPENTEXTSTREAM))) TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN) (TTY TRUE TALK.TTY.DISPLAY TALK.TTY.LISTEN))) (INITVARS TALK.GAG TALK.PROTOCOLTYPES TALK.HOSTNAMES TALK.ICON.WINDOWS (TALK.ANSWER.WAIT 15) (TALK.READTABLE ( COPYREADTABLE (QUOTE ORIG))) (TALK.TERMTABLE (COPYTERMTABLE (QUOTE ORIG))) (TALK.DEFAULT.REGION ( CREATEREGION 0 0 500 500)) (TALK.CLOSED.STRING " -- Connection Closed") (TALK.TTY.FONT DEFAULTFONT) ( TALK.ICON.FONT LITTLEFONT)) (VARS TALK.FROM.TEDIT.PROPS TALK.TO.TEDIT.PROPS) (GLOBALVARS TALK.ACTIONS TALK.MENU.ITEMS TALK.USER.MESSAGES TALK.SERVICETYPES TALK.GAG TALK.PROTOCOLTYPES TALK.HOSTNAMES TALK.ICON.WINDOWS TALK.ANSWER.WAIT TALK.READTABLE TALK.TERMTABLE TALK.DEFAULT.REGION TALK.CLOSED.STRING TALK.TTY.FONT TALK.ICON.FONT TALK.TO.TEDIT.PROPS TALK.FROM.TEDIT.PROPS) (* * NS GAP Interface) (FNS CH.USER.WORKSTATION) (FNS TALK.NS.HOSTNAME TALK.NS.USERNAME TALK.NS.CONNECT TALK.NS.EVENT TALK.NS.CREDENTIALS) (FNS TALK.TEDIT.SERVER TALK.TTY.SERVER) (FNS GAP.SERVER DEFINE.GAP.SERVER) (ADDVARS (GAP.SERVICETYPES (5 TTY TALK.TTY.SERVER) (6 TEdit TALK.TEDIT.SERVER)) ( TALK.PROTOCOLTYPES (NS TRUE TALK.NS.HOSTNAME TALK.NS.USERNAME TALK.NS.CONNECT TALK.NS.EVENT))) ( INITVARS (TALK.GAP.HANDLE (QUOTE ((0 0))))) (VARS TALK.GAP.PARAMETERS TALK.GAP.TRANSPORT GAP.ADDITIONAL.ERRORS) (GLOBALVARS GAP.SERVICETYPES TALK.GAP.HANDLE TALK.GAP.PARAMETERS TALK.GAP.TRANSPORT GAP.ADDITIONAL.ERRORS) (DECLARE: DONTCOPY (RECORDS GAP.SERVICETYPE)) (* Also need to load EXPORTS.ALL) (DECLARE: DONTCOPY DONTEVAL@LOAD EVAL@COMPILE (FILES ETHERRECORDS)) (DECLARE: DONTCOPY DONTEVAL@LOAD (COMS (DECLARE: EVAL@COMPILEWHEN (EQ MAKESYSNAME (QUOTE KOTO)) (FILES (LOADCOMP ) SPP))) (COMS (DECLARE: EVAL@COMPILEWHEN (NEQ MAKESYSNAME (QUOTE KOTO)) (FILES (LOADCOMP) SPPDECLS))) ) (* * Interim IP Interface) (FNS TALK.START.IP.SERVER TALK.IP.SERVER TALK.IP.USERNAME TALK.IP.EVENT TALK.IP.CONNECT TALK.IP.PROTOCOLP) (INITVARS (TALK.UDP.PORT 517)) (APPENDVARS (TALK.PROTOCOLTYPES (IP TALK.IP.PROTOCOLP DODIP.HOSTP TALK.IP.USERNAME TALK.IP.CONNECT TALK.IP.EVENT))) (GLOBALVARS TALK.UDP.PORT) (DECLARE: DONTCOPY (RECORDS TALK.IP.PACKET)) (* For Koto also need to load EXPORTS.TCP. For Lyric (and beyond) need to load TCPEXPORTS. Files not loaded here since they don't conform to LOAD?'s requirements) (* * etc.) (DECLARE: DONTCOPY (CONSTANTS (COURIER.SOCKET 5))) (FILES COURIERSERVE) (FNS TALK.TEDIT.READVISE COURIER.RESET.SOCKET) (APPENDVARS (BACKGROUNDFNS COURIER.START.SERVER) (BEFORELOGOUTFORMS (COURIER.RESET.SOCKET))) (ADDVARS (TALK.TEDIT.ADVISEDFNS TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE)) (ADVICE * (PROGN TALK.TEDIT.ADVISEDFNS)) (DECLARE: DONTCOPY DOEVAL@COMPILE (ALISTS (CHARACTERNAMES UNDO REDO NEXT MARGINS FONT SHIFT.UNDO SHIFT.REDO SHIFT.NEXT SHIFT.MARGINS SHIFT.FONT SHIFT.DEL))) (ALISTS (BackgroundMenuCommands Talk)) (VARS (BackgroundMenu)) (BITMAPS TALK.ICON.BITMAP) (GLOBALVARS TALK.TEDIT.ADVISEDFNS TALK.ICON.BITMAP COURIER.SOCKET) (P (if (FGETD ( QUOTE OPENTEXTSTREAM)) then (TALK.TEDIT.READVISE)) (SETSYNTAX (CHARCODE SPACE) (CHARCODE A) TALK.READTABLE) (ECHOCHAR (CHARCODE BS) (QUOTE IGNORE) TALK.TERMTABLE) (COURIER.START.SERVER) ( TALK.START.IP.SERVER)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA TALK.USERFN))))) (RPAQQ TALK.ACTIONS ((8 TALK.TEDIT.BACKSPACE) (15 TALK.TEDIT.INCLUDE) (16 TALK.TEDIT.DELETE.TEXT) (17 TALK.TEDIT.GET) (18 TALK.TEDIT.INSERT.TEXT) (19 TALK.TEDIT.SETSEL) (20 TALK.TEDIT.INSERT.OBJECT) (21 TALK.TEDIT.LOOKS) (22 TALK.TEDIT.PARALOOKS) (23 TALK.TEDIT.WORDDELETE) (127 TALK.TEDIT.DELETE) (516 TALK.TEDIT.UNDO) (520 TALK.TEDIT.REDO) (530 TEDIT.NEXT))) (RPAQQ TALK.MENU.ITEMS ((Disconnect (TALK.CLOSEFN MAINWINDOW) "Close TALK connection and keep window open.") (RingBells (PROGN (PRINTCCODE (CHARCODE ^G) (CDR STREAMS)) (FORCEOUTPUT (CDR STREAMS)) (FLASHWINDOW MAINWINDOW))) (Message (LET ((MESSAGE (MENU (create MENU ITEMS _ TALK.USER.MESSAGES)))) (if (AND MESSAGE (TTY.PROCESSP (WINDOWPROP MAINWINDOW (QUOTE PROCESS)))) then (BKSYSBUF MESSAGE))) "Insert a generic message."))) (RPAQQ TALK.USER.MESSAGES (("One moment please" "One moment please..." NIL (SUBITEMS ( "the phone's ringing" "One moment please, the phone's ringing...") ("there's someone at the door" "One moment please, there's someone at the door...") ("someone is trying to TALK to me" "One moment please, someone is trying to TALK to me..."))) (DATE (DATE) "The current date and time.") "Bye.")) (ADDTOVAR TALK.SERVICETYPES (TEdit (LAMBDA NIL (FGETD (QUOTE OPENTEXTSTREAM))) TALK.TEDIT.DISPLAY TALK.TEDIT.LISTEN) (TTY TRUE TALK.TTY.DISPLAY TALK.TTY.LISTEN)) (RPAQ? TALK.GAG NIL) (RPAQ? TALK.PROTOCOLTYPES NIL) (RPAQ? TALK.HOSTNAMES NIL) (RPAQ? TALK.ICON.WINDOWS NIL) (RPAQ? TALK.ANSWER.WAIT 15) (RPAQ? TALK.READTABLE (COPYREADTABLE (QUOTE ORIG))) (RPAQ? TALK.TERMTABLE (COPYTERMTABLE (QUOTE ORIG))) (RPAQ? TALK.DEFAULT.REGION (CREATEREGION 0 0 500 500)) (RPAQ? TALK.CLOSED.STRING " -- Connection Closed") (RPAQ? TALK.TTY.FONT DEFAULTFONT) (RPAQ? TALK.ICON.FONT LITTLEFONT) (RPAQQ TALK.FROM.TEDIT.PROPS (READONLY T NOTITLE T COPYBYBKSYSBUF T MENU ((Put (QUOTE Put) NIL ( SUBITEMS Plain-Text Old-Format)) Find Quit))) (RPAQQ TALK.TO.TEDIT.PROPS (CHARFN TALK.TEDIT.CHARFN SELFN TALK.SELFN GETFN TALK.GETFN IMAGEOBJFN TALK.IMAGEOBJFN LOOKSFN TALK.LOOKSFN PARAFN TALK.PARAFN INSERTFN TALK.INSERTFN SETSELFN TALK.SETSELFN DELETEFN TALK.DELETEFN INCLUDEFN TALK.INCLUDEFN NOTITLE T QUITFN TRUE COPYBYBKSYSBUF T)) (ADDTOVAR GAP.SERVICETYPES (5 TTY TALK.TTY.SERVER) (6 TEdit TALK.TEDIT.SERVER)) (ADDTOVAR TALK.PROTOCOLTYPES (NS TRUE TALK.NS.HOSTNAME TALK.NS.USERNAME TALK.NS.CONNECT TALK.NS.EVENT) ) (RPAQ? TALK.GAP.HANDLE (QUOTE ((0 0)))) (RPAQQ TALK.GAP.PARAMETERS (ttyHost (seven even two 100 (none 0 0)))) (RPAQQ TALK.GAP.TRANSPORT ((teletype))) (RPAQQ GAP.ADDITIONAL.ERRORS ((serviceTooBusy 17) (userNotAuthenticated 18) (userNotAuthorized 19) ( serviceNotFound 20) (registeredTwice 21) (transmissionMediumHardwareProblem 22) ( transmissionMediumUnavailable 23) (transmissionMediumNotReady 24) (noAnswerOrBusy 25) ( noRouteToGAPService 26) (gapServiceNotResponding 27) (courierProtocolMismatch 28) (gapVersionMismatch 29))) (RPAQ? TALK.UDP.PORT 517) (APPENDTOVAR TALK.PROTOCOLTYPES (IP TALK.IP.PROTOCOLP DODIP.HOSTP TALK.IP.USERNAME TALK.IP.CONNECT TALK.IP.EVENT)) (FILESLOAD COURIERSERVE) (APPENDTOVAR BACKGROUNDFNS COURIER.START.SERVER) (APPENDTOVAR BEFORELOGOUTFORMS (COURIER.RESET.SOCKET)) (ADDTOVAR TALK.TEDIT.ADVISEDFNS TEDIT.SETSEL TEDIT.INSERT TEDIT.DELETE TEDIT.INSERT.OBJECT TEDIT.LOOKS TEDIT.PARALOOKS OPENFILE-IN-TEDIT.INCLUDE) (PUTPROPS TEDIT.SETSEL READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE SETSELFN) STREAM CH# LEN POINT PENDINGDELFLG LEAVECARETLOOKS OPERATION)))) (PUTPROPS TEDIT.INSERT READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE INSERTFN) STREAM TEXT CH#ORSEL LOOKS DONTSCROLL)))) (PUTPROPS TEDIT.DELETE READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE DELETEFN) STREAM SEL LEN)))) (PUTPROPS TEDIT.INSERT.OBJECT READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE IMAGEOBJFN) STREAM OBJECT CH#)))) (PUTPROPS TEDIT.LOOKS READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE LOOKSFN) STREAM NEWLOOKS SELORCH# LEN)))) (PUTPROPS TEDIT.PARALOOKS READVICE (NIL (BEFORE NIL (TALK.USERFN (QUOTE PARAFN) TEXTOBJ NEWLOOKS SEL LEN)))) (PUTPROPS OPENFILE-IN-TEDIT.INCLUDE READVICE ((TEDIT.INCLUDE . OPENFILE) (BEFORE NIL (TALK.USERFN ( QUOTE INCLUDEFN) STREAM FILE START END)))) (ADDTOVAR BackgroundMenuCommands (Talk (QUOTE (PRINTOUT PROMPTWINDOW T (TALK) T)) "Start a TALK session with another user/host." (SUBITEMS (ON (QUOTE (SETQ TALK.GAG NIL)) "Enable TALK server.") (OFF (QUOTE (SETQ TALK.GAG T)) "Disable TALK server.")))) (RPAQQ BackgroundMenu NIL) (RPAQ TALK.ICON.BITMAP (READBITMAP)) (72 72 "OOOOOOOOOOOOOOOOOO@@" "LAIKKGHHDBNOOOOOOO@@" "OGFKJOKKEJDMOOOOOO@@" "OG@KHOHHEJJOOOOOOO@@" "OGFKJOKJMJNMOOOOOO@@" "OGFHKGKKDBNOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "OOOOOOOOOOOOOOOOOO@@" "LAKGDGOOOOOOOOOOOO@@" "OGKBENOOOOOOOOOOOO@@" "OGKEDGOOOOOOOOOOOO@@" "OGKGENOOOOOOOOOOOO@@" "OGKGDGOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "OOOOOOOOOOOOOOOOOO@@" "MM@HLGOOOOOOOOOOOO@@" "LIFKENOOOOOOOOOOOO@@" "MEFKDGOOOOOOOOOOOO@@" "MMFKENOOOOOOOOOOOO@@" "MM@HLGOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "H@@@@@@@@@@@@@@@@A@@" "OOOOOOOOOOOOOOOOOO@@") (if (FGETD (QUOTE OPENTEXTSTREAM)) then (TALK.TEDIT.READVISE)) (SETSYNTAX (CHARCODE SPACE) (CHARCODE A) TALK.READTABLE) (ECHOCHAR (CHARCODE BS) (QUOTE IGNORE) TALK.TERMTABLE) (COURIER.START.SERVER) (TALK.START.IP.SERVER) (PRETTYCOMPRINT TALKGAPCOMS) (RPAQQ TALKGAPCOMS ((COURIERPROGRAMS TALKGAP) (P (DEFINE.GAP.SERVER)))) (COURIERPROGRAM TALKGAP (3 3) TYPES ((WaitTime CARDINAL) (CharLength (ENUMERATION (five 0) (six 1) ( seven 2) (eight 3))) (Parity (ENUMERATION (none 0) (odd 1) (even 2) (one 3) (zero 4))) (StopBits ( ENUMERATION (one 0) (two 1))) (FlowControl (RECORD (type (ENUMERATION (none 0) (xOnXOff 1))) (xOn UNSPECIFIED) (xOff UNSPECIFIED))) (SessionHandle (ARRAY 2 UNSPECIFIED)) (SessionParameterObject ( CHOICE (xerox800 0 NIL) (xerox850 1 UNSPECIFIED) (xerox860 2 UNSPECIFIED) (system6 3 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (cmcll 4 (RECORD (sendBlockSize CARDINAL) ( receiveBlockSize CARDINAL))) (ibm2770 5 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm2770Host 6 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670 7 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm6670Host 8 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3270 9 NIL) (ibm3270Host 10 NIL) (OldTtyHost 11 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (OldTty 12 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL))) (other 13 NIL) ( unknown 14 NIL) (ibm2780 15 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) ( ibm2780Host 16 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780 17 (RECORD ( sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (ibm3780Host 18 (RECORD (sendBlockSize CARDINAL) (receiveBlockSize CARDINAL))) (siemens9750 19 NIL) (siemens9750Host 20 NIL) (ttyHost 21 (RECORD ( charLength CharLength) (parity Parity) (stopBits StopBits) (frameTimeout CARDINAL) (flowControl FlowControl))) (tty 22 (RECORD (charLength CharLength) (parity Parity) (stopBits StopBits) ( frameTimeout CARDINAL) (flowControl FlowControl))))) (TransportObject (CHOICE (rs232c 0 (RECORD ( CommParams CommParamObject) (preemptOthers ReserveType) (preemptMe ReserveType) (phoneNumber STRING) ( line (CHOICE (alreadyReserved 0 (RECORD (resource Resource))) (reserveNeeded 1 (RECORD (lineNumber CARDINAL))))))) (bsc 1 (RECORD (localTerminalID STRING) (localSecurityID STRING) (lineControl LineControl) (authenticateProc UNSPECIFIED))) (teletype 2 NIL) (polledBSCController 3 (RECORD ( hostControllerName STRING) (controllerAddress ControllerAddress) (portsOnController CARDINAL))) ( sdlcController 4 (RECORD (hostControllerName STRING) (controllerAddress ControllerAddress) ( portsOnController CARDINAL))) (polledBSCTerminal 5 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (sdlcTerminal 6 (RECORD (hostControllerName STRING) ( terminalAddress TerminalAddress))) (service 7 (RECORD (id LONGCARDINAL))) (unused 8 NIL) ( polledBSCPrinter 9 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))) (sdlcPrinter 10 (RECORD (hostControllerName STRING) (printerAddress TerminalAddress))))) (Sequence.TransportObject (SEQUENCE TransportObject)) (BidReply (ENUMERATION (wack 0) (nack 1) (default 2))) (ExtendedBoolean ( ENUMERATION (true 0) (false 1) (default 2))) (DeviceType (ENUMERATION (undefined 0) (terminal 1) ( printer 2))) (AccessDetail (CHOICE (directConn 0 (RECORD (duplex (ENUMERATION (full 0) (half 1))) ( lineType LineType) (lineSpeed LineSpeed))) (dialConn 1 (RECORD (duplex (ENUMERATION (full 0) (half 1)) ) (lineType LineType) (lineSpeed LineSpeed) (dialMode (ENUMERATION (manual 0) (auto 1))) (dialerNumber CARDINAL) (retryCount CARDINAL))))) (CommParamObject (RECORD (accessDetail AccessDetail))) (LineType (ENUMERATION (bitSynchronous 0) (byteSynchronous 1) (asynchronous 2) (autoRecognition 3))) (LineSpeed (ENUMERATION (bps50 0) (bps75 1) (bps110 2) (bps135p5 3) (bps150 4) (bps300 5) (bps600 6) (bps1200 7) (bps2400 8) (bps3600 9) (bps4800 10) (bps7200 11) (bps9600 12) (bps19200 13) (bps28800 14) (bps38400 15) (bps48000 16) (bps56000 17) (bps57600 18))) (LineControl (ENUMERATION (primary 0) (secondary 1))) (ControllerAddress CARDINAL) (TerminalAddress CARDINAL) (credentials (AUTHENTICATION . CREDENTIALS)) ( verifier (AUTHENTICATION . VERIFIER)) (Duplexity (ENUMERATION (full 0) (half 1))) (PortClientType ( ENUMERATION (unassigned 0) (outOfService 1) (its 2) (irs 3) (gws 4) (ibm3270Host 5) (ttyEmulation 6) ( rbs 7) (fax 8) (mailGateway 9) (phototypesetter 10))) (PortDialerType (ENUMERATION (none 0) (vadic 1) (hayes 2) (ventel 3) (rs366 4))) (PortEchoingLocation (ENUMERATION (application 0) (ciu 1) (terminal 2 ))) (ReserveType (ENUMERATION (preemptNever 0) (preemptAlways 1) (preemptInactive 2))) (RS232CData ( RECORD (cIUPort BOOLEAN) (owningClientType PortClientType) (preemptionAllowed BOOLEAN) (lineNumber CARDINAL) (dialerNumber CARDINAL) (duplexity Duplexity) (dialingHardware PortDialerType) (charLength CharLength) (echoing PortEchoingLocation) (flowControl FlowControl) (lineSpeed LineSpeed) (parity Parity) (stopBits StopBits) (portActsAsDCE BOOLEAN) (accessControl NSNAME) (validLineSpeeds (SEQUENCE LineSpeed))))) PROCEDURES ((Reset 0) (Create 2 (SessionParameterObject Sequence.TransportObject WaitTime credentials verifier) RETURNS (SessionHandle) REPORTS (badAddressFormat controllerAlreadyExists controllerDoesNotExist dialingHardwareProblem illegalTransport inconsistentParams mediumConnectFailed noCommunicationHardware noDialingHardware terminalAddressInUse terminalAddressInvalid tooManyGateStreams transmissionMediumUnavailable serviceTooBusy userNotAuthenticated userNotAuthorized serviceNotFound) IMPLEMENTEDBY GAP.SERVER)) ERRORS (( unimplemented 0) (noCommunicationHardware 1) (illegalTransport 2) (mediumConnectFailed 3) ( badAddressFormat 4) (noDialingHardware 5) (dialingHardwareProblem 6) (transmissionMediumUnavailable 23 ) (inconsistentParams 8) (tooManyGateStreams 9) (bugInGAPCode 10) (gapNotExported 11) ( gapCommunicationError 12) (controllerAlreadyExists 13) (controllerDoesNotExist 14) ( terminalAddressInUse 15) (terminalAddressInvalid 16) (serviceTooBusy 17) (userNotAuthenticated 18) ( userNotAuthorized 19) (serviceNotFound 20) (registeredTwice 21) (transmissionMediumHardwareProblem 22) (transmissionMediumNotReady 24) (noAnswerOrBusy 25) (noRouteToGAPService 26) (gapServiceNotResponding 27) (courierProtocolMismatch 28) (gapVersionMismatch 29))) (DEFINE.GAP.SERVER) NIL