>>The version I was looking for started with a pattern of "pegs." The random falling bits then had a 50 50 chance of choosing a right or left downward path at each "peg". The end result was a randomly generated pyramid - an approximate Gaussian curve.
> Sorry about the confusion. Apparently, my sought after version did not come from Apple Core. After a thousand years, my memory was a little foggy about this. It may have come from "Apple Pugetsound Program Library Exchange (A.P.P.L.E.)." I searched the
https://www.callapple.org/ website without success in finding "Bit Bucket."
> Thanks again for your help.
> Tom K.
Maybe this from "THE MATHEMATICS TEACHER" Nov 1983. If you want the Full Article email me and i will email the Three Pages.
5 GOSUB 5000: HOME
10 HOME :BIAS = .5: POKE 33,40
20 REM ORIGINAL CONCEPT BY
30 REM SIR FRANCIS GALTON
40 REM DESIGN BY
50 REM JOSEPH HILSENRATH
60 REM PROGRAM BY BRUCE FIELD
70 VTAB 5: PRINT "PROGRAM PRODUCES A GALTON QUINCUNX": PRINT : PRINT "TO SIMULATE A NORMAL DISTRIBUTION."
80 PRINT : PRINT "DO YOU WISH TO BIAS THE DISTRIBUTION?": PRINT : INPUT "(Y/N)==>";A$
90 IF A$ = "N" THEN 110
100 PRINT : INPUT "TYPE A NUMBER BETWEEN .3 AND .7==>";BIAS
110 PRINT : INPUT "TYPE A SPEED BETWEEN O-100==>";Z
120 PRINT : PRINT "ENTER A NUMBER BETWEEN 0 AND 100 TO": PRINT : INPUT "SEED THE RANDOM NUMBER GENERATOR==>";SR
130 FOR I = 1 TO SR:R = RND (1): NEXT I: HTAB 30
140 DATA 1,0,4,0,35,45,54,63,4,0
150 REM GENERATE BALL-SHAPE TABLE
160 DIM H(11)
170 POKE 232,0: POKE 233,64
180 FOR I = 16384 TO 16393: READ A: POKE I,A: NEXT I
190 FOR I = 1 TO 11
200 H(I) = 0: NEXT I
210 HGR : HCOLOR= 2: ROT= 8: SCALE= 3
220 HPLOT 50,0 TO 230,0 TO 230,159 TO 50,159 TO 50,0
230 REM SET UP GRID
240 X0 = 140:Y0 = 10
250 FOR I = 1 TO 9 STEP 2
260 X = X0 - 8 * (I - 1)
270 Y = Y0 + 8 * (I - 1)
280 FOR J = 1 TO I: HPLOT X,Y
290 X = X + 16: NEXT J
300 X = X0 - I * 8:Y = Y + 8
310 FOR J = 1 TO I + 1
320 HPLOT X,Y:X = X + 16
330 NEXT J: NEXT I
340 REM DROP BALL
350 DROPS = 1
360 X = X0
370 FOR Y = Y0 TO YO + 80 STEP 8
380 IF Y = Y0 GOTO 400
390 XDRAW 1 AT X,Y - 8:X = X1
400 DRAW 1 AT X,Y
410 R = RND (1):P = ( INT (100 * R)) / 100
420 VTAB 21: HTAB 35: PRINT P
430 IF P < BIAS GOTO 450
440 X1 = X + 8: GOTO 470
450 X1 = X - 8
460 REM ADJUST THIS LOOP TO CHANGE SPEED
470 FOR I = 1 TO 102 - Z: NEXT I
480 S = - 16336: FOR B = 1 TO 4
490 BOUNCE = PEEK (S) - PEEK (S)
500 NEXT B
510 NEXT Y
520 XDRAW 1 AT X,Y - 8
530 I = (X - X0) / 16 + 6
540 H(I) = H(I) + 1
550 Y = 159 - H(I) / 2
560 HPLOT X - 6,Y TO X + 7,Y
570 VTAB 23: HTAB 12: INVERSE : PRINT "THE GALTON QUINCUNX": NORMAL
580 VTAB 21: PRINT "DROPS= "DR;: HTAB I * 3 + 2: PRINT "."
590 VTAB 22: HTAB I * 3 + 2: PRINT H(I);
600 DR = DR + 1
610 IF DROPS < 500 GOTO 360
620 VTAB 24: INPUT "AGAIN? Y OR N: ";R$
630 IF R$ = "Y" THEN CLEAR : GOTO 10
640 HOME :D$ = CHR$ (4): PRINT D$"RUN SYSTEM MENU"
650 END
999 END
5000 TEXT : HOME
5010 GOSUB 5090
5020 RETURN
5040 TEXT : HOME
5050 INVERSE : FOR I = 1 TO 3: VTAB I: FOR J = 1 TO 38: PRINT "*";: NEXT J: PRINT "*": NEXT I
5060 FOR I = 4 TO 21: VTAB I: HTAB 1: PRINT "*";: HTAB 39: PRINT "*": NEXT I
5070 FOR I = 1 TO 38: PRINT "*";: NEXT I: PRINT "*": NORMAL
5080 RETURN
5090 GOSUB 5040
5091 REM -- ARTICLE TITLE
5092 VTAB 5: HTAB 13: PRINT "GALTON QUINCUNX"
5094 VTAB 7: HTAB 18: PRINT "BY"
5099 REM -- AUTHOR'S NAME
5100 VTAB 9: HTAB 3: PRINT "JOSEPH HILSENRATH & BRUCE F. FIELD"
5105 VTAB 14: HTAB 17: PRINT "FROM"
5110 VTAB 16: HTAB 8: PRINT "THE MATHEMATICS TEACHER"
5115 REM ---ENTER VOL. NO.
5120 HTAB 11: PRINT "VOLUME 76 NUMBER 8"
5121 HTAB 11: PRINT "(C) COPYRIGHT 1983"
5150 VTAB 23
5160 GOSUB 5210
5165 REM -- GO TO DESCRIPTION
5166 GOSUB 6000
5170 RETURN
5180 PRINT : VTAB 23
5190 GOSUB 5210: FOR I = 4 TO 21: VTAB I: HTAB 2: FOR J = 2 TO 37: PRINT " ";: NEXT J: PRINT " ": NEXT I
5200 RETURN
5210 VTAB 24: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE. ";: GET R$
5240 RETURN
6000 GOSUB 5040
6010 VTAB 5: HTAB 3
6015 REM -ENTER SHORT DESCRIPTION
6020 PRINT "PROGRAM TO SIMULATE THE GALTON": HTAB 3: PRINT "QUINCUNX. THE QUINCUNX IS A DEVICE": HTAB 3: PRINT "THAT IS USED TO APPROXIMATE A NORMAL": HTAB 3: PRINT "DISTRIBUTION."
6040 VTAB 16: HTAB 4: PRINT "FOR DETAILS, CONSULT:"
6042 HTAB 8: PRINT "THE MATHEMATICS TEACHER"
6043 HTAB 13: PRINT "NOVEMBER, 1983"
6044 HTAB 15: PRINT "PAGE 571"
6050 GOSUB 5210
6500 RETURN
73 ve3myz James