<%
Randomize(1234567)
high1 = array(0, 0, 0, 0)
high2 = array(array(0, 0, 0, 0), array(0, 0, 0, 0), array(0, 0, 0, 0), array(0, 0, 0, 0))
low1 = array(0, 0, 0, 0)
low2 = array(array(0, 0, 0, 0), array(0, 0, 0, 0), array(0, 0, 0, 0), array(0, 0, 0, 0))
prev = Fix(Rnd() * 4096)
For i = 1 To 10000
curr = Fix(Rnd() * 4096)
high1(curr * 4 \ 4096) = high1(curr * 4 \ 4096) + 1
high2(curr * 4 \ 4096)(prev * 4 \ 4096) = high2(curr * 4 \ 4096)(prev * 4 \ 4096) + 1
low1(curr Mod 4) = low1(curr Mod 4) + 1
low2(curr Mod 4)(prev Mod 4) = low2(curr Mod 4)(prev Mod 4) + 1
prev = curr
Next
Response.Write "High bits:" & vbCrLf
Response.Write "" & vbCrLf
For row = 0 To 3
Response.Write "" & vbCrLf
Response.Write "| " & high1(row) & " | " & vbCrLf
Response.Write "
" & vbCrLf
Next
Response.Write "
" & vbCrLf
Response.Write "" & vbCrLf
For row = 0 To 3
Response.Write "" & vbCrLf
For col = 0 To 3
Response.Write "| " & high2(row)(col) & " | " & vbCrLf
Next
Response.Write "
" & vbCrLf
Next
Response.Write "
" & vbCrLf
Response.Write "Low bits:" & vbCrLf
Response.Write "" & vbCrLf
For row = 0 To 3
Response.Write "" & vbCrLf
Response.Write "| " & low1(row) & " | " & vbCrLf
Response.Write "
" & vbCrLf
Next
Response.Write "
" & vbCrLf
Response.Write "" & vbCrLf
For row = 0 To 3
Response.Write "" & vbCrLf
For col = 0 To 3
Response.Write "| " & low2(row)(col) & " | " & vbCrLf
Next
Response.Write "
" & vbCrLf
Next
Response.Write "
" & vbCrLf
%>