// Read GP2D12 Sensor output and displays 
// raw value on RCX display (requires RCX 2 firmware)

int value;

task main()
{
  SetUserDisplay(value,0); // Display "value" on LCD
  SetSensor(SENSOR_1,SENSOR_LIGHT); // Active mode: starts charging sensor
  Wait(100); // Wait for full charge on startup
  
  until (false)
  {
    SetSensor(SENSOR_1,SENSOR_TOUCH); // Passive mode: starts measure
    Wait(5); // Wait for GP2D12 conversion time (50ms)
    SetSensorMode(SENSOR_1,SENSOR_MODE_RAW);
    value=SENSOR_1; // reads and display value

    SetSensor(SENSOR_1,SENSOR_LIGHT); // Recharge sensor
    Wait(25); // for 250 ms
  }
}