home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / dos850.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  1.3 KB  |  45 lines
  1. %  Initializes upper/lowercase lookup tables for DOS code page 850.
  2. %  850 is the default code page for Belgium, Brazil, Denmark,
  3. %  Finland, France, Germany, Italy, Latin America, Netherlands,
  4. %  Norway, Portugal, Spain, Sweden, and Switzerland.
  5. %  It is the alternate code page for Canadian-French,
  6. %  Czechoslovakia, Hungary, International English, Poland, United
  7. %  Kingdom, USA, and (ex-)Yugoslavia
  8. %  Information from MSDOS 5.0 manual
  9. %  Thanks marko@cs.umd.edu
  10. .   0  64 1 { dup define_case } _for
  11. .  65  90 1 { dup 32 + define_case } _for
  12. .  91  96 1 { dup define_case } _for
  13. . 123 255 1 { dup define_case } _for
  14. %
  15. . 128 135 define_case
  16. . 154 129 define_case
  17. . 144 130 define_case
  18. . 142 132 define_case
  19. . 183 133 define_case
  20. . 143 134 define_case
  21. . 211 137 define_case
  22. . 212 138 define_case
  23. . 216 139 define_case
  24. . 215 140 define_case
  25. . 222 141 define_case
  26. . 146 145 define_case
  27. . 153 148 define_case
  28. . 227 149 define_case
  29. . 234 150 define_case
  30. . 235 151 define_case
  31. . 157 155 define_case
  32. . 181 160 define_case
  33. . 214 161 define_case
  34. . 224 162 define_case
  35. . 233 163 define_case
  36. . 165 164 define_case
  37. . 199 198 define_case
  38. . 209 208 define_case
  39. . 229 228 define_case
  40. . 232 231 define_case
  41. . 237 236 define_case
  42.  
  43. . "0-9a-zA-Z\d128-\d155\d157\d160-\d165\d181-\d183\d198\d199\d208\d212\d214-\d216\d222\d224-\d237"
  44. . define_word
  45.