+ tape_block * res_block;
+ res_block=new tape_block(fd,input_start,input_stop,start_stop_arg);
+ data_block * d_block;
+ data_block_0 * d0_block;
+
+ // Retype to data_block if possible
+ switch(res_block->get_type()){
+ case tape_block::TBT_DATA: // Make pointer a data block
+ d_block=new data_block(*res_block);
+ delete res_block;
+ res_block=d_block;
+ break;
+ default: // All other cases
+ return res_block;
+ }
+
+ // Retype again, if it's a data_block now
+
+ switch(res_block->get_type()){
+ case 00:
+ d0_block=new data_block_0(*d_block);
+ d_block=d0_block;
+ break;
+// case 01: d_block=new data_block_1(*d_block); break;
+// case 02: d_block=new data_block_2(*d_block); break;
+// case 03: d_block=new data_block_3(*d_block); break;
+// case 04: d_block=new data_block_4(*d_block); break;
+// case 05: d_block=new data_block_5(*d_block); break;
+// case 06: d_block=new data_block_6(*d_block); break;
+// case 07: d_block=new data_block_7(*d_block); break;
+ default:
+ return res_block;
+ }
+ delete res_block;
+ res_block=d_block;
+
+ if (res_block->get_type()==0) switch(d0_block->get_subtype()){
+// case 000: d0_block=new data_block_0_00(d0_block); break;
+// case 001: d0_block=new data_block_0_01(d0_block); break;
+// case 002: d0_block=new data_block_0_02(d0_block); break;
+// case 003: d0_block=new data_block_0_03(d0_block); break;
+// case 004: d0_block=new data_block_0_04(d0_block); break;
+// case 010: d0_block=new data_block_0_10(d0_block); break;
+// case 014: d0_block=new data_block_0_14(d0_block); break;
+// case 024: d0_block=new data_block_0_24(d0_block); break;
+// case 030: d0_block=new data_block_0_30(d0_block); break;
+// case 054: d0_block=new data_block_0_54(d0_block); break;
+// case 060: d0_block=new data_block_0_60(d0_block); break;
+ default:
+ return res_block;
+ }
+ delete res_block;
+ res_block=d0_block;
+
+ return res_block;