'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                    CIELO DE ESTRELLAS
DECLARE SUB fugaz ()
RANDOMIZE TIMER
SCREEN 13

numero = 100
lentitud = 500

PAINT (1, 1), 176
DIM estrellas(1 TO numero, 1 TO 2)

FOR n = 1 TO numero
   h = INT(RND * 320)
   v = INT(RND * 200)
   estrellas(n, 1) = h
   estrellas(n, 2) = v
NEXT

FOR n = 1 TO numero
   PSET (estrellas(n, 1), estrellas(n, 2)), 15
NEXT

n = 0

DO
   n = n + 1
   IF n > numero THEN : n = 1
   PSET (estrellas(n, 1), estrellas(n, 2)), 15
   nn = n - INT(numero * .95)
   IF nn < 1 THEN : nn = nn + numero
   PSET (estrellas(nn, 1), estrellas(nn, 2)), 176
   a = RND
   SELECT CASE a
      CASE IS < .99: FOR delay = 1 TO lentitud: NEXT
      CASE ELSE: fugaz
   END SELECT
LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                     ESTRELLAS FUGACES
SUB fugaz
lh = INT(RND * 170) + 10
lv = INT(RND * 150) + 10
h = INT(RND * 320)
v = INT(RND * 320)
dh = RND: IF dh < .5 THEN dh = -1 ELSE dh = 1
dv = RND: IF dv < .5 THEN dv = -1 ELSE dv = 1
FOR n = 0 TO 1.57 STEP .01
   PSET (((dh * n) * lh) + h, dv * (SIN(n) * lv) + v), 15
   FOR delay = 1 TO 50: NEXT
   PSET (((dh * n) * lh) + h, dv * (SIN(n) * lv) + v), 176
NEXT
END SUB