home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / trucs.dxr / 00112_translatie.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.9 KB  |  67 lines
  1. on translatie veld
  2.   aantal_chars = the number of chars in the text of member veld
  3.   repeat with w = 1 to aantal_chars
  4.     variable_char = charToNum(char w of field veld)
  5.     if (variable_char > 128) or ((variable_char < 32) and (variable_char <> 13)) then
  6.       case variable_char of
  7.         9:
  8.           put " - " into char w of field veld
  9.         129:
  10.           put "├╝" into char w of field veld
  11.         130:
  12.           put "├⌐" into char w of field veld
  13.         131:
  14.           put "├ó" into char w of field veld
  15.         132:
  16.           put "├ñ" into char w of field veld
  17.         133:
  18.           put "├á" into char w of field veld
  19.         135:
  20.           put "├º" into char w of field veld
  21.         136:
  22.           put "├¬" into char w of field veld
  23.         137:
  24.           put "├½" into char w of field veld
  25.         138:
  26.           put "├¿" into char w of field veld
  27.         139:
  28.           put "├»" into char w of field veld
  29.         140:
  30.           put "├«" into char w of field veld
  31.         141:
  32.           put "├î" into char w of field veld
  33.         147:
  34.           put "├┤" into char w of field veld
  35.         148:
  36.           put "├╢" into char w of field veld
  37.         149:
  38.           put "├▓" into char w of field veld
  39.         150:
  40.           put "├╗" into char w of field veld
  41.         151:
  42.           put "├╣" into char w of field veld
  43.         160:
  44.           put "├í" into char w of field veld
  45.         161:
  46.           put "├¡" into char w of field veld
  47.         162:
  48.           put "├│" into char w of field veld
  49.         163:
  50.           put "├╣" into char w of field veld
  51.         221:
  52.           put "├¥" into char w of field veld
  53.         232:
  54.           put "├¿" into char w of field veld
  55.         233:
  56.           put "├⌐" into char w of field veld
  57.         235:
  58.           put "├½" into char w of field veld
  59.         254:
  60.           put "├╛" into char w of field veld
  61.         otherwise:
  62.           alert("unknown character:" && string(variable_char))
  63.       end case
  64.     end if
  65.   end repeat
  66. end
  67.