I need a loop that creates al the possible values

Graphics 800,600,0,0

Dim bin_nums$(255)
For n=0 To 255
bin_nums(n)=Bin$(n)
Next

SetBuffer BackBuffer()
Text 0,0,bin_nums(255)
Flip

End

<<Untested>>