CLS : SCREEN 7
DIM p%(10000), z%(32, 32)
COLOR 6: PRINT "Y."
COLOR 2: PRINT "W."
GOSUB getzoom
GOSUB scrnsve
END

scrnsve:
RETURN

getzoom:
FOR x% = 0 TO 31
FOR y% = 0 TO 31
z%(x%, y%) = POINT(x%, y%)
NEXT: NEXT
CLS
FOR z% = 1 TO 31
FOR x% = 0 TO z%
FOR y% = 0 TO z%
PSET (x%, y%), z%(x% / (z% / 31), y% / (z% / 31))
NEXT: NEXT: NEXT
RETURN