//    Instruction Example :     long time.month.get ()


        screen.resolution.set (512,384)

        text.display ("Press a key to exit.",CENTER,350)

        repeat ()

          %year=time.year.get ()
          %month=time.month.get ()
          %day=time.day.get ()

          $year=str(%year,"0000")
          $month=str(%month,"00")
          $day=str(%day,"00")

          text.display ($day+"/"+$month+"/"+$year,CENTER,CENTER)

        until (keyboard.get())

        script.stop ()