dim a as single, b as single

a=timer
shell(command$)
b=timer

print (b-a);" seconds"