sys(15)

Function Sys15Tr

  lcWhole = ''

  lcBaseSet='ABCEFGHJKMNOPQRTUVXY'

  For ix=0 To 255

    lcWhole = m.lcWhole + Chr(m.ix)

  Endfor

  lcUpperMap = m.lcBaseSet

  lcLowerMap = Lower(m.lcBaseSet)

  For ix=Asc('Z')+1 To Asc('Z')+6

    lcUpperMap = m.lcUpperMap + Chr(m.ix)

  Endfor

  For ix=Asc('z')+1 To Asc('z')+6

    lcLowerMap = m.lcLowerMap + Chr(m.ix)

  Endfor

  lcWhole = Stuff(m.lcWhole,Asc('A'),Len(m.lcUpperMap),m.lcUpperMap)

  lcWhole = Stuff(m.lcWhole,Asc('a'),Len(m.lcLowerMap),m.lcLowerMap)

 

  m.lcWhole = Stuff(m.lcWhole,128,1,'D') && C

  m.lcWhole = Stuff(m.lcWhole,166,1,'I') && G

  m.lcWhole = Stuff(m.lcWhole,152,1,'L') && I

  m.lcWhole = Stuff(m.lcWhole,153,1,'S') && O

  m.lcWhole = Stuff(m.lcWhole,158,1,'W') && S

  m.lcWhole = Stuff(m.lcWhole,154,1,'Z') && U

 

  m.lcWhole = Stuff(m.lcWhole,135,1,'d') && c

  m.lcWhole = Stuff(m.lcWhole,167,1,'i') && g

  m.lcWhole = Stuff(m.lcWhole,141,1,'l') && i

  m.lcWhole = Stuff(m.lcWhole,148,1,'s') && o

  m.lcWhole = Stuff(m.lcWhole,159,1,'w') && s

  m.lcWhole = Stuff(m.lcWhole,129,1,'z') && u

 

  lcWholeCI = Stuff(m.lcWhole,Asc('a'),Len(m.lcLowerMap),m.lcUpperMap)

 

  m.lcWholeCI = Stuff(m.lcWholeCI,135,1,'D') && c

  m.lcWholeCI = Stuff(m.lcWholeCI,167,1,'I') && g

  m.lcWholeCI = Stuff(m.lcWholeCI,141,1,'L') && i

  m.lcWholeCI = Stuff(m.lcWholeCI,148,1,'S') && o

  m.lcWholeCI = Stuff(m.lcWholeCI,159,1,'W') && s

  m.lcWholeCI = Stuff(m.lcWholeCI,129,1,'Z') && u

 

  Turkish = m.lcWHole

  TurkishCI = m.lcWHoleCI

 

  SAVE TO Turkish.mem ALL LIKE Turkish*

ENDFUNC