「1バイト目に『8B』を持つ漢字の一覧」を出力するためのPHPコードサンプル

<?php

//このプログラムの文字コードはShift_JISで作成しています
   header("Content-Type: text/html;charset=Shift_JIS");
   print <<<END
<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>1バイト目に「8B」を持つ漢字の一覧</title>
</head>
<body bgcolor=#FFFFFF>
<table border=1 cellspacing=0 cellpadding=2>
<tr><td colspan=17 align=center><font size=+1 color=blue><b>1バイト目に「8B」を持つ漢字の一覧表</b></font>
</td></tr>
<tr bgcolor=#FFFFCC><td> </td><td align=center>0</td><td align=center>1</td><td align=center>2</td><td align=center>3</td><td align=center>4</td><td align=center>5</td><td align=center>6</td><td align=center>7</td><td align=center>8</td><td align=center>9</td><td align=center>A</td><td align=center>B</td><td align=center>C</td><td align=center>D</td><td align=center>E</td><td align=center>F</td></tr>
END;
   $moji_array = array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
   for($i=4;$i<=15;$i++){
      print "<tr><td align=center bgcolor=#FFCCFF>$moji_array[$i]</td>";
      for($j=0;$j<=15;$j++){
         $num_a = $moji_array[$i] . $moji_array[$j];
         $moji = "%8B%" . $num_a;
         $moji_a = urldecode($moji);
         $moji_b = "8B " . $num_a;
         print "<td align=center nowrap>$moji_a<br>$moji_b</td>";
      }
      print "</tr>\n";
   }
   print <<<END
</table>
</body>
</html>
END;
?>