100 PROGRAM "Binomial.bas"
110 PRINT "Binomial (5,3) =";BINOMIAL(5,3)
120 DEF BINOMIAL(N,K)
130   LET R=1:LET D=N-K
140   IF D>K THEN LET K=D:LET D=N-K
150   DO WHILE N>K
160     LET R=R*N:LET N=N-1
170     DO WHILE D>1 AND MOD(R,D)=0
180       LET R=R/D:LET D=D-1
190     LOOP
200   LOOP
210   LET BINOMIAL=R
220 END DEF