'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                        
SCREEN 13
PALETTE 38, 50
RANDOMIZE TIMER
DO
   h = (INT(RND * 16)) * 20
   c = (INT(RND * 7) * 2) + 34
   v = 9
   IF POINT(h, 15) <> 0 THEN LINE (h, 0)-STEP(18, 200), 0, BF: SOUND 3000, 7
   DO
      v = v + 1
      cf = POINT(h, v + 10)
      LINE (h, v - 1)-STEP(18, 0), 0
      LINE (h, v)-STEP(18, 8), c + 96, B
      LINE (h, v)-STEP(17, 7), c + 48, B
      LINE (h + 1, v + 1)-STEP(16, 6), c, BF

      IF cf = c + 48 THEN LINE (h, v)-STEP(18, 18), 0, BF: SOUND 800, .5
      FOR delay = 1 TO 100: NEXT
   LOOP UNTIL cf <> 0
LOOP WHILE INKEY$ = ""