' Old paper surface
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslavagejenko@gmail.com
 
DEFINT A-Z
SCREEN 13
RANDOMIZE TIMER
FOR a = 0 TO 63
OUT &H3C8, a
OUT &H3C9, a  'R
OUT &H3C9, a  'G
OUT &H3C9, a  'B
NEXT a

z = 0

FOR y = 1 TO 190
FOR x = 1 TO 310
p = p + 1
IF p > 10 THEN z = RND * c / 20: p = p - (RND * 20 + 10)
c1 = POINT(x, y - 1)
c = (c1 + c) \ 2 + ((RND * 2) - z)
IF c < 0 THEN c = 0
IF c > 63 THEN c = 63
PSET (x - 1, y), c

NEXT x
PSET (0, y + 1), c
NEXT y
a$ = INPUT$(1)

SYSTEM