#!/usr/local/bin/perl

$pages = 2;  # maximum 64

for ($j = 0 ; $j < $pages ; $j += 1 ) {
	open (OUTFILE, ">/home/d/b/dbaron/public_html/www/i18n/ents/ents$j.html");
	print OUTFILE "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\" \"http://www.w3.org/TR/REC-html40/loose.dtd\">\n";
	print OUTFILE "<html><head>\n";
	print OUTFILE "<title>Character Entities Test</title>\n";
	print OUTFILE "<link rel=\"copyright\" href=\"http://dbaron.org/legal.html\"></HEAD>\n";
	print OUTFILE "<body>\n";
	print OUTFILE "<h1>Character Entities Test</h1>\n";
	print OUTFILE "<table>\n";
	print OUTFILE "<tr><td>Number<\/td><td>Decimal<\/td><td>Uppercase<\/td><td>Lowercase<\/td></tr>";
	
	for ($i=0 ; $i < 1024 ; $i++ ) {
		$k = 1024 * $j + $i;
		print OUTFILE "<tr><td>$k<\/td><td>&#$k;<\/td><td style=\"text-transform: uppercase\">&#$k;<\/td><td style=\"text-transform: lowercase\">&#$k;<\/td><\/tr>\n";
		}
	
	print OUTFILE "<\/table>\n";
	print OUTFILE "<hr>\n";
	print OUTFILE "<br><i><a href=\"/~dbaron/\">LDB</a>,\n";
	print OUTFILE "<a href=\"mailto:dbaron\@fas.harvard.edu\">dbaron\@fas.harvard.edu</a></i>\n";
	print OUTFILE "</body></html>\n";
	close(OUTFILE);
	}
