DECLARE SUB RANND ()
RANDOMIZE TIMER
DEFINT A-Z
DEF SEG = &HA000
SCREEN 13
DIM SHARED S(25, 80) AS INTEGER
FOR A = 1 TO 63
PALETTE A, A
PALETTE A + 126, A + A * 65535
NEXT A
B = 63
r = 1
FOR A = 63 TO 1 STEP -1
PALETTE A + 63, B - A
'PALETTE 0, B - a
PALETTE A + 189, B - A
NEXT A

CALL RANND
FOR X = 1 TO 24
FOR y = 79 TO 1 STEP -1
S(X, y) = (S(X - 1, y + 1) + S(X, y + 1) + S(X + 1, y + 1)) / 3 - 1
NEXT
NEXT
again:
CALL RANND
FOR X = 1 TO 24
FOR y = 79 TO 0 STEP -1
IF S(X, y + 1) > 1 THEN
S(X, y) = (S(X - 1, y + 1) + S(X, y + 1) + S(X + 1, y + 1)) / 3 - 2
END IF
NEXT
NEXT
ADDR = 1000
FOR y = 2 TO 77
FOR X = 1 TO 24
ADDR = ADDR + 1
POKE (ADDR), S(X, y)
NEXT
ADDR = ADDR + 296
NEXT
GOTO again

DEFSNG A-Z
SUB RANND
FOR X = 0 TO 25
S(X, 80) = RND * 254
NEXT

END SUB