〔訂正〕 ＃BLACKさんのコメントを見て気づきました。 11行目のプログラムを IF　１０００＞B　THEN　GOTO　＠E　 とするのが正しいみたいです。 連続の投稿失礼しました。