macro ListFiles;
var
	boolean : found;
	longint : dataFork,rsrcFork;
	str255 : name,fType, path,s;
begin
	disposeunclose;
	fType:='TEXT';
	GetPath(FALSE,path);
	found:=FindFirstFile(name,fType);
	if(found) 
		NewText('test');
		write('test','Listing of all TEXT files in ');
		writeln('test',path);
		repeat
			FileSize(name,dataFork,rsrcFork);
			s:=concat(name,'  ',dataFork:1,'bytes');
			writeln('test',s);
			found:=FindNextFile(name,fType);
		until(!found);
	endif;
end;
