動いて良かったです。 そういえばBGPUTの行、「IF T THEN」を省いてしまっていたのでそこは必要なので付けてくださいね。 （多分いつでもBGが黒くなるので気づくと思いますが）