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

โจทย์ข้อ3
' {$PBASIC 2.5}
' {$PORT COM1}
' {$STAMP BS2sx}
a VAR Word
PAUSE 2000a = 0
DO
GOSUB forward : PAUSE 1177
DO
a = a + 1
GOSUB T_RIGHT : PAUSE 20
GOSUB FORWARD : PAUSE 15
LOOP UNTIL ( a = 75 )
GOSUB FORWARD : PAUSE 1177
GOSUB motor_off : PAUSE 10000
LOOP


forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
ackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURN
S_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURN
S_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURN
T_Right: LOW 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
T_LEFT: HIGH 13 : LOW 12 : LOW 15 : LOW 14 : RETURN
Motor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN