to залить
 fill
end

to вперед :dist
 fd :dist
end

to вп :dist
 fd :dist
end

to назад :dist
 bk :dist
end

to нд :dist
 bk :dist
end

to направо :angle
 right :angle
end

to вправо :angle
 right :angle
end

to пp :angle
 right :angle
end

to налево :angle
 left :angle
end

to влево :angle
 left :angle
end

to лв :angle
 left :angle
end

to вниз
 pendown
end

to опустить
 pendown
end

to по
 pendown
end

to вверх
 penup
end

to поднять
 penup
end

to пп
 penup
end

to повтор :count :body
 repeat :count :body
end

to стереть
 clearscreen
end

to закрасить
 fill
end

to дуга :angle :radius
 arc :angle :radius
end

to цвет :color
 setpencolor :color
end

to фон :цвет
 setbackground :цвет
end

to рисовать 
 penpaint
end

to стирать
 penerase
end

to цикл :iterator :body
 for :iterator :body
end

to круг :радиус
 arc 360 :радиус
end

to ждать :время
 wait :время
end

to место
 home
end

to идти :x :y
 setxy :x :y
end

to tklogoSetup
 setbackground 10
 setpencolor 7
 setpensize [3 3]
 cs pu lt 45 fd 200 rt 45 pd fd 80 wait 10 rt 90 fd 40 wait 10 rt 90
 fd 80 wait 10 lt 45 pu fd 20 lt 135 pd fd 50 wait 10 bk 20 wait 10
 arc 180 20 wait 10 pu fd 20 rt 90 fd 30 pd rt 90
 fd 40 wait 10
 lt 150 fd 45 wait 10 rt 150 fd 40 wait 10 pu lt 90 fd 10 lt 90 pd
 fd 40 wait 10 bk 10 wait 10 arc 180 10 wait 10
 bk 20 wait 10 arc 180 10 wait 10 pu rt 90 fd 20 rt 90 fd 10 rt 180
 pd fd 40 wait 10 rt 90 fd 15 wait 10 bk 15 wait 10 rt 90 fd 20 
 wait 10 lt 90 fd 12 wait 10 bk 12 wait 10 rt 90 fd 20 wait 10 lt 90 fd 20
 wait 10 pu fd 30 pd lt 90 fd 40 wait 10 lt 90 fd 20 wait 10 bk 40
 wait 10 pu home pd
end

to sashka
стереть
круг 100
залить
вперед 100
вперед 100
место
влево 90
вперед 100
вперед 100
место
влево 90
влево 90
вперед 100
вперед 100
место
вправо 90
вперед 100
вперед 100
место
end

to сохpанить :файл
 save :файл
end

make "startup [tklogoSetup]