Lipstick grabber

The Lipstick grabber.

Very dangerous. Feared by many women. Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing.

Caution: Never ever let your lipstick unattended while suspicion on Lipstick grabber's presence persists.

The source code:

' {$STAMP BS2} ' {$PBASIC 2.5} counter2 VAR Word counter VAR Word counter3 VAR Word irDetectRight VAR Bit DO PULSOUT 14, 1000

 PULSOUT 13,600
 PULSOUT 12, 900

FREQOUT 2, 1, 38500 irDetectRight = IN0 IF (irDetectRight = 0) THEN

PAUSE 1000
HIGH 1

FOR counter = 1 TO 100                'take
  PULSOUT 14, 500
 PAUSE 5
NEXT

FOR counter = 1 TO 100                'go forward
  PULSOUT 14, 500
  PULSOUT 13,650
  PULSOUT 12,850
 PAUSE 5
NEXT

FOR counter = 1 TO 60                 'turn left
  PULSOUT 14, 500
  PULSOUT 13,650
  PULSOUT 12,650
 PAUSE 5
NEXT

FOR counter = 1 TO 50                 'go forward
  PULSOUT 14, 500
  PULSOUT 13,650
  PULSOUT 12,850
 PAUSE 20
NEXT

FOR counter2 = 1 TO 100               'release
  PULSOUT 14, 1000
  LOW 1
  PAUSE 10
NEXT

FOR counter3 = 1 TO 50                'go back
  PULSOUT 13,900
  PULSOUT 12, 600
  PAUSE 10
NEXT

FOR counter = 1 TO 3                  'sound: finished!
FREQOUT 4, 300, 4000
PAUSE 10
NEXT

GOTO Finish

ENDIF

LOOP

Finish:

END

Picture: <<<picture>>>

Caught on tape!!! <<<movie>>>