I forget who asked me for this... Sean?

Freepascal util to convert Maximum FILES.BBS to a more standard format.

Enjoy...

program frommax;
uses dos;

(* ConstStr is a function that returns a string of char, N many times. *)

function conststr(c : char; n : byte) : string;
var s : string;
begin
if n<0 then
n:=0;
s[0]:=chr(n);
fillchar(s[1],n,c);
conststr:=s;
end;

var bbsfilein,bbsfileout : text;
c : char;
x : integer;

(* Think of X as the cursor column position on a line and assume an 80 *) (* column display. We first open files and then begin a loop to read one *) (* character at a time. As the character is read, X is incremented. When *) (* we reach column 60, we write a CR+LF and 13 spaces and set X to 13. *) (* *) (* If you do not want to filter leading blank-spaces on the description *) (* lines, remove the "Repeat until" block. *)

begin
writeln('FROMMAX: Convert Maximus FILES.BBS to "standard" FILES.NEW');
writeln;assign(bbsfilein,'FILES.BBS'); (*$I-*) reset(bbsfilein);
if ioresult=0 then
begin
assign(bbsfileout,'FILES.NEW'); (*$I-*) rewrite(bbsfileout);
if ioresult=0 then
begin
x:=0;
while not eof(bbsfilein) do
begin
x:=x+1;
read(bbsfilein,c);
if (x=14) and (c=chr(32)) then
begin
repeat
read(bbsfilein,c);
until (c<>chr(32));
end;
if (c=chr(13)) or (c=chr(10)) then x:=0;
if x<61 then write(bbsfileout,c);
if (x=60) then
begin
write(bbsfileout,chr(13)+chr(10)+conststr(' ',13));
x:=13;
end;
end;
close(bbsfilein);writeln('Done.');
end
else
writeln('Error writing FILES.NEW');
end
else
writeln('Error loading FILES.BBS');
close(bbsfileout);
end.

Nick

--- Renegade vY2Ka2
* Origin: Joey, do you like movies about gladiators? (618:500/24)

Hello, Nick!

Replying to a message of Nick Andre to All:

I forget who asked me for this... Sean?

Yep, that was me. Got all of that and it should all compile for OS/2 and Win32 easily.

-- Sean

--- FleetStreet 1.27.1
* Origin: Outpost BBS Local Console * bbs.outpostbbs.net:10323 (618:618/1)