โปรเกรมที่a16-1

' {$STAMP BS2sx}
' {$PBASIC 2.5}
ADC VAR Word
CH VAR Byte
DO
CH = 3
GOSUB RD+_ADC
DEBUG CLS, "LEFT SENSOR = ", DEC ADC, TAB
CH = 5
GOSUB RD_ADC DEBUG "RIGHT SENSOR = ", DEC ADC, TAB PAUSE 300
LOOP
'+++++ Analog TO DigitalConverter Procedure +++++++++
RD_ADX: LOW 1 : PAUSE 2: HIGH 10
SEROUT 10,240,[CH]
SERIN 10,240,25,Error,
[ADC.BYTE0,ADC.BYTE1]
RETURN

Error: DEBUG "Error Reading:, CR
RETURN