I've setup the Speed Pascal v1.5 gamma 1 program and am working thru
it's English/German docs.  The following code snippet results in the
following popup error message:

         Exception Occured

         Exception occured: Input/Output
         error (ElnOutError) at $0001041F

         Program is terminated.


Here's the code:

Program Web_Explorer_URL_Sort;
{Web Explorer URL Sort - Copyright 1996 }
{Phil Pattengale}

Uses WinCrt, DOS;

Var
   Path         :       String;
   DirList      :       String;
   EnvVar       :       String;
   T            :       String;
   INI          :       String;
   SafeINI      :       String;
   Line         :       String;
   Query        :       Char;
   Src          :       Text;
   WorkINI      :       Text;
   QL           :       Array [1..100,1..100] of String;

Begin
     WriteLn('                            WEURLS v1.0');
     WriteLn('');

     EnvVar := 'ETC';
     DirList := GetEnv(EnvVar);

     INI := 'EXPLORE.INI';
     Path := Fsearch(INI,DirList);
     If Path = '' Then
       Repeat
          Begin
          WriteLn('EXPLORE.INI not found on PATH.');
          WriteLn('Please Enter Path for EXPLORE.INI');
          WriteLn('Or Enter a blank line to end');
          ReadLn(DirList);
          if DirList = '' then halt;
          Path := Fsearch(INI,DirList);
          end;
       Until Path  '';
     WriteLn('Found: ' + path );
     Repeat
       Begin
         WriteLn('Sort the Quicklist in this file? [Y/n/q]');
         Query:=ReadKey;
         if (Query = 'q') OR (Query = 'Q') then halt;
       end;
     Until (Query = 'Y') OR (Query = 'y');

     ClrScr;
     SafeINI := copy(Path,1,(Length(Path)-3)) + 'ori';
     Assign (Src, Path);
     Rename(Src,SafeINI);
*    Assign (WorkINI, Path);
     Reset(WorkINI);
     While Not EOF(WorkINI) Do
       Begin
         Repeat
           Begin
             ReadLn(WorkINI,Line);
             WriteLn(Src,Line);
           end;
         Until Line = '[quicklist]';
       end;
End.

-----

I believe the line marked with the "*" is the one that blows up.

Any ideas anyone?  The core help files (all the function references,
etc) are in German, although the basic help portions are in English.
Thus, I'm confused.

I'm trying to read thru the explore.ori (copy of original explore.ini)
and write to a new explore.ini.  As far as the code is now, I just want
to clone the top portions of the .ini file and when I reach the
quicklist section will sort it.

I presume I am missing some error checking for the file accessing, but
the program works up just past the rename command (it does rename the
file).

Has v1.5 been released yet?  The docs alone would be worth the $$$ .

Thanks!

Phil

--- GOMail v2.0 [94-0279]