工夫すれば短く出来ますよ。一例としては、19〜22行目は、 IF BTN AND 16 THEN ON Y GOTO @ATTACK, @DEFEND, @MAGIC, @ITEM みたいに出来ると思います。 あと文の区切り（LOCATEとPRINTの間とか）をスペースにしていますが、個人的にはちゃんとした区切り記号である：（コロン）で書いた方が良いような気がします〜。