home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / UTILITY / USTATV20.ARJ / READINIT.PRO < prev    next >
Text File  |  1988-12-15  |  3KB  |  73 lines
  1.        Assign (configfile, 'CONFIG.DAT');
  2.        {$I-}
  3.        Reset (configfile);
  4.        If IORESULT <> 0
  5.          then
  6.            Begin
  7.              Writeln ('   Sorry, I can''t find CONFIG.DAT. You must run USERSTAT from');
  8.              Writeln ('   the Main BBS directory. (ie. The same place that BBS.EXE and');
  9.              Writeln ('   CONFIG.DAT are.) Contact 1@16 ''The Jolly German Giant''');
  10.              Writeln ('   for more detailed help.  Abnormal Program Termination. NOT FND');
  11.              Halt;
  12.            End;
  13.        Seek (configfile, 123);
  14.        Count := 1;
  15.        Data := 'A';
  16.        Repeat
  17.          Read (configfile, Data);
  18.          If IORESULT <> 0
  19.            then
  20.               Begin
  21.                 Writeln ('   CONFIG.DAT FILE IS CORRUPTED cannot continue!');
  22.                 Writeln ('   Please contact 1@16, The Jolly German Giant for');
  23.                 Writeln ('   more help.  Abnormal Program Termination. SHRT FILE');
  24.                 Halt;
  25.               End;
  26.          If Ord (Data) <> 0
  27.            then
  28.              Begin
  29.                gfilepath [Count] := data;
  30.                gfilepath [0] := Chr (Count);
  31.                Count := Count + 1;
  32.              End;
  33.          Until (Ord (Data) = 0) or (EOF (configfile));
  34.          If Ord (Data) <> 0
  35.            then
  36.              Begin
  37.                Writeln ('   CONFIG.DAT FILE IS CORRUPTED cannot continue!');
  38.                Writeln ('   Please contact 1@16, The Jolly German Giant for');
  39.                Writeln ('   more help.  Abnormal Program Termination.  SHRT FILE 2');
  40.                Halt;
  41.              End;
  42.          Seek (configfile, 204);
  43.          Count := 1;
  44.          Data := 'A';
  45.          Repeat
  46.            Read (configfile, Data);
  47.            If IORESULT <> 0
  48.              then
  49.                Begin
  50.                  Writeln ('   CONFIG.DAT FILE IS CORRUPTED cannot continue!');
  51.                  Writeln ('   Please contact 1@16, The Jolly German Giant for');
  52.                  Writeln ('   more help.  Abnormal Program Termination. SHRT FILE');
  53.                  Halt;
  54.                End;
  55.             If Ord (Data) <> 0
  56.               then
  57.                 Begin
  58.                    datapath [Count] := data;
  59.                    datapath [0] := Chr (Count);
  60.                    Count := Count + 1;
  61.                 End;
  62.           Until (Ord (Data) = 0) or (EOF (configfile));
  63.           If Ord (Data) <> 0
  64.             then
  65.               Begin
  66.                 Writeln ('   CONFIG.DAT FILE IS CORRUPTED cannot continue!');
  67.                 Writeln ('   Please contact 1@16, The Jolly German Giant for');
  68.                 Writeln ('   more help.  Abnormal Program Termination.  SHRT FILE 2');
  69.                 Halt;
  70.               End;
  71.           {$I+}
  72.           Close (configfile);
  73.