SCREEN 9, 1, 1, 1
PALETTE 0, 0
FOR i = 0 TO 7 * 307200
a = INT(RND * 640)
b = INT(RND * 480)
IF POINT(a, b) < 15 THEN
PSET (a, b), (POINT(a, b) + 1)
END IF
IF POINT(a, b) = 15 THEN
CIRCLE (a, b), 1.25
END IF
NEXT
FOR y = 0 TO 480
FOR x = 0 TO 640
IF POINT(x, y) < 15 THEN
PRESET (x, y)
END IF
NEXT x
NEXT y