110 FOR N = 0 TO 14
120   FOR K = 0 TO N
130     GOSUB 500 ' Call to binomial
140     PRINT USING " ####"; B;
150   NEXT K
160   PRINT
170 NEXT N
180 END

500 ' Binomial subroutine
510 ' Input: N, K
520 ' Output: B (result of binomial)
530 IF K = 0 OR K = N THEN B = 1: RETURN
540 IF K < 0 OR K > N THEN B = 0: RETURN
550 ' For efficiency, we use the lowest value of K or (N-K)
560 IF K > N-K THEN K1=N-K ELSE K1=K
570 PR = 1
580 FOR I = 1 TO K1
590   PR = PR * (N-K1+I)/I
600 NEXT I
610 B = INT(PR + 0.5)
620 RETURN