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