TO XFW :X  ;主程序 ZFW 100
 DRAW 
 ZFX :X
 PU RT 90 FD :X*0.15 LT 90 PD
 CFX :X*0.6 :X*0.3
 PU RT 90 FD :X*0.6 LT 90 FD :X*0.7 PD
 REPEAT 4 [ZFX :X*0.15 RT 90]
 PU FD :X*0.3 LT 90 FD :X*0.85 RT 120 PD
 SJX :X*1.2
 HT
END 

TO ZFX :X
  REPEAT 4[FD :X RT 90]
END

TO SJX :X
  REPEAT 3[FD :X RT 120]
END

TO CFX :A :B
  REPEAT 2[FD :A RT 90 FD :B RT 90]
END

