他の人ですいません。 READ A$のあとに IF A$=="■"　THEN BG=559 とやって、そのあとに BGPUT 0,BY,BX,BG とやればできると思いますよ!