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