  TYPE
    fst$tape_block_length = 0 .. amc$maximum_block;

*copyc amc$maximum_block
