1つでしか判断していないという事はループ変数のiを入れて IF SPCHK(i)==0 THEN GOSUB @APP をFOR～NEXTの中に入れればいいですか？(大文字のアイだと1に見えてしまうのでわざとiにしています…)