printf ("Block type:%2o-%o\n",myblock->get_type(),myblock->get_subtype());
} while (myblock->get_state()==tape_block::TBS_OK);
printf("---");
printf ("Block type:%2o-%o\n",myblock->get_type(),myblock->get_subtype());
} while (myblock->get_state()==tape_block::TBS_OK);
printf("---");