〔訂正〕 すいません、間違えました 正：IF　１０００＞＝B　THEN　GOTO　＠E 12行目からのIF文もGOTO命令が抜けてると思います。