# print all of shift_jis zenkaku characters

open(OUT, ">s.txt");
binmode(OUT);  #WindowsのActivePerlで動作させたとき、改行コードがUNIXになる

for($i=0x81; $i<=0xfc; $i++){
    if($i>0x9f && $i<0xe0){
	next;
    }
    print OUT "\n<p><table border=1 cellspacing=0 cellpading=0>\n<tr><th> <th>00 <th>01 <th>02 <th>03 <th>04 <th>05 <th>06 <th>07 <th>08 <th>09 <th>0a <th>0b <th>0c <th>0d <th>0e <th>0f <th>10 <th>11 <th>12 <th>13 <th>14 <th>15 <th>16 <th>17 <th>18 <th>19 <th>1a <th>1b <th>1c <th>1d <th>1e <th>1f\n";
    for($j=0x40; $j<=0xff; $j++){
	if( ($j-0x40)%32==0){
	    print OUT "\n\n";
	    printf OUT ("<tr><th>0x%02x%02x ", $i, $j);
	}
	if($j==0x7f || $j==0xfd || $j==0xfe || $j==0xff){
	    printf OUT ("<td bgcolor=\"#9a9abd\">%c%c ", 0x81, 0x40); #Netscape4.xで青色を表示させるため、全角空白を置く
	}else{
	    printf OUT ("<td>%c%c ", $i, $j);
	}
    }
    print OUT "\n</table>\n";
}

close(OUT);