PW[0 +8+fq(+4)[1 0fo10f"g+q1' +fq()+4u1 fq1"l 0' ,q1:m(q1+4(]1]0))=^He ~l"|, ;#'0#L8"BCL"y^ Up"h=#))60$# 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~ BBOARD0fo..qBBOARD Loaded-12037737603"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=PS:MAIL.TXT.1 Forum=PS:MAIL.TXT.1 General=PS:MAIL.TXT.1 Bug-Oz=PS:BUG-OZ.TXT.1 Bug-System=ARC:BUG-SYSTEM.TXT Oz-Suggestions=ARC:OZ-SUGGESTIONS.TXT AIList-Archives=COMMON:AILIST.TXT Human-Nets-Archives=COMMON:HUMAN-NETS-ARCHIVES.TXT Latest-Human-Nets-Message=COMMON:TODAYS-HNT.TXT Info-Mac=COMMON:INFO-MAC.TXT Info-Nets=COMMON:INFO-NETS.TXT Jokes=COMMON:JOKES.TXT Self-Organization=COMMON:SELF-ORGANIZATION-ARCHIVES.TXT SF-Lovers-Archives=COMMON:SF-LOVERS.TXT Latest-SF-Lovers-Message=COMMON:TODAYS-SFL.TXT Telecom-Archives=COMMON:TELECOM.TXT WorkS-Archives=COMMON:WORKS-ARCHIVES.TXT AP-News=COMMON:AP-NEWS.TXT NYT-News=COMMON:NYT-NEWS.TXT 3AI=ARC:3AI.TXT.1 7AI=ARC:7AI.TXT.1 8AI=ARC:8AI.TXT.1 9AI=ARC:9AI.TXT.1 |m.CBBoard Names List* List of BBoard Specifications = 12037737603m.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[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:"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"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,0F BBoard 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: ' .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 3:47am Wednesday, 8 August 1984 by GZ on MIT-OZ from the following source libraries: OZ:BBOARD.EMACS.11, 10/26/83 16:51:10 OZ:BBSITE.EMACS.17, 08/08/84 03:43:22#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