BGを表示する方法を教えてください。

データに物を見立てた物を打ち込む。 岩→四角とか FORで読み込む。 さらにFORをつかい、MID$で一文字ずつ読み込む 読み込んだ文字が「あ」だったら床、とかの条件式を作る 座標は確かXは一つ目のFORの変数、Yは二つ目のFORの変数です 間違っていたらすいません

FOR　A=0　TO　25 　READ　A$ 　FOR　B=0　TO　50 　　B$=MID$(B,A$,1) 　　IF　B$==""　THEN　BGPUT　1,A,B 　NEXT NEXT

DATA命令で読み込んだ文字をBGのキャラクターコードに変換する方法に INSTR関数を使う方法があります。 FOR Y=0 TO 14 READ A$ FOR X=0 TO 24 C=INSTR(" ■□●○▲△",MID$(A$,B,1)) IF C!=-1 THEN BGPUT 0,X,Y,C NEXT NEXT

こんな感じ

実行すると　こうなる

ありがとうございました！