symbol delay=1
symbol duration=2

begin:


b2 = 0
Do
ReadAdc delay, b1
Pause 100
b2 = b2 + 1
Loop Until b2 >= b1

high 0
high 4

b3 = 0
Do
ReadAdc duration, b4
Pause 100
b3 = b3 + 1
Loop Until b3 >= b4

low 0
low 4

goto begin