>271
フリーのBCBを使っています。valの値が利用されていないと
警告がでましたが、「１」を出力しました。