TGC Codebase Backup



DBPro Speed testing by cusoi

1st Sep 2003 16:16
Summary

This just tests the speed, it's for Dark Basic Pro as well as for DarkBasic Classic. In Darkbasic Pro you get a lower number. So, how lower the number, how better your system is(I



Description

This just tests the speed, it's for Dark Basic Pro as well as for DarkBasic Classic. In Darkbasic Pro you get a lower number. So, how lower the number, how better your system is(I get 72 in DBClassic).



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem Testing the speed of Dark Basic
randomize timer()
sync on
do
s=s+1
time=timer()
a=rnd(3)
c=rnd(3)
d=rnd(3)
e=rnd(3)
for b=1 to 10000
d=d+c*d-e^a
e=e+c*d-a^b
c=c+e*c-d^b
a=a+c*b-d^e
next b
print a
print c
print d
print e
timetotal=timetotal+(timer()-time)
print "Average speed in ms: ";timetotal/s
sync
cls
loop