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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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