Private Sub Download_LichtSnuffelaar()

With RCX

.SelectPrgm SLOT5

.BeginOfTask MAIN
    .SetSensorType SENSOR_1, SWITCH_TYPE
    .SetSensorMode SENSOR_1, BOOL_MODE, 0
    
    .SetSensorType SENSOR_3, LIGHT_TYPE
    .SetSensorMode SENSOR_3, PERCENT_MODE, 0
    
    .SetVar break, CON, 0
    .StartTask 1
    
.EndOfTask

.BeginOfTask 1
         
      .Loop CON, FOREVER
      .If SENVAL, SENSOR_1, EQ, CON, 1       'sensor staart active
           .SumVar break, CON, 1
           .If VAR, break, EQ, CON, 2        'stop program
              .SetVar break, CON, 0
              .Off MOTOR_A + MOTOR_C
           .EndIf
      .EndIf                                 'sensor staart active
       
      '*******main program ***********
      .If VAR, break, EQ, CON, 1             'start program
         .If SENVAL, SENSOR_3, LT, CON, 30   'volg naar links
          .Off MOTOR_C
          .On MOTOR_A
         .Else
           .If SENVAL, SENSOR_3, GT, CON, 70  'volg naar rechts
            .Off MOTOR_A
            .On MOTOR_C
             .Else
              .On MOTOR_A + MOTOR_C           'anders rechtdoor
           .EndIf
         .EndIf
         
       .EndIf
      
      '**** einde main program ****
      .Wait CON, MS_300
  .EndLoop
.EndOfTask


End With

End Sub