X=0:Y=0 WHILE 1 READ DAT$ IF DAT$=="END" THEN BREAK LOCATE X,Y ?DAT$ INC Y WEND DATA "■■" DATA "■' DATA "■" DATA "■" DATA "■■■" DATA "■ ■"