FOR Y=0 TO 239 STEP 8 FOR X=0 TO 399 STEP 8 GPUTCHR X,Y,"■" NEXT:NEXT