Celestia

1
jd = celestia:gettime()
2
last = jd + 365
3

4
repeat
5
    jd = jd + 1.0
6
    celestia:settime(jd)
7
    wait(0.05)
8
until jd >= last