โจทย์ที่ เป็น u turn

' {$STAMP BS2sx}
'{$PBASIC 2.5}
'{$PORT COM2}
PAUSE 1000
Main: GOSUB go :PAUSE 1000
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE6
GOSUB left :PAUSE 15
GOSUB go :PAUSE 6
GOSUB left :PAUSE 15
GOSUB go :PAUSE1000
GOSUB off :PAUSE 50000
go: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