CLEAR
DIMENSION Y(8,8)
FOR M=1 TO 8
  Y(M,M)=1   &&对角线
  Y(M,1)=1   &&第1列
ENDFOR
FOR M=3 TO 8
  FOR N=2 TO M-1
    Y(M,N)=Y(M-1,N-1)+Y(M-1,N)   &&除对角线、第1列外的元素
  ENDFOR
ENDFOR
FOR M=1 TO 8
  FOR N=1 TO M
    ??STR(Y(M,N),6)
  ENDFOR
  ?
ENDFOR
RETURN
