2

{$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main: GOSUB S_Right : PAUSE 90GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 310GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 290GOSUB forward : PAUSE 1177GOSUB S_Right : PAUSE 100GOSUB motor_off : PAUSE 2000GOTO Mainforward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURNbackward: HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURNS_left: HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURNS_Right: HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURNMotor_off:LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN