ใช้รีโมทเพื่อคาบคุมหุน

' {$STAMP BS2sx}
' {$PBASIC 2.5}
key VAR Byte
DO
SERIN 3,2063[key]
IF key ="D" OR key = "d" THEN GOSUB forward
IF key ="A" OR key = "a" THEN GOSUB backwards
IF key ="C" OR key = "c" THEN GOSUB s_left
IF key ="B" OR key = "b" THEN GOSUB s_right
LOOP
forward : HIGH 13 :LOW 12 : HIGH 15 :LOW 14 : RETURN
backwards : HIGH 12 : LOW 13 : HIGH 14 : LOW 15 : RETURN
s_left : HIGH 13 : LOW 12 : HIGH 14 : LOW 15 : RETURN
s_right : HIGH 12 : LOW 13 : HIGH 15 : LOW 14 : RETURN