' Strange surface
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
SCREEN 13

FOR y = 1 TO 199
FOR x = 1 TO 319
c = SIN((x ^ 2 + y ^ 2) / 10) * 10
IF c < 0 THEN c = 0
IF c > 15 THEN c = 15
PSET (x, y), c + 16
NEXT x
NEXT y