' ' © 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