-- Demonstrate use of robot handler package

    WITH robot_handler ; USE robot_handler ;

    PROCEDURE robdemo IS

-- Local Variables :

    r2d2 : robot_controller ; -- robot controller task
    c3po : robot_controller ; -- another robot controller task

    BEGIN -- robdemo

-- setup robot system
    robot_system.open ;

-- setup robot controller task
    r2d2.open ;

-- move in y-axis direction
    r2d2.single_axis_move ( y_axis, -5 ) ;

-- shutdown robot controller task
    r2d2.close ;

-- compound movement of second robot
    c3po.open ;
    c3po.compound_move ( ( 50, -20, 4 ) ) ;
    c3po.close ;

-- shut down robot system
    robot_system.close ;

    END robdemo ; ------------------------------------------------------