I found in a box of old papers what would look to the uninitiated as a piece of silvered paper with black writing.
It was a printout . . .
2 LET x=0
3 LET n=0
5 INPUT "Increment? Type the required shift or define your frequency by prefacing with: f", x$
6 IF x$(1)="f" THEN GO TO 9
7 LET X=VAL x$: GO TO 15
9 LET x=((12/LN 2)*(LN (f/261.6256)))-n
15 LET n=n+x
20 INPUT "Duration?",t
32 PRINT n, 261.6256*2^(n/12)
35 BEEP t,n
40 GO TO 5
Running on a SInclair Spectrum, this, together with a microphone and dual beam oscilloscope was a ETD in the 1980s. It worked remarkably well, until a journey into temperament began.
Best wishes
David P
------------------------------
David Pinnegar BSc ARCS
Hammerwood Park, East Grinstead, Sussex, UK
+44 1342 850594
"High Definition" Tuning
------------------------------