XLOGO has several primitives for date, time or generating countdown.
to clock # shows time in numerical format # we refresh the time each five seconds if endcountdown? [ cs sfont 75 ht make "heu time make "h first :heu make "m item 2 :heu # We shows two number for seconds and minutes. (we must add a 0) if :m-10<0 [make "m word 0 :m] make "s last :heu # We shows two number for seconds and minutes. (we must add a 0) if :s-10<0 [make "s word 0 :s] label word word word word :h ": :m ": :s countdown 5 ] clock end |