  TYPE
    rat$deck_index = 0 .. rac$max_decks;

*copyc rac$max_decks
