setCaseIgnored false be translate_help ;clearText language="de load word language "|/startup.lg| startup_de load "|en/startup.lg| startup_en setCaseIgnored false translation_en_de=reverse translation_de foreach tolist translation_en [ t=translation_en_de.(?.2) if t != [] [ i=?.1 ; (pr i t) translation_en_de.i=t i=lowercase ?.1 translation_en_de.i=t i=uppercase ?.1 translation_en_de.i=t ] ] translation_en_de=(merge lowerCase translation_en_de translation_en_de) translation_en_de=(merge upperCase translation_en_de translation_en_de) ; print translation_en_de fl=(files [aucblogo.hrf]) foreach fl [ translateFile ? ] be translateFile in out=(word language "/ in "_ language ".txt) (print in "=> out) openRead in setReader in openWrite out setWriter out l=array readListFlatRaw repeat count l [ w=l.repcount t=translation_en_de.w ifelse t != [] [ (type t) ][ (type w) ] ] setReader [] close in setWriter [] close out end end