From 30d815378109b9b7439dec44ebfc67edda490ad8 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 27 Feb 2012 17:52:40 -0500
Subject: [PATCH] Updated for 1.10

---
 utilities/pcb2mbbs.pas | 194 +++++++++++++++++++++--------------------
 1 file changed, 98 insertions(+), 96 deletions(-)

diff --git a/utilities/pcb2mbbs.pas b/utilities/pcb2mbbs.pas
index 08a06cb..7580e87 100644
--- a/utilities/pcb2mbbs.pas
+++ b/utilities/pcb2mbbs.pas
@@ -32,129 +32,131 @@ Uses
 {$I RECORDS.PAS}
 
 Var
-	inFile    : Text;
-	desFile   : File;
-	FDirFile  : File of FDirRec;
-	FDir      : FDirRec;
-	Desc      : Array[1..99] of String[50];
-	Str       : String = '';
-	A         : Byte;
-	Total     : Integer;
-	NoSave    : Boolean;
-	DupeCheck : Boolean;
-
-  D: DirStr;
-  N: NameStr;
-  E: ExtStr;
+  InFile    : Text;
+  DesFile   : File;
+  FDirFile  : File of RecFileList;
+  FDir      : RecFileList;
+  Desc      : Array[1..99] of String[50];
+  Str       : String = '';
+  A         : Byte;
+  Total     : Integer;
+  NoSave    : Boolean;
+  DupeCheck : Boolean;
+  D         : DirStr;
+  N         : NameStr;
+  E         : ExtStr;
 
 Function IsDupeFile (FN : String) : Boolean;
 Begin
-	IsDupeFile := False;
+  IsDupeFile := False;
 
-	If Not DupeCheck Then Exit;
+  If Not DupeCheck Then Exit;
 
-	Reset (FDirFile);
+  Reset (FDirFile);
 
-	While Not Eof(FDirFile) Do Begin
-		Read (FDirFile, FDir);
+  While Not Eof(FDirFile) Do Begin
+    Read (FDirFile, FDir);
 
-		If FDir.Flags and FDirDeleted <> 0 Then Continue;
+    If FDir.Flags and FDirDeleted <> 0 Then Continue;
 
-		{$IFDEF FS_SENSITIVE}
-		If FDir.FileName = FN Then Begin
-		{$ELSE}
-		If strUpper(FDir.FileName) = strUpper(FN) Then Begin
-		{$ENDIF}
-			IsDupeFile := True;
-			Exit;
-		End;
-	End;
+    {$IFDEF FS_SENSITIVE}
+      If FDir.FileName = FN Then Begin
+    {$ELSE}
+      If strUpper(FDir.FileName) = strUpper(FN) Then Begin
+    {$ENDIF}
+      Result := True;
+      Exit;
+    End;
+  End;
 End;
 
 Begin
-	WriteLn;
-	WriteLn ('PCB2MBBS : PCBoard to Mystic BBS File Base Converter');
-	WriteLn ('Copyright (C) 1998-2012 By James Coyle.  All Rights Reserved');
-	WriteLn;
-	WriteLn ('Compiled for Mystic BBS v' + mysVersion);
-	WriteLn;
+  WriteLn;
+  WriteLn ('PCB2MBBS : PCBoard to Mystic BBS File Base Converter');
+  WriteLn ('Copyright (C) 1998-2012 By James Coyle.  All Rights Reserved');
+  WriteLn;
+  WriteLn ('Compiled for Mystic BBS v' + mysVersion);
+  WriteLn;
 
-	If ParamCount < 2 Then Begin
-		WriteLn ('Usage: [PCBoard File]  [Mystic BBS File]  -DUPE');
-		Halt(1);
-	End;
+  If ParamCount < 2 Then Begin
+    WriteLn ('Usage: [PCBoard File]  [Mystic BBS File]  -DUPE');
+    Halt(1);
+  End;
 
-	DupeCheck := strUpper(ParamStr(3)) = '-DUPE';
+  DupeCheck := strUpper(ParamStr(3)) = '-DUPE';
 
-	Assign (inFile, ParamStr(1));
-	{$I-} Reset(inFile); {$I+}
-	If IoResult <> 0 Then Begin
-		WriteLn ('ERROR: PCBoard file listing (', ParamStr(1), ') not found.');
-		Halt(1);
-	End;
+  Assign (InFile, ParamStr(1));
+  {$I-} Reset(InFile); {$I+}
 
-	FSplit (ParamStr(2), D, N, E);
+  If IoResult <> 0 Then Begin
+    WriteLn ('ERROR: PCBoard file listing (', ParamStr(1), ') not found.');
+    Halt    (1);
+  End;
 
-	Assign (FDirFile, D + N + '.dir');
-	{$I-} Reset (FDirFile); {$I+}
-	If IoResult <> 0 Then ReWrite (FDirFile);
+  FSplit (ParamStr(2), D, N, E);
 
-	Assign (desFile, D + N + '.des');
-	{$I-} Reset (desFile, 1); {$I+}
-	If IoResult <> 0 Then ReWrite (desFile, 1);
+  Assign (FDirFile, D + N + '.dir');
+  {$I-} Reset (FDirFile); {$I+}
 
-	Total := 0;
+  If IoResult <> 0 Then ReWrite (FDirFile);
 
-	Write ('Processing: ');
+  Assign (DesFile, D + N + '.des');
+  {$I-} Reset (DesFile, 1); {$I+}
 
-	While Not Eof(inFile) Do Begin
-		If (Str[26] = '-') and (Str[29] = '-') Then Begin
+  If IoResult <> 0 Then ReWrite (DesFile, 1);
 
-			If IsDupeFile(Copy(Str, 1, Pos(' ', Str) - 1)) Then
-				NoSave := True
-			Else Begin
-				NoSave := False;
+  Total := 0;
 
-				Inc    (Total);
-				GotoXY (13, WhereY);
-				Write  (Total, ' files ... ');
-			End;
+  Write ('Processing: ');
 
-  		FDir.FileName := Copy(Str, 1, Pos(' ', Str) - 1);
-			FDir.Size     := strS2I(Copy(Str, 13, 9));
-			FDir.DateTime := DateStr2Dos(Copy(Str, 24, 8));
-			FDir.Uploader := 'PCB2MBBS';
-			FDir.Flags    := 0;
-			FDir.DLs      := 0;
-			FDir.Lines    := 1;
-			FDir.Pointer  := FileSize(desFile);
+  While Not Eof(inFile) Do Begin
+    If (Str[26] = '-') and (Str[29] = '-') Then Begin
+      If IsDupeFile(Copy(Str, 1, Pos(' ', Str) - 1)) Then
+        NoSave := True
+      Else Begin
+        NoSave := False;
 
-			Desc[1]  := Copy(Str, 34, Length(Str));
+        Inc    (Total);
+        GotoXY (13, WhereY);
+        Write  (Total, ' files ... ');
+      End;
 
-			Repeat
-				ReadLn (inFile, Str);
-				If Str[32] = '|' Then Begin
-					Inc (FDir.Lines);
-					Desc[FDir.Lines] := Copy(Str, 34, Length(Str));
-				End;
-			Until (Str[32] <> '|') or Eof(inFile);
+      FillChar (FDir, SizeOf(FDir), #0);
 
-			If Not NoSave Then Begin
-	      Write (FDirFile, FDir);
-				Seek  (desFile, FDir.Pointer);
+      FDir.FileName  := Copy(Str, 1, Pos(' ', Str) - 1);
+      FDir.Size      := strS2I(Copy(Str, 13, 9));
+      FDir.DateTime  := DateStr2Dos(Copy(Str, 24, 8));
+      FDir.Uploader  := 'PCB2MBBS';
+      FDir.DescLines := 1;
+      FDir.DescPtr   := FileSize(DesFile);
 
-				For A := 1 to FDir.Lines Do Begin
-					BlockWrite (desFile, Desc[A][0], 1);
-					BlockWrite (desFile, Desc[A][1], Ord(Desc[A][0]));
-				End;
-			End;
-		End Else
-			If Not Eof(InFile) Then ReadLn (inFile, Str);
-	End;
+      Desc[1]  := Copy(Str, 34, Length(Str));
 
-	Close (inFile);
-	Close (FDirFile);
-	Close (desFile);
+      Repeat
+        ReadLn (inFile, Str);
 
-	WriteLn ('DONE.');
+        If Str[32] = '|' Then Begin
+          Inc (FDir.DescLines);
+          Desc[FDir.DescLines] := Copy(Str, 34, Length(Str));
+        End;
+      Until (Str[32] <> '|') or Eof(inFile);
+
+      If Not NoSave Then Begin
+        Write (FDirFile, FDir);
+        Seek  (DesFile, FDir.DescPtr);
+
+        For A := 1 to FDir.DescLines Do Begin
+          BlockWrite (desFile, Desc[A][0], 1);
+          BlockWrite (desFile, Desc[A][1], Ord(Desc[A][0]));
+        End;
+      End;
+    End Else
+      If Not Eof(InFile) Then ReadLn (inFile, Str);
+  End;
+
+  Close (InFile);
+  Close (FDirFile);
+  Close (DesFile);
+
+  WriteLn ('DONE.');
 End.