I apologize. I forgot a waiting delay before starting...
Hoping now initializing basis value is a little bit right...
Now (when basis value is right and first results are positive) if 'X + 1' is replaced with a recursive procedure call ( named rpc), we can grow the clock tickcount.
Code: Select all
Procedure rpc(n)
If n
rpc(n - 1)
endif
endprocedure
Value0.Q = TickCount()
rpc(1000)
Value1.Q = TickCount()
we maybe could use this result too to have a second referency, a second basis.
Code: Select all
basis2.Q = Value1 - Value0 - Basis
Code: Select all
;************************************************************
TickCountInitially.Q = TickCount()
Repeat
Delay(0)
Until (TickCount() - TickCountInitially) > Basis2