#!/usr/local/bin/perl
$max=800;
print"Contents-Type: text/html\n\n";
if($ENV{QUERY_STRING}){$rnd=$ENV{QUERY_STRING}}else{$rnd=int(rand($max+1))}
$j=$rnd;$per=100;
if($rnd=~/-/){
	($i,$j)=split('-',$rnd);
	if($j eq''){$j=$i}
	$rnd=$i;$per=10;
#	if($j>$max){$j=$max}
}
for($l=$rnd;$l<=$j;$l++){
	printf"<a href=\"./nikoR.cgi\"><img src=\"http://res.nicovideo.jp/img/base/head/icon/nico/%03d.gif\" height=\"$per%\" border=\"0\"></a>",$l;
	foreach(split(//,sprintf"NO.%03d",$l)){
		printf"<img src=\"http://hpv.cc/font/$_.gif\" width=\"20\">";
	}
	print"<br>\n";
}

print"<hr size=\"1\">\n<a href=\"./niko.html\"><img src=\"http://hpv.cc/font/A.gif\" width=\"20\" border=\"0\"><img src=\"http://hpv.cc/font/L.gif\" width=\"20\" border=\"0\"><img src=\"http://hpv.cc/font/L.gif\" width=\"20\" border=\"0\"></a>\n";