'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                   FUEGOS ARTIFICIALES
DECLARE SUB expl (h!, v!, r!, l!, c!)
SCREEN 12
RANDOMIZE TIMER

DO
   expl INT(RND * 540) + 50, INT(RND * 380) + 50, INT(RND * 400) + 100, INT(RND * 40) + 10, INT(RND * 7) + 9
   CLS
LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB expl (h, v, r, l, c)

FOR n = 0 TO r STEP l
   FOR g = 10 TO 360 STEP 20
      DRAW "bm" + STR$(h) + "," + STR$(v) + "ta" + STR$(g) + "c0r" + STR$(n - l) + "c" + STR$(c) + "r" + STR$(l)
      FOR delay = 1 TO 1000: NEXT
   NEXT
NEXT

FOR g = 10 TO 360 STEP 20
   DRAW "bm" + STR$(h) + "," + STR$(v) + "ta" + STR$(g) + "c0r" + STR$(n)
NEXT

END SUB