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 : String <- T.1, ' '
  Translit : Array : String <- 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 : 
                     If StrCode( ' ' ) <= StrCode( H ) <= StrCode( '~' ) then Dest '= H
               )

/