{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}

{$M 50000,0,1024}

uses crt,dos,

myio;

const

needconv = 'S23568CD';

standard_conversion = TRUE;

{$I rcc17a.pas}

{$I rec18a.pas}

var

a,b,lastss,mp,gp,sp:astr;

h,i,j,k,savx,savy:integer;

c:char;

aw:boolean; { author working }

back:boolean; { converting BACK TO PREVIOUS VERSION ! .. }

found:boolean;

dirinfo:searchrec;

ptsforisrequest,ptsfornotval:integer;

wind:windowrec;

didit:boolean;

needs:longint;

artable:astr;

{ systatf17a4:file of systatrec17a4;}

{ systat17a4:systatrec17a4;}

systatf1:file of systatrec1;

systat1:systatrec1;

systatf0:file of systatrec;

systat0:systatrec;

systatf:file of systatrec;

systat:systatrec;

modemrf:file of modemrec;

modemr:modemrec;

fstringf:file of fstringrec;

fstring:fstringrec;

sf1:file of smalrec1;

sr1:smalrec1;

sf:file of smalrec;

sr:smalrec;

uf1:file of userrec1;

user1:userrec1; {**}

uf0:file of userrec;

user0:userrec;

uf:file of userrec;

user:userrec; {**}

bf1:file of boardrec1;

brd1:boardrec1;

{ bf17a5:file of boardrec17a5;}

{ brd17a5:boardrec17a5;}

bf:file of boardrec;

brd:boardrec;

mailfile1:file of mailrec1;

mail1:mailrec1; {**}

mailfile:file of mailrec;

mail:mailrec; {**}

ulf1:file of ulrec1;

ubrd1:ulrec1;

{ ulf17a2:file of ulrec17a2;}

{ ubrd17a2:ulrec17a2;}

ulf0:file of ulrec;

ubrd0:ulrec;

ulf:file of ulrec;

ubrd:ulrec;

ulff1:file of ulfrec1;

uld1:ulfrec1;

ulff:file of ulfrec;

uld:ulfrec;

{ slf1:file of slr1;

seclev1:array[0..255] of slr1;

slf:file of seclevrec;

seclev:seclevrec;}

gfilef1:file of gft1; {**}

gfile1:gft1; {**}

gfilef:file of tfilerec;{**}

gfile:tfilerec; {**}

smf1:file of smr1;

sm1:smr1;

smf:file of smr;

sm:smr;

ztf1:file of zlogt1; {**}

zt1:zlogt1; {**}

ztf:file of zlogrec; {**}

zt:zlogrec; {**}

vdf1:file of vdatar1; {**}

vd1:vdatar1; {**}

vdf:file of vdatar; {**}

vd:vdatar; {**}

macrf:file of macrorec;

macr:macrorec;

xp1:file of protrec1;

xpr1:protrec1;

xp0:file of protrec;

xpr0:protrec;

xp:file of protrec;

xpr:protrec;

mbasef1:file of messagerec1;

mbase1:messagerec1;

mbasef:file of messagerec;

mbase:messagerec;

ff:file;

{**} (* NOT defined globally in COMMON.PAS .... *)

function value(I:astr):integer;

var n,n1:integer;

begin

val(i,n,n1);

if n1<>0 then begin

i:=copy(i,1,n1-1);

val(i,n,n1)

end;

value:=n;

if i='' then value:=0;

end;

function cstrl(li:longint):astr;

var c:astr;

begin

str(li,c);

cstrl:=c;

end;

function cstr(i:integer):astr;

var c:astr;

begin

str(i,c);

cstr:=c;

end;

function tch(i:astr):astr;

begin

if length(i)>2 then i:=copy(i,length(i)-1,2) else

if length(i)=1 then i:='0'+i;

tch:=i;

end;

function time:astr;

var reg:registers;

h,m,s:string[4];

begin

reg.ax:=$2c00; intr($21,Dos.Registers(reg));

str(reg.cx shr 8,h); str(reg.cx mod 256,m); str(reg.dx shr 8,s);

time:=tch(h)+':'+tch(m)+':'+tch(s);

end;

function date:astr;

var reg:registers;

m,d,y:string[4];

begin

reg.ax:=$2a00; msdos(Dos.Registers(reg)); str(reg.cx,y); str(reg.dx mod 256,d);

str(reg.dx shr 8,m);

date:=tch(m)+'/'+tch(d)+'/'+tch(y);

end;

function leapyear(yr:integer):boolean;

begin

leapyear:=(yr mod 4=0) and ((yr mod 100<>0) or (yr mod 400=0));

end;

function days(mo,yr:integer):integer;

var d:integer;

begin

d:=value(copy('312831303130313130313031',1+(mo-1)*2,2));

if (mo=2) and leapyear(yr) then d:=d+1;

days:=d;

end;

function daycount(mo,yr:integer):integer;

var m,t:integer;

begin

t:=0;

for m:=1 to (mo-1) do t:=t+days(m,yr);

daycount:=t;

end;

function daynum(dt:astr):integer;

var d,m,y,t,c:integer;

begin

t:=0;

m:=value(copy(dt,1,2));

d:=value(copy(dt,4,2));

y:=value(copy(dt,7,2))+1900;

for c:=1985 to y-1 do

if leapyear(c) then t:=t+366 else t:=t+365;

t:=t+daycount(m,y)+(d-1);

daynum:=t;

if y<1985 then daynum:=0;

end;

function freek(d:integer):longint; (* See disk space *)

{var r:registers;}

begin

freek:=diskfree(d) div 1024;

{ r.ax:=$3600;

r.dx:=d;

msdos(dos.registers(r));

freek:=trunc(1.0*r.bx*r.ax*r.cx/1024.0);}

end;

procedure tc(i:integer);

begin

textcolor(i);

end;

procedure star(s:astr);

begin

tc(9); write('þ ');

tc(11); writeln(s);

end;

function exdrv(s:astr):byte;

begin

s:=fexpand(s);

exdrv:=ord(s[1])-64;

end;

procedure movefile(srcname,destpath:string);

var buffer:array[1..16384] of byte;

dfs,nrec:integer;

src,dest:file;

dd,dn,de:string;

procedure dodate;

var r:registers;

od,ot,ha:integer;

begin

srcname:=srcname+#0;

destpath:=destpath+#0;

with r do begin

ax:=$3d00; ds:=seg(srcname[1]); dx:=ofs(srcname[1]); msdos(dos.registers(r));

ha:=ax; bx:=ha; ax:=$5700; msdos(dos.registers(r));

od:=dx; ot:=cx; bx:=ha; ax:=$3e00; msdos(dos.registers(r));

ax:=$3d02; ds:=seg(destpath[1]); dx:=ofs(destpath[1]); msdos(dos.registers(r));

ha:=ax; bx:=ha; ax:=$5701; cx:=ot; dx:=od; msdos(dos.registers(r));

ax:=$3e00; bx:=ha; msdos(dos.registers(r));

end;

end;

begin

fsplit(srcname,dd,dn,de);

destpath:=destpath+dn+de;

assign(src,srcname);

{$I-} reset(src,1); {$I+}

if (ioresult<>0) then begin

writeln;

star('"'+srcname+'": File not found.'^G^G);

{ halt(1);}

end else begin

dfs:=freek(exdrv(destpath));

{rcg11172000 don't have LONGfilesize()...}

{if (trunc(longfilesize(src)/1024.0)+1>=dfs) then begin}

if (trunc(filesize(src)/1024.0)+1>=dfs) then begin

writeln;

star('"'+srcname+'": Disk full.');

halt(1);

end else begin

assign(dest,destpath); rewrite(dest,1);

repeat

blockread(src,buffer,16384,nrec);

blockwrite(dest,buffer,nrec);

until (nrec<16384);

close(dest);

close(src);

dodate;

erase(src);

end;

end;

end;

procedure smovefile(srcname,destpath:string);

begin

star('Moving "'+srcname+'" to "'+destpath+'"');

movefile(srcname,destpath);

end;

procedure ffile(fn:astr);

begin

findfirst(fn,anyfile,dirinfo);

found:=(doserror=0);

end;

procedure nfile;

var r:registers;

begin

findnext(dirinfo);

found:=(doserror=0);

end;

function allcaps(s:astr):astr; (* returns a COMPLETELY capitalized string *)

var i:integer;

begin

for i:=1 to length(s) do

s[i]:=upcase(s[i]);

allcaps:=s;

end;

procedure cursoron;

var reg:registers;

begin

with reg do begin

ch:=07; cl:=08; ah:=1;

intr($10,reg);

end;

end;

procedure cursoroff;

var reg:registers;

begin

with reg do begin

ch:=09; cl:=00; ah:=1;

intr($10,reg);

end;

end;

procedure prt(s:string);

begin

textcolor(9); write(s);

end;

procedure ttl(s:string);

begin

writeln;

textcolor(9); write('ÄÄ[');

textbackground(1); textcolor(15);

write(' '+s+' ');

textbackground(0); textcolor(9);

write(']');

repeat write('Ä') until wherex=80;

writeln;

end;

procedure ee(s:astr);

begin

clrscr;

writeln;

tc(4); writeln('ERROR:');

writeln;

tc(15); write(' '+s);

writeln;

writeln;

tc(9); write('Hit any key to exit : ');

repeat until keypressed;

c:=readkey;

removewindow(wind); gotoxy(savx,savy);

halt(1);

end;

procedure ss(s:astr);

begin

lastss:=allcaps(s);

star('Searching for "'+lastss+'"');

end;

procedure cantopen;

begin

ee('Unable to open "'+lastss+'"');

end;

function needc(c:char):boolean;

begin

if pos(c,needconv)<>0 then needc:=TRUE else needc:=FALSE;

end;

procedure fvers;

var i:integer;

begin

needs:=0;

writeln;

ss('status.dat');

assign(systatf1,'status.dat');

{$I-} reset(systatf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(systatf1,systat1); {$I+}

if (ioresult<>0) then begin

close(systatf1);

assign(systatf,'status.dat');

reset(systatf);

{$I-} read(systatf,systat); {$I+}

gp:=systat.gfilepath;

mp:=systat.menupath;

close(systatf);

end else begin

gp:=systat1.gfilepath;

mp:=systat1.menupath;

close(systatf1);

end;

inc(needs,sizeof(systatrec));

if needc('1') then begin

ss('names.lst');

assign(sf1,gp+'names.lst');

{$I-} reset(sf1); {$I+}

if (ioresult<>0) then begin

assign(systatf,'status.dat');

reset(systatf);

{$I-} read(systatf,systat); {$I+}

gp:=systat.gfilepath;

mp:=systat.menupath;

close(systatf);

assign(sf1,gp+'names.lst');

{$I-} reset(sf1); {$I+}

if (ioresult<>0) then cantopen;

end;

{$I-} read(sf1,sr1); {$I+}

inc(needs,sizeof(smalrec)*filesize(sf1));

close(sf1);

end;

if needc('2') then begin

ss('user.lst');

assign(uf1,gp+'user.lst');

{$I-} reset(uf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(uf1,user1); {$I+}

inc(needs,sizeof(userrec)*filesize(uf1));

close(uf1);

end;

if needc('3') then begin

ss('boards.dat');

assign(bf1,gp+'boards.dat');

{$I-} reset(bf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(bf1,brd1); {$I+}

inc(needs,sizeof(boardrec)*filesize(bf1));

close(bf1);

end;

if needc('4') then begin

ss('email.dat');

assign(mailfile1,gp+'email.dat');

{$I-} reset(mailfile1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(mailfile1,mail1); {$I+}

inc(needs,sizeof(mailrec)*filesize(mailfile1));

close(mailfile1);

end;

if needc('5') then begin

ss('gfiles.dat');

assign(gfilef1,gp+'gfiles.dat');

{$I-} reset(gfilef1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(gfilef1,gfile1); {$I+}

inc(needs,sizeof(tfilerec)*filesize(gfilef1));

close(gfilef1);

end;

if needc('6') then begin

ss('protocol.dat');

assign(xp1,gp+'protocol.dat');

{$I-} reset(xp1); {$I+}

if (ioresult<>0) then cantopen;

inc(needs,sizeof(protrec)*filesize(xp1));

close(xp1);

end;

if needc('7') then begin

ss('shortmsg.dat');

assign(smf1,gp+'shortmsg.dat');

{$I-} reset(smf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(smf1,sm1); {$I+}

inc(needs,sizeof(smalrec)*filesize(smf1));

close(smf1);

end;

if needc('8') then begin

ss('uploads.dat');

assign(ulf1,gp+'uploads.dat');

{$I-} reset(ulf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(ulf1,ubrd1); {$I+}

inc(needs,sizeof(ulrec)*filesize(ulf1));

close(ulf1);

end;

if needc('9') then begin

ss('voting.dat');

assign(vdf1,gp+'voting.dat');

{$I-} reset(vdf1); {$I+}

inc(needs,sizeof(vdatar)*filesize(vdf1));

if (ioresult=0) then close(vdf1);

end;

if needc('A') then begin

ss('zlog.dat');

assign(ztf1,gp+'zlog.dat');

{$I-} reset(ztf1); {$I+}

if (ioresult<>0) then cantopen;

{$I-} read(ztf1,zt1); {$I+}

inc(needs,sizeof(zlogrec)*filesize(ztf1));

close(ztf1);

end;

if needc('B') then begin

ss('*.dir');

ffile(gp+'*.dir');

while (found) do begin

assign(ulff1,fexpand(gp+dirinfo.name));

{$I-} reset(ulff1); {$I+}

inc(needs,sizeof(ulfrec)*filesize(ulff1));

close(ulff1);

nfile;

end;

end;

end;

function barconv(c:char):char;

var s:astr;

begin

if (pos(c,artable)<>0) then s:=copy('ABCDEFG',pos(c,artable),1) else s:='@';

barconv:=s[1];

end;

function arconv(c:char):char;

begin

if (c in ['A'..'G']) then

if (length(artable)>=ord(c)-64) and (artable[ord(c)-64] in ['@'..'Z']) then

arconv:=artable[ord(c)-64]

else arconv:='@'

else arconv:='@';

end;

{rcg11172000 had to change this to get it compiling under Free Pascal...}

{function substall(src,old,new:astr):astr;}

function substall(src,old,_new:astr):astr;

var p:integer;

begin

p:=1;

while (p>0) do begin

p:=pos(old,src);

if (p>0) then begin

insert(_new,src,p+length(old));

delete(src,p,length(old));

end;

end;

substall:=src;

end;

procedure bconvert(xx:integer);

var i,j,k:integer;

s:astr;

b:boolean;

begin

case xx of

(*

6:begin

ttl('BACKWARD Converting "PROTOCOL.DAT');

chdir(copy(gp,1,length(gp)-1));

ffile('protocol.dat');

if (not found) then star('PROTOCOL.DAT not found.')

else begin

assign(xp,'protocol.old'); rewrite(xp); close(xp); erase(xp);

assign(xp,'protocol.tcp'); rewrite(xp); close(xp); erase(xp);

assign(xp,'protocol.dat'); reset(xp);

assign(xp1,'protocol.tcp'); rewrite(xp1);

for i:=0 to filesize(xp)-1 do begin

seek(xp,i); read(xp,xpr);

star(' (record #'+cstr(i)+' of '+cstr(filesize(xp)-1)+')'); gotoxy(1,wherey-1);

with xpr1 do begin

active:=(xbactive in xpr.xbstat);

isbatch:=(xbisbatch in xpr.xbstat);

isresume:=(xbisresume in xpr.xbstat);

xferokcode:=(xbxferokcode in xpr.xbstat);

ckeys:=xpr.ckeys;

descr:=xpr.descr;

minbaud:=xpr.minbaud;

maxbaud:=19200; maxbaud:=maxbaud*2;

sl:=xpr.sl;

dsl:=xpr.dsl;

ar:=xpr.ar;

templog:=xpr.templog;

uloadlog:=xpr.uloadlog;

dloadlog:=xpr.dloadlog;

ulcmd:=xpr.ulcmd;

dlcmd:=xpr.dlcmd;

for j:=1 to 6 do begin

ulcode[j]:=xpr.ulcode[j];

dlcode[j]:=xpr.dlcode[j];

end;

envcmd:=xpr.envcmd;

dlflist:=xpr.dlflist;

maxchrs:=xpr.maxchrs;

logpf:=xpr.logpf;

logps:=xpr.logps;

end;

seek(xp1,i); write(xp1,xpr1);

end;

close(xp);

close(xp1);

rename(xp,'protocol.old');

rename(xp1,'protocol.dat');

writeln;

end;

chdir(sp);

end;

*)

12:begin

ttl('-®<®--BACKWARD--®<®- Converting "*.BRD" message base info files');

chdir(copy(gp,1,length(gp)-1));

ffile('*.brd');

if not found then star('No *.BRD files present.')

else begin

repeat

s:=dirinfo.name;

assign(mbasef,copy(s,1,length(s)-3)+'old'); rewrite(mbasef);

close(mbasef); erase(mbasef);

assign(mbasef,copy(s,1,length(s)-3)+'tcp'); rewrite(mbasef);

close(mbasef); erase(mbasef);

assign(mbasef,s); reset(mbasef);

assign(mbasef1,copy(s,1,length(s)-3)+'tcp'); rewrite(mbasef1);

star('Converting "'+s+'" ('+cstr(filesize(mbasef)-1)+' messages)');

for i:=0 to filesize(mbasef)-1 do begin

seek(mbasef,i); read(mbasef,mbase);

with mbase do begin

mbase1.title:=title;

if (validated in messagestat) then mbase1.messagestat:=validated1;

if (unvalidated in messagestat) then mbase1.messagestat:=unvalidated1;

if (deleted in messagestat) then mbase1.messagestat:=deleted1;

mbase1.message.ltr:=message.ltr;

mbase1.message.number:=message.number;

mbase1.message.ext:=message.ext;

mbase1.owner:=owner;

mbase1.date:=mbase1.date;

mbase1.mage:=255;

end;

write(mbasef1,mbase1);

end;

close(mbasef1);

close(mbasef);

rename(mbasef1,copy(s,1,length(s)-3)+'obr');

nfile;

until (not found);

ffile('*.obr');

while (found) do begin

s:=dirinfo.name;

assign(mbasef1,copy(s,1,length(s)-3)+'brd');

rename(mbasef1,copy(s,1,length(s)-3)+'old');

assign(mbasef,s); rename(mbasef,copy(s,1,length(s)-3)+'brd');

nfile;

end;

end;

chdir(sp);

end;

end;

end;

procedure fconvert(xx:integer);

const dcols:clrs=((15,7,7,15,15,15,112,7,143,7),(15,3,1,11,9,14,31,4,140,10));

var i,j,k:integer;

b:boolean;

s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15:astr;

c:char;

mf,mf1:text;

sepmsgs,nocopy,bla,b1,b2:boolean;

f:file;

mary:array[0..200] of messagerec;

curdir:astr;

newpath:array[1..3] of astr;

fff:file;

menuline:array[1..13] of string[255];

uu:uflags1;

numread:word;

procedure make_paths;

var s:string;

i,j:integer;

begin

for i:=1 to 3 do begin

while copy(newpath[i],length(newpath[i]),1)='\' do

newpath[i]:=copy(newpath[i],1,length(newpath[i])-1);

case i of 1:s:='AFILES'; 2:s:='TRAP'; 3:s:='TEMP'; end;

star(s+' path ("'+fexpand(newpath[i])+'")');

{$I-} mkdir(fexpand(newpath[i])); {$I+}

if (ioresult<>0) then begin

writeln;

star('Error creating directory "'+fexpand(newpath[i])+'"');

halt(1);

end;

if (i=3) then

for j:=1 to 3 do begin

{$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}

if (ioresult<>0) then begin

writeln;

star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');

halt(1);

end;

end;

newpath[i]:=newpath[i]+'\';

end;

end;

function sacs(b:byte):string;

begin

if (b>0) then sacs:='s'+cstr(b) else sacs:='';

end;

begin

case xx of

0:begin

ttl('Converting "STATUS.DAT"');

ffile('status.dat');

if (not found) then star('STATUS.DAT not found.')

else begin

assign(systatf1,'status.old'); rewrite(systatf1); close(systatf1); erase(systatf1);

assign(systatf1,'status.tcp'); rewrite(systatf1); close(systatf1); erase(systatf1);

assign(systatf,'status.tcp'); rewrite(systatf);

assign(systatf1,'status.dat');

reset(systatf1); read(systatf1,systat1);

if (standard_conversion) then { default settings for STANDARDs }

with systat1 do begin

arq9600rate:=9600;

allstartmenu:='MAIN';

wfcblanktime:=0;

validateallfiles:=FALSE;

maxintemp:=500;

slogtype:=0;

stripclog:=FALSE;

noforcerate:=FALSE;

rebootforevent:=TRUE;

minresume:=100;

windowon:=TRUE;

curwindow:=1;

end;

with systat1 do begin

systat.gfilepath:=gfilepath;

systat.afilepath:=afilepath;

systat.menupath:=menupath;

systat.trappath:=trappath;

systat.pmsgpath:=pmsgpath;

systat.tfilepath:=tfilepath;

systat.temppath:=temppath;

systat.bbsname:=bbsname;

systat.bbsphone:=bbsphone;

systat.sysopname:=sysopfirst+' '+sysoplast;

{**} systat.maxusers:=500;

systat.lowtime:=lowtime;

systat.hitime:=hitime;

systat.dllowtime:=dllowtime;

systat.dlhitime:=dlhitime;

systat.shuttlelog:=matrix;

systat.lock300:=lock300;

systat.sysoppw:=sysoppw;

systat.newuserpw:=boardpw;

systat.shuttlepw:=bbspw;

systat.b300lowtime:=b300lowtime;

systat.b300hitime:=b300hitime;

systat.b300dllowtime:=b300dllowtime;

systat.b300dlhitime:=b300dlhitime;

systat.closedsystem:=closedsystem;

systat.snowchecking:=snowchecking;

systat.eventwarningtime:=eventwarningtime;

systat.tfiledate:=tfiledate;

systat.hmsg.ltr:=hmsg.ltr;

systat.hmsg.number:=hmsg.number;

systat.hmsg.ext:=hmsg.ext;

for j:=1 to 20 do systat.res[j]:=0;

systat.sop:=sacs(sop);

systat.csop:=sacs(csop);

systat.msop:=sacs(msop);

systat.fsop:=sacs(fsop);

systat.spw:=sacs(spw);

systat.seepw:=sacs(seepw);

systat.normpubpost:=sacs(normpubpost);

systat.normprivpost:=sacs(normprivpost);

systat.anonpubread:=sacs(anonpubread);

systat.anonprivread:=sacs(anonprivread);

systat.anonpubpost:=sacs(anonpubpost);

systat.anonprivpost:=sacs(anonprivpost);

systat.seeunval:=sacs(seeunval);

systat.dlunval:=sacs(dlunval);

systat.nodlratio:=sacs(nodlratio);

systat.nopostratio:=sacs(nopostratio);

systat.nofilepts:=sacs(nofilepts);

systat.ulvalreq:=sacs(ulvalreq);

for j:=1 to 100 do systat.res2[j]:=0;

systat.maxprivpost:=maxprivpost;

systat.maxfback:=maxfback;

systat.maxpubpost:=maxpubpost;

systat.maxchat:=maxchat;

systat.maxwaiting:=maxwaiting;

systat.csmaxwaiting:=csmaxwaiting;

systat.maxlines:=maxlines;

systat.csmaxlines:=csmaxlines;

systat.maxlogontries:=tries;

systat.bsdelay:=bsdelay;

systat.sysopcolor:=sysopcolor;

systat.usercolor:=usercolor;

systat.minspaceforpost:=minspaceforpost;

systat.minspaceforupload:=minspaceforupload;

systat.backsysoplogs:=backsysoplogs;

systat.wfcblanktime:=wfcblanktime;

for j:=1 to 20 do systat.res3[j]:=0;

systat.specialfx:=special;

systat.clearmsg:=clearmsg;

systat.allowalias:=alias;

systat.phonepw:=fone;

systat.localsec:=localsec;

systat.localscreensec:=localscreensec;

systat.globaltrap:=globaltrap;

systat.autochatopen:=autochatopen;

systat.autominlogon:=autominlogon;

systat.bullinlogon:=bullinlogon;

systat.lcallinlogon:=lcallinlogon;

systat.yourinfoinlogon:=yourinfoinlogon;

systat.multitask:=multitask;

systat.offhooklocallogon:=offhooklocallogon;

systat.forcevoting:=forcevoting;

systat.compressbases:=compressbases;

systat.searchdup:=searchdup;

systat.slogtype:=slogtype;

systat.stripclog:=stripclog;

systat.newapp:=app;

systat.guestuser:=guestuser;

systat.timeoutbell:=timeoutbell;

systat.timeout:=timeout;

for j:=1 to 20 do systat.res4[j]:=0;

for j:=1 to maxarcs1 do begin

systat.filearcinfo[j].active:=filearcinfo[j].active;

systat.filearcinfo[j].ext:=filearcinfo[j].ext;

systat.filearcinfo[j].listline:=filearcinfo[j].listline;

systat.filearcinfo[j].arcline:=filearcinfo[j].arcline;

systat.filearcinfo[j].unarcline:=filearcinfo[j].unarcline;

systat.filearcinfo[j].testline:=filearcinfo[j].testline;

systat.filearcinfo[j].cmtline:=filearcinfo[j].cmtline;

systat.filearcinfo[j].succlevel:=filearcinfo[j].succlevel;

end;

systat.filearcinfo[7].ext:='';

systat.filearcinfo[8].ext:='';

for j:=1 to 3 do systat.filearccomment[j]:=filearccomment[j];

systat.uldlratio:=uldlratio;

systat.fileptratio:=fileptratio;

systat.fileptcomp:=fileptcomp;

systat.fileptcompbasesize:=fileptcompbasesize;

systat.ulrefund:=ulrefund;

systat.tosysopdir:=tosysopdir;

systat.validateallfiles:=validateallfiles;

systat.remdevice:=remdevice;

systat.maxintemp:=maxintemp;

systat.minresume:=minresume;

{**} systat.maxdbatch:=30;

{**} systat.maxubatch:=30;

for j:=1 to 30 do systat.res5[j]:=0;

systat.newsl:=newsl;

systat.newdsl:=newdsl;

systat.newar:=[];

for c:='A' to 'Z' do

if (c in newar) then systat.newar:=systat.newar+[c];

systat.newac:=[];

if (rlogon1 in newac) then systat.newac:=systat.newac+[rlogon];

if (rchat1 in newac) then systat.newac:=systat.newac+[rchat];

if (rvalidate1 in newac) then systat.newac:=systat.newac+[rvalidate];

if (rbackspace1 in newac) then systat.newac:=systat.newac+[rbackspace];

if (ramsg1 in newac) then systat.newac:=systat.newac+[ramsg];

if (rpostan1 in newac) then systat.newac:=systat.newac+[rpostan];

if (rpost1 in newac) then systat.newac:=systat.newac+[rpost];

if (remail1 in newac) then systat.newac:=systat.newac+[remail];

if (rvoting1 in newac) then systat.newac:=systat.newac+[rvoting];

if (rmsg1 in newac) then systat.newac:=systat.newac+[rmsg];

if (fnodlratio1 in newac) then systat.newac:=systat.newac+[fnodlratio];

if (fnopostratio1 in newac) then systat.newac:=systat.newac+[fnopostratio];

if (fnofilepts1 in newac) then systat.newac:=systat.newac+[fnofilepts];

if (fnodeletion1 in newac) then systat.newac:=systat.newac+[fnodeletion];

systat.newfp:=newfp;

systat.autosl:=autosl;

systat.autodsl:=autodsl;

systat.autoar:=[];

for c:='A' to 'Z' do

if (c in autoar) then systat.autoar:=systat.autoar+[c];

systat.autoac:=[];

if (rlogon1 in autoac) then systat.autoac:=systat.autoac+[rlogon];

if (rchat1 in autoac) then systat.autoac:=systat.autoac+[rchat];

if (rvalidate1 in autoac) then systat.autoac:=systat.autoac+[rvalidate];

if (rbackspace1 in autoac) then systat.autoac:=systat.autoac+[rbackspace];

if (ramsg1 in autoac) then systat.autoac:=systat.autoac+[ramsg];

if (rpostan1 in autoac) then systat.autoac:=systat.autoac+[rpostan];

if (rpost1 in autoac) then systat.autoac:=systat.autoac+[rpost];

if (remail1 in autoac) then systat.autoac:=systat.autoac+[remail];

if (rvoting1 in autoac) then systat.autoac:=systat.autoac+[rvoting];

if (rmsg1 in autoac) then systat.autoac:=systat.autoac+[rmsg];

if (fnodlratio1 in autoac) then systat.autoac:=systat.autoac+[fnodlratio];

if (fnopostratio1 in autoac) then systat.autoac:=systat.autoac+[fnopostratio];

if (fnofilepts1 in autoac) then systat.autoac:=systat.autoac+[fnofilepts];

if (fnodeletion1 in autoac) then systat.autoac:=systat.autoac+[fnodeletion];

systat.allstartmenu:=allstartmenu;

for j:=1 to 50 do systat.res6[j]:=0;

for j:=0 to 255 do systat.timeallow[j]:=timeallow[j];

for j:=0 to 255 do systat.callallow[j]:=callallow[j];

for j:=0 to 255 do systat.dlratio[j]:=dlratio[j];

for j:=0 to 255 do systat.dlkratio[j]:=dlkratio[j];

for j:=0 to 255 do systat.postratio[j]:=postratio[j];

systat.lastdate:=lastdate;

systat.curwindow:=1;

systat.istopwindow:=istopwindow;

systat.callernum:=callernum;

systat.numusers:=users;

systat.todayzlog.date:=lastdate;

for j:=0 to 4 do systat.todayzlog.userbaud[j]:=userbaud[j];

systat.todayzlog.active:=activetoday;

systat.todayzlog.calls:=callstoday;

systat.todayzlog.newusers:=newusertoday;

systat.todayzlog.pubpost:=msgposttoday;

systat.todayzlog.privpost:=emailtoday;

systat.todayzlog.fback:=fbacktoday;

systat.todayzlog.criterr:=criterr;

systat.todayzlog.uploads:=uptoday;

systat.todayzlog.downloads:=dntoday;

systat.todayzlog.uk:=newuk;

systat.todayzlog.dk:=newdk;

{**} systat.postcredits:=0;

{**} systat.rebootforevent:=TRUE;

{**} systat.watchdogdoor:=TRUE;

for j:=1 to 200 do res[j]:=0;

end;

seek(systatf,0); write(systatf,systat);

star('Done.');

writeln;

ttl('Generating "MODEM.DAT" *from* "STATUS.DAT"');

assign(modemrf,systat.gfilepath+'modem.dat');

rewrite(modemrf);

with systat1 do begin

modemr.waitbaud:=maxbaud;

modemr.comport:=comport;

modemr.init:=init;

modemr.answer:=answer;

modemr.hangup:=hangup;

modemr.offhook:=offhook;

modemr.nocallinittime:=nocallinittime;

modemr.arq9600rate:=arq9600rate;

modemr.noforcerate:=noforcerate;

modemr.nocarrier:=nocarrier;

modemr.nodialtone:=nodialtone;

modemr.busy:=busy;

for i:=1 to 2 do

for j:=0 to 4 do modemr.resultcode[i][j]:=resultcode[i][j];

modemr.ctschecking:=TRUE;

modemr.dsrchecking:=TRUE;

modemr.usexonxoff:=FALSE;

modemr.hardwired:=FALSE;

end;