Programas/Varios:Stars

Descripción del programa:

Se imprimen 800 puntos por la pantalla en posiciones y colores aleatorios:

Programa:

(VERSION:001)

Sub Main

   For a=1 To 800

      x=Rnd(1,1280)

      y=Rnd(1,800)

      c=Rnd(1,10)

      Point(x,y,c)

   Next

End Sub