home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 276.img / FORUM21S.ZIP / CONFIGRT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-13  |  2KB  |  67 lines
  1. {$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
  2. {$M 65500,0,0 }
  3.  
  4. unit configrt;
  5.  
  6. interface
  7.  
  8. uses gentypes;
  9.  
  10. var versioncode:byte;
  11.     longname,shortname,sysopname,forumdir,textdir,uploaddir,boarddir,
  12.     overlaypath,asciidownload,textfiledir,doordir,
  13.     modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix:lstr;
  14.     defbaudrate,usecom,anonymouslevel,numwelcomes,mintimeout,
  15.     sysoplevel,defudlevel,defudpoints,
  16.     normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
  17.     uploadfactor:integer;
  18.     private,autologin,useconmode,escinmsgs,bkspinmsgs,requireforms:boolean;
  19.     dotchar:char;
  20.     supportedrates,downloadrates:baudset;
  21.     availtime,unavailtime,xmodemopentime,xmodemclosetime:sstr;
  22.     usertime:array [1..100] of integer;
  23.     level2nd,udlevel2nd,udpoints2nd,postlevel:integer;
  24.     anonymousstr,systempassword:mstr;
  25.     remotedoors,allowdoors:boolean;
  26.     eventtime,eventbatch:sstr;
  27.     directvideomode,checksnowmode,hashayes:boolean;
  28.     filler:array [1..500] of byte;
  29.  
  30. type configsettype=array [1..2048] of char;
  31. var configset:configsettype absolute versioncode;
  32.  
  33. procedure readconfig;
  34.  
  35. implementation
  36.  
  37. procedure readconfig;
  38. var q:file of configsettype;
  39.     i:integer;
  40. begin
  41.   assign (q,'Config.BBS');
  42.   reset (q);
  43.   i:=ioresult;
  44.   if i=0
  45.     then read (q,configset)
  46.     else
  47.       begin
  48.         writeln ('CONFIG.BBS not found!  Please configure Forum-PC!');
  49.         halt (5)
  50.       end;
  51.   system.close (q);
  52.   if versioncode<>thisversioncode then begin
  53.     writeln ('According to the version code in CONFIG.BBS, your system was set up using');
  54.     write ('Forum-PC ');
  55.     if (versioncode<1) or (versioncode>thisversioncode)
  56.       then write ('1.0x or 2.0x')
  57.       else write (versioncodes[versioncode]);
  58.     writeln ('.  Please run the appropriate conversion programs to');
  59.     writeln ('convert to this version, ',versionnum,'.');
  60.     halt (e_badconfig)
  61.   end
  62. end;
  63.  
  64. end.
  65.  
  66.  
  67.