on determineTiming
global fastCPU
put the ticks into startTicks
repeat with i = 1 to 50
put i into tempCounter
end repeat
put the ticks into endTicks
if endTicks - startTicks < 40 then
put true into fastCPU
else
put false into fastCPU
end if
end determineTiming
You can also add a line such as:
if CPUSpeed then wait 10 ticks
This will delay the execution of the script for 1/6 second. Remember to
declare the fastCPU global in any handlers that use it.
This article is adapted from the Claris Tech Info database.