' surface
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 
DEFINT A-Z
SCREEN 13
RANDOMIZE TIMER

FOR a = 0 TO 255
OUT &H3C8, a
OUT &H3C9, SIN(a / 21) * 30 + 30
OUT &H3C9, SIN(a / 34) * 30 + 30
OUT &H3C9, SIN(a / 10) * 30 + 30
NEXT a



FOR y = 1 TO 199
FOR x = 1 TO 319
c1 = POINT(x, y - 1)
c2 = POINT(x - 1, y)
c3 = POINT(x - 1, y - 1)
c4 = POINT(x - 2, y)
c = (c1 + c2 + c3 + c4) \ 4 + (RND * 5 - 2)
IF c < 0 THEN c = 0
IF c > 63 THEN c = 63
PSET (x, y), c
NEXT x
NEXT y

a$ = INPUT$(1)

SYSTEM