program baudfix;
uses crt,dos,skashit,gentypes,gensubs;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
function bFixBaudRate(newBps,node : word) : boolean;
var f : file;
c : configSetType;
begin
bFixBaudRate := false;
if not exist('NODE'+strr(node)+'.DAT') then exit;
fillChar(c,sizeOf(c),0);
assign(f,'NODE'+strr(node)+'.DAT');
reset(f,1);
blockRead(f,c,sizeOf(c));
c.DefBaudRate := newBps;
seek(f,0);
blockWrite(f,c,sizeOf(c));
close(f);
bFixBaudRate := true;
end;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
textAttr := 7;
clrscr;
skaWrite('|08-- |07infusion bulletin board system, (c)copyright grant passmore (skaboy) 1998|CR');
skaWrite('|08-- |07baudrate fix application, for use with infusion '+versionnum+'|CR|CR');
if (paramCount<2) then
begin
skaWrite('|15>> |07valid usage is - '+paramStr(0)+' <node#> <newbps>|CR');
skaWrite('|15>> |07please note, the bps rate == bps/100 (28800 = 288, etc)|CR|CR');
halt(5);
end;
if not bFixBaudRate(stoi(paramStr(2)),stoi(paramStr(1))) then
begin
skaWrite('|15>> |07valid usage is - '+paramStr(0)+' <node#> <newbps>|CR');
skaWrite('|15>> |07please note, the bps rate == bps/100 (28800 = 288, etc)|CR|CR');
halt(5);
end;
skaWrite('|15>> |07default baudrate error has been fixed (new value == '+paramStr(2)+')|CR');
end.