' Doppler wind correction:  by Joe Supercool   18/1/2005
     V = 340      ' speed of sound
     CLS
     COLOR 4: INPUT "Harmonic number = ", harmonic
     INPUT "Wind speed, KPH = ", w
     CLS
        COLOR 10: PRINT "          Doppler data corrected for windspeed": PRINT
        COLOR 12: PRINT "                wind speed    airspeed    RPM"
10
     COLOR 9: INPUT "Fcoming = ", fcoming: fcoming = fcoming / harmonic
     INPUT "Fgoing = ", fgoing: fgoing = fgoing / harmonic
     ww = w / 3.6         ' wind speed, m/s
     vs = V * (fcoming - fgoing) / (fcoming + fgoing)
     f = (V - vs) / (V - ww) * fcoming                   ' frequency, Hz
     RPM = f * 60                                        ' RPM
     vskph = vs * 3.6                                    ' model speed, kph
     COLOR 14
     PRINT USING "                  ##.#          ###       #####"; w; vskph; RPM
     GOTO 10
     END