Select Code to Download

        $data{ $dat[0] }{ $dat[1] } = $tmarker;

        $lines{ $dat[0] } = "";

        if( !defined $dat[3] ) { $dat[3] = 0; }
        if( !defined $dat[4] ) { $dat[4] = 0; }

        $datachr{ $dat[1] }{ $dat[3] } = $dat[4];

        $chr{ $dat[3] } = "";