'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SCREEN 13
DIM mat(1 TO 800)
CLS
PAINT (1, 1), 255

RANDOMIZE TIMER
PSET (21, 21), 16
FOR C = 16 TO 62
   LOCATE 1, 35: COLOR 92: PRINT C
   FOR h = 1 TO 40
      FOR v = 1 TO 40
         P = 0
         IF RND > .4 AND POINT(h, v) > C THEN
            IF POINT(h + 1, v) <= C OR POINT(h - 1, v) <= C OR POINT(h, v + 1) <= C OR POINT(h, v - 1) <= C THEN P = 1
            IF P = 1 THEN PSET (h, v), C + 1
         END IF
      NEXT
   NEXT
NEXT

SOUND 3000, .5
FOR N = 0 TO 63
   PALETTE N, N
   LINE (N + 100, 100)-STEP(0, 30), N
NEXT
GET (1, 1)-(40, 40), mat
FOR h = 0 TO 280 STEP 40
   FOR v = 0 TO 160 STEP 40
      PUT (h, v), mat, PSET
   NEXT
NEXT
SLEEP