1 REMARKABLE PROGRAM BY DAVE AHL
5 &"PASCAL'S TRIANGLE":&:DIM B(11),Z(11)
10 INPUT "HOW MANY BALLS DO YOU WANT TO ROLL (MAX 5000)";M
15 INPUT "HOW MANY LEVELS (MAX 10)";K:&
17 K1=M/2^K
20 Z(I)=0 FOR I=1 TO 10:Z(1)=1
21 FOR I=1 TO K
22 Z2=1
23 FOR J=2 TO I+1
24 Z1=Z(J):Z(J)=Z2+Z(J):Z2=Z1
26 NEXT J
27 NEXT I
30 FOR N=1 TO M:T=0
40 FOR L=1 TO K
50 IF RND>.5 THEN T=T+1
60 NEXT L
110 B(T+1)=B(T+1)+1
120 NEXT N
124 &,"NUMBER","OBSERVED","THEORETICAL"
126 &"POSITION","BALLS","RATIO","RATIO":&
130 FOR L=1 TO K+1
140 & L,B(L),B(L)/K1,Z(L)
145 B(L)=0:NEXT L:&: GOTO 10:END