[HMM0071A]

入力がニューメリック(数値、整数)であるかのチェックは厳密に行うと複雑なロジックになりがちです。ここでは簡単なチェック方法を示します。

// (例) ---------------------
$wk1 = input("数値を入力してください!","");
if( $wk1 == str(val($wk1)) ){

    message "数値 : " + $wk1;

} else {

    message "数値ですか ! \n" + $wk1;

}
endmacro;

// （ここまで）-----------------------------------------------

入力文字列を val 関数で数値にして、次に str関数で文字列にして、最初の入力文字列と比較しています。完璧なチェック方法ではありませんが、実用レベルには耐えるでしょう。この例では、+符号、全角文字 (数字) の考慮はありません。