I need a loop that creates al the possible values

H!

For a non game project I need all the unique numbers
that are posible !

But I only want the 8 bit style. [pjew :)]

first number:01111111
last number :10000000

I know that's a really big file.

I did a test but that don't work:

Dim reeks%(11111111)
Dim code%(11111111)

Global i%

i% = 0

fileout = WriteFile("codes.txt") 

Repeat
SeedRnd(MilliSecs()) 

	i1% = Rand(0,1)
	i2% = Rand(0,1)
	i3% = Rand(0,1)
	i4% = Rand(0,1)
	i5% = Rand(0,1)
	i6% = Rand(0,1)	
	i7% = Rand(0,1)
	i8% = Rand(0,1)
	
	If Len(i1%) <> 1 i1% = Rand(0,1)
	If Len(i2%) <> 1 i2% = Rand(0,1)
	If Len(i3%) <> 1 i3% = Rand(0,1)
	If Len(i4%) <> 1 i4% = Rand(0,1)
	If Len(i5%) <> 1 i5% = Rand(0,1)
	If Len(i6%) <> 1 i6% = Rand(0,1)
	If Len(i7%) <> 1 i7% = Rand(0,1)
	If Len(i8%) <> 1 i8% = Rand(0,1)
			
	code%(i%)= ""+i1%+""+i2%+""+i3%+""+i4%+""+i5%+""+i6%+""+i7%+""+i8%+""
	
	If Len(code%(i%)) <> 8 Then
		Print "false"
	Else
		For t% = 0 To i%
			If reeks%(t%) <> code%(i%) Then
				reeks%(i%) = code%(i%)
				WriteLine(fileout,reeks%(i%)) 
				Print reeks%(i%)
			EndIf
		Next 
	EndIf
	
i% = i%+1
Until KeyHit(1) 
CloseFile(fileout)
WaitKey

I hope someone can help me,
Thanks Very Much