O programa

Teremos necessidade do retângulo preenchido como vimos:

aprenda rec :alt :lar
se :alt=0 |:lar=0[pare]
repita 2[pf :alt pd 90 pf :lar pd 90]
rec :alt-1 :lar-1
fim

Consideraremos aqui que a tati parte do canto inferior esquerdo. Vamos definir um procedimento chamado numero admitindo 7 argumentos :a, :b, :c, :d, :e, :f, :g. Quando :a valer 1, desenhará o retângulo 1. Se :a valer 0, ele nada desenhará. Eis aí o princípio.
 
Escrevemos assim o procedimento:

aprenda numero :a :b :c :d :e :f :g
# Desenha o retângulo 1
se :a=1 [rec 160 40]
# Desenha o retângulo 2
se :b=1 [rec 40 160]
un pd 90 pf 120 pe 90 ul
# Desenha o retângulo 3
se :c=1 [rec 160 40]
un pf 120 ul
# Desenha o retângulo 5
se :e=1 [rec 160 40]
# Desenha o retângulo 4
pe 90 un pt 40 ul
se :d=1 [rec 160 40]
# Desenha o retângulo 6
pd 90 un pf 120 pe 90 ul
se :f=1 [rec 160 40]
# Desenha o retângulo 7
un pf 120 pe 90 pt 40 ul 
se :g=1 [rec 160 40]
fim