โจทย์ที่3-การเดินไปแล้วโค้งแล้วเดินกลับ

' {$STAMP BS2sx}'
{$PBASIC 2.5}'
{$PORT COM2}
PAUSE 1000
Main: GOSUB go :PAUSE 1000
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE6
GOSUB left :PAUSE 15GOSUB go :PAUSE 6GOSUB left :PAUSE 15GOSUB go :PAUSE1000
GOSUB off :PAUSE 50000go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN
off:LOW 13:LOW 12:LOW 15:LOW 14:RETURN