1

' {$STAMP BS2sx}' {$PBASIC 2.5}PAUSE 1000Main:GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 350GOSUB Forward : PAUSE 1177 GOSUBS_Right : PAUSE 300 GOSUB 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