Dim i, iNum, numsArr, boxes(27), random(3), LottoLine, LottoNo, highest

Sub	temp30mill()
call Start
call four_onclick
End Sub

Sub Start()

Set boxes(0) = document.all.num11
Set boxes(1) = document.all.num12
Set boxes(2) = document.all.num13
Set boxes(3) = document.all.num14
Set boxes(4) = document.all.num15
Set boxes(5) = document.all.num16
Set boxes(6) = document.all.chazak1

Set boxes(7) = document.all.num21
Set boxes(8) = document.all.num22
Set boxes(9) = document.all.num23
Set boxes(10) = document.all.num24
Set boxes(11) = document.all.num25
Set boxes(12) = document.all.num26
Set boxes(13) = document.all.chazak2

Set boxes(14) = document.all.num31
Set boxes(15) = document.all.num32
Set boxes(16) = document.all.num33
Set boxes(17) = document.all.num34
Set boxes(18) = document.all.num35
Set boxes(19) = document.all.num36
Set boxes(20) = document.all.chazak3

Set boxes(21) = document.all.num41
Set boxes(22) = document.all.num42
Set boxes(23) = document.all.num43
Set boxes(24) = document.all.num44
Set boxes(25) = document.all.num45
Set boxes(26) = document.all.num46
Set boxes(27) = document.all.chazak4

Set random(0) = document.all.RB1
Set random(1) = document.all.RB2
Set random(2) = document.all.RB3
Set random(3) = document.all.RB4

call one_onclick

document.all.SubRadio.click

End Sub

Sub Rand(H,N,L)

    
    highest = H-1 : LottoNo = N-1 : LottoLine =L
    
    numsArr = Array(0,0,0,0,0,0,0)

    Randomize

	iNum = CInt((highest * Rnd) + 1)  ' Generate number

	numsArr(0) = iNum


    For i = 1 To LottoNo
		Do
			iNum = CInt((highest * Rnd) + 1)  ' Generate number
			
		Loop Until selectNumber(iNum,i) = 1

        numsArr(i) = iNum 
    Next
  
  
    orderNums()

	  
End Sub

Function selectNumber(iTNum,i)
	Dim tSelected
	tSelected = 0
	
	'' checking for duplicates
	For j = 0 to i-1
	
		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 LottoNo
        For b = (a + 1) To LottoNo
            If (CInt(numsArr(b)) < CInt(numsArr(a))) Then
                iTmpNumber = numsArr(a)
                numsArr(a) = numsArr(b)
                numsArr(b) = iTmpNumber
            End If
        Next
    Next
    
   
    
 	For i = 0 To 5
	   boxes(i+LottoLine).value = numsArr(i)	   
	Next 
    
End Sub

Sub one_onclick

For i = 1 To 3
	random(i).disabled = True
	random(i).value = "Not Used"
Next
	
For i = 7 To 27
	boxes(i).style.background = "d4d0c8" 
	boxes(i).disabled = True
Next
	
End Sub

Sub two_onclick

For i = 2 To 3
	random(i).disabled = True
	random(i).value = "Not Used"
Next
	
For i = 14 To 27
	boxes(i).style.background = "d4d0c8" 
	boxes(i).disabled = True
Next

	random(1).disabled = False
	random(1).value = " Random "

For i = 0 To 13
	boxes(i).style.background = "ffffff" 
	boxes(i).disabled = False
Next
	
End Sub

Sub four_onclick
For i = 1 To 3
	random(i).disabled = False
	random(i).value = " Random "
Next
	
For i = 7 To 27
	boxes(i).style.background = "ffffff" 
	boxes(i).disabled = False
Next

End Sub

Sub GiftRadio_onclick

document.all.recname.disabled = False
document.all.recemail.disabled = False
document.all.note.disabled = False
document.all.recname.style.background = "ffffff" 
document.all.recemail.style.background = "ffffff" 
document.all.note.style.background = "ffffff" 

End Sub

Sub SubRadio_onclick

document.all.recname.disabled = True
document.all.recemail.disabled = True
document.all.note.disabled = True
document.all.recname.style.background = "d4d0c8" 
document.all.recemail.style.background = "d4d0c8" 
document.all.note.style.background = "d4d0c8" 

End Sub