IDTAG3 LEVEL 2 READER

idtag3v2 {
  if ($mid($read($1-,1),1,3) == ID3 ) { 
    bread " $+ $1- $+ " 0 10 &header
    bread " $+ $1- $+ " 0 $base($base($bvar(&header,7,1),10,2,7) $+ $base($bvar(&header,8,1),10,2,7) $+ $base($bvar(&header,9,1),10,2,7) $+ $base($bvar(&header,10,1),10,2,7),2,10) &taginfo      
    if ($prop == title || $prop == album || $prop == artist || $prop == track || $prop == year || $prop == genre ) {
      set -u %a $replace($prop,title,TIT2,album,TALB,artist,TPE1,track,TRCK,year,TYER,genre,TCON)
      return $bvar(&taginfo,$calc($bfind(&taginfo,1,%a)+11),$calc($base($base($bvar(&taginfo,$calc($bfind(&taginfo,1,%a)+4)),10,16,2) $+ $base($bvar(&taginfo,$calc($bfind(&taginfo,1,%a)+5)),10,16,2) $+ $base($bvar(&taginfo,$calc($bfind(&taginfo,1,%a)+6)),10,16,2) $+ $base($bvar(&taginfo,$calc($bfind(&taginfo,1,%a)+7)),10,16,2),16,10)-1)).text
    }
  }
}