โปรแรมใกล้พนัง

' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR Word
R VAR Word
I VAR ByteX VAR Byte
PAUSE
1IF (ADC > XXX) THENLOW 15 : HIGH 14 : LOW 13 : HIGH 12 : PAUSE 40LOW 15 : LOW 14 : LOW 13 : LOW 12ENDENDIFLOOPEND
RD_ADC: LOW 10 : PAUSE 2 : HIGH 10SEROUT 10,240,[1]SERIN 10,240,250,Error,[ADC.BYTE0,ADC.BYTE1]RETURNError: RETURN
โดยที่ ( XXX = 385(ใกล้ที่สุด),320(3cm),250(5cm) )