I need a loop that creates al the possible values

Graphics 800,600,0,0 
b=1
a=0

Dim bin_nums$(255) 

For n=0 To 255  
bin_num=Bin$(n) 
bin_nums(n)=Right$(bin_num,8)
Next 

SetBuffer BackBuffer()

For n=0 To 54
Text b,a,bin_nums(n)
a=a+10
Next

a=0
For n=55 To 109
Text 120,a,bin_nums(n)
a=a+10
Next

a=0
For n=110 To 164
Text 220,a,bin_nums(n)
a=a+10
Next

a=0
For n=165 To 219
Text 320,a,bin_nums(n)
a=a+10
Next

a=0
For n=220 To 255
Text 420,a,bin_nums(n)
a=a+10
Next


Flip 
WaitKey
End 

Here's a fairly orderly display, GC!!