summaryrefslogtreecommitdiff
path: root/macros/generic/cptex/cp850.sty
blob: 4c70ee459c2a5321ff1e5927be37be193388f663 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
%
% TeX-Definitionen fr die Code Page 850, Int'l PC encoding
%
% (C) 1994 FuturaSoft (Martin Krmer, D-49179 Ostercappeln)
%
% Changes between Version 1.1 and 1.0:
% - character `^^fa' is now defined to be directly `\mathsymbol{\cdot}'
%   (this makes actually no difference until `\smallcdot' is redefined)
%
\typeout{Document Style Option `cp850' Version 1.1 <1 Mar 1994>.}
%
%
\@ifundefined{selectcodepage}{\input cp.sty}{}

\activateuppercharset

\newcodepage{850}{

  \selectcodepage[original,vert]{437}

  \mapchar{^^83}{\^a}\ucchar{^^b6}
  \mapchar{^^85}{\`a}\ucchar{^^b7}
  \mapchar{^^88}{\^e}\ucchar{^^d2}
  \mapchar{^^89}{\"e}\ucchar{^^d3}
  \mapchar{^^8a}{\`e}\ucchar{^^d4}
  \mapchar{^^8b}{\"\i}\ucchar{^^d8}
  \mapchar{^^8c}{\^\i}\ucchar{^^d7}
  \mapchar{^^8d}{\`\i}\ucchar{^^de}
  \mapchar{^^93}{\^o}\ucchar{^^e2}
  \mapchar{^^95}{\`o}\ucchar{^^e3}
  \mapchar{^^96}{\^u}\ucchar{^^ea}
  \mapchar{^^97}{\`u}\ucchar{^^eb}
%
  \mapchar{^^9b}{\o}\ucchar{^^9d}
%
  \mapchar{^^9d}{\O}\lcchar{^^9b}
  \mapchar{^^9e}{\mathsymbol{\times}}			% MS
%
  \mapchar{^^a0}{\'a}\ucchar{^^b5}
  \mapchar{^^a1}{\'\i}\ucchar{^^d6}
  \mapchar{^^a2}{\'o}\ucchar{^^e0}
  \mapchar{^^a3}{\'u}\ucchar{^^e9}
%
  \mapchar{^^a9}{\circledR}				% MA
  \mapchar{^^aa}{\mathsymbol{\neg}}			% MS
%
  \mapchar{^^b5}{\'A}\lcchar{^^a0}
  \mapchar{^^b6}{\^A}\lcchar{^^83}
  \mapchar{^^b7}{\`A}\lcchar{^^85}
  \mapchar{^^b8}{\copyright}				% roman+MS
%
  \mapchar{^^bd}{\cent}					% F
  \mapchar{^^be}{\yen}					% MA
%
  \mapchar{^^c6}{\~a}\ucchar{^^c7}
  \mapchar{^^c7}{\~A}\lcchar{^^c6}
%
  \mapchar{^^cf}{\currency}				% MS
  \mapchar{^^d0}{\eth}\ucchar{^^d1}			% MB
  \mapchar{^^d1}{\Eth}\lcchar{^^d0}			% F
  \mapchar{^^d2}{\^E}\lcchar{^^88}
  \mapchar{^^d3}{\"E}\lcchar{^^89}
  \mapchar{^^d4}{\`E}\lcchar{^^8a}
  \mapchar{^^d5}{\i}\uctext{\I{}}
  \mapchar{^^d6}{\'I}\lcchar{^^a1}
  \mapchar{^^d7}{\^I}\lcchar{^^8c}
  \mapchar{^^d8}{\"I}\lcchar{^^8b}
%
  \mapchar{^^dd}{\brokenvert}				% rules+MS(ex)
  \mapchar{^^de}{\`I}\lcchar{^^8d}
%
  \mapchar{^^e0}{\'O}\lcchar{^^a2}
  \mapchar{^^e1}{\ss}\uctext{\SS{}}
  \mapchar{^^e2}{\^O}\lcchar{^^93}
  \mapchar{^^e3}{\`O}\lcchar{^^95}
  \mapchar{^^e4}{\~o}\ucchar{^^e5}
  \mapchar{^^e5}{\~O}\lcchar{^^e4}
%
  \mapchar{^^e7}{\thorn}\ucchar{^^e8}			% F
  \mapchar{^^e8}{\Thorn}\lcchar{^^e7}			% roman
  \mapchar{^^e9}{\'U}\lcchar{^^a3}
  \mapchar{^^ea}{\^U}\lcchar{^^96}
  \mapchar{^^eb}{\`U}\lcchar{^^97}
  \mapchar{^^ec}{\'y}\ucchar{^^ed}
  \mapchar{^^ed}{\'Y}\lcchar{^^ec}
  \mapchar{^^ee}{\={}}					% F
  \mapchar{^^ef}{\'{}}					% F
  \mapchar{^^f0}{\hyphen}				% F
%
  \mapchar{^^f2}{\Underscore}				% rules(ex)
  \mapchar{^^f3}{\mathsymbol{\slashfrac34}}		% F+MS
  \mapchar{^^f4}{\P}					% MS
  \mapchar{^^f5}{\S}					% MS
%
  \mapchar{^^f7}{\c{}}					% F
%
  \mapchar{^^f9}{\"{}}					% F
  \mapchar{^^fa}{\mathsymbol{\cdot}}
  \mapchar{^^fb}{\mathsymbol{\xnolimits^1}}		% F
  \mapchar{^^fc}{\mathsymbol{\xnolimits^3}}		% F

%
% Zuruecksetzen der Original-Definitionen
%
\def\cporiginal{%
  \mapchar{^^b3}{\graphsymbol{\hfill\vline\hfill}}%
  \mapchar{^^ba}{\graphsymbol{\hfill\Vline\hfill}}%
  \mapchar{^^c4}{\graphsymbol{\hlinefill}}}

\let\cpvert=\relax
\def\cpgerman{}
\let\cpneg=\relax

}%\end{newcodepage}

%
% Einstellen der Code Page 850
%
\selectcodepage{850}