' declare variables:

'use the RCTIME circuit on pin 10

'midi out on pin 9

Result VAR byte ' variable to hold result.
result2 var byte
result3 var byte
resultave var byte ' result after averaging

main:

HIGH 10 'Discharge the cap

PAUSE 1 'for 1 ms.
'low 0
'low 9
RCTIME 10, 1, Result 'Measure RC charge time.
RCTIME 10, 1, Result2 'Measure RC charge time.
RCTIME 10, 1, Result3 'Measure RC charge time.
DEBUG CLS, DEC Result 'Show value on screen.

resultave = (result + result2 + result3) /3

SEROUT 9, 12, [ 146, resultave, 64] 'note on middle c medium velocity
PAUSE 500
SEROUT 9, 12, [146,resultave, 0] ' note on middle c 0 velocity (same as note off)

GOTO main