งานทัดสวิด

' {$STAMP BS2Sx}
' {$PBASIC 2.5}
PAUSE 1000
main:GOSUB forward
GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 500
GOSUB s_right : PAUSE 200
ENDIF
GOSUB forward GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_right : PAUSE 200
ENDIF
GOSUB forward GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_left : PAUSE 200
ENDIF GOSUB forward
GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_right : PAUSE 200
ENDIF
GOSUB forward
GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_right : PAUSE 200
ENDIF GOSUB forward
GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_left : PAUSE 200
ENDIF
GOSUB forward
GOSUB soso
IF (IN4 = 0) OR (IN6 = 0) THEN
GOSUB backward : PAUSE 480
GOSUB s_left : PAUSE 200
ENDIF
GOSUB forward : PAUSE 260
GOSUB motor_off
GOTO main
forward: HIGH 13 : LOW 12 : HIGH 15 : LOW 14 : RETURN
backward: LOW 13 : HIGH 12 : LOW 15 : HIGH 14 : RETURN
s_right: LOW 13 : HIGH 12 : HIGH 15 : LOW 14 : RETURN
s_left : HIGH 13 : LOW 12 : LOW 15 : HIGH 14 : RETURN
motor_off: LOW 13 : LOW 12 : LOW 15 : LOW 14 : RETURN
soso: DO
LOOP UNTIL((IN4 = 0) OR (IN6 = 0)) : RETURN