ไม่ชน

อาจารย์ให้สั่งให้หุ่นเดินไปไกลกำเเพงที่สุดเเต่ไม่ชน

โดยให้อุปกรณ์ตรวจจับเเสง

' {$STAMP BS2sx}' {$PBASIC 2.5}
ADC VAR Word
R VAR Word
I VAR Word
X VAR Word
PAUSE 1000
HIGH 10
GOSUB pim
GOSUB RD_ADC
IF (ADC > 50) THEN
GOSUB Motor_OFF ENDIF

RD_ADC: LOW 10 : PAUSE 2: HIGH 10
SEROUT 10,240, [1]
SERIN 10,240,250,Error, [ADC.BYTE0,ADC.BYTE1]
RETURN
Error: DEBUG "Error Reading",CR
RETURN
pim: HIGH 13: LOW 12 : HIGH 15 : LOW 14 : RETURN
Backward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURN
Motor_OFF: LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN