include "ConsoleWindow"

dim as long i

for i = 10 to 0 step -1
print i
next