การเขียนโปรแกรมหุ่นยนต์ ให้หุ่นเดินตามที่เรากำหนดโดยนับจำนวนวงรีที่ล้อที่หุ่นเห็น

' {$STAMP BS2sx}

' {$PBASIC 2.5}

ADC VAR WordCH

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 Digital Converter 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