Code: Select all
'max ulongint = 18446744073709551615
screen 19
color 0 ,15
cls
'randomize ,0
locate ,loword(width)-24:print "ulongintrange"
for n as long=1 to 10000000
Dim As ulongint u=culngint(rnd*18446744073709551615ull) mod 600
Dim As ulongint v=culngint(rnd*18446744073709551615ull) mod 600
pset(u,v),0
next
print "Press a key"
sleep
cls
locate ,loword(width)-24:print "ulongintrange/10"
for n as long=1 to 10000000
Dim As ulongint u=culngint(rnd*18446744073709551615ull/10) mod 600
Dim As ulongint v=culngint(rnd*18446744073709551615ull/10) mod 600
pset(u,v),0
next
print "Press a key"
sleep
cls
locate ,loword(width)-24:print "ulongintrange/100"
for n as long=1 to 10000000
Dim As ulongint u=culngint(rnd*18446744073709551615ull/100) mod 600
Dim As ulongint v=culngint(rnd*18446744073709551615ull/100) mod 600
pset(u,v),0
next
print "Press a key"
sleep
cls
locate ,loword(width)-24:print "ulongintrange/1000"
for n as long=1 to 10000000
Dim As ulongint u=culngint(rnd*18446744073709551615ull/1000) mod 600
Dim As ulongint v=culngint(rnd*18446744073709551615ull/1000) mod 600
pset(u,v),0
next
print "Press a key"
sleep
cls
locate ,loword(width)-24:print "ulongintrange/10000"
for n as long=1 to 10000000
Dim As ulongint u=culngint(rnd*18446744073709551615ull/10000) mod 600
Dim As ulongint v=culngint(rnd*18446744073709551615ull/10000) mod 600
pset(u,v),0
next
print "done"
sleep