การโปรแกรมหุ่นยนต์6

จากที่กระผมได้เรียนวิชาโปรแกรมหุ่นยนต์
ทำให้ผมได้รู้ว่าการที่เราต้องการให้หุ่นยนต์เดินตรงไปจากนั้นU TURN(เป็นเส้นโค้ง)
โดยใช้คำสั่งแบบย่อ(loop)จะต้องเขียนคำสั่งดังนี้
' {$STAMP BS2sx}
' {$PBASIC 2.5}
' {$PORT COM2}
ko VAR Word
PAUSE 1000
main:GOSUB forward : PAUSE 800
   ko = 0
DO
   GOSUB forward : PAUSE 10
   GOSUB r_turn  : PAUSE 12
   ko = ko + 1
LOOP UNTIL ( ko = 86 )
   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