เดินเป็นสี่เหลี่ยม

' {$STAMP BS2sx}'
{$PBASIC 2.5}'
{$PORT COM2}
PAUSE 1000
Main: GOSUB Forward:PAUSE 1000
GOSUB T_Left:PAUSE 500
Forward:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
T_Left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN