`DarkBASIC Professional Source Code
sync on
sync rate 0

make object cube 1, 10

do
rotate object 1, object angle x ( 1 ) + 0.1, object angle y ( 1 ) + 0.1, object angle z ( 1 ) + 0.1

for a = 1 to 100
for b = 1 to 100
for c = 1 to 100
d = rnd ( 100 )
next c
next b
next a

set cursor 0, 0
print "fps = " + str$( screen fps ( ) )

sync
loop