
*copyc tut$cursor_movement
*copyc tut$cursor_behavior_ordinal

  TYPE
    tut$cursor_behavior = packed array [tut$cursor_behavior_ordinal] of
          tut$cursor_movement;

