Translit ->
Arg Dest : &String, Src : String
+

 Prepare ->
 Arg Text : &String, Src : String

 T = '' ..

 S = < `ENC_S_CYR, `ENC_S_LAT > ..; - Spaces 'S'
 C = < `ENC_C_CYR, `ENC_C_LAT > ..; - Spaces 'C'

 T = S; Text = Src

 Do 2
  Z = Text = ''
  Cyrillic : Array <- T.1 # ' '
  Translit : Array <- T.2 # ' '

  - CharsIn Z ( H : Text '= <- H Cyrillic Translit )

  T = C
 ;

 /

+

Text = '' ..

- Prepare 'Text' Src 

Text <- Text 'YY' 'Y'
Text <- Text 'yy' 'y'

Text <- Text 'ù' '*'
Text <- Text 'Ä' '-'

- CharsIn Text ( H : 
                     Dest '= H [ StrCode ' ' <= StrCode H <= StrCode '~' ]
               )

/