'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                             LO QUE DEBERIAN PAGAR POR HACER PROGRAMAS
RANDOMIZE TIMER
SCREEN 12
HORIZONTAL = 10
DO
   MAXIMAALTURA = INT(RND * 400) + 10
   DISTANCIA = INT(RND * 25) + 20
   HORIZONTAL = HORIZONTAL + DISTANCIA
   IF HORIZONTAL > 620 THEN : EXIT DO
   FOR VERTICAL = 460 TO MAXIMAALTURA STEP -5
      DESVIOVERTICAL = INT(RND * 3)
      DESVIOORIZONTAL = INT(RND * 5)
      CL = INT(RND * 2) + 14
      TAMANNO = INT(RND * 5) + 12
      ALTO = INT(RND * 2) + 3
      FOR RELIEVE = 0 TO ALTO
         CIRCLE (HORIZONTAL + DESVIOORIZONTAL, VERTICAL + RELIEVE + DESVIOVERTICAL), TAMANNO, CL - 8, , , .3
      NEXT
      FOR RELLENO = 0 TO TAMANNO
         CIRCLE (HORIZONTAL + DESVIOORIZONTAL, VERTICAL + DESVIOVERTICAL), RELLENO, CL, , , .3
      NEXT
   NEXT
LOOP WHILE INKEY$ = ""
SOUND 900, 3
SLEEP