ТО CSQ :dl
SQ :dl - рисуем квадрат со стороной :dl
RT 45 PU FD :dl / 2 PD - не оставляя следа, входим внутрь квадрата
SETC 15 - меняем цвет черепашки на красный
FILL - закрашиваем квадрат
ВК :dl / 2 LT 45 - возвращаем черепашку в исходное положение
SETC 9 - устанавливаем цвет черепашки черным
END
SQ :dl - рисуем квадрат со стороной :dl
RT 45 PU FD :dl / 2 PD - не оставляя следа, входим внутрь квадрата
SETC 15 - меняем цвет черепашки на красный
FILL - закрашиваем квадрат
ВК :dl / 2 LT 45 - возвращаем черепашку в исходное положение
SETC 9 - устанавливаем цвет черепашки черным
END