FUNCTION ELRU( cTxt, nLen, nPos ) 
 LOCAL i, k, n, cTx 
  STATIC a_ELRu_arr 
   
  If a_ELRu_arr == Nil 
     a_ELRu_arr := array(255) 
     aFill(a_ELRu_arr, chr(254)) 
     cTx := '!#$%&()*+,-./:;<=>?@\^{|}~[]"'+['] 
     n := 32 
     For i := 1 To n; a_ELRu_arr[ i ] := chr(n) 
     Next 
     For i := 1 To len(cTx) 
         n++ 
         If n == 34 .or. n == 39; n++ 
         EndIf 
         k := asc(subs(cTx, i, 1)) 
         a_ELRu_arr[ k ] := chr(n) 
     Next 
     cTx := '0123456789_AĀАaāаBБbбCČcčВвГгDДdдEĒЕeēеFfGĢЖgģжЗзHhIĪИiīиЙйJjKĶКkķкLĻЛlļл' 
     cTx += 'MМmмNŅНnņнOОoоPПpпRРrрSŠСsšсTТtтUŪУuūуVvWwфФXХxхYyЦцЧчZŽzžШшЩщЪъЫыЬьЭэЮюЯя' 
     For i := 1 To len(cTx) 
         n++ 
         If n == 91 .or. n == 93 .or. n == 96; n++ 
         EndIf 
         k := asc(subs(cTx, i, 1)) 
         a_ELRu_arr[ k ] := chr(n) 
     Next 
  EndIf 
  
  If     cTxt == Nil 
  
     RETURN a_ELRu_arr 
  
  Else 
  
     If ! hb_IsNumeric(nPos); nPos := 1 
     EndIf 
     If   hb_IsNumeric(nLen); cTxt := subs(cTxt, nPos, nLen) 
     EndIf 
  
     FOR EACH k IN @cTxt 
         n := asc(k) 
         k := a_ELRu_arr[ n ] 
     NEXT 
  
  EndIf 
  
 RETURN cTxt