home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORUM25C.ZIP / CONFIGRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-06  |  954 b   |  45 lines
  1. {$R-,S-,I-,D-,V-,B-,N-,L- }
  2. {$O-}
  3. unit configrt;
  4.  
  5.  
  6. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  7.  
  8. interface
  9.  
  10. uses Overlay,
  11.      gentypes;
  12.  
  13. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  14.  
  15. Procedure readconfig;
  16.  
  17. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  18.  
  19. implementation
  20.  
  21. {/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
  22.  
  23. Procedure readconfig;
  24. VAR q:file of configsettype;
  25.     i:integer;
  26. begin
  27.   assign (q,'Forum.CFG');
  28.   reset (q);
  29.   i := ioresult;
  30.   if i = 0 THEN
  31.    Read (q,configset)
  32.     else
  33.       begin
  34.         writeln ('Forum.CFG not found!  Please configure Forum-PC!');
  35.         halt (5)
  36.       end;
  37.   system.close (q);
  38.   if versioncode<>thisversioncode then begin
  39.     writeln ('Version code mismatch!  Please run the conversion program!');
  40.     halt (100)
  41.   end
  42. end;
  43.  
  44. end.
  45.