I looked at your code, and this is what I saw:
The program will only print "Scan Complete" every five seconds, then, it will just keep on going until five seconds later, it will print it again. What you need to do is break out of the loop to complete the scan. Something like this:
sync on:sync rate 0
time=timer():intervalD=0
lasttime=timer():interval=0
System=timer():intervalDD=0
complete=timer()
do
if timer()-lasttime>=10
lasttime=timer()
inc interval
endif
if timer()-time>=2000
time=timer()
inc intervalD
endif
if timer()-system>=110
system=timer()
inc intervalDD
endif
if timer()-complete>=5000 the goto donescan
text 10,10, "Scanning (C:): "+str$(interval)
text 10,50, "Scanning H_KEY: "+str$(intervalD)
text 10,90, "Scanning System: "+str$(intervalDD)
sync
loop
donescan:
do
cls
text 10,10,"Scan Complete"
sync
loop
(I also added manual syncing, it is much more efficient)
(Also, it is spelled "scanning", just so you know)
Xander Moser of Bolt Software
Firewall: Your Computer's First Defense - Real Time Strategy game
[href]
[/href]
