SCREEN 13

FOR y = 50 TO 150
  FOR x = 100 TO 200
    PSET (x, y), 10
  NEXT x
  SOUND y, 1
NEXT y