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

{$M 50000,0,1000} { Declared here suffices for all Units as well! }

uses

crt,dos,

myio;

{$I tagr24d.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 }

backtotag:boolean; { CONVERTING TO TELEGARD .. }

found:boolean;

dirinfo:searchrec;

ptsforisrequest,ptsfornotval:integer;

wind:windowrec;

didit:boolean;

tag_uf:file of tag_userrec;

tag_ulf:file of tag_ulrec;

tag_ulff:file of tag_ulfrec;

tag_bff:file of tag_messagerec;

tag_sf:file of tag_smalrec;

tag_bf:file of tag_boardrec;

tag_vf:file of tag_vdatar;

tag_u1:tag_userrec;

tag_ub:tag_ulrec;

tag_ulffr:tag_ulfrec;

tag_bffr:tag_messagerec;

tag_sr:tag_smalrec;

tag_bb:tag_boardrec;

tag_vv:tag_vdatar;

uf:file of userrec;

ulf:file of ulrec;

ulff:file of ulfrec;

bff:file of messagerec;

sf:file of smalrec;

bf:file of boardrec;

vf:file of vdatar;

u1:userrec;

ub:ulrec;

ulffr:ulfrec;

bffr:messagerec;

sr:smalrec;

bb:boardrec;

vv:vdatar;

tagpath,tgpath,tmsgpath:astr;

artable:astr;

tag_systatf:file of tag_systatrec;

tag_systat:tag_systatrec;

systatf:file of systatrec;

systat:systatrec;

macrf:file of macrorec;

macr:macrorec;

ff:file;

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 cstr(i:integer):astr;

var c:astr;

begin

str(i,c);

cstr:=c;

end;

procedure alignpathname(var s:astr);

begin

if copy(s,length(s),1)<>'\' then s:=s+'\';

while (copy(s,length(s)-1,2)='\\') and (length(s)>2) do

s:=copy(s,1,length(s)-1);

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));

{rcg11182000 hahahaha...a Y2K bug. :) }

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

{rcg11182000 added this conditional. }

if (y < 1977) then { Ugh...this is so bad. }

y := y + 100;

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));

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;

var ther:array[1..10] of boolean;

procedure nott(i:integer; s:astr);

begin

if (not backtotag) then begin

star(s);

ther[i]:=FALSE;

end;

end;

procedure findnotther;

var i,n:integer;

begin

n:=0;

for i:=1 to 10 do

if not ther[i] then inc(n);

if n<>0 then begin

star('File(s) not found. Abort conversion? [Yes] : ');

repeat c:=upcase(readkey) until c in ['Y','N',^M];

if c<>'N' then ee('File(s) not found -- Aborted.');

end;

end;

procedure fvers;

var i:integer;

begin

clrscr;

star('Checking files');

for i:=1 to 10 do ther[i]:=TRUE;

assign(tag_uf,tagpath+'user.lst');

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

if (ioresult<>0) then nott(1,'"'+tagpath+'user.lst": file not found.');

assign(tag_sf,tagpath+'names.lst');

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

if (ioresult<>0) then nott(2,'"'+tagpath+'names.lst": file not found.');

assign(tag_ulf,tagpath+'fboards.dat');

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

if (ioresult<>0) then nott(3,'"'+tagpath+'fboards.dat": file not found.');

assign(tag_bf,tagpath+'boards.dat');

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

if (ioresult<>0) then nott(4,'"'+tagpath+'boards.dat": file not found.');

assign(tag_vf,tagpath+'voting.dat');

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

if (ioresult<>0) then nott(5,'"'+tagpath+'voting.dat": file not found.');

findnotther;

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;

function c2(i:integer):astr;

var s:astr;

begin

str(i,s);

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

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

c2:=s;

end;

function spdate(y,m,d:integer):integer;

begin

spdate:=((y-1920)*512)+(m*32)+d;

end;

function sptime(h,m,s:integer):integer;

begin

sptime:=(h*2048)+(m*32)+(s div 2);

end;

function getspdate(i:integer):astr;

var x,y,m,d:longint;

begin

x:=i; if x<0 then x:=x+65536;

y:=x div 512; x:=x-512*y;

m:=x div 32; x:=x-32*m;

d:=x;

getspdate:=c2(m)+'/'+c2(d)+'/'+c2(y);

end;

function getsptime(i:integer):astr;

var x,h,m,s:longint;

begin

x:=i; if x<0 then x:=x+65536;

h:=x div 2048; x:=x-2048*h;

m:=x div 32; x:=x-32*m;

s:=x div 2;

getsptime:=c2(h)+':'+c2(m)+':'+c2(s);

end;

procedure bconvert(xx:integer);

var ttt:uflags;

s:astr;

siz,siz1:longint;

i,j,k:integer;

b:boolean;

procedure donothing;

begin end;

begin

case xx of

1:begin

ttl('Converting "NAMES.LST" to TAG format');

assign(sf,tgpath+'names.lst');

reset(sf);

rewrite(tag_sf);

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

seek(sf,i); read(sf,sr);

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

with sr do begin

tag_sr.name:=name;

tag_sr.number:=number;

end;

seek(tag_sf,i); write(tag_sf,tag_sr);

end;

close(sf);

writeln;

end;

2:begin

ttl('Converting "USER.LST" to TAG format');

assign(uf,tgpath+'user.lst');

reset(uf);

rewrite(tag_uf);

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

seek(uf,i); read(uf,u1);

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

with u1 do begin

tag_u1.uname:=name;

tag_u1.rname:=realname;

tag_u1.addr:=street;

tag_u1.comtype:=computer;

tag_u1.citystate:=citystate;

tag_u1.snote:=note;

tag_u1.lastdate:=spdate(value(copy(laston,7,2)),

value(copy(laston,1,2)),

value(copy(laston,4,2)));

tag_u1.lasttime:=spdate(0,0,0);

tag_u1.pw:=pw;

tag_u1.phone:=ph;

tag_u1.zcode:=zipcode;

with tag_u1.qscan[1] do begin

ltr:='A';

number:=-32767;

end;

for j:=2 to tag_maxboards do tag_u1.qscan[j]:=tag_u1.qscan[1];

for j:=1 to 20 do tag_u1.vote[j]:=vote[j];

for j:=1 to 15 do tag_u1.callspr[j]:=255;

tag_u1.ttimeon:=ttimeon;

tag_u1.ulk:=0.0; tag_u1.dlk:=0.0;

if (uk>0) and (uk<2147483647) then tag_u1.ulk:=round(uk);

if (dk>0) and (dk<2147483647) then tag_u1.dlk:=round(dk);

tag_u1.usernum:=i;

if (lockedout) then tag_u1.usernum:=i-1;

if (deleted) then tag_u1.usernum:=0;

tag_u1.privpost:=emailsent;

tag_u1.pubpost:=msgpost;

tag_u1.feedback:=feedback;

tag_u1.numcalls:=loggedon;

tag_u1.numul:=uploads;

tag_u1.numdl:=downloads;

tag_u1.fmail:=forusr;

tag_u1.hbaud:=1200;

tag_u1.timetoday:=0;

tag_u1.credit:=0;

tag_u1.debit:=0;

tag_u1.points:=filepoints;

tag_u1.timebank:=timebank;

tag_u1.bday:=spdate(value(copy(bday,7,2)),

value(copy(bday,1,2)),

value(copy(bday,4,2)));

tag_u1.strtmenu:=1;

tag_u1.sl:=sl;

tag_u1.dsl:=dsl;

if (novice in ac) then tag_u1.hlvl:=3 else tag_u1.hlvl:=1;

tag_u1.colms:=linelen;

tag_u1.lines:=pagelen;

tag_u1.callstoday:=ontoday;

tag_u1.illegal:=illegal;

tag_u1.waiting:=waiting;

tag_u1.lmsgbase:=lastmsg;

tag_u1.ldlbase:=lastfil;

tag_u1.cls:=ord(^L);

tag_u1.nulls:=0;

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

if (c in ar) then tag_u1.ar:=tag_u1.ar+[c];

tag_u1.flags:=[];

for ttt:=rlogon to fnodeletion do

if ttt in ac then

case ttt of

rlogon :tag_u1.flags:=tag_u1.flags+[txonecall];

rchat :tag_u1.flags:=tag_u1.flags+[txrchat];

rvalidate :tag_u1.flags:=tag_u1.flags+[txpubnotval];

rbackspace :;

ramsg :tag_u1.flags:=tag_u1.flags+[txrautomsg];

rpostan :tag_u1.flags:=tag_u1.flags+[txranon];

rpost :tag_u1.flags:=tag_u1.flags+[txrpubmsg];

remail :tag_u1.flags:=tag_u1.flags+[txrprivmsg];

rvoting :tag_u1.flags:=tag_u1.flags+[txrvoting];

rmsg :tag_u1.flags:=tag_u1.flags+[txautoprivdel];

spcsr :;

onekey :tag_u1.flags:=tag_u1.flags+[txonekey];

pause :tag_u1.flags:=tag_u1.flags+[txpause];

ansi :tag_u1.flags:=tag_u1.flags+[txansi];

color :tag_u1.flags:=tag_u1.flags+[txcolor];

alert :tag_u1.flags:=tag_u1.flags+[txalert];

smw :;

nomail :tag_u1.flags:=tag_u1.flags+[txmboxclosed];

fnodlratio :tag_u1.flags:=tag_u1.flags+[txnodllimit];

fnopostratio:tag_u1.flags:=tag_u1.flags+[txnopostcall];

fnofilepts :tag_u1.flags:=tag_u1.flags+[txnofilepts];

fnodeletion :tag_u1.flags:=tag_u1.flags+[txprotdel];

end;

if (sex='M') then tag_u1.flags:=tag_u1.flags+[txusermale];

tag_u1.flags:=tag_u1.flags+[txclschar];

for j:=1 to 4 do tag_u1.msgsysop[j]:=255;

tag_u1.dlscan:=[]; tag_u1.msgscan:=[];

for j:=0 to tag_maxuboards do tag_u1.dlscan:=tag_u1.dlscan+[j];

for j:=0 to tag_maxboards do tag_u1.msgscan:=tag_u1.msgscan+[j];

for b:=FALSE to TRUE do

for j:=0 to 9 do

tag_u1.colors[b][j]:=cols[b][j];

end;

seek(tag_uf,i); write(tag_uf,tag_u1);

end;

close(uf);

writeln;

end;

3:begin

ttl('Converting "BOARDS.DAT" to TAG format');

assign(bf,tgpath+'boards.dat');

reset(bf);

rewrite(tag_bf);

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

seek(bf,i); read(bf,bb);

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

with bb do begin

tag_bb.name:=name;

tag_bb.filename:=filename;

tag_bb.sl:=0;

if (maxmsgs>200) then tag_bb.maxmsgs:=200 else tag_bb.maxmsgs:=maxmsgs;

tag_bb.pw:=password;

if (anonymous=yes) then tag_bb.anonymous:=yesanon

else if (anonymous=forced) then tag_bb.anonymous:=forcedanon

else tag_bb.anonymous:=noanon;

tag_bb.ar:='@';

tag_bb.noansi:=FALSE;

tag_bb.postsl:=0;

end;

seek(tag_bf,i); write(tag_bf,tag_bb);

with bb do

assign(bff,tgpath+filename+'.BRD');

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

if (ioresult=0) then begin

seek(bff,0); read(bff,bffr);

siz:=bffr.message.number;

if (siz>filesize(bff)-1) then siz:=filesize(bff)-1;

assign(tag_bff,tagpath+tag_bb.filename+'.BRD');

clreol;

star(' (record #'+cstr(i)+' of '+cstr(filesize(bf)-1)+

') -- "'+bb.filename+'.BRD"');

rewrite(tag_bff); write(tag_bff,tag_bffr);

if (siz>200) then siz1:=siz-199 else siz1:=1;

for j:=siz1 to siz do begin

seek(bff,j); read(bff,bffr);

star(' (record #'+cstr(j)+' of '+cstr(siz)+')');

gotoxy(1,wherey-1);

with bffr do begin

tag_bffr.title:=title;

if (validated in messagestat) then

tag_bffr.messagestat:=tag_validated

else

if (unvalidated in messagestat) then

tag_bffr.messagestat:=tag_unvalidated

else

if (deleted in messagestat) then

tag_bffr.messagestat:=tag_deleted;

tag_bffr.message.ltr:=message.ltr;

tag_bffr.message.number:=message.number;

tag_bffr.message.ext:=message.ext;

tag_bffr.owner:=owner;

tag_bffr.date:=bffr.date;

tag_bffr.mage:=255;

end;

{seek(tag_bff,j);} write(tag_bff,tag_bffr);

end;

clreol; gotoxy(1,wherey-1);

close(bff);

close(tag_bff);

end;

end;

close(bf);

writeln;

end;

8:begin

ttl('Converting "UPLOADS.DAT" to TAG format ("FBOARDS.DAT")');

assign(ulf,tgpath+'uploads.dat');

reset(ulf);

rewrite(tag_ulf);

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

seek(ulf,i); read(ulf,ub);

star(' (record #'+cstr(i)+' of '+cstr(filesize(ulf)-1)+')');

gotoxy(1,wherey-1);

with ub do begin

tag_ub.name:=name;

tag_ub.filename:=filename;

tag_ub.dlpath:=dlpath;

tag_ub.ulpath:=ulpath;

tag_ub.password:=password;

tag_ub.dsl:=0;

tag_ub.namedsl:=255;

tag_ub.ar:='@';

tag_ub.noratio:=(fbnoratio in fbstat);

end;

seek(tag_ulf,i); write(tag_ulf,tag_ub);

{rcg11182000 lowercased this ".DIR" string...}

with ub do

assign(ulff,tgpath+filename+'.dir');

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

if (ioresult=0) then begin

seek(ulff,0); read(ulff,ulffr);

siz:=ulffr.blocks;

if (siz>filesize(ulff)-1) then siz:=filesize(ulff)-1;

{rcg11182000 lowercased this ".DIR" string...}

assign(tag_ulff,tag_ub.dlpath+tag_ub.filename+'.dir');

clreol;

star(' (record #'+cstr(i)+' of '+cstr(filesize(ulf)-1)+

') -- "'+ub.filename+'.dir"');

rewrite(tag_ulff); write(tag_ulff,tag_ulffr);

for j:=1 to siz do begin

seek(ulff,j); read(ulff,ulffr);

star(' (record #'+cstr(j)+' of '+cstr(siz)+')');

gotoxy(1,wherey-1);

with ulffr do begin

tag_ulffr.filename:=filename;

tag_ulffr.description:=description;

tag_ulffr.nacc:=nacc;

tag_ulffr.ft:=ft;

tag_ulffr.blocks:=blocks;

tag_ulffr.owner:=stowner;

tag_ulffr.date:=date;

tag_ulffr.daten:=daten;

tag_ulffr.unval:=(notval in filestat);

tag_ulffr.filepoints:=filepoints;

end;

seek(tag_ulff,j); write(tag_ulff,tag_ulffr);

end;

clreol; gotoxy(1,wherey-1);

close(ulff);

close(tag_ulff);

end;

end;

close(ulf);

writeln;

end;

9:begin

ttl('Converting "VOTING.DAT" to TAG format.');

assign(vf,tgpath+'voting.dat');

reset(vf);

rewrite(tag_vf);

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

seek(vf,i); read(vf,vv);

star(' (record #'+cstr(i+1)+' of '+cstr(filesize(vf))+')');

gotoxy(1,wherey-1);

with vv do begin

tag_vv.question:=question;

tag_vv.numa:=numa;

for j:=0 to 9 do begin

tag_vv.answ[j].ans:=answ[j].ans;

tag_vv.answ[j].numres:=answ[j].numres;

end;

end;

seek(tag_vf,i); write(tag_vf,tag_vv);

end;

close(vf);

writeln;

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:astr;

c:char;

mf,mf1:text;

sepmsgs,nocopy:boolean;

f:file;

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

curdir:astr;

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

ttt:tag_flagrec;

tt:tag_acrq;

siz:longint;

begin

case xx of

1:begin

ttl('Converting "NAMES.LST" to Telegard format');

assign(sf,tgpath+'names.lst');

rewrite(sf);

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

seek(tag_sf,i); read(tag_sf,tag_sr);

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

with tag_sr do begin

sr.name:=name;

sr.number:=number;

end;

seek(sf,i); write(sf,sr);

end;

close(sf);

writeln;

end;

2:begin

ttl('Converting "USER.LST" to Telegard format');

assign(uf,tgpath+'user.lst');

rewrite(uf);

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

seek(tag_uf,i); read(tag_uf,tag_u1);

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

with tag_u1 do begin

u1.name:=uname;

u1.realname:=rname;

u1.pw:=pw;

u1.ph:=phone;

u1.bday:=getspdate(bday);

u1.firston:=getspdate(lastdate);

u1.laston:=getspdate(lastdate);

u1.street:=addr;

u1.citystate:=citystate;

u1.zipcode:=zcode;

u1.computer:=comtype;

u1.occupation:='';

u1.wherebbs:='';

u1.note:=snote;

u1.lockedout:=(usernum<>i);

u1.deleted:=(usernum=0);

u1.lockedfile:='LOCKOUT';

u1.ac:=[];

u1.sex:='F';

for ttt:=txautoprivdel to txclschar do

if (ttt in flags) then

case ttt of

txautoprivdel:u1.ac:=u1.ac+[rmsg];

txnopostcall :u1.ac:=u1.ac+[fnopostratio];

txrautomsg :u1.ac:=u1.ac+[ramsg];

txranon :u1.ac:=u1.ac+[rpostan];

txrchat :u1.ac:=u1.ac+[rchat];

txnodllimit :u1.ac:=u1.ac+[fnodlratio];

txrpubmsg :u1.ac:=u1.ac+[rpost];

txrprivmsg :u1.ac:=u1.ac+[remail];

txrvoting :u1.ac:=u1.ac+[rvoting];

txonecall :u1.ac:=u1.ac+[rlogon];

txpubnotval :u1.ac:=u1.ac+[rvalidate];

txprotdel :u1.ac:=u1.ac+[fnodeletion];

txnofilepts :u1.ac:=u1.ac+[fnofilepts];

txpause :u1.ac:=u1.ac+[pause];

txansi :u1.ac:=u1.ac+[ansi];

txcolor :u1.ac:=u1.ac+[color];

txonekey :u1.ac:=u1.ac+[onekey];

txalert :u1.ac:=u1.ac+[alert];

txusermale :u1.sex:='M';

txmboxclosed :u1.ac:=u1.ac+[nomail];

end;

if (hlvl>2) then u1.ac:=u1.ac+[novice];

u1.ar:=[];

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

if (c in ar) then u1.ar:=u1.ar+[c];

with u1.qscan[1] do begin

ltr:='A';

number:=-32767;

ext:=1;

end;

for j:=2 to maxboards do u1.qscan[j]:=u1.qscan[1];

for j:=1 to maxboards do u1.qscn[j]:=TRUE;

u1.dlnscn:=[];

for j:=0 to maxuboards do u1.dlnscn:=u1.dlnscn+[j];

for j:=1 to 20 do u1.vote[j]:=vote[j];

u1.ttimeon:=trunc(ttimeon);

if (ulk>0) and (ulk<2147483647) then u1.uk:=round(ulk) else u1.uk:=0;

if (dlk>0) and (dlk<2147483647) then u1.dk:=round(dlk) else u1.dk:=0;

u1.uploads:=numul;

u1.downloads:=numdl;

u1.loggedon:=numcalls;

u1.tltoday:=120;

u1.msgpost:=pubpost;

u1.emailsent:=privpost;

u1.feedback:=feedback;

u1.forusr:=fmail;

u1.filepoints:=points;

u1.waiting:=waiting;

u1.linelen:=colms;

u1.pagelen:=lines;

u1.ontoday:=callstoday;

u1.illegal:=illegal;

u1.sl:=sl;

u1.dsl:=dsl;

for b:=FALSE to TRUE do

for j:=0 to 9 do u1.cols[b][j]:=colors[b][j];

u1.lastmsg:=lmsgbase;

u1.lastfil:=ldlbase;

u1.credit:=trunc(credit);

u1.timebank:=timebank;

for j:=1 to 5 do u1.boardsysop[j]:=255;

u1.trapactivity:=FALSE;

u1.trapseperate:=FALSE;

u1.timebankadd:=0;

u1.mpointer:=-1;

u1.chatauto:=FALSE;

u1.chatseperate:=FALSE;

u1.userstartmenu:='';

u1.slogseperate:=FALSE;

u1.clsmsg:=0;

for j:=1 to 57 do u1.res[j]:=0;

end;

seek(uf,i); write(uf,u1);

end;

close(uf);

writeln;

end;

3:begin

ttl('Converting "BOARDS.DAT" to Telegard format');

assign(bf,tgpath+'boards.dat');

rewrite(bf);

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

seek(tag_bf,i); read(tag_bf,tag_bb);

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

with tag_bb do begin

bb.name:=name;

bb.filename:=filename;

bb.msgpath:=systat.pmsgpath;

bb.acs:='';

if (sl>0) then bb.acs:=bb.acs+'s'+cstr(sl);

if (ar in ['A'..'Z']) then bb.acs:=bb.acs+'f'+ar;

bb.postacs:='';

if (postsl>0) then bb.postacs:=bb.postacs+'s'+cstr(postsl);

bb.mciacs:='%';

bb.maxmsgs:=maxmsgs;

if (anonymous=noanon) then bb.anonymous:=no

else

if (anonymous=yesanon) then bb.anonymous:=yes

else

if (anonymous=forcedanon) then bb.anonymous:=forced;

bb.password:=pw;

bb.mbstat:=[];

bb.permindx:=i;

bb.mbdepth:=0;

end;

seek(bf,i); write(bf,bb);

with tag_bb do

assign(tag_bff,tagpath+filename+'.BRD');

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

if (ioresult=0) then begin

siz:=filesize(tag_bff)-1;

assign(bff,tgpath+tag_bb.filename+'.BRD');

star(' (record #'+cstr(i)+' of '+cstr(filesize(tag_bf)-1)+

') -- "'+tag_bb.filename+'.dir"'); gotoxy(1,wherey-1);

writeln;

rewrite(bff);

bffr.message.number:=siz;

seek(bff,0); write(bff,bffr);

for j:=1 to siz do begin

seek(tag_bff,j); read(tag_bff,tag_bffr);

star(' (record #'+cstr(j)+' of '+cstr(siz)+')');

gotoxy(1,wherey-1);

with tag_bffr do begin

bffr.title:=title;

bffr.messagestat:=[];

if (messagestat=tag_validated) then

bffr.messagestat:=bffr.messagestat+[validated]

else

if (messagestat=tag_unvalidated) then

bffr.messagestat:=bffr.messagestat+[unvalidated]

else

if (messagestat=tag_deleted) then

bffr.messagestat:=bffr.messagestat+[deleted];

bffr.message.ltr:=message.ltr;

bffr.message.number:=message.number;

bffr.message.ext:=message.ext;

bffr.owner:=owner;

bffr.date:=tag_bffr.date;

bffr.nacc:=0;

end;

seek(bff,j); write(bff,bffr);

end;

clreol; gotoxy(1,wherey-1);

close(bff);

close(tag_bff);

end;

end;

close(bf);

writeln;

end;

8:begin

ttl('Converting "FBOARDS.DAT" to Telegard format ("UPLOADS.DAT")');

assign(ulf,tgpath+'uploads.dat');

rewrite(ulf);

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

seek(tag_ulf,i); read(tag_ulf,tag_ub);

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

with tag_ub do begin

ub.name:=name;

ub.filename:=filename;

ub.dlpath:=dlpath;

ub.ulpath:=ulpath;

ub.maxfiles:=2000;

ub.password:=password;

ub.arctype:=1;

ub.cmttype:=1;

ub.fbdepth:=0;

ub.fbstat:=[];

if (noratio) then ub.fbstat:=ub.fbstat+[fbnoratio];

ub.acs:='';

if (dsl>0) then ub.acs:=ub.acs+'d'+cstr(dsl);

if (ar in ['A'..'Z']) then ub.acs:=ub.acs+'f'+ar;

ub.ulacs:='';

ub.nameacs:='';

if (namedsl>0) then ub.acs:=ub.acs+'d'+cstr(namedsl);

ub.permindx:=i;

for j:=1 to 6 do ub.res[j]:=0;

end;

seek(ulf,i); write(ulf,ub);

{rcg11182000 lowercased this ".DIR" string...}

with tag_ub do

assign(tag_ulff,dlpath+filename+'.dir');

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

if (ioresult=0) then begin

siz:=filesize(tag_ulff)-1;

{rcg11182000 lowercased this ".DIR" string...}

assign(ulff,tgpath+tag_ub.filename+'.dir');