'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB bloque (h!, v!)
RANDOMIZE TIMER

SCREEN 13
PAINT (1, 1), 28
FOR h = 10 TO 280 STEP 30
   FOR v = 10 TO 180 STEP 30
      IF RND > .2 THEN bloque h, v
      IF RND > .2 THEN bloque h + 10, v
      IF RND > .2 THEN bloque h, v + 10
      IF RND > .2 THEN bloque h + 10, v + 10
      IF RND > .5 THEN bloque h + 20, v + ((INT(RND * 2)) * 10)
      IF RND > .5 THEN bloque h + ((INT(RND * 2)) * 10), v + 20
   NEXT
NEXT
SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB bloque (h, v)
FOR n = 5 TO 1 STEP -1
   LINE (h + n, v + n)-STEP(9, 9), 23 + n, BF
NEXT
LINE (h, v)-STEP(9, 9), 39 + INT(RND * 3), BF
END SUB