- Chương trình của thủ tục 1 là:
to canh
setpencolor 4
setpensize[2 2]
fd 50
repeat 4 [fd 50 rt 90]
end
to thutuc1
repeat 6[canh bk 50 rt 60]
- Chương trình thủ tục 2 là:
to thutuc2
cs setpencolor 1
REPEAT 6 [REPEAT 6 [FD 100 RT 360 /6] RT 360/6]
end