'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                     PUNTOS QUE CHOCAN POR LA PANTALLA
DECLARE SUB pantalla ()
SCREEN 13
RANDOMIZE TIMER
pantalla

np = 16

DIM c(1 TO np)
DIM h(1 TO np)
DIM v(1 TO np)
DIM ah(1 TO np)
DIM av(1 TO np)
DIM hh(1 TO np)
DIM vv(1 TO np)


FOR n = 1 TO np
   c(n) = (n * 2) + 30
   DO
      h(n) = INT(RND * 316) + 2
      v(n) = INT(RND * 196) + 2
   LOOP WHILE POINT(h(n), v(n)) <> 0
   hh(n) = INT(RND * 3) - 1
   vv(n) = INT(RND * 3) - 1
   IF hh(n) = 0 AND vv(n) = 0 THEN vv(n) = 1
NEXT

DO
   FOR n = 1 TO np
      ah(n) = h(n)
      av(n) = v(n)
      h(n) = h(n) + hh(n)
      v(n) = v(n) + vv(n)
      IF POINT(h(n), v(n)) <> 0 THEN
         h(n) = ah(n)
         v(n) = av(n)
         hh(n) = INT(RND * 3) - 1
         vv(n) = INT(RND * 3) - 1
         IF hh(n) = 0 AND vv(n) = 0 THEN vv(n) = 1
      ELSE
         PSET (h(n), v(n)), c(n)
         FOR delay = 1 TO 100 - (np * 20): NEXT
         PSET (ah(n), av(n)), 0
      END IF
   NEXT
LOOP WHILE INKEY$ = ""

SUB pantalla
LINE (0, 0)-(319, 199), 36, B
FOR h = 20 TO 300 STEP 20
PSET (h, 1), 36
PSET (h, 198), 36
NEXT
FOR v = 20 TO 180 STEP 20
PSET (1, v), 36
PSET (318, v), 36
NEXT

LOCATE 13, 14: COLOR 36: PRINT "HECHO EN RONDA"
END SUB