program init;

{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
{$M 50000,0,90000}      { Declared here suffices for all Units as well! }

uses
  crt,dos,
  myio,
  common;

{$I rec16e1.pas}

var
  systatf:file of systatrec;
  systat:systatrec;
  uf:file of userrec;
  u:userrec;
  sf:file of smalrec;
  sr:smalrec;
  bf:file of boardrec;
  br:boardrec;
  uff:file of ulrec;
  ufr:ulrec;
  xp:file of expro;
  xpr:expro;
  zf:file of zlogt;
  zfr:zlogt;
  mailfile:file of mailrec;
  mr:mailrec;
  lcallf:file of lcallers;
  lcall:lcallers;
  tfilf:file of gft;
  tfil:gft;
  verbf:file of verbrec;
  vr:verbrec;
  vdata:file of vdatar;
  vd:vdatar;
  smf:file of smr;
  sm:smr;
  msr:messagerec;
  ulff:file of ulfrec;
  ulffr:ulfrec;
  evf:file of eventrec;
  evr:eventrec;
  macrf:file of macrorec;
  macr:macrorec;

  curdir:string;
  path:array[1..7] of string;
  found:boolean;
  dirinfo:searchrec;
  i,j,k:integer;
  c:char;

function yn:boolean;
var c:char;
    b:boolean;
begin
  repeat c:=upcase(readkey) until c in ['Y','N',^M];
  case c of 'Y':b:=TRUE; else b:=FALSE; end;
  write(syn(b));
  yn:=b;
end;

function pynq(s:string):boolean;
begin
  textcolor(4); write(s);
  textcolor(11); pynq:=yn;
end;

procedure prt(s:string);
begin
  textcolor(9); write(s);
end;

procedure star(s:string);
begin
  textcolor(9); write('þ ');
  textcolor(11); writeln(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 movefile(srcname,destpath:string);
var buffer:array[1..16384] of byte;
    dfs,nrec:integer;
    src,dest:file;

  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
  star('Moving "'+srcname+'" to "'+destpath+'"');
  destpath:=destpath+srcname;
  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 ffile(fn:string);
begin
  findfirst(fn,anyfile,dirinfo);
  found:=(doserror=0);
end;

procedure nfile;
begin
  findnext(dirinfo);
  found:=(doserror=0);
end;

procedure movefiles(srcname,destpath:string);
begin
  ffile(srcname);
  while found do begin
    movefile(dirinfo.name,destpath);
    nfile;
  end;
end;


function make_path(s:string):boolean;
begin
  while (copy(s,length(s),1)='\') do s:=copy(s,1,length(s)-1);
  make_path:=TRUE;
  {$I-} mkdir(fexpand(s)); {$I+}
  if (ioresult<>0) then begin
    writeln;
    star('Error creating directory "'+fexpand(s)+'"'^G^G);
    make_path:=FALSE;
  end;
end;

procedure make_paths;
var s:string;
begin
  for i:=1 to 7 do begin
    while copy(path[i],length(path[i]),1)='\' do
      path[i]:=copy(path[i],1,length(path[i])-1);
    case i of 1:s:='GFILES'; 2:s:='MSGS'; 3:s:='MENUS'; 4:s:='TFILES';
              5:s:='AFILES'; 6:s:='TRAP'; 7:s:='TEMP'; end;
    star(s+' path ("'+fexpand(path[i])+'")');
    if (not make_path(path[i])) then halt(1);
    path[i]:=path[i]+'\';
  end;
  star('Creating EMAIL and GENERAL message paths');
  if (not make_path(path[2]+'EMAIL\')) then halt(1);
  if (not make_path(path[2]+'GENERAL\')) then halt(1);
  star('Creating SYSOP and MISC file paths');
  if (not make_path('DLS\')) then halt(1);
  if (not make_path('DLS\SYSOP')) then halt(1);
  if (not make_path('DLS\MISC')) then halt(1);
  star('Creating TEMP 1, 2, and 3 file paths');
  if (not make_path(path[7]+'1\')) then halt(1);
  if (not make_path(path[7]+'2\')) then halt(1);
  if (not make_path(path[7]+'3\')) then halt(1);
end;

procedure make_status_dat;
begin
  with systat do begin
    bbsname:='Telegard BBS';
    bbsphone:='000-000-0000';
    sysopfirst:='System';
    sysoplast:='Operator';
    boardpw:='';
    sysoppw:='SYSOP';
    bbspw:='MATRIX';
    closedsystem:=FALSE;
    matrix:=FALSE;
    alias:=TRUE;
    clearmsg:=TRUE;
    fone:=TRUE;
    multitask:=FALSE;
    bwindow:=TRUE;
    lock300:=FALSE;
    wantquote:=TRUE;  {* /// *}
    mcimsg:=TRUE;     {* /// *}
    special:=TRUE;
    localsec:=FALSE;
    localscreensec:=FALSE;
    autominlogon:=TRUE;
    bullinlogon:=TRUE;
    lcallinlogon:=TRUE;
    autochatopen:=TRUE;
    yourinfoinlogon:=TRUE;
    globaltrap:=FALSE;
    snowchecking:=FALSE;
    forcevoting:=FALSE;
    offhooklocallogon:=TRUE;

    with hmsg do begin ltr:='A'; number:=-32766; ext:=1; end;
                       {* A-32767.1 is the "Greetings from Telegard" message *}
    tfiledate:='04/21/89';
    lastdate:='04/21/89';
    users:=1;
    callernum:=0;
    activetoday:=0;
    callstoday:=0;
    msgposttoday:=0;
    emailtoday:=0;
    fbacktoday:=0;
    uptoday:=0;
    newuk:=0;
    newusertoday:=0;
    dntoday:=0;
    newdk:=0;
    gfilepath:=path[1];
    pmsgpath:=path[2]+'EMAIL\';
    menupath:=path[3];
    tfilepath:=path[4];
    afilepath:=path[5];
    trappath:=path[6];
    temppath:=path[7];
    lowtime:=0; hitime:=0;
    dllowtime:=0; dlhitime:=0;
    b300lowtime:=0; b300hitime:=0;
    b300dllowtime:=0; b300dlhitime:=0;
    app:=1;
    guestuser:=-1;
    timeoutbell:=2;
    timeout:=5;
    sysopcolor:=4; usercolor:=3;
    bsdelay:=20;
    tosysopdir:=0;
    comport:=1;
    maxbaud:=1200;
    init:='ATH0Q0V0E0M0X1S0=0S2=1S10=40&C1';
    hangup:='ATH';
    offhook:='ATH1';
    answer:='ATA';
    for i:=1 to 2 do
      for j:=0 to 4 do begin
        case i of
          1:case j of 0:k:=1; 1:k:=5; 2:k:=10; 3:k:=0; 4:k:=13; end;
          2:case j of 0:k:=0; 1:k:=15; 2:k:=16; 3:k:=0; 4:k:=17; end;
        end;
        resultcode[i][j]:=k;
      end;
    nocarrier:=3;
    nodialtone:=6;
    busy:=7;
    nocallinittime:=30;
    tries:=4;
    newsl:=20; newdsl:=20;
    newar:=[];
    newac:=[rpostan,rvoting];
    newfp:=0;
    autosl:=50; autodsl:=50;
    autoar:=[];
    autoac:=[];
    ansiq:='Display ANSI logon? ';
    engage:='@M^3The SysOp brings you into chat!';
    endchat:='^3The SysOp returns you to the BBS....@M';
    sysopin:='^3The SysOp is probably around!';
    sysopout:='^3The SysOp is NOT here, or doesn''t want to chat';
    note[1]:='Enter your Telegard NAME or USER NUMBER';
    note[2]:='* NEW USERS, enter "NEW" *';
    lprompt:='Logon : ';
    wait:='^3{-^9Please Wait^3-}';
    pause:='(* pause *)';
    msg1:='Enter message now.  You have ^3@X^1 lines maximum.';
    msg2:='Enter ^3/S^1 to save.  ^3/?^1 for a list of commands.';
    new1:='^7[^5@Y ^7- ^5@W msgs^7]  ^4NewScan began.@M';
    new2:='^7[^5@Y ^7- ^5@W msgs^7]  ^4NewScan complete.@M';
    read:='^3[^1@Y^3]@M^5[@U] ^4Read (1-@W,<CR>,T,Q,P,A,R,B,W,D) : ';
    auto1:='^5AutoMessage by: ';
    autom:='-';
    echoc:='X';

    uldlratio:=TRUE;
    fileptratio:=FALSE;
    fileptcomp:=3;
    fileptcompbasesize:=10;

    for i:=0 to 255 do begin
      case i of 0..9:k:=1; 10..19:k:=10; 20..29:k:=20; 30..39:k:=40;
                40..49:k:=50; 50..59:k:=80; 60..69:k:=90; 70..79:k:=100;
                80..89:k:=110; 90..99:k:=120; 100..199:k:=130;
                200..239:k:=150; 240..249:k:=200; 250:k:=250;
                251..255:k:=6000; end; timeallow[i]:=k;
      case i of 200..255:k:=20; 100..199:k:=15; 50..99:k:=10;
                30..49:k:=5; 20..29:k:=3; else k:=1; end; callallow[i]:=k;
      case i of 60..255:k:=5; 20..59:k:=3; else k:=2; end; dlratio[i]:=k;
      case i of 60..255:k:=10; 20..59:k:=5; else k:=2; end; dlkratio[i]:=k;
      postratio[i]:=100;
    end;                       

    normpubpost:=11; anonpubpost:=100; anonpubread:=100;
    normprivpost:=11; anonprivpost:=100; anonprivread:=100;
    maxpubpost:=20; maxprivpost:=20;
    maxfback:=5; maxchat:=3;
    maxwaiting:=15; csmaxwaiting:=50;
    maxlines:=120; csmaxlines:=160;

    sop:=255; csop:=250;
    msop:=199; fsop:=230;
    spw:=250; seepw:=255;
    nodlratio:=255; nopostratio:=200;
    nofilepts:=255; seeunval:=50;
    dlunval:=230; ulrefund:=100;

    eventwarningtime:=60;
    filearccomment[1]:=bbsname+'  '+bbsphone;
    filearccomment[2]:=''; filearccomment[3]:='';

    for i:=1 to 5 do
      with filearcinfo[i] do
        case i of
          1:begin
              active:=TRUE;
              ext:='ZIP';
              listline:='/1';
              arcline:='PKZIP -aeb4 @F @I';
              unarcline:='PKUNZIP @F @I';
              testline:='PKUNZIP -t @F';
              cmtline:='PKZIP -z @F';
              succlevel:=0;
            end;
          2:begin
              active:=FALSE;
              ext:='ARC';
              listline:='/2';
              arcline:='PKPAK a @F @I';
              unarcline:='PKUNPAK @F @I';
              testline:='PKUNPAK -t @F';
              cmtline:='PKPAK x @F';
              succlevel:=0;
            end;
          3:begin
              active:=FALSE;
              ext:='PAK';
              listline:='/2';
              arcline:='PAK a @F @I';
              unarcline:='PAK e @F @I';
              testline:='';
              cmtline:='';
              succlevel:=-1;
            end;
          4:begin
              active:=FALSE;
              ext:='LZH';
              listline:='/4';
              arcline:='LHARC a @F @I';
              unarcline:='LHARC e @F @I';
              testline:='';
              cmtline:='';
              succlevel:=0;
            end;
          5:begin
              active:=FALSE;
              ext:='ZOO';
              listline:='/3';
              arcline:='ZOO aP: @F @I';
              unarcline:='ZOO x @F @I';
              testline:='ZOO xNd @F';
              cmtline:='ZOO cA @F';
              succlevel:=0;
            end;
        end;
    filearcinfo[6].ext:='';

    minspaceforpost:=10;
    minspaceforupload:=100;
postcredits:=0; {* not implemented *}
ulvalreq:=0;    {* not implemented *}
    moveline:='';
    backsysoplogs:=7;
    compressbases:=FALSE;

    for i:=1 to 165 do res[i]:=0;
  end;
  assign(systatf,'status.dat');
  rewrite(systatf); write(systatf,systat); close(systatf);
end;

procedure make_user_lst;
const dcols:clrs=((15,7,7,15,15,15,112,7,143,7),(15,3,1,11,9,14,31,4,140,10));
begin
  with u do begin
    name:='SYSOP';
    realname:='System Operator';
    pw:='SYSOP';
    ph:='000-000-0000';
    bday:='00/00/00';
    firston:='04/21/89';
    laston:='04/21/89';
    street:='';
    citystate:='';
    zipcode:='';
    computer:='IBM Compatible';
    occupation:='';
    wherebbs:='';
    note:='Change these stats to yours.';
    lockedout:=FALSE;
    deleted:=FALSE;
    lockedfile:='';
    ac:=[onekey,wordwrap,pause,novice,ansi,color,
         smw,    {* short message waiting, in SHORTMSG.DAT *}
         fnodlratio,fnopostratio,fnofilepts,fnodeletion];
    ar:=[]; for c:='A' to 'Z' do ar:=ar+[c];
    with qscan[1] do begin ltr:='A'; number:=-32767; ext:=1; end;
    for i:=2 to maxboards do qscan[i]:=qscan[1];
    for i:=1 to maxboards do qscn[i]:=TRUE;
    dlnscn:=[];
    for i:=0 to maxuboards do dlnscn:=dlnscn+[i];
    for i:=1 to 20 do vote[i]:=0;
    sex:='M';
    ttimeon:=0.0;
    uk:=0.0;
    dk:=0.0;
    uploads:=0;
    downloads:=0;
    loggedon:=0;
    tltoday:=600;
    msgpost:=0;
    emailsent:=0;
    feedback:=0;
    forusr:=0;
    filepoints:=0;
    waiting:=1;         {* A-32767.1 -- "Greetings from Telegard" message *}
    linelen:=80;
    pagelen:=23;        {* to make room for SysOp window when on.. *}
    ontoday:=0;
    illegal:=0;
    sl:=255;
    dsl:=255;
    cols:=dcols;
    lastmsg:=1;
    lastfil:=0;
    credit:=0.0;
    timebank:=0;
    for i:=1 to 5 do boardsysop[i]:=255;

    trapactivity:=FALSE;
    trapseperate:=FALSE;

{* NEW STUFF *}

    timebankadd:=0;
    mpointer:=-1;

{* NEW STUFF *ENDS* *}

    for i:=1 to 70 do res[i]:=0;
  end;
  assign(uf,'user.lst');
  rewrite(uf);
  seek(uf,0); write(uf,u);
  seek(uf,1); write(uf,u);
  close(uf);
end;

procedure make_names_lst;
begin
  with sr do begin
    name:='SYSOP';
    number:=1;
  end;
  assign(sf,'names.lst');
  rewrite(sf);
  seek(sf,0); write(sf,sr);
  seek(sf,1); write(sf,sr);
  close(sf);
end;

procedure make_macro_lst;
var i:integer;
begin
  with macr do
    for i:=1 to 4 do macro[i]:='';
  assign(macrf,'macro.lst');
  rewrite(macrf);
  seek(macrf,0); write(macrf,macr);
  close(macrf);
end;

procedure make_boards_dat;
begin
  with br do begin
    name:='General Messages';
    filename:='GENERAL';
    msgpath:=path[2]+'GENERAL\';
    sl:=30;
    maxmsgs:=50;
    password:='';
    anonymous:=no;
    ar:='@';
    postsl:=30;
  end;
  assign(bf,'boards.dat');
  rewrite(bf);
  seek(bf,0); write(bf,br);
  close(bf);
end;

procedure make_uploads_dat;
begin
  assign(uff,'uploads.dat');
  rewrite(uff);
  with ufr do begin
    name:='SysOp directory';
    filename:='SYSOP';
    dlpath:=curdir+'\DLS\SYSOP\';
    noratio:=FALSE;
    sl:=255;
    dsl:=255;
    namesl:=255;
    ar:='@';
    maxfiles:=999;
    agereq:=1;
    password:='';
    arctype:=1;
    cmttype:=1;
    unhidden:=FALSE;
  end;
  write(uff,ufr);
  with ufr do begin
    name:='Miscellaneous';
    filename:='MISC';
    dlpath:=curdir+'\DLS\MISC\';
    noratio:=FALSE;
    sl:=30;
    dsl:=30;
    namesl:=10;
    ar:='@';
    maxfiles:=999;
    agereq:=1;
    password:='';
    arctype:=1;
    cmttype:=1;
    unhidden:=TRUE;
  end;
  write(uff,ufr); close(uff);
end;

procedure make_protocol_dat;
begin
  assign(xp,'protocol.dat');
  rewrite(xp);
  for i:=1 to 11 do
    with xpr do begin
      rcmd:=''; scmd:='';
      rul:=FALSE; rdl:=FALSE;
      sl:=0; dsl:=0; ar:='@';
      xferok:=-1;
      if (i in [1..5]) then active:=TRUE else active:=FALSE;
      case i of
        1:begin descr:='Ascii'; key:='A'; ptype:=1; rul:=TRUE; end;
        2:begin descr:='Xmodem'; key:='X'; ptype:=2; end;
        3:begin descr:='Xmodem CRC'; key:='C'; ptype:=3; end;
        4:begin descr:='Ymodem'; key:='Y'; ptype:=4; end;
        5:begin descr:='Ymodem'; key:='Y'; ptype:=5; rul:=TRUE; end;
        6:begin
            descr:='Zmodem';
            key:='Z';
            ptype:=6;
            rcmd:='dsz port @2 speed @1 rz @3';
            scmd:='dsz port @2 speed @1 sz @3';
            xferok:=0;
          end;
        7:begin
            descr:='Zmodem';
            key:='Z';
            ptype:=7;
            rcmd:='dsz port @2 speed @1 rz';
            scmd:='dsz port @2 speed @1 @@4';
            xferok:=0;
          end;
        8:begin
            descr:='Zmodem '+#3#5+'Recovery';
            key:='Z';
            ptype:=8;
            rcmd:='dsz port @2 speed @1 -r rz @3';
            scmd:='---';
            xferok:=0;
            rdl:=TRUE;
          end;
        9:begin
            descr:='Lynx';
            key:='L';
            ptype:=6;
            rcmd:='lynx R /@1 /@2 @3';
            scmd:='lynx S /@1 /@2 @3';
            xferok:=0;
          end;
       10:begin
            descr:='Lynx';
            key:='L';
            ptype:=7;
            rcmd:='lynx R /@1 /@2';
            scmd:='lynx S /@1 /@2 @3';
            xferok:=0;
          end;
       11:begin
            descr:='Lynx '+#3#5+'Recovery';
            key:='L';
            ptype:=8;
            rcmd:='lynx R /@1 /@2';
            scmd:='---';
            xferok:=0;
            rdl:=TRUE;
          end;
       12:begin
            descr:='Jmodem';
            key:='J';
            ptype:=6;
            rcmd:='jmodem R@2 @3';
            scmd:='jmodem S@2 @3';
            xferok:=-1;
          end;
       13:begin
            descr:='Megalink';
            key:='M';
            ptype:=6;
            rcmd:='mlink PORT @2 SPEED @1 RM @3';
            scmd:='mlink PORT @2 SPEED @1 SM @3';
            xferok:=0;
          end;
      end;
      write(xp,xpr);
    end;
  close(xp);
end;

procedure make_zlog_dat;
begin
  with zfr do begin
    date:='04/21/89';
    active:=0;
    calls:=0;
    post:=0;
    email:=0;
    fback:=0;
    up:=0;
  end;
  assign(zf,'zlog.dat');
  rewrite(zf); write(zf,zfr);
  zfr.date:='';
  for i:=1 to 96 do write(zf,zfr);
  close(zf);
end;

procedure make_email_dat;
begin
  with mr do begin
    title:='Greetings from Telegard';
    from:=1; destin:=1;
    with msg do begin ltr:='A'; number:=-32767; ext:=1; end;
    mage:=255;
  end;
  mr.date:=daynum(date);
  assign(mailfile,'email.dat');
  rewrite(mailfile); write(mailfile,mr); close(mailfile);
end;
 
procedure make_events_dat;
begin
  with evr do begin
    active:=FALSE;
    description:='A NEW Telegard Event';
    etype:='D';
    execdata:='event.bat';
    busytime:=5;
    exectime:=0;
    busyduring:=TRUE;
    duration:=1;
    execdays:=0;
    monthly:=FALSE;
  end;
  assign(evf,'events.dat');
  rewrite(evf); write(evf,evr); close(evf);
end;

procedure make_laston_dat;
begin
  with lcall do begin
    callernum:=0;
    name:='Eric Oman';
    number:=1;
    citystate:='Grosse Pointe Woods, Michigan';
  end;
  assign(lcallf,'laston.dat');
  rewrite(lcallf); write(lcallf,lcall);
  lcall.callernum:=-1;
  for i:=1 to 9 do write(lcallf,lcall);
  close(lcallf);
end;

procedure make_gfiles_dat;
begin
  assign(tfilf,'gfiles.dat');
  rewrite(tfilf);
  for i:=0 to 1 do begin
    with tfil do
      case i of
        0:begin
            num:=1;   {* 1 entry total *}
            title:='';
            filen:='';
            ar:='@';
            gdate:='04/21/89';
            gdaten:=daynum(gdate);
          end;
        1:begin
            num:=0;   {* SL level *}
            title:='Miscellaneous';
            filen:=#1#0#0#0#0#0;
            ar:='@';
            gdate:='04/21/89';
            gdaten:=daynum(gdate);
          end;
      end;
    write(tfilf,tfil);
  end;
  close(tfilf);
end;

procedure make_verbose_dat;
begin
  with vr do
    for i:=1 to 4 do descr[i]:='';
  assign(verbf,'verbose.dat');
  rewrite(verbf); write(verbf,vr); close(verbf);
end;

procedure make_voting_dat;
begin
  with vd do begin
    question:='<< No Question >>';
    numa:=0;
    for i:=0 to 9 do
      with answ[i] do begin
        if (i<>0) then ans:='Selection '+chr(i+48) else ans:='No Comment';
        numres:=0;
      end;
  end;
  assign(vdata,'voting.dat');
  rewrite(vdata);
  for i:=0 to 19 do write(vdata,vd);
  close(vdata);
end;

procedure make_shortmsg_dat;
begin
  with sm do begin
    msg:='Telegard files initialized on '+date+' '+time+'.';
    destin:=1;
  end;
  assign(smf,'shortmsg.dat');
  rewrite(smf); write(smf,sm); close(smf);
end;

procedure make_mboard(s:string);
var f:file;
begin
  msr.message.number:=0;
  assign(f,s+'.BRD');
  rewrite(f,sizeof(messagerec)); blockwrite(f,msr,1); close(f);
end;

procedure make_fboard(s:string);
begin
  ulffr.blocks:=0;
  assign(ulff,s+'.DIR');
  rewrite(ulff); write(ulff,ulffr); close(ulff);
end;

procedure dostuff;
begin
  ttl('Creating Telegard directory paths');
  make_paths;
  ttl('Creating Telegard data files');
  make_status_dat;
  make_user_lst;
  make_names_lst;
  make_macro_lst;
  make_boards_dat;
  make_uploads_dat;
  make_protocol_dat;
  make_zlog_dat;
  make_email_dat;
  make_events_dat;
  make_laston_dat;
  make_gfiles_dat;
  make_verbose_dat;
  make_voting_dat;
  make_shortmsg_dat;
  make_mboard('general');
  make_fboard('sysop');
  make_fboard('misc');
  ttl('Moving data files into GFILES directory');
  movefile('user.lst',path[1]);
  movefile('names.lst',path[1]);
  movefile('macro.lst',path[1]);
  movefile('boards.dat',path[1]);
  movefile('email.dat',path[1]);
  movefile('events.dat',path[1]);
  movefile('gfiles.dat',path[1]);
  movefile('laston.dat',path[1]);
  movefile('protocol.dat',path[1]);
  movefile('shortmsg.dat',path[1]);
  movefile('uploads.dat',path[1]);
  movefile('verbose.dat',path[1]);
  movefile('voting.dat',path[1]);
  movefile('zlog.dat',path[1]);
  movefiles('*.BRD',path[1]);
  movefiles('*.DIR',path[1]);
  ttl('Moving miscellaneous text files into AFILES directory');
  movefiles('*.ANS',path[5]);
  movefiles('*.MSG',path[5]);
  movefiles('*.TUT',path[5]);
  movefile('computer.txt',path[5]);
  ttl('Moving message file into MSGS\EMAIL directory');
  movefile('a-32767.1',path[2]+'EMAIL\');
  ttl('Moving menu files into MENUS directory');
  movefiles('*.MNU',path[3]);
end;

begin
  infield_out_fgrd:=11;
  infield_out_bkgd:=0;
  infield_inp_fgrd:=15;
  infield_inp_bkgd:=1;

  clrscr;
  gotoxy(1,1); textbackground(1); textcolor(15);
  clreol; write(' Initialization Utility for Telegard version '+ver);
  textbackground(0); textcolor(7);
  window(1,2,80,25);
  writeln;
  assign(systatf,'status.dat');
  {$I-} reset(systatf); {$I+}
  if ioresult=0 then begin
    textcolor(28); write('WARNING!!');
    textcolor(14); writeln('  "STATUS.DAT" file already exists..');
    writeln('Telegard has already been initialized!');
    writeln('If you proceed, ALL DATA FILES WILL BE ERASED AND INITIALIZED!!!');
    writeln;
    if not pynq('Proceed? ') then halt(1);
    writeln;
  end;

  getdir(0,curdir);
  path[1]:=curdir+'\GFILES\';
  path[2]:=curdir+'\MSGS\';
  path[3]:=curdir+'\MENUS\';
  path[4]:=curdir+'\TFILES\';
  path[5]:=curdir+'\AFILES\';
  path[6]:=curdir+'\TRAP\';
  path[7]:=curdir+'\TEMP\';

  textcolor(14);
  writeln;
  writeln('You will now be prompted several times for names of directorys');
  writeln('that will be used by Telegard.  Each directory will be created');
  writeln('and the appropriate files will be moved there-in.');
  writeln;
  writeln('GFILES pathname.  This is the directory where the Telegard data');
  writeln('files and miscellaneous Telegard text files will be located.');
  writeln;
  prt('GFILES dirname: '); infielde(path[1],60); writeln; writeln;

  textcolor(14);
  writeln('MSGS pathname.  This directory should contain all the other message');
  writeln('directory paths used by Telegard, including private mail (EMAIL).');
  writeln('Located in these paths are the text of the Telegard messages.');
  writeln;
  prt('MSGS dirname: '); infielde(path[2],60); writeln; writeln;

  textcolor(14);
  writeln('MENUS pathname.  This is the directory where the Telegard menu');
  writeln('files will be located.');
  writeln;
  prt('MENUS dirname: '); infielde(path[3],60); writeln; writeln;

  textcolor(14);
  writeln('TFILES pathname.  This is the directory where the Telegard');
  writeln('"text file section" text files will be located in.');
  writeln;
  prt('TFILES dirname: '); infielde(path[4],60); writeln; writeln;

  textcolor(14);
  writeln('AFILES pathname.  This is the directory where the Telegard');
  writeln('menu help files, ANSI displays, etc. will be located.');
  writeln;
  prt('AFILES dirname: '); infielde(path[5],60); writeln; writeln;

  textcolor(14);
  writeln('TRAP pathname.  This is the directory where Telegard will');
  writeln('output all User Audit traps to.  In the future, CHAT.MSG,');
  writeln('SYSOP*.LOG, FILE*.LOG, etc. will be stored here as well.');
  writeln;
  prt('TRAP dirname: '); infielde(path[6],60); writeln; writeln;

  textcolor(14);
  writeln('TEMP pathname.  Telegard uses this directory to convert between');
  writeln('archive formats, receive batch uploads, and allow users to');
  writeln('decompress archives to download single files, etc.');
  writeln;
  prt('TEMP dirname: '); infielde(path[7],60); writeln; writeln;

  clrscr;

  dostuff;

  writeln;
  star('Telegard BBS installed and initialized successfully!');
  star('This program, "INIT.EXE", can now be deleted.');
  star('Thanks for trying Telegard!');
end.