これは、↓のDATA文で"　"のとこは、　になって"B"は、■になる見たいにしたいのですがこれを実行すると何もならないのです。 とうすればてきるのですか？

まずはDATAに対してREADが少ないですね READ M$ とした時、 DATA " BB" '① DATA "B B" '② DATA "BB " '③ ①しか読まれません（ちなみにもう一度READを使うと②が読まれます） この場合、M$には" BB"が入ります んで、次に、文字を置き換えるのは、MID$関数でM$の中の文字を一文字づつ取り出し比較するとよいでしょう M$の文字列をイッキに置換する方法もあります（SUBST$関数）

試してないけど、これでいけるかな？ ACLS DIM M$[3] RESTORE @MAP FOR I=0 TO 2 READ M$[I]'マップを読む FOR J=0 TO 2'このループで１文字づつ比較する IF MID$(M$[I],J,1)==" " THEN LOCATE J,I:PRINT "白" IF MID$(M$[I],J,1)=="B" THEN LOCATE J,I:PRINT "■" NEXT NEXT @MAP DATA " BB" DATA "B B" DATA "BB "

ありがとうございます！