' pin 38 Backlight
' pin 21 Encoder Button
' pin 1  Encoder A
' pin 2  Encoder B

print "slow turn or press encoder"
textbox a
textbox b
textbox p
timer 20,tim

tim:
a = pinIn(1)
b = pinIn(2)
p = pinIn(21)
pinOut 38,p
wait