試してないけど、これでいけるかな？
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 "
0そうだね プレイ済み