READ A[X,Y] IF A[X,Y]==0 THEN ?"■" IF A[X,Y]==1 THEN ?"◎" IF A[X,Y]==2 THEN ?"★" をその二重FORループの中にねじ込む(LOCATEの前)