\ MOTORDIR.TXT
HEX

: HANDLE_SENSORS_INIT
  RCX_INIT
  SENSOR_INIT
     0 SENSOR_PASSIVE 
   1 0 SENSOR_TYPE
  20 0 SENSOR_MODE
     1 SENSOR_PASSIVE
   1 1 SENSOR_TYPE
  20 1 SENSOR_MODE ;

: HANDLE_SENSORS
  7 ( default power level )
  0 DUP SENSOR_READ DROP SENSOR_BOOL ( on or off? ) 
  IF   1 DUP SENSOR_READ DROP SENSOR_BOOL ( fwd or rev? )
       IF 1 ELSE 2 THEN
  ELSE 3 THEN   ( brake the motor )
  0 MOTOR_SET ;

HANDLE_SENSORS_INIT
HANDLE_SENSORS
