あらバグってた。2行目は return len(s$)==1 && s$[0] >= "0" && s$[0]<="9" です。 繰り返しの部分はこう。 repeat input "数字を入れてね", moji$ until isuint(moji$) 符号付きや小数の判定はご要望があれば。