入力した文字を縦書きで表示(全角文字のみ対応)

新しいウィンドウを開き、テキストフォームに入力された文字を
縦に表示する。仕掛けはテーブル。
ただし、正常に表示できるのはすべて全角文字のときだけ。
半角が混じると文字化けを起こす。改良すればなんとかなるかも。
実行結果

ヘッダ部分
<SCRIPT LANGUAGE="JavaScript">
function changeTate()	{
	var str = document.forms[0].string.value
	var moji = new Array(str.length/2)
	for(i = 0 ; i < str.length/2 ; i++)	{
		moji[i] = str.substring(i*2,i*2+2)
	}
	newWindow = window.open("","","scrollbars=1,width=100,height=500")
		if(newWindow != null)   {
			var tatemoji = "<HTML><HEAD><TITLE>SUB WINDOW</TITLE></HEAD>"
				tatemoji += "<BODY BGCOLOR='black' TEXT='white'><CENTER><TABLE>"
					for(j = 0 ; j < str.length/2 ; j++)	{
						tatemoji += "<TR><TD>"
						tatemoji += moji[j]
						tatemoji += "</TD></TR>"
					}
				tatemoji += "</TABLE></CENTER></BODY></HTML>"
				newWindow.document.write(tatemoji)
				newWindow.document.close()
		}
}
</SCRIPT>


ボディ部分
<FORM>
<INPUT TYPE="text" NAME="string"  VALUE="作成時点ではｉｅ３．０では動きませんでした" SIZE="40">
<INPUT TYPE="button" NAME="make" VALUE="縦にする" onClick="changeTate()">
</FORM>