全てEXECで起動するなんて、何か大作の気配・・・
せっかくソースがあるので書かせていただくと、15～21行目はWHILEより前でないと、A=1の時に上ボタンが押されて、その直後にAが押されるとA=0のままBREAKしてしまいますよ。
17～21行目は、「LOCATE 12,A-1:?"Q"」の1行だけで済むかも。
アプリ名（キャラ名？）はこの後のプログラムで使いそうなので、
DIM MYCHR$[5]
COPY MYCHR$,@D
@D:DATA "KAGUYA","…","…","…","…"
として配列で持っておけば、5～9行、23～27行のように同じ事を書かなくてもいいし、
FOR I=0 TO LEN(MYCHR$)-1
LOCATE 1,I:?MYCHR$[I]
NEXT
のようにしておけば後でキャラが増減したりしても書き直す必要がないですよ～。
