RosettaCodeData/Task/Munching-squares/QBasic/munching-squares.basic
2023-07-01 13:44:08 -04:00

11 lines
158 B
Text

w = 254
SCREEN 13
VIEW (0, 0)-(w / 2, w / 2), , 0
FOR x = 0 TO w
FOR y = 0 TO w
COLOR ((x XOR y) AND 255)
PSET (x, y)
NEXT y
NEXT x