Pascal FAQ created by SLY Golovanov, 2:5020/278.13
              (slightly corrected by Valery Votintsev 2:5021/22)
==============================================================================

Q: А почему одновременно больше 14 файлов Borland Pascal не открывает?

A: Используйте в вашей программе вот такой модуль.
   Можете до 255 файлов открыть.

   {$IFDEF DPMI}
   STOP COMPILE ! Only for real mode !
   {$ENDIF}

   Unit Extend; {(C) 1996 by Pavel Nikiforov}
   interface
   implementation

   procedure Setup;
   type PJFT=^TJFT;
        TJFT=record
               Num:word;
               Tbl:PChar;
             end;

   var MyJFT:PChar;
       P:PJFT;

   begin
     getmem(MyJFT,255);
     FillChar(MyJFT[0],255,$FF);
     P:=Ptr(PrefixSeg,$32);
     move(P^.TBL^,MyJFT^,P^.Num);
     P^.TBL:=MyJFT;
     P^.Num:=255;
   end;

   begin
     Setup;
   end.

---
 * Origin:  (2:5020/794.13)