วันพุธที่ 15 สิงหาคม พ.ศ. 2550

โจทย์ triangle

' {$STAMP BS2sx}
'{$PBASIC 2.5}
'{$PORT COM2}
PAUSE 1000
Main: GOSUB left : PAUSE 670
GOSUB go : PAUSE 1000
GOSUB left : PAUSE 660
GOSUB go : PAUSE 1000
GOSUB left :PAUSE 670
GOSUB go :PAUSE 1000
GOSUB off : PAUSE 7000
GOTO Main
left:HIGH 13:LOW 12:LOW 15:LOW 14:RETURN
go:HIGH 13:LOW 12:HIGH 15:LOW 14:RETURN
off:LOW 13:LOW 12:LOW15: LOW 14:RETURN

ไม่มีความคิดเห็น: