program upgrade;
uses crt,dos,gentypes,gensubs,skaShit;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var x : byte;
dir : string;
f : file;
d : configSetType;
begin
clrScr;
skaWrite('|15-- Infusion Bulletin Board System, (c)Copyright Infusion Technologies 1998|CR');
skaWrite('|07-- Config Upgrade for Version 1.5 alpha 17 to 1.55 alpha 18|CR');
for x := 1 to 80 do skaWrite('|08'#196);
skaWrite('|15Note, this *MUST* be run from your new 1.55a18 directory or upgrade will fail!|CR');
skaWrite('|07Note, this will *ONLY* upgrade your system configuration (NODE1.DAT) file|CR');
skaWrite('|07Enter old Infusion directory: ');
readLn(dir); if (dir[length(dir)]<>'\') then dir := dir + '\';
if exist(dir+'NODE1.DAT') then
begin
assign(f,'NODE1.DAT');
reset(f,1);
blockRead(f,d,sizeOf(d));
close(f);
assign(f,dir+'NODE1.DAT');
reset(f);
blockRead(f,d,fileSize(f));
close(f);
assign(f,'NODE1.DAT');
rewrite(f,1);
blockWrite(f,d,sizeOf(d));
close(f);
skaWrite('|07-- System configuration upgraded succesfully!|CR');
end else skaWrite('|07Error, Path entered does not point to Infusion 1.5a17 directory|CR');
end.