Pseudorandom number generator image: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>Windowtitle "Pseudorandom number generator image"

Dim As Integer w = 500, h = w, x, y

Screenres w, h, 16

For x = 0 To w-1

For y = 0 To h-1

Pset(x, y), Rgb(Rnd * 255, Rnd * 255, Rnd * 255)

Next y

Next x

Bsave "Pseudo-Random-Algorithm.bmp",0</lang>

[https://www.dropbox.com/s/xsj4y5rnwlid6r4/Pseudo-Random-Algorithm.bmp?dl=0 image500.png] (sample image, offsite)