Dim i, iNum, numsArr
    
Sub go()
    numsArr = Array(99,99,99,99,99,99)

    Randomize

	iNum = CInt((49 * Rnd) + 1)  ' Generate number
	if iNum >= 49 then
		iNum = 49
	elseif iNum < 10 then
		iNum = "0" & iNum
	end if
	numsArr(0) = iNum

    For i = 1 To 5
		Do
			iNum = CInt((49 * Rnd) + 1)  ' Generate number
			if iNum >= 49 then
				iNum = 49
			elseif iNum < 10 then
				iNum = "0" & iNum
			end if
		Loop Until selectNumber(iNum,i) = 1

        numsArr(i) = iNum
    Next

	orderNums()

	top.frames.hiddenStuff.location.href = "preLoadImages.htm"
    
End Sub

Function selectNumber(iTNum,i)
	Dim tSelected
	tSelected = 0
	
	For j = 0 to i
		If numsArr(j) <> iTNum then
			tSelected = 1
		else
			selectNumber = 0
			Exit Function
		End If
	Next
	'--- Just in case, return tSelected
	selectNumber = tSelected
End Function

Sub orderNums()

Dim a,b,iTmpNumber

    For a = 0 To 5
        For b = (a + 1) To 5
            If (CInt(numsArr(b)) < CInt(numsArr(a))) Then
                iTmpNumber = numsArr(a)
                numsArr(a) = numsArr(b)
                numsArr(b) = iTmpNumber
            End If
        Next
    Next

	document.all.num1.value = numsArr(0)
	document.all.num2.value = numsArr(1)
	document.all.num3.value = numsArr(2)
	document.all.num4.value = numsArr(3)
	document.all.num5.value = numsArr(4)
	document.all.num6.value = numsArr(5)

End Sub