LET a$="   "
LET b$="  "
PRINT
PRINT " ＜ 二項係数     パスカルの三角形 ＞"
PRINT "         上から n+1 段目  左から r+1 番目  の 値は、 nCr (組み合わせ）です。"
PRINT  
PRINT "                                     1"
PRINT 
FOR n=1 TO 10
   FOR i=1 TO 10-n
      LET b$=b$&a$
   NEXT i
   PRINT b$;
   FOR r=0 TO n
      PRINT USING "######":COMB(n,r);
   NEXT r
   PRINt
   print
   LET b$="  " 
NEXT n
PRINT
END