やり方は色々ありますが、一例。
公式サイトの命令表で1つ1つ調べてみるといいですよ。
ACLS
DIM X=100,Y
SPSET 0,289
SPOFS 0,X,150
SPSET 1,0
FOR I=0 TO 999
INC Y,I/8
SPOFS 1,X,Y
IF BUTTON()==#A THEN END
IF Y>220 THEN END
VSYNC
NEXT
全て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
のようにしておけば後でキャラが増減したりしても書き直す必要がないですよ~。