Obsolete.
This commit is contained in:
Ryan C. Gordon
parent
deb98b6e64
commit
7f2f256f2f
824
init16d3.pas
824
init16d3.pas
|
|
@ -1,824 +0,0 @@
|
||||||
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 rec16d3.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;
|
|
||||||
|
|
||||||
curdir:string;
|
|
||||||
path:array[1..5] 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;
|
|
||||||
|
|
||||||
|
|
||||||
procedure make_paths;
|
|
||||||
var s:string;
|
|
||||||
begin
|
|
||||||
for i:=1 to 4 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'; end;
|
|
||||||
star(s+' path ("'+fexpand(path[i])+'")');
|
|
||||||
{$I-} mkdir(fexpand(path[i])); {$I+}
|
|
||||||
if ioresult<>0 then begin
|
|
||||||
writeln;
|
|
||||||
star('Error creating directory "'+fexpand(path[i])+'"');
|
|
||||||
halt(1);
|
|
||||||
end;
|
|
||||||
path[i]:=path[i]+'\';
|
|
||||||
end;
|
|
||||||
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;
|
|
||||||
autominlogon:=TRUE;
|
|
||||||
bullinlogon:=TRUE;
|
|
||||||
lcallinlogon:=TRUE;
|
|
||||||
autochatopen:=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];
|
|
||||||
msgpath:=path[2];
|
|
||||||
menupath:=path[3];
|
|
||||||
tfilepath:=path[4];
|
|
||||||
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;
|
|
||||||
for i:=1 to 9 do sysopmacro[i]:='';
|
|
||||||
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;
|
|
||||||
|
|
||||||
filearctype:=1;
|
|
||||||
filearccomment:=bbsname+' '+bbsphone;
|
|
||||||
|
|
||||||
for i:=1 to 4 do
|
|
||||||
with filearcinfo[i] do
|
|
||||||
case i of
|
|
||||||
1:begin
|
|
||||||
ext:='ZIP';
|
|
||||||
listline:='/1';
|
|
||||||
arcline:='PKZIP -aeb4 @F';
|
|
||||||
unarcline:='PKUNZIP @F';
|
|
||||||
testline:='PKUNZIP -t @F';
|
|
||||||
cmtline:='PKZIP -z @F';
|
|
||||||
succlevel:=0;
|
|
||||||
end;
|
|
||||||
2:begin
|
|
||||||
ext:='ARC';
|
|
||||||
listline:='/2';
|
|
||||||
arcline:='PKPAK a @F';
|
|
||||||
unarcline:='PKUNPAK @F';
|
|
||||||
testline:='PKUNPAK -t @F';
|
|
||||||
cmtline:='PKPAK x @F';
|
|
||||||
succlevel:=0;
|
|
||||||
end;
|
|
||||||
3:begin
|
|
||||||
ext:='ZOO';
|
|
||||||
listline:='/3';
|
|
||||||
arcline:='ZOO aP: @F *.*';
|
|
||||||
unarcline:='ZOO x @F';
|
|
||||||
testline:='ZOO xNd @F';
|
|
||||||
cmtline:='ZOO cA @F';
|
|
||||||
succlevel:=0;
|
|
||||||
end;
|
|
||||||
4:begin
|
|
||||||
ext:='PAK';
|
|
||||||
listline:='/2';
|
|
||||||
arcline:='PAK a @F';
|
|
||||||
unarcline:='PAK e @F';
|
|
||||||
testline:='';
|
|
||||||
cmtline:='';
|
|
||||||
succlevel:=-1;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
filearcinfo[5].ext:='';
|
|
||||||
|
|
||||||
yourinfoinlogon:=TRUE;
|
|
||||||
localscreensec:=FALSE;
|
|
||||||
globaltrap:=FALSE;
|
|
||||||
snowchecking:=FALSE;
|
|
||||||
|
|
||||||
for i:=1 to 198 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';
|
|
||||||
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];
|
|
||||||
for c:='A' to 'G' 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 2 do macro[i]:='';
|
|
||||||
for i:=1 to 20 do vote[i]:=0;
|
|
||||||
age:=99;
|
|
||||||
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;
|
|
||||||
|
|
||||||
{* NEW STUFF *}
|
|
||||||
|
|
||||||
trapactivity:=FALSE;
|
|
||||||
trapseperate:=FALSE;
|
|
||||||
|
|
||||||
{* 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_boards_dat;
|
|
||||||
begin
|
|
||||||
with br do begin
|
|
||||||
name:='General Messages';
|
|
||||||
filename:='GENERAL';
|
|
||||||
sl:=30;
|
|
||||||
maxmsgs:=50;
|
|
||||||
pw:='';
|
|
||||||
anonymous:=no;
|
|
||||||
ar:='@';
|
|
||||||
key:=#0;
|
|
||||||
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+'\DLOADS\SYSOP\';
|
|
||||||
noratio:=FALSE;
|
|
||||||
sl:=255;
|
|
||||||
dsl:=255;
|
|
||||||
namesl:=255;
|
|
||||||
ar:='@';
|
|
||||||
maxfiles:=999;
|
|
||||||
agereq:=1;
|
|
||||||
password:='';
|
|
||||||
end;
|
|
||||||
write(uff,ufr);
|
|
||||||
with ufr do begin
|
|
||||||
name:='Miscellaneous';
|
|
||||||
filename:='MISC';
|
|
||||||
dlpath:=curdir+'\DLOADS\MISC\';
|
|
||||||
noratio:=FALSE;
|
|
||||||
sl:=30;
|
|
||||||
dsl:=30;
|
|
||||||
namesl:=10;
|
|
||||||
ar:='@';
|
|
||||||
maxfiles:=999;
|
|
||||||
agereq:=1;
|
|
||||||
password:='';
|
|
||||||
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;
|
|
||||||
xferok:=-1;
|
|
||||||
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;
|
|
||||||
rul:=TRUE;
|
|
||||||
end;
|
|
||||||
8:begin
|
|
||||||
descr:='Lynx';
|
|
||||||
key:='L';
|
|
||||||
ptype:=6;
|
|
||||||
rcmd:='lynx R @3 /@2 /@1';
|
|
||||||
scmd:='lynx S @3 /@2 /@1';
|
|
||||||
xferok:=0;
|
|
||||||
end;
|
|
||||||
9:begin
|
|
||||||
descr:='Lynx';
|
|
||||||
key:='L';
|
|
||||||
ptype:=7;
|
|
||||||
rcmd:='lynx R /@2 /@1';
|
|
||||||
scmd:='lynx S /@2 /@1 @3';
|
|
||||||
xferok:=0;
|
|
||||||
rul:=TRUE;
|
|
||||||
end;
|
|
||||||
10:begin
|
|
||||||
descr:='Jmodem';
|
|
||||||
key:='J';
|
|
||||||
ptype:=6;
|
|
||||||
rcmd:='jmodem R@2 @3';
|
|
||||||
scmd:='jmodem S@2 @3';
|
|
||||||
xferok:=-1;
|
|
||||||
end;
|
|
||||||
11: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_laston_dat;
|
|
||||||
begin
|
|
||||||
with lcall do begin
|
|
||||||
callernum:=0;
|
|
||||||
name:='Eric Oman';
|
|
||||||
number:=1;
|
|
||||||
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_boards_dat;
|
|
||||||
make_uploads_dat;
|
|
||||||
make_protocol_dat;
|
|
||||||
make_zlog_dat;
|
|
||||||
make_email_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('boards.dat',path[1]);
|
|
||||||
movefile('email.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 GFILES directory');
|
|
||||||
movefiles('*.ANS',path[1]);
|
|
||||||
movefiles('*.MSG',path[1]);
|
|
||||||
movefiles('*.TUT',path[1]);
|
|
||||||
movefile('computer.txt',path[1]);
|
|
||||||
ttl('Moving message file into MSGS directory');
|
|
||||||
movefile('a-32767.1',path[2]);
|
|
||||||
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\';
|
|
||||||
|
|
||||||
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 is the directory where the Telegard message');
|
|
||||||
writeln('files to be used in the message section will be located.');
|
|
||||||
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;
|
|
||||||
|
|
||||||
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.
|
|
||||||
958
init16e1.pas
958
init16e1.pas
|
|
@ -1,958 +0,0 @@
|
||||||
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.
|
|
||||||
Loading…
Reference in New Issue