CLS
FOR C = 1 TO 80 : FOR R = 1 TO 24
  COLOR R + C - (R + C) \ 15) * 15
  LOCATE R, C : PRINT "#";
NEXT : NEXT