% setup {cat,uc,lc,sf,math}code values for T* font encodings
\def\letter#1 #2 {%
  \ifnum\catcode#1=13\else\catcode#1=11 \catcode#2=11 \fi
  \uccode#1=#1 \uccode#2=#1
  \lccode#1=#2 \lccode#2=#2
  \sfcode#1=999 \sfcode#2=1000
  \count255=#1 \advance\count255 "7000 \mathcode#1=\count255
  \count255=#2 \advance\count255 "7000 \mathcode#2=\count255
}
\letter 128 160 \letter 129 161 \letter 130 162 \letter 131 163
\letter 132 164 \letter 133 165 \letter 134 166 \letter 135 167
\letter 136 168 \letter 137 169 \letter 138 170 \letter 139 171
\letter 140 172 \letter 141 173 \letter 142 174 \letter 143 175
\letter 144 176 \letter 145 177 \letter 146 178 \letter 147 179
\letter 148 180 \letter 149 181 \letter 150 182 \letter 151 183
\letter 152 184 \letter 153 185 \letter 154 186 \letter 155 187
\letter 156 188
\letter 192 224 \letter 193 225 \letter 194 226 \letter 195 227
\letter 196 228 \letter 197 229 \letter 198 230 \letter 199 231
\letter 200 232 \letter 201 233 \letter 202 234 \letter 203 235
\letter 204 236 \letter 205 237 \letter 206 238 \letter 207 239
\letter 208 240 \letter 209 241 \letter 210 242 \letter 211 243
\letter 212 244 \letter 213 245 \letter 214 246 \letter 215 247
\letter 216 248 \letter 217 249 \letter 218 250 \letter 219 251
\letter 220 252 \letter 221 253 \letter 222 254 \letter 223 255
\let\letter\undefined
\lccode 25=25 \uccode 25=73 \lccode 26=26 \uccode 26=74 \lccode 27=27
\lccode 157=105 \uccode 157=157 \mathcode 157="709D
\lccode 158=158 \uccode 158=208 \mathcode 158="709E
\lccode 159=0 \uccode 159=0 \mathcode 159="709F
\lccode 189=0 \uccode 189=0 \mathcode 189="70BD
\lccode 190=0 \uccode 190=0 \mathcode 190="70BE
\lccode 191=0 \uccode 191=0 \mathcode 191="70BF
\let\iftxxenc\iftrue
\endinput
