CARPARK\OCTAVE.BAS  ·  BAS  ·  171 B  ·  1990-02-13  ·  from PCPlus_Issue-43_Apr-1990_FluxEngine-360Kb
10 octave = -2: note = 1: length = 1
20 PLAY "o0 t255"
30 freq = 440 * (2 ^ (octave + (note - 10) / 12))
40 SOUND freq, length   
50 PLAY "c"              
60 GOTO 30