Click here to return to “Tornado”
PROGRAM ; THE TORNADO
OBJECT rotation_sensor: ROTATION SENSOR(1);
VARIABLE v1;
INITIAL TASK t1;
ON AC;
POWER AC, 7;
FORWARD C;
START TASK t2
END;
TASK t2;
STOP TASK t3;
LOOP FOREVER
TONE 40, 100;
TONE 40, 100;
TONE 70, 100;
TONE 100, 100;
TONE 150, 100;
TONE 100, 100;
TONE 70, 100;
TONE 40, 100;
TONE 40, 100;
TONE 4000, 80;
WAIT 25;
TONE 4000, 80;
v1 := rotation_sensor;
IF v1 < 1600
THEN
FORWARD A;
ELSE
START TASK t3
END IF
END LOOP
END;
TASK t3;
STOP TASK t2;
LOOP FOREVER
TONE 40, 100;
TONE 40, 100;
TONE 70, 100;
TONE 100, 100;
TONE 150, 100;
TONE 100, 100;
TONE 70, 100;
TONE 40, 100;
TONE 40, 100;
TONE 4000, 80;
WAIT 25;
TONE 4000, 80;
v1 := rotation_sensor;
IF v1 > -1600
THEN
REVERSE A;
ELSE
START TASK t2
END IF
END LOOP
END;
END.