Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/talk.elib
There are no other files named talk.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   J.S?[Pg~qv%~	I

U	-$
J0	c9	

C	JN& Ignore Input& Make Table& Setup TALK Library^R Receive Link^R TALK~DIRECTORY~~DOC~ & Ignore Input~DOC~ & Make Table~DOC~ & Setup TALK Library~DOC~ ^R Receive Link~DOC~ ^R TALK~DOC~ ~Filename~~Filename~

~INVERT~=0fo..QTALK Setup Hook0"N:M0'
m.m^R TALKu:.x(Y)
m.m^R Receive Linku:.x()
m.vCRL List
m.vCRL Prefix
[..o150fsBCreate
330000000000.,0*5fsWord
511440000000.,1*5fsWord
205040000001.,2*5fsWord
205100440700.,3*5fsWord
541105000036.,4*5fsWord
104000000554.,5*5fsWord
603040040000.,6*5fsWord
254005000032.,7*5fsWord
200340000003.,8*5fsWord
201300000040.,9*5fsWord
201046400000.,10*5fsWord
561100000010.,11*5fsWord
551140000002.,12*5fsWord
104000000507.,13*5fsWord
254005000021.,14*5fsWord
316340000010.,15*5fsWord
254005000023.,16*5fsWord
367305000012.,17*5fsWord
254005000033.,18*5fsWord
525040140000.,19*5fsWord
201106400000.,20*5fsWord
104000000216.,21*5fsWord
254005000034.,22*5fsWord
200040000011.,23*5fsWord
350017000000.,24*5fsWord
263740000000.,25*5fsWord
271440000001.,26*5fsWord
271440000001.,27*5fsWord
271440000001.,28*5fsWord
254005000027.,29*5fsWord
Q..om.vTALK Code
30f[CLKINTERVAL0[..F
0f[RGETTY-1f[^RECHO[0
1f[noquit
:<
FIu0Q0-"E0;'
Q0-*
fsIMAGEOUT!<!>'
Q0- "L!<!>'
Q0-"E
:I* fsIMAGEOUT!<!>'
Q0fsIMAGEOUT>
m1f[^RInhibit0f[ModeChange
FF"E
0fo..QTALK Usertablef"N[0
Q0uCRL List:I*uCRL Prefix
2,m(m.m& Read Command Name)TALK to user:u0'
"#1,FTALK to user:[0''
"#1,FTALK to user:[0'
Q0"E'Q0:FCu0
QTALK Code[..O
zJG00I
m(fsRealAddress/5)[1
Q1"N
Q1-1"E
:I*Link Refused[2'
"#Q1-2"E:I*User 0 Not Logged In[2'
"#Q1-3"E:I*No Such User: 0[2'
"#:I*Error in ^R TALK[2'''
FG:I*C2fsEchoDisplay
0fsEchoActive0'
m(m.m& Ignore Input)
Break
Cont
-1FSPJATYW1f[^RInhibit0f[ModeChange
:I*ZfsECHODISPLAY
Rec L
Cont

m(m.m& Ignore Input)
BREAK
REF L
CONT
-1FSPJATYW:I*[0
FF"N'"#1'[1
5fsQVectorm.v0
Q1u:0(0)
@:IV\:I*0[1
Q1[..o@:fo10[2
-Q2u2Q2"L'Q2*5J
Q:1(0)*5,0IQ0u:1(Q2)\
TALKALibrary to simplify TALKING between different terminal Types.8Put ^R TALK on C-X Y and ^R Receive Link on C-X C-Y.5S Reads and ignores (but echos most) input to ^Z.N^R TALK to user <stringarg>.
If "TALK Usertable" is defined as an (FO type) table of usernames
then recognition and completion are available for those names. In
this case a numeric arg inhibits this.^R Accept a link.!& Makes a table (ala FO) with the name <stringarg>.
Numeric arg (default 1) is the entry size. Leaves QV bound to a macro
to insert entries into the table.R& Setup TALK Library
& Ignore Input
^R TALK
^R Receive Link
& Make Table
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2