HP<(HP/2)でどうでしょう。 COPYは変数も文字列変数も配列変数もラベルもできると思いますが…? 型が合っていなかったりDATAや配列の要素が足りなかったりならエラー吐きます。