I just wanted to try wheter it works. i guess it doesnt, but we'll see ;)
remember to turn off your debugger!
ps: i sure know how to find it out using the API, but this is just for testing...
Graphics 512, 64, 32, 2 SetBuffer BackBuffer() SetFont LoadFont("Arial", 60, True) Const TIMER = 100 Const CORRETCOR = 118 While Not KeyHit(1) time = MilliSecs() clock# = 0 While time + TIMER > MilliSecs() clock# = clock# + 1 Wend clock# = clock# * 1000.0 / TIMER * CORRETCOR unit$ = "Hz" If clock# > 1000 Then unit$ = "KHz" clock# = clock# / 1000 EndIf If clock# > 1000 Then unit$ = "MHz" clock# = clock# / 1000 EndIf If clock# > 1000 Then unit$ = "GHz" clock# = clock# / 1000 EndIf Text 256, 32, Left(clock#, Instr(clock#, ".") + 2) + " " + unit$, True, True Flip 0 Cls Wend Endplease tell me your 'real' CPU power (one core only) and what this program sais.
remember to turn off your debugger!
ps: i sure know how to find it out using the API, but this is just for testing...