home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 189.img / TCS120S.ZIP / CONFIGRT.PAS < prev    next >
Pascal/Delphi Source File  |  1989-04-06  |  5KB  |  128 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.     qr:longint;
  12.     longname,shortname,sysopname,forumdir,textdir,uploaddir,boarddir,
  13.     overlaypath,asciidownload,textfiledir,doordir,
  14.     modemsetupstr,modemhangupstr,modemdialprefix,modemdialsuffix,appear,
  15.     disappear:lstr;
  16.     defbaudrate,usecom,anonymouslevel,numwelcomes,mintimeout,
  17.     sysoplevel,defudlevel,defudpoints,
  18.     normbotcolor,normtopcolor,outlockcolor,splitcolor,statlinecolor,
  19.     uploadfactor,lvltoloan,timerestlvl,howmuchtime,maxloan,maxdebt:integer;
  20.     private,autologin,useconmode,escinmsgs,bkspinmsgs,requireforms,
  21.     allowloan,usematrix,newusermatrix,echoit:boolean;
  22.     dotchar:char;
  23.     supportedrates,downloadrates:baudset;
  24.     availtime,unavailtime,xmodemopentime,xmodemclosetime,timereststart,
  25.     timerestend:sstr;
  26.     usertime:array [1..100] of integer;
  27.     level2nd,udlevel2nd,udpoints2nd,postlevel,msgnextlvl:integer;
  28.     anonymousstr,systempassword,system2password,system3password,telenumber:mstr;
  29.     remotedoors,allowdoors,useqr,usecliche:boolean;
  30.     eventtime,eventbatch:sstr;
  31.     dszport,qrlimit,qrmultifactor,ultimefactor,ulpercent:integer;
  32.     dszlog,sklog,newusernote,dszfn,dsz2fn,jmodemfn,lynxfn,jbatchfn,
  33.     super8kfn:mstr;
  34.     availstr,notavailstr,cliche:lstr;
  35.     directvideomode,checksnowmode,hashayes,hangnewusers,discunvalid:boolean;
  36.     qrexempt,mutation1,mutation2,mutation3:integer;
  37.     pkarc,pkarc2,pak,pkzip,titlestr,sendstr:lstr;
  38.     sysopmacro1,sysopmacro2,sysopmacro3,sysopmacro4,sysopmacro5,
  39.     sysopmacro6,sysopmacro7,sysopmacro8,sysopmacro9,sysopmacro10:lstr;
  40.     xlaston,matrixtype,readanonlvl,listuserlvl:integer;
  41.     checkautologin,usetrivia,atmenu:boolean;
  42.     notitle,emailing,ems,periods,datascrambling,scrambled,slash,matrixfback,
  43.     matrixreqchat,noscramble,nosendprompt,screenoutput,leechzmodem,
  44.     userumor,filepw:boolean;
  45.     scr,mnplevel,xferpcr,gfpcr,doorpcr,triviapcr,pcrexempt,bnum,
  46.     bkscrollmax:integer;
  47.     {--> BEGIN External Protocol Definitions <--}
  48.     zmodemr,zmodems,jmodemr,jmodems,lynxr,lynxs,xovrr,xovrs,yovrr,yovrs,
  49.     superkr,superks,k9xr,k9xs,zcrashr,zcrashs,zpcpr,zpcps,wxmodemr,
  50.     wxmodems,lynxcrashr,lynxcrashs,ymodemgr,ymodemgs,zrles,zrler,
  51.     ybatchr,ybatchs,xbatchr,xbatchs:lstr;
  52.     {--> END External Protocol Definitions <--}
  53.     editor,codekey,commandcom:lstr;
  54.     filler:array [1..500] of byte;
  55.     bbuffer:array [1..maxb] of batchrec;
  56.     area:arearec;
  57.     versioncode2:byte;
  58.  
  59. type configsettype=array [1..(1024*7)] of char;  {orig:2048}
  60. var configset:configsettype absolute versioncode;
  61. type protoconfigsettype=array [1..(1024*7)] of char;
  62. var protoconfigset:protoconfigsettype absolute versioncode2;
  63. var validprotos:set of char;
  64. var bkscroll:backscroll;
  65.  
  66. procedure readconfig;
  67. procedure readprotoconfig;
  68.  
  69. implementation
  70.  
  71. procedure readconfig;
  72. var q:file of configsettype;
  73.     i:integer;
  74. begin
  75.   assign (q,'TCS.Cfg');
  76.   reset (q);
  77.   i:=ioresult;
  78.   if i=0
  79.     then read (q,configset)
  80.     else
  81.       begin
  82.         writeln ('TCS.CFG not found!  Loading Config Program..');
  83.         halt (67)
  84.       end;
  85.   system.close (q);
  86.   if versioncode<>thisversioncode then begin
  87.     writeln ('According to the version code in TCS.CFG, your system was set up using');
  88.     write ('TCS ');
  89.     if (versioncode<1) or (versioncode>thisversioncode)
  90.       then write ('1.0x or 2.0x')
  91.       else write (versioncodes[versioncode]);
  92.     writeln ('.  Please run the appropriate conversion programs to');
  93.     writeln ('convert to this version, TCS '+ver+'.');
  94.     halt (e_badconfig)
  95.   end
  96. end;
  97.  
  98. procedure readprotoconfig;
  99. var q:file of protoconfigsettype;
  100.     i:integer;
  101. begin
  102.   assign (q,'Protocol.Cfg');
  103.   reset (q);
  104.   i:=ioresult;
  105.   if i=0
  106.     then read (q,protoconfigset)
  107.     else
  108.       begin
  109.         writeln ('PROTOCOL.CFG not found!  Loading Protocol Config Program..');
  110.         halt (66);
  111.       end;
  112.   system.close (q);
  113.   if versioncode<>thisversioncode then begin
  114.     writeln ('According to the version code in PROTOCOL.CFG, your protocols were');
  115.     write ('Set up using TCS ');
  116.     if (versioncode<1) or (versioncode>thisversioncode)
  117.       then write ('1.0x or 2.0x')
  118.       else write (versioncodes[versioncode]);
  119.     writeln ('.  Please run the appropriate conversion');
  120.     writeln ('programs to convert to this version, TCS '+ver+'.');
  121.     halt (e_badconfig)
  122.   end
  123. end;
  124.  
  125. end.
  126.  
  127.  
  128.