home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / UNIT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-05-29  |  7KB  |  194 lines
  1. program init;
  2.  
  3. Uses
  4.   Crt,Common;
  5.  
  6. Var
  7.     x:file of astr;
  8.     vdata:file of vdatar;
  9.     vd:vdatar;
  10.     fx:ulrec;
  11.     fi:text;
  12.     ns:pnr; fil:file of pnr;
  13.     boards1:boardrec;
  14.     slf1:file of slr;
  15.     strng:astr;
  16.  
  17. function exist(fn:astr):boolean;
  18. var f:file;
  19. begin
  20.   assign(f,fn);
  21.   {$I-} reset(f); {$I+}
  22.   exist:=(ioresult=0);
  23.   close(f);
  24. end;
  25.  
  26. procedure move(s:astr);
  27. var s1,i:astr; f,f1:text; a:integer;
  28. begin
  29.     write(s); for a:=1 to length(s) do write(#8);
  30.     assign(f,s); s1:='gfiles\'+s; assign(f1,s1);
  31.     reset(f); rewrite(f1);
  32.     while not eof(f) do begin
  33.       readln(f,i); writeln(f1,i);
  34.     end;
  35.     close(f1); close(f);
  36. end;
  37.  
  38. procedure make(s:astr);
  39. var f:text; a:integer;
  40. begin
  41.     textcolor(2);write(s);clreol;for a:=1 to length(s) do write(#8);
  42.     assign(f,'gfiles\'+s);
  43.     rewrite(f);
  44.     writeln(f,'This is "'+s+'"');
  45.     close(f);
  46. end;
  47.  
  48. procedure make1(s:astr);
  49. var f:text; a:integer;
  50. begin
  51.     textcolor(2);write(s);textcolor(4);clreol;for a:=1 to length(s) do write(#8);
  52.     assign(f,'gfiles\'+s);
  53.     rewrite(f);
  54.     writeln(f);
  55.     close(f);
  56. end;
  57.  
  58. var ii:integer;
  59. begin
  60.   clrscr;
  61.   begin
  62.     textcolor(10);
  63.     writeln('-═════════════════════════════════════-');
  64.     textcolor(12);
  65.     writeln(' Telegard 1.4e Initialization Program');
  66.     textcolor(10);
  67.     writeln('-═════════════════════════════════════-');
  68.     textcolor(11);
  69.     writeln;
  70.     writeln('Beginning Initialization Process...');
  71.     textcolor(4);write('Creating Directory: '); textcolor(3);
  72.     mkdir('gfiles'); write('GFILES'+#8#8#8#8#8#8);
  73.     mkdir('msgs'); write('MSGS  '+#8#8#8#8#8#8);
  74.     mkdir('dloads'); write('DLOADS'#8#8#8#8#8#8);
  75.     textcolor(13);writeln('Creating User Files');
  76.     assign(uf,'gfiles\user.lst'); assign(sf,'gfiles\names.lst');
  77.     assign(systatf,'status.dat');
  78.     rewrite(uf); write(uf,user);close(uf); rewrite(sf);
  79.     sr.number:=0; sr.name:='';
  80.     write(sf,sr);write(sf,sr);close(sf); rewrite(systatf);
  81.     systat.comport:=0;
  82.     systat.maxbaud:=0;
  83.     while (not (systat.comport in [1,2])) or
  84.     ((systat.maxbaud<>300) and (systat.maxbaud<>1200) and (systat.maxbaud<>2400)) do begin
  85.       write('Which com port (1-2) ? ');
  86.       readln(systat.comport);
  87.       write('Modem speed (300,1200,2400) ? ');
  88.       readln(systat.maxbaud);
  89.     end;
  90.     getdir(0,strng);
  91.     with systat do begin boardpw:=''; sysoppw:='SYSOP';
  92.       hmsg.number:=-32767; hmsg.ltr:='A'; hmsg.ext:=1; users:=0;
  93.       lastdate:=''; callernum:=0; activetoday:=0; callstoday:=0; msgposttoday:=0;
  94.       emailtoday:=0; fbacktoday:=0; uptoday:=0; closedsystem:=false;
  95.       gfiledate:='01/01/85';
  96.       lowtime:=0; hitime:=0;
  97.       for t:=1 to 100 do res[t]:=0;
  98.       engage:='Hello, this is the Sysop...'; endchat:='Chat mode terminated.';
  99.       alias:=true; echoc:='X'; sysopin:='Sysop is in!'; sysopout:='The Sysop is out.';
  100.       note[1]:='Enter your full name or user #.'; note[2]:='New users type "NEW".';
  101.       lprompt:=':'; lansi:=false; if systat.maxbaud=300 then init:='ATS0=0Q0V0E0M0S2=1'
  102.       ELSE INIT:='ATS0=0Q0V0E0M0S2=1X1'; forcevoting:=false;
  103.       app:=true; fone:=true; wait:='[SYSOP WORKING]'; for ii:=1 to 9 do sysopmacro[II]:='>>=- Telegard Sysop Macro -=<<';
  104.       forcevoting:=false; gfilepath:=strng[1]+':GFILES\';
  105.       msgpath:=strng[1]+':MSGS\'; multitask:=false;
  106.       pause:='[ Pause ]'; hangup:='ATH'; answer:='ATA';
  107.       result300:=1; result1200:=5; result2400:=10;
  108.       nocarrier:=3; filesl:=10; tries:=3; newsl:=10;
  109.       newdsl:=0; newar:=[]; newac:=[rvalidate]; newdk:=0;
  110.       newuk:=0; bwindow:=true; bsdelay:=20; mcimsg:=false;
  111.       b300lowtime:=0; b300hitime:=0; dllowtime:=0; dlhitime:=0;
  112.       lock300:=false; b300dlhitime:=0; b300dllowtime:=0;
  113.       result4800:=0; result9600:=0; SysopFirst:='The';
  114.       SysopLast:='SysOp'; BBSName:='Telegard'; BBSPhone:='313-773-6041';
  115.       ansiq:='Ansi Logon? '; wantquote:=false; menupath:='MENUS\';
  116.       autosl:=50; autodsl:=50; autoac:=[]; autoar:=[];
  117.  end;
  118.     write(systatf,systat); close(systatf);
  119.     textcolor(9);write('Creating > ');
  120.     textcolor(14);make('WELCOME.MSG');
  121.     make('LOGON.MSG');
  122.     make('LOGOFF.MSG');
  123.     make('SYSTEM.MSG');
  124.     make('NEWUSER.MSG');
  125.     make1('USER.LOG');
  126.     make1('SYSOP.LOG');
  127.     make1('YSYSOP.LOG');
  128.     make1('BBSLIST.MSG');
  129.     make1('NONEWUSR.MSG');
  130.     textcolor(4);
  131.     writeln('  Creating board files..');
  132.     assign(bf,'gfiles\boards.dat');
  133.     with boards1 do begin
  134.       name:='General';
  135.       filename:='board1';
  136.       sl:=10;
  137.       postsl:=10;
  138.       maxmsgs:=50;
  139.       pw:='';
  140.       anonymous:=no;
  141.       ar:='@';
  142.       key:=' ';
  143.     end;
  144.     rewrite(bf); write(bf,boards1); close(bf);
  145.     assign(ulf,'gfiles\uploads.dat'); rewrite(ulf);
  146.     fx.name:='Sysop'; fx.dsl:=100; fx.filename:='ubsysop'; fx.maxfiles:=50; fx.password:='';
  147.     fx.agereq:=1; fx.dlpath:=strng[1]+':DLOADS\'; fx.ar:='@';
  148.     write(ulf,fx);
  149.     fx.name:='Miscellaneous'; fx.dsl:=0; fx.filename:='ub1'; fx.maxfiles:=50; fx.password:='';
  150.     fx.agereq:=1; fx.dlpath:=strng[1]+':DLOADS\'; fx.ar:='@';
  151.     write(ulf,fx);
  152.     close(ulf);
  153.     assign(x,'gfiles\laston.dat'); rewrite(x);
  154.     i:='';
  155.     for t:=1 to 8 do write(x,i);
  156.     close(x);
  157.     assign(vdata,'gfiles\voting.dat');
  158.     rewrite(vdata);
  159.     vd.question:='<< NO QUESTION >>'; vd.numa:=0;
  160.     for t:=1 to 9 do write(vdata,vd);
  161.     close(vdata);
  162.     assign(mailfile,'gfiles\email.dat');
  163.     rewrite(mailfile);
  164.     close(mailfile);
  165.     assign(fi,'gfiles\trashcan.txt');
  166.     rewrite(fi); i:='FUCK'; writeln(fi,i); i:='SHIT'; writeln(fi,i);
  167.     i:='DAMN'; writeln(fi,i); i:='DICKHEAD'; writeln(fi,i);
  168.     close(fi);
  169.     writeln;
  170.       writeln('  Copying seclev.dat');
  171.       assign(slf,'seclev.dat'); assign(slf1,'gfiles\seclev.dat');
  172.       reset(slf); rewrite(slf1);
  173.       for fw:=0 to 255 do begin read(slf,seclev[fw]); write(slf1,seclev[fw]); end;
  174.       close(slf1);
  175.       close(slf);
  176.     assign(fil,'gfiles\numbers.dat');
  177.     {$I-} reset(fil); {$I+}
  178.     if ioresult<>0 then begin
  179.       rewrite(fil);
  180.       ns.name:='========================================';
  181.       ns.number:='- --- --- ----';
  182.       ns.hs:=1;
  183.       for fw:=1 to 9 do write(fil,ns);
  184.     end; close(fil);
  185.     textcolor(11);writeln('Telegard 1.4e initialization complete');
  186.     writeln('Thank you for using Telegard Software.');
  187.     writeln;
  188.     textcolor(15);
  189.     writeln('   Call home of Telegard (313)-773-6041');
  190.     writeln('   and Flight From the Dark (313)-779-5385');
  191.   end;
  192. end.
  193.  
  194.