home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAQ-S.ZIP / CONFIGRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-04  |  4.4 KB  |  121 lines
  1. {$R-,S-,I-,D-,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.     forcehangup,online,modeminlock,modemoutlock:boolean;
  12.     qr:longint;
  13.     useconf:boolean;
  14.     confm,confx:array [1..5] of lstr;
  15.     confmpw,confxpw:array [1..5] of mstr;
  16.     defconfm,defconfx:array [1..5] of boolean;
  17.     mprompt:lstr;
  18.     mhelp,syst1,syst2,syst3,mnew,mcheck,mfback,mchat,mlogoff,mansi:sstr;
  19.     longname,sysopname,faqdir,textdir,uploaddir,datadir,bbsdatadir,
  20.     asciidownload,textfiledir,doordir,networkdir,xferdir,
  21.     modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix,appear,
  22.     disappear:lstr;
  23.     defbaudrate:longint;
  24.     defcolor1,defcolor2,defcolor3,defcolor4,defcolor5,defcolor6:integer;
  25.     usecom,answerring,anonymouslevel,numwelcomes,mintimeout,
  26.     sysoplevel,defuserlevel,defudlevel,defudpoints,
  27.     normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
  28.     uploadfactor,lvltoloan,timerestlvl,howmuchtime,maxloan:integer;
  29.     private,autologin,useconmode,escinmsgs,bkspinmsgs,{requireforms,}
  30.     allowloan,newusermatrix,echoit,allowcol,allowdatfn,
  31.     allowpause,allowkeypr,allowhandle,allowclrscr,zipcomment,
  32.     require1,require2,require3,require4,require5:boolean;
  33.     req1name,req2name,req3name,req4name,req5name:lstr;
  34.     dotchar:char;
  35.     supportedrates,downloadrates:baudset;
  36.     availtime,unavailtime,xmodemopentime,xmodemclosetime,timereststart,
  37.     timerestend:sstr;
  38.     usertime:array [1..100] of integer;
  39.     gfratio:integer;
  40.     logonlevel,postlevel,msgnextlvl,newvotinglvl:integer;
  41.     anonymousstr,systempassword,system2password,system3password,telenumber,newuserpass:mstr;
  42.     remotedoors,allowdoors,useqr,usecliche,leechweek:boolean;
  43.     eventtime,eventbatch:sstr;
  44.     dszport,qrlimit,qrmultifactor,ultimefactor,ulpercent,chance,gain,
  45.     numpoints,numthrows,convrate,maxdeposit:integer;
  46.     newusernote:mstr;
  47.     dszlogname:lstr;
  48.     availstr,notavailstr,cliche:lstr;
  49.     directvideomode,checksnowmode,hangnewusers,discunvalid:boolean;
  50.     qrexempt,mutation1,mutation2,mutation3,usrspeed:integer;
  51.     pkarc,lharc,pak,pkzip,titlestr,sendstr:lstr;
  52.     sysopmacro1,sysopmacro2,sysopmacro3,sysopmacro4,sysopmacro5,
  53.     sysopmacro6,sysopmacro7,sysopmacro8,sysopmacro9,sysopmacro10:lstr;
  54.     xlaston,matrixtype,readanonlvl,listuserlvl:integer;
  55.     checkautologin,usegambling,atmenu,albank,aldarts,alrr,alrb,
  56.     alhl,alr,alc,usetimebank,jshutup:boolean;
  57.     notitle,emailing,ems,periods,internalm,datascrambling,scrambled,slash,matrixfback,
  58.     matrixreqchat,noscramble,nosendprompt,screenoutput,leechzmodem,
  59.     usequote,filepw,offlocal,offcall,lockport:boolean;
  60.     usenet,featurea,featureb,featurec,featured,featuree,featuref,featureg,featureh,featurej:boolean;
  61.     netnum:integer; netpas:lstr; netcomment:lstr;
  62.     netstart,netend:sstr; hostphone:mstr; extender:lstr;
  63.     scr,mnplevel,xferpcr,gfpcr,doorpcr,triviapcr,pcrexempt,bnum,udratio,udexempt,
  64.     curbkscroll:word;
  65.     ansiedit,editor,codekey:lstr;
  66.     inbuf,outbuf:integer;
  67.     autovalidate:boolean;
  68.     pointvalue:integer;
  69.     qvmainl:integer;
  70.     qvxferl:integer;
  71.     qvxferp:integer;
  72.     qvgfile:integer;
  73.     qvnote :mstr;
  74.     lockoutpw:lstr;
  75.     downloadpw:lstr;
  76.     promptformat,promptformat1:lstr;
  77.     usemouse,usenuv,autonuv:boolean;
  78.     newvotelvl:integer;
  79.     volvl,voflvl,vofps,valnu,delnu:integer;
  80.     sblaster:boolean;
  81.     filler:array [1..2500] of byte;
  82.     area:arearec;
  83.  
  84. type configsettype=array [1..(6631)] of char;
  85. (*     scramblestor=array [1..52] of string[2];  *)
  86.  
  87. var configset:configsettype absolute versioncode;
  88. var validprotos:set of char;
  89.  
  90. procedure readconfig;
  91.  
  92. implementation
  93.  
  94. procedure readconfig;
  95. var q:file of configsettype;
  96.     i:integer;
  97. begin
  98.   assign (q,'SETUP.CFG');
  99.   reset (q);
  100.   i:=ioresult;
  101.   if i=0
  102.     then read (q,configset)
  103.     else
  104.       begin
  105.         writeln ('SETUP.CFG not found!  Loading Config Program.');
  106.         halt (67)
  107.       end;
  108.   system.close (q);
  109.   if versioncode<>thisversioncode then begin
  110.     writeln ('According to the version code in SETUP.CFG, your system was set up using');
  111.     write ('FAQ ');
  112.     if (versioncode<1) or (versioncode>thisversioncode)
  113.       then write ('1.0x')
  114.       else write (versioncodes[versioncode]);
  115.     writeln ('.  Please run the appropriate conversion programs to');
  116.     writeln ('convert to this version, FAQ '+ver+'.');
  117.     halt (e_badconfig)
  118.   end
  119. end;
  120.  
  121. end.