การเดินเป็นรูปโค้ง

' {$STAMP BS2sx}
' {$PBASIC 2.5}
' {$PORT COM2}
PAUSE 1000 main:
GOSUB forward : PAUSE 800
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 10
GOSUB r_turn : PAUSE 12
GOSUB forward : PAUSE 800
GOSUB motor_stop : PAUSE 10000
GOTO main
forward : HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
r_turn : LOW 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
motor_stop : LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN
อธิบาย
forward : HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
แปรว่าคำสั่งforwardคือชือของคำสั่งที่เราจะพิมพ์อะไรก็ได้
HIGH 13 : LOW 12 : HIGH 15 : LOW 14 คือรหัสที่ทำให้หุนทำงานคำสั่งนี้แปรว่า ให้moter ทั้ง2 เดิน
LOW 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN moter 1ตัว หยุดตัวหนึ่งทำงาน
LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN moter ทั้ง2หยุด