  TYPE
    rmt$supported_tape_densities = rmc$800 .. rmc$maximum_density;

*copyc rmc$maximum_density
*copyc rmt$density
