3 .\" Adapted to S-roff by Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
5 .do char \[eu] \f[EURO]\N'0'
7 .do if F AB .do fschar AB \[Eu] \f[EURO]\N'1'
8 .do if F ABI .do fschar ABI \[Eu] \f[EURO]\N'3'
9 .do if F AI .do fschar AI \[Eu] \f[EURO]\N'2'
10 .do if F AR .do fschar AR \[Eu] \f[EURO]\N'0'
11 .do if F BMB .do fschar BMB \[Eu] \f[EURO]\N'5'
12 .do if F BMBI .do fschar BMBI \[Eu] \f[EURO]\N'7'
13 .do if F BMI .do fschar BMI \[Eu] \f[EURO]\N'6'
14 .do if F BMR .do fschar BMR \[Eu] \f[EURO]\N'4'
15 .do if F CB .do fschar CB \[Eu] \f[EURO]\N'13'
16 .do if F CBI .do fschar CBI \[Eu] \f[EURO]\N'15'
17 .do if F CI .do fschar CI \[Eu] \f[EURO]\N'14'
18 .do if F CR .do fschar CR \[Eu] \f[EURO]\N'12'
19 .do if F HB .do fschar HB \[Eu] \f[EURO]\N'9'
20 .do if F HBI .do fschar HBI \[Eu] \f[EURO]\N'11'
21 .do if F HI .do fschar HI \[Eu] \f[EURO]\N'10'
22 .do if F HR .do fschar HR \[Eu] \f[EURO]\N'8'
23 .do if F HNB .do fschar HNB \[Eu] \f[EURO]\N'9'
24 .do if F HNBI .do fschar HNBI \[Eu] \f[EURO]\N'11'
25 .do if F HNI .do fschar HNI \[Eu] \f[EURO]\N'10'
26 .do if F HNR .do fschar HNR \[Eu] \f[EURO]\N'8'
27 .do if F NB .do fschar NB \[Eu] \f[EURO]\N'5'
28 .do if F NBI .do fschar NBI \[Eu] \f[EURO]\N'7'
29 .do if F NI .do fschar NI \[Eu] \f[EURO]\N'6'
30 .do if F NR .do fschar NR \[Eu] \f[EURO]\N'4'
31 .do if F PB .do fschar PB \[Eu] \f[EURO]\N'5'
32 .do if F PBI .do fschar PBI \[Eu] \f[EURO]\N'7'
33 .do if F PI .do fschar PI \[Eu] \f[EURO]\N'6'
34 .do if F PR .do fschar PR \[Eu] \f[EURO]\N'4'
35 .do if F TB .do fschar TB \[Eu] \f[EURO]\N'5'
36 .do if F TBI .do fschar TBI \[Eu] \f[EURO]\N'7'
37 .do if F TI .do fschar TI \[Eu] \f[EURO]\N'6'
38 .do if F TR .do fschar TR \[Eu] \f[EURO]\N'4'