MAINWIN 100 40:CLS:PRINT
PRINT " Create wind chimes that are musically tuned    1984-2005 Bill Yotter"
PRINT " Revisions: Magazine to ZX81 BASIC to GWBASIC to APBASIC to JustBASIC"
PRINT ""
PRINT " Musical Note Frequencies (Hz)"
PRINT ""
PRINT " Octave   Zero     One       Two      Three     Four      Five      Six        Seven    Eight"
PRINT " C        16.352   32.703    65.406   130.813   261.626   523.251   1046.502   2093.0   4186.0"
PRINT " C#       17.324   34.648    69.296   138.591   277.183   554.365   1108.730   2217.5   4434.9"
PRINT " D        18.354   36.708    73.416   146.832   293.665   587.330   1174.659   2349.3   4698.6"
PRINT " D#       19.445   38.891    77.782   155.563   311.127   622.254   1244.508   2489.0   4978.0"
PRINT " E        20.602   41.203    82.407   164.814   329.628   659.255   1318.510   2637.0   5274.0"
PRINT " F        21.827   43.645    87.307   174.614   349.228   698.456   1396.913   2793.8   5587.7"
PRINT " F#       23.125   46.249    92.499   184.997   369.994   739.989   1479.978   2960.0   5919.9"
PRINT " G        24.500   48.999    97.999   195.998   391.995   783.991   1567.982   3136.0   6271.9"
PRINT " G#       25.957   51.913   103.826   207.652   415.305   830.609   1661.219   3322.4   6644.6"
PRINT " A        27.500   55.000   110.000   220.000   440.000   880.000   1760.000   3520.0   7040.0"
PRINT " A#       29.135   58.270   116.541   233.082   466.164   932.328   1864.655   3729.3   7458.6"
PRINT " B        30.868   61.735   123.471   246.942   493.883   987.767   1975.533   3951.1   7902.1"
PRINT:PRINT:DIM S(2):S(1)=INT(500000):S(2)=INT(330000)
INPUT " Material [1 - Aluminum/steel/glass  2 - Brass/copper] ? ";M
INPUT " Shape    [1 - Rod  2 - Bar  3 - Tube]                 ? ";S
IF S<>2 THEN INPUT " Diameter in inches                                    ? ";D
IF S=2 THEN INPUT " Thickness of bar in inches                            ? ";D
K=D/4*2.54
IF S=1 THEN [LOOP]
K=D/SQR(12)*2.54
IF S=2 THEN [LOOP]
INPUT " Thickness of cylinder wall in inches                  ? ";T
K=SQR(D*D+(D-T)*(D-T))/4*2.54
[LOOP]
PRINT:INPUT " Frequency of musical note ? ";F
IF F=0 THEN END
L=SQR(1.133*(355/113)*K*S(M)/F)/2.54
PRINT " Length = ";(INT(L*100)/100);" inches."
PRINT " Drill at ";(INT((L*.2242)*100)/100);" inches."
IF S<>3 THEN [LOOP]
PRINT " Air resonance at multiples of ";(INT((3390/(L+.29*D))*100)/100);" hertz"
GOTO [LOOP]