' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' LLUVIA DE METEORITOS RANDOMIZE TIMER SCREEN 13 DIM mat(1 TO 100, 1 TO 4) FOR n = 1 TO 100 mat(n, 1) = 160 mat(n, 2) = 100 mat(n, 3) = INT(RND * 19) - 9 mat(n, 4) = INT(RND * 17) - 8 NEXT n = 0 DO n = n + 1 IF n > 100 THEN n = 1 PSET (mat(n, 1), mat(n, 2)), 0 mat(n, 1) = mat(n, 1) + mat(n, 3) mat(n, 2) = mat(n, 2) + mat(n, 4) IF POINT(mat(n, 1), mat(n, 2)) = -1 THEN mat(n, 1) = 160 mat(n, 2) = 100 mat(n, 3) = INT(RND * 19) - 9 mat(n, 4) = INT(RND * 17) - 8 END IF PSET (mat(n, 1), mat(n, 2)), (ABS(mat(n, 2) - 100) / 10) + 20 LOOP WHILE INKEY$ = ""