Category : Files from Magazines
Archive   : ITP9002.ZIP
Filename : TESTFILE.PAS

program TestFile;
uses
crt,Dos;
type
FileArray = array[1..16] of text;
var
ar : FileArray;


Function SetMaxFiles(NbrFiles: Integer) : Byte;

var
Regs : Registers;
Result : Boolean;
begin
WITH Regs do
begin
AH := $67;
BX := NbrFiles;
MsDos(Regs);
If (FLAGS and 1) = 1 then
SetMaxFiles := AX {error}
else
SetMaxFiles := 0
end
end;


var
a,i : integer;

begin
ClrScr;
A := SetMaxFiles(25);
if A = 0 then
begin
assign(ar[1],'TEST1');
ASSIGN(ar[2],'TEST2');
assign(ar[3],'TEST3');
ASSIGN(ar[4],'TEST4');
assign(ar[5],'TEST5');
ASSIGN(ar[6],'TEST6');
assign(ar[7],'TEST7');
ASSIGN(ar[8],'TEST8');
assign(ar[9],'TEST9');
ASSIGN(ar[10],'TEST10');
assign(ar[11],'TEST11');
ASSIGN(ar[12],'TEST12');
assign(ar[13],'TEST13');
ASSIGN(ar[14],'TEST14');
assign(ar[15],'TEST15');
ASSIGN(ar[16],'TEST16');

for i := 1 to 16 do
Rewrite(ar[i]);
for i := 1 to 16 do
Writeln(ar[i],'This is a test');
for i := 1 to 16 do
Close(ar[i])
end
else
writeln('Error code ',A);
end.