home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SYSPC22.ZIP / CONFIGRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-02  |  1.5 KB  |  43 lines
  1. var mustbefirst:byte;
  2.     longname,shortname,sysopname,forumdir,textdir,uploaddir,boarddir,
  3.     overlaypath,asciidownload,textfiledir,doordir,
  4.     offhookmodem,resetmodem,answermodem,
  5.     modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix:lstr;
  6.     defbaudrate,usecom,anonymouslevel,numwelcomes,mintimeout,
  7.     sysoplevel,defudlevel,defudpoints,
  8.     normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
  9.     uploadfactor,forvote:integer;
  10.     gfiles,msgs,dbase,xfer,private,trname,vote,
  11.     unix,fixhan,matrix,autologin,useconmode,escinmsgs,bkspinmsgs,requireforms:boolean;
  12.     dotchar:char;
  13.     supportedrates,downloadrates:baudset;
  14.     availtime,unavailtime,xmodemopentime,xmodemclosetime:sstr;
  15.     usertime:array [1..100] of integer;
  16.     gfudratio,udratio:integer;
  17.     nopcr,gfratio,xferratio,defgflevel,seeuse,statallow,level2nd,udlevel2nd,
  18.     udpoints2nd,postlevel:integer;
  19.     arcview,unarc,anonymousstr,syspwrd1,syspwrd2,syspwrd3,unixdefault:mstr;
  20.     matfeed,gambling,remotedoors,allowdoors,ansiwait:boolean;
  21.     eventtime,eventbatch:sstr;
  22.     filler:array [1..500] of byte;
  23.  
  24. type configsettype=array [1..2048] of char;
  25. var configset:configsettype absolute mustbefirst;
  26.  
  27. procedure readconfig;
  28. var q:file of configsettype;
  29.     i:integer;
  30. begin
  31.   assign (q,'Config.BBS');
  32.   reset (q);
  33.   i:=ioresult;
  34.   if i=0
  35.     then read (q,configset)
  36.     else
  37.       begin
  38.         writeln ('Please configure SYS-PC!');
  39.         halt (2)
  40.       end;
  41.   close (q)
  42. end;
  43.