Guest User

Untitled

a guest
Oct 15th, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. if (CharSet := "'E") ; Acute
  3. {
  4.     Send, {asc 0201}
  5. }
  6. else if (CharSet := "'e")
  7. {
  8.     Send, {asc 0233}
  9. }
  10. else if (CharSet := "`A") ; Grave
  11. {
  12.     Send, {asc 0192}
  13. }
  14. else if (CharSet := "`a")
  15. {
  16.     Send, {asc 0224}
  17. }
  18. else if (CharSet := "`E")
  19. {
  20.     Send, {asc 0200}
  21. }
  22. else if (CharSet := "`e")
  23. {
  24.     Send, {asc 0232}
  25. }
  26. else if (CharSet := "`U")
  27. {
  28.     Send, {asc 0217}
  29. }
  30. else if (CharSet := "`u")
  31. {
  32.     Send, {asc 0249}
  33. }
  34. else if (CharSet := "^A") ; Circumflex  
  35. {
  36.     Send, {asc 0194}
  37. }
  38. else if (CharSet := "^a")
  39. {
  40.     Send, {asc 0226}
  41. }
  42. else if (CharSet := "^e")
  43. {
  44.     Send, {asc 0202}
  45. }
  46. else if (CharSet := "^E")
  47. {
  48.     Send, {asc 0234}
  49. }
  50. else if (CharSet := "^I")
  51. {
  52.     Send, {asc 0206}
  53. }
  54. else if (CharSet := "^i")
  55. {
  56.     Send, {asc 0238}
  57. }
  58. else if (CharSet := "^O")
  59. {
  60.     Send, {asc 0212}
  61. }
  62. else if (CharSet := "^o")
  63. {
  64.     Send, {asc 0244}
  65. }
  66. else if (CharSet := "^U")
  67. {
  68.     Send, {asc 0219}
  69. }
  70. else if (CharSet := "^u")
  71. {
  72.     Send, {asc 0251}
  73. }
  74. else if (CharSet := ":E") ; Diaeresis
  75. {
  76.     Send, {asc 0203}
  77. }
  78. else if (CharSet := ":e")
  79. {
  80.     Send, {asc 0235}
  81. }
  82. else if (CharSet := ":I")
  83. {
  84.     Send, {asc 0207}
  85. }
  86. else if (CharSet := ":i")
  87. {
  88.     Send, {asc 0238}
  89. }
  90. else if (CharSet := ":U")
  91. {
  92.     Send, {asc 0220}
  93. }
  94. else if (CharSet := ":u")
  95. {
  96.     Send, {asc 0252}
  97. }
  98. else if (CharSet := ":Y")
  99. {
  100.     Send, {asc 0159}
  101. }
  102. else if (CharSet := ":y")
  103. {
  104.     Send, {asc 0255}
  105. }
  106. else if (CharSet := ",C") ; Cedille
  107. {
  108.     Send, {asc 0199}
  109. }
  110. else if (CharSet := ",c")
  111. {
  112.     Send, {asc 0231}
  113. }
  114. else if (CharSet := "~N") ; Tilde
  115. {
  116.     Send, {asc 0209}
  117. }
  118. else if (CharSet := "~n")
  119. {
  120.     Send, {asc 0241}
  121. }
  122. else if (CharSet := "OE") ; Ligatures
  123. {
  124.     Send, {asc 0140}
  125. }
  126. else if (CharSet := "oe")
  127. {
  128.     Send, {asc 0156}
  129. }
  130. else if (CharSet := "AE")
  131. {
  132.     Send, {asc 0198}
  133. }
  134. else if (CharSet := "ae")
  135. {
  136.     Send, {asc 0230}  
  137. }
  138. else if (CharSet := "<<") ; Quotation
  139. {
  140.     Send, {asc 0171}
  141. }
  142. else if (CharSet := ">>")
  143. {
  144.     Send, {asc 0187}
  145. }
  146. else
  147. {
  148.     Send {asc 0020}
  149. }
Add Comment
Please, Sign In to add comment