это startup
рисуй_циферблат
конец

это часы
спроси [Введите час]
пусть "час ответ
спроси [Введите минуты]
пусть "минуты ответ
пусть "секунды 0
если :минуты > 29 [увеличь_час]
сг сч
рисуй_циферблат
всегда [жди 10 запусти [ход_часов]]
конец

это толстая_стрелка :д
лв 90 вп 2 пр 90 вп :д 
пр 45 вп 3 пр 90 вп 3
пр 45 вп :д
конец

это рисуй_минуты
пп домой
по нк :минуты * 6
толстая_стрелка 65
конец

это рисуй_час
пп домой
по нк :час * 30
толстая_стрелка 40
конец

это рисуй_секунды
пп домой
по нк :секунды * 6
вп 77
конец

это рисуй_стрелки
рисуй_час
рисуй_минуты
рисуй_секунды
конец

это рисуй_циферблат
домой пп нц 9
повтори 12 [
вп 83 по вп 12 пп нд 95 пр 6
повтори 4 [вп 85 по вп 0 пп нд 85 пр 6]
]
конец

это увеличь_час
пусть "час :час + 0.5
если :час = 24 [пусть "час 0]
конец

это увеличь_минуты
пусть "минуты :минуты + 1
если :минуты = 30
 [увеличь_час]
если :минуты = 60 
 [пусть "минуты 0 увеличь_час]
конец

это увеличь_секунды
пусть "секунды :секунды + 1
если :секунды = 60 
 [пусть "секунды 0 увеличь_минуты]
конец

это ход_часов
нц 0 рисуй_стрелки
увеличь_секунды
нц 9 рисуй_стрелки
конец