home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
276.img
/
FORUM21S.ZIP
/
CONFIGRT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
2KB
|
67 lines
{$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
{$M 65500,0,0 }
unit configrt;
interface
uses gentypes;
var versioncode:byte;
longname,shortname,sysopname,forumdir,textdir,uploaddir,boarddir,
overlaypath,asciidownload,textfiledir,doordir,
modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix:lstr;
defbaudrate,usecom,anonymouslevel,numwelcomes,mintimeout,
sysoplevel,defudlevel,defudpoints,
normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
uploadfactor:integer;
private,autologin,useconmode,escinmsgs,bkspinmsgs,requireforms:boolean;
dotchar:char;
supportedrates,downloadrates:baudset;
availtime,unavailtime,xmodemopentime,xmodemclosetime:sstr;
usertime:array [1..100] of integer;
level2nd,udlevel2nd,udpoints2nd,postlevel:integer;
anonymousstr,systempassword:mstr;
remotedoors,allowdoors:boolean;
eventtime,eventbatch:sstr;
directvideomode,checksnowmode,hashayes:boolean;
filler:array [1..500] of byte;
type configsettype=array [1..2048] of char;
var configset:configsettype absolute versioncode;
procedure readconfig;
implementation
procedure readconfig;
var q:file of configsettype;
i:integer;
begin
assign (q,'Config.BBS');
reset (q);
i:=ioresult;
if i=0
then read (q,configset)
else
begin
writeln ('CONFIG.BBS not found! Please configure Forum-PC!');
halt (5)
end;
system.close (q);
if versioncode<>thisversioncode then begin
writeln ('According to the version code in CONFIG.BBS, your system was set up using');
write ('Forum-PC ');
if (versioncode<1) or (versioncode>thisversioncode)
then write ('1.0x or 2.0x')
else write (versioncodes[versioncode]);
writeln ('. Please run the appropriate conversion programs to');
writeln ('convert to this version, ',versionnum,'.');
halt (e_badconfig)
end
end;
end.