transp {
    bread temp\translate.tmp 0 $file(temp\translate.tmp).size &transp
    if ($bfind(&transp,0,{"sentences":) == 0) { .timer 1 0 transp S_ERROR Unknown_Error | goto end.translate }
    %transp.bft = 0 | unset %item.txt
    :next.trs
    bread temp\translate.tmp %transp.bft $file(temp\translate.tmp).size &transp
    %transp.bf1 = $bfind(&transp,0,"trans":") | if (%transp.bf1 < 1) goto end.trs
    if (%transp.bf1 > 0) {
      bread temp\translate.tmp $calc(%transp.bft + %transp.bf1 - 1) $file(temp\translate.tmp).size &transp
      %transp.bf2 = $bfind(&transp,0,"trans":") | bread temp\translate.tmp $calc(%transp.bft + %transp.bf1 + %transp.bf2) $file(temp\translate.tmp).size &transp
      %transp.bf3 = $bfind(&transp,0,$qt($chr(44))) | bread temp\translate.tmp $calc(%transp.bft + %transp.bf1 + %transp.bf2 - 1) %transp.bf3 &transp
      %item.txt = %item.txt $remove($bvar(&transp,1,$bvar(&transp,0)).text,trans":")
    }
    %transp.bft = $calc(%transp.bft + %transp.bf1 + %transp.bf2) | goto next.trs
    :end.trs
    if ($read -ntl1 temp\trans.tmp == auto) {
      bread temp\translate.tmp 0 $file(temp\translate.tmp).size &transp
      %transp.bf1 = $bfind(&transp,0,"src":") | if (%transp.bf1 < 1) goto end.trs
      if (%transp.bf1 > 0) {
        bread temp\translate.tmp %transp.bf1 $file(temp\translate.tmp).size &transp
        %transp.bf2 = $bfind(&transp,0,"src":") | bread temp\translate.tmp $calc(%transp.bf1 + %transp.bf2) $file(temp\translate.tmp).size &transp
        %transp.bf3 = $bfind(&transp,0,$qt($chr(44))) | bread temp\translate.tmp $calc(%transp.bf1 + %transp.bf2 - 1) %transp.bf3 &transp
        write -l6 temp\trans.tmp $remove($bvar(&transp,1,$bvar(&transp,0)).text,"src":")
      }
    }
}