Category : Word Perfect
Archive   : BIBPERF.ZIP
Filename : BIB1.INC

 
Output of file : BIB1.INC contained in archive : BIBPERF.ZIP
Procedure Inp;
Var
Buff : String[MaxNumBibDigits];
Begin
Case Select of
Doc: Begin
For I:=1 to NumCount do
Begin
DocNumber.Old := RefNum[I,Old,Doc];
DocNumber.New := RefNum[I,New,Doc];
SortRelease(DocNumber);
End;
End;

Ref: Begin
Repeat
Read (FileOut,Buff);
While Buff[1]=' ' do Delete(Buff,1,1);
Val(Buff,BibSortRec.Num,Code);
For I:=1 to BlockSize do BibSortRec.Block[I]:='';
I:=1;
Repeat
Read (FileOut, Ch);
If Length(BibSortRec.Block[I])>78
Then
Begin
I:=I+1;
BibSortRec.Block[I]:=Ch;
End
Else
BibSortRec.Block[I]:=BibSortRec.Block[I] + Ch;
Until Ch=^E;
Read (FileOut,Ch);
BibSortRec.Block[I] := BibSortRec.Block[I] + Ch;
SortRelease(BibSortRec);
Until EOF(FileOut);
End; (* Refs: *)

End; (* of Case Select *)
End; (* of Procedure Inp *)

(*******************************************************************)

Function Less;
Var
FirstDoc:DocTypeRec absolute X;
SecondDoc:DocTypeRec absolute Y;
FirstBib:RefSortRec absolute X;
SecondBib:RefSortRec absolute Y;
Begin
Case Select of
Doc: Begin
Less := FirstDoc.Old < SecondDoc.Old;
End;
Ref: Less := FirstBib.Num < SecondBib.Num;

End; (* of Case Select *)
End; (* of function Less *)

(*******************************************************************)

Procedure OutP;
Begin
Case Select of
Doc: Begin
I:=0;
Repeat
I:=I+1;
SortReturn(DocNumber);
RefNum[I,Old,Doc] := DocNumber.Old;
RefNum[I,New,Doc] := DocNumber.New;
Until SortEOS;
End;
Ref: Begin
Close (FileOut);
Rewrite (FileOut);
Repeat
SortReturn(BibSortRec);
With BibSortRec do
Begin
Write (FileOut,Num:MaxNumBibDigits);
I:=1;
Repeat
EndOfRecord := Length(Block[I])=0;
If Not EndOfRecord then
Write (FileOut, Block[I]);
I:=I+1;
Until EndOfRecord;
End;
Until SortEOS;
End; (* ref: *)

End; (* of Case Select *)
End; (* of procedure OutP *)


  3 Responses to “Category : Word Perfect
Archive   : BIBPERF.ZIP
Filename : BIB1.INC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/