Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/bboard.elib-su-lots
There are no other files named bboard.elib-su-lots in the archive.
PW[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))=^e
Slw|l;#|0$(8"dB  L#U^!1p#D#u~)60$u# Babyl ^A# Babyl ^B& Compressed BBSITE Library& Flush Old BBoard Notices& Initialize BBoard& Setup BBOARD Library& Setup BBSITE Library~DIRECTORY~~DOC~ # Babyl ^A~DOC~ # Babyl ^B%~DOC~ & Compressed BBSITE Library$~DOC~ & Flush Old BBoard Notices~DOC~ & Initialize BBoard ~DOC~ & Setup BBOARD Library ~DOC~ & Setup BBSITE Library~DOC~ ~Filename~~Filename~
~INVERT~
BBOARD10fo..qBBOARD Loaded-12155184931"n
0m.CBBoard Sans Query* Do not query user if this is nonzero
10000m.CBBoard Maximum Size* Maximum Size of BBoard file before deleting old notices
0m.CBBoard Data File* Complete file name if not Switch.ini on Home Directory
0m.CBBoard Babyl File0 or the name of the Babyl File when BBoard was invoked
0m.CLast BBoard ArgumentLast true Argument to ^B
0m.CBBoard Last WrittenDate and time BBoard Last Written
0m.CBBoard Last ReadDate and time BBoard Last Read
0m.CBBoard Crl ListIf nonzero, it is the Q-Vector of BBoard Name, BBoard File pairs
0m.CBBoard Q on N at Last Notice* If nonzero, N at Last Notice causes an automatic Q
0m.CBBoard Regular Naming Convention0 or Single Wild Card File Specification to find BBoard files
@:i*|System=POBOX:<SYSTEM>MAIL.TXT.1
Arms-D=POBOX:<BBOARD>ARMS-D.TXT.1
Consultant=POBOX:<BBOARD>CONSULTANT.TXT.1
Gay=POBOX:<BBOARD>GAY.TXT.1
Gripes=POBOX:<BBOARD>GRIPES.TXT.1
Helper=POBOX:<BBOARD>HELPER.TXT.1
Human-nets=POBOX:<BBOARD>HUMAN-NETS.TXT.1
Macintosh=POBOX:<BBOARD>MACINTOSH.TXT.1
Bboard=POBOX:<BBOARD>MAIL.TXT.1
Micro=POBOX:<BBOARD>MICRO.TXT.1
Motss=POBOX:<BBOARD>MOTSS.TXT.1
Net-micro=POBOX:<BBOARD>NET-MICRO.TXT.1
Net-SF-lovers=POBOX:<BBOARD>NET-SF-LOVERS.TXT.1
Paslib=POBOX:<BBOARD>PASLIB.TXT.1
Poli-sci=POBOX:<BBOARD>POLI-SCI.TXT.1
Programs=POBOX:<BBOARD>PROGRAMS.TXT.1
Prolog=POBOX:<BBOARD>PROLOG.TXT.1
SF-lovers=POBOX:<BBOARD>SF-LOVERS.TXT.1
SMUG=POBOX:<BBOARD>SMUG.TXT.1
Songs=POBOX:<BBOARD>SONGS.TXT.1
Space=POBOX:<BBOARD>SPACE.TXT.1
SU-bboard=POBOX:<BBOARD>SU-BBOARD.TXT.1
Telecom=POBOX:<BBOARD>TELECOM.TXT.1
Terminal-lossage=POBOX:<BBOARD>TERMINAL-LOSSAGE.TXT.1
Waterloo=POBOX:<BBOARD>WATERLOO.TXT.1
|m.CBBoard Names List* List of BBoard Specifications <BBoardName>=<BBoardFileSpecification>
12155184931m.vBBOARD Loaded'
m(m.m& SetUp BBSITE Library)
@:I*|
      QBBoard Babyl File"N @M(M.M # Babyl ^B) '
0[MM # Babyl Q
F@M(M.M # Babyl Q) 
| M.V MM # Babyl Q
@:I*|
      FS Z"E
0UBBoard Babyl File
0UBBoard Last Written '
QBBoard Babyl File"N
:I*I command not usable within BBoard FS Err '
0[MM # Babyl I
F@M(M.M # Babyl I) 
| M.V MM # Babyl I
@:I*|
      QBBoard Babyl File"N
1F<!Babyl-Command-Abort!
0[MM # Babyl ^N
FM(M.M # Babyl ^N)
>[0 Q0"N
@FT
0.  0 FS Echo ActiveW
QBBoard Q on N at Last Notice"N
	       ZJ @M(M.M # Babyl ^B) '
:FI U0
Q0-"E FI '
Q0-N"E FI '
Q0-n"E FI '
Q0-"E ZJ '
Q0-Q"E ZJ '
Q0-q"E ZJ ''
 '
0[MM # Babyl ^N
F@M(M.M # Babyl ^N) 
| M.V MM # Babyl ^N
[1F[Both Case
M(M.M & Initialize BBoard)
[0[1[2[3[4[5[6[7
Q..OU6
@:FN|M(M.M Select Buffer)*Babyl*|
F[D File
0 F[Mode Macro
M(M.M Select Buffer)*BBoards*
Q..OU7
FS Z"E
0ULast BBoard Argument
QBabyl Filenames UBBoard Babyl File
:I*C FS Echo Display
0 FS Echo Active
FS H Sname FS D Sname
ET Switch.ini
QBBoard Data FileF"N FS D File '
1:<ER @Y>"N
:I*No BBoard Data File (Default: HomeDirectory:Switch.ini) found FS Err ''
   FF-1"E
ULast BBoard Argument '
QBBoard Last WrittenU0
Q0"N
QMessage Number-QNumber of Babyl MessagesU4
Q6U..O .(0U1 <%1WL .-Z;>)J Q7U..O
Q1-((FS Height)-(FS Echo Lines)-1)U5
Q4"E Q5:"G O Use Last Written Date ''
Q6U..O
0 FS VBW 0 FS VZW
-:SRcvd-Date:W FKC
@F 	L
FS FD ConvertU0
Q5"G Q0-3U0 '
Q7U..O
! Use Last Written Date!
0 UBBoard Last Written
.,(:S 	W @F 	L :S 	
W @F 	L FKC.)K
0,Q0 FS FD Convert
L
FS H Sname FS D Sname
ET Switch.ini
QBBoard Data FileF"N FS D File '
@:EW HP EF
0 FS Modified '
QLast BBoard ArgumentU0
<.-Z;
0L 7F~BBOARD "N O Next'
7C .,(:S 	W.-1)X1
@F 	K
QBBoard Crl ListU3
0@FO31U2
Q2"E .,(:S W.-1)X2
@F 	K '
.U5 FS FD Convert U3 Q5J
Q2 F[D File
0U4
1:<1,ER
FS IF CDate U4 EC>
F]D File
Q4"E
QBBoard Sans Query"E
@FT 1 
0 FS Echo Active '
O Next ''
F[B Bind Q4FS FD Convert 0J FS FD Convert U4 F]B Bind
QBBoard Sans Query"N Q0-2"N Q4-Q3:"G O Next'
"# @FT 1  0 FS Echo Active O Read BBoard '''
Q0-2"N Q4-Q3:"G
@FT 1 
0 FS Echo Active
O Next ''
@:I*|FT Type Y, y, or Space to read this BBoard.
Type N, n, or Rubout to skip reading this BBoard.
Type Q or q to skip reading the remaining BBoards.| F[Help Macro
<@FT 1? 
FI:FC U5 @FT5
Q5-Y"E 0;'
Q5-N"E 0;'
Q5- "E 0;'
Q5-"E 0;'
Q5-Q"E 0;'
@FG >
F]Help Macro
Q5-N"E O Next '
Q5-"E O Next '
Q5-Q"E 0;'
! Read BBoard!
Q3 UBBoard Last Read
Q4 UBBoard Last Written
FS X UnameU0
FS H SnameU1
M(M.M Select Buffer)*Babyl*
F]Mode Macro
0[MM # Babyl I
0[MM # Babyl Q
M.M & Flush Old BBoard Notices[Before Babylizing File Hook
      1[Babyl Keep TNX Received Date
1F<!BBoard ^B Abort! Q2,1@M(M.M # Babyl I)>"N
@FT [Bad BBoard File: 2]  0 FS Echo Active 30: O Abort'
0 FS VBW 0 FS VZW 0J
<0U4 :S
;
:SRcvd-Date:;
1U4 @F 	L
FS FD ConvertU5
Q3-Q5:;>
QLast BBoard Argument-2"N
Q4"E @FT [No New Messages]  0 FS Echo Active O Abort ''
      M(M.M & Babyl Select Message)
:M(M.M & Calculate Message Number)
! Abort!
HK
0 F[Mode Macro
M(M.M Select Buffer)*BBoards*
QBBoard Last WrittenU0
O Use Last Written Date
! Next! L>
HK
0 FS Modified
@FT Done.  0 FS Echo Active
M(M.M Select Buffer)*Babyl*
F]Mode Macro
QBBoard Babyl FileU0
0UBBoard Babyl File
QBabyl Filenames-Q0"E  '
0[MM # Babyl I
Q0,@M(M.M # Babyl I) 8FS Z-25"L F;BBoard ^B Abort '
QLast BBoard Argument"N  '
[0[1[2[3[4
QBBoard Maximum SizeU0
FS Z-Q0:"G  '
QBBoard Last ReadU1
0 FS VBW 0 FS VZW 0J
:<(Q0-(Z-.)); .U4
FS FD ConvertU2
Q2"L F;BBoard ^B Abort '
Q1-Q2:;
:S,W \U3
L Q3C>"N F;BBoard ^B Abort '
Z-.-25"L Q4J '
0L
0,.K
1F[Both Case
M(M.M & Initialize BBoard)
[0[1[2 0[3 0[4
F[D File
FF-1"E U0' "# 0U0'
QBBoard Crl List [Crl List
Q0"E 18,M(M.M & Read Command Name)Add BBoard: U1 '
"# 18,M(M.M & Read Command Name)Remove BBoard: U1 '
Q1"E '
QBBoard Crl ListU2
Q0"E @:FO21F"G U1
Q:2(Q1) U1 '
"# ET FOO.TXT
FS H Sname FS D S name
5,0FBBoard File NameU4 ''
@:FN|M(M.M Select Buffer)*Babyl*|
0 F[Mode Macro
M(M.M Select Buffer)*BBoards*
FS Z"E
1U3
FS H Sname FS D Sname
ET Switch.ini
QBBoard Data FileF"N FS D File '
1:<ER @Y> '
.U2
Q0"E
J .,(:L.):FBBBOARD 1 "E
ZJ
-:S
BBOARD 1 "E
-:S
BBOARD 
2L
IBBOARD 1 
Q4"N
F[D File
Q4 FS D File
G(FS D File)
F]D File
I  '
0,FS Date FS FD Convert I
 '''
"#
J .,(:L.):FBBBOARD 1 "L 0LK'
J <:S
BBOARD 1 ; 0LK> '
Q2J
@:EW HP EF
Q3"N HK'
0 FS Modified
M(M.M Select Buffer)*Babyl*
F]Mode Macro
QBBoard Crl List"N '
[0[1[2[3[4
F[B Bind
QBBoard Regular Naming ConventionU4
Q4"N
G4 J :S*"E :I* No * in BBoard Regular Naming Convention '
      0,.-1X2 .+1,ZX3 HK
1,111100000001.EZ4
J <.-Z; S2 .U0 S3 FKC
Q0,.-1X1
0L .U0 G1 I=
.-Q0-1"G Q0+1,.-1FC '
L> '
GBBoard Names List
5 FS Q VectorU0
2U:0(0)
J <.-Z; .U1 :S="E :I*BBoard Specification must have = FS Err '
      Q1,.-1X2
:X3
@:FO02U4 Q4"L -Q4U4 Q0[..O Q4*5J 10,0I
Q2U:0(Q4) Q3U:0(Q4+1) ]..O ' L>
Q0 UBBoard Crl List
F]B Bind

BBSITE' Library for reading BBoard Files. S Initializations for the BBOARD Library. 
This object file was compressed on 12:25am  Wednesday, 30 October 1985
by B.BRUNO on LOTSC from the following source libraries:

   SSX:<EMACS165>BBOARD.EMACS.11,	10/27/84 11:44:19
   SSX:<EMACS165>BBSITE.EMACS.21,	10/29/85 23:05:21#C# Look for new BBoard Notices to read, or on to next BBoard.
With an argument of 1, does not delete old notices.  With an argument of 2,
queries about every BBoard whether or not it has new notices.  If BBoard Sans
Query is nonzero then BBoard are immediately read without querying. fS Flushes from the buffer messages older than
the current value of BBoard Last Read until the buffer's size is no larger than
BBoard Maximum Size or all messages but one have been deleted.  The buffer
should be in Twenex mail file format. Does nothing if Last BBoard Argument is
nonzero.  Throw to BBoard ^B Abort if the mail file appears to be bad. @C# Add BBoard to Switch.ini.  With nonzero argument, Remove BBoard. 
If the name given is not a System BBoard, the user will be prompted for the
name of the Twenex Mail File to be read. "S Initialize List of BBoards. ? Library of site-specific additions to the BBOARD Library. gS Initializations for the BBSITE Library.
Add any additional site-specific code to this function. & Setup BBOARD Library
# Babyl ^B
& Flush Old BBoard Notices
# Babyl ^A
& Initialize BBoard
& Compressed BBSITE Library
& Setup BBSITE Library
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2