' {$STAMP BS2sx}'
{$PBASIC 2.5}'
{$PORT COM2}
PAUSE 1000
Main: GOSUB left : PAUSE 670
GOSUB go : PAUSE 1000
GOSUB left : PAUSE 660GOSUB go : PAUSE 1000GOSUB 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:RETURNoff:LOW 13:LOW 12:LOW
15: LOW 14:RETURN
สมัครสมาชิก:
ส่งความคิดเห็น (Atom)
ไม่มีความคิดเห็น:
แสดงความคิดเห็น