
 TO ZM :N :C  ;:N层数  :C第一个字符 主程序  zm  5 "a
   DRAW PU FD 200 PD HT
   MAKE "M 1
   MAKE "M2 :N-1
   SJX1 :M :N
 END
 TO SJX1 :M :N
   IF :N=0 then STOP
   MAKE "K 1
   MAKE "AS ASCII :C   ;获取首字符的ASC码
   SJZ :M :K :AS       ;画三角形左半边
   MAKE "M2 :M-1
   MAKE "K :M2
   MAKE "AS :AS2-1
   SJY :M2 :AS         ;画三角形右半边  
   PU SETX XCOR-:M*2*10
   SETY YCOR-14
   SJX1 :M+1 :N-1     
 END
 TO SJZ :M :K :AS      ;堆叠左半边的三角形
   IF :K>:M then STOP
   PD TT CHAR :AS PU SETX XCOR+10 ;逐个显示字符
   MAKE "AS2 :AS
   SJZ :M :K+1 :AS+1   ;左半边ASCII码是增序的
 END
 TO SJY :M2 :AS        ;堆叠右半边的三角形
   IF :M2=0 then STOP
   PD TT CHAR :AS PU SETX XCOR+10  ;逐个显示字符
   SJY :M2-1 :AS-1     ;右半边的ASCII码是减序的
 END
 
