program ExtendedFileNameTest ;
{$IEXTFN.UNT}

var
   File1          , File2           :            Text ;
   FileName1      , FileName2       :   FullFileNames ;
   FileDescriptor1, FileDescriptor2 : FileDescriptors ;
   I : Integer ;

procedure DumpDescriptor( FileDesc : FileDescriptors ) ;
begin
   with FileDesc do
     Write( 'Drive=', Drive, ', User=', User, ',  FileName=', Name, '.', Ext ) ;
   WriteLn( '; FullName=', ExpandFileName(FileDesc, DUNE_Format) ) ;
end ;

begin
   InitFileNameUnit ;
   FileName1:= '3:user3.qqq' ;
   FileName2:= '5:user5.qqq' ;

   SplitFileName( FileDescriptor1, FileName1 ) ;
   DumpDescriptor( FileDescriptor1 ) ;
   RegisterFile ( FileDescriptor1, File1 ) ;

   SplitFileName( FileDescriptor2, FileName2 ) ;
   DumpDescriptor( FileDescriptor2 ) ;
   RegisterFile ( FileDescriptor2, File2 ) ;

   Assign ( File1, ExpandFileName(FileDescriptor1,DNE_Format) ) ;
   Rewrite( File1 ) ;
   Assign ( File2, ExpandFileName(FileDescriptor2,DNE_Format) ) ;
   Rewrite( File2 ) ;

   For I:= 1 to 1000 do
    begin
     WriteLn( File1, 'THIS IS LINE ', I ) ;
     WriteLn( File2, 'this is line ', I ) ;
    end ;

   Close( File1 ) ;
   Close( File2 ) ;
   UnInitFileNameUnit ;
end.