'PROGRAMA PIR.bas
'PROGRAMA EJEMPLO DE USO DEL SENSOR PIR CON LA iBOARD 
'-----------------------------------------------------------------
  Espera    CON   20    'ESPERA EN SEGUNDOS PARA LA CALIBRACION    
  PIR_PIN   VAR   IN0
'-----------------------------------------------------------------

  PAUSE 1000*Espera      'ESPERA DE CALIBRACION        

  Main: 
    IF PIR_PIN = 0 THEN  'SI NO HAY MOVIMIENTO APAGAR LED L0
       LOW  P12
    ELSE
       HIGH P12          'SI HAY MOVIMIENTO ENCENDER LED L0
    ENDIF
    PAUSE 150
  GOTO Main