
 to gezi 
repeat 4[ repeat 5 [fd 3 pu fd 3 pd] pu bk 30 pd rt 90]
end 
to tianzi 
gezi 
pu setxy[ xcor-30 ycor-30] pd 
repeat 4[fd 60 rt 90] 
end
to xiezi  ;###主程序####
cs  setfont 1 36 1 repeat 7[tianzi  pu setxy xcor+90 ycor+30 pd] pu home bk 30 lt 90 fd 30 rt 90 fd 30 tt [中  华   人  民   共  和  国]
end
