blob: d0132cefdedbff2a2585d09cfc5ed64544029e64 (
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
|
%------------ Text : TESTKEY erstellt am 27.12.1993---------
\documentstyle[twocolumn,chess,chesskey]{article}
%
\topmargin -15mm
\textheight 240mm
%
\parindent 0mm
\parskip 2mm
\hbadness=10000
\vbadness=10000
%
\newcommand{\partie}[1]{%
\parbox{12mm}{\small \bf #1}
\begin{minipage}{56mm}
\begin{center}
\key{#1}
\end{center}
\end{minipage}\par}
%
\newcount\zahl \zahl=0
%
\begin{document}
\twocolumn[\Large \bf Enzyklopdie-Index\footnotemark der Schacherffnungen\vspace*{4mm}]
\footnotetext[1]{aus Sergiu Samarian,\\ Internationales Schlsselbuch der Schacherffnungen,\\ Schachverlag Rudi Schmaus, Rohrbacher Strae 27,\\ D-69115 Heidelberg}%
% A00 - A99
\loop
\ifnum\zahl=0
\partie{A00a}
\partie{A00b}
\partie{A00c}
\else
\ifnum\zahl=2
\partie{A02a}
\partie{A02b}
\else
\ifnum\zahl=40
\partie{A40a}
\partie{A40b}
\else
\partie{A\number\zahl}
\fi\fi\fi
\ifnum\zahl<99 \advance\zahl by 1
\repeat
%
%
% B00 - B99
\zahl=0
\loop
\ifnum\zahl=0
\partie{B00a}
\partie{B00b}
\else
\ifnum\zahl=20
\partie{B20a}
\partie{B20b}
\else
\ifnum\zahl=21
\partie{B21a}
\partie{B21b}
\else
\partie{B\number\zahl}
\fi\fi\fi
\ifnum\zahl<99 \advance\zahl by 1
\repeat
%
%
% C00 - C99
\zahl=0
\loop
\ifnum\zahl=96
\partie{C96a}
\partie{C96b}
\else
\partie{C\number\zahl}
\fi
\ifnum\zahl<99 \advance\zahl by 1
\repeat
%
%
% D00 - D99
\zahl=0
\loop
\partie{D\number\zahl}
\ifnum\zahl<99 \advance\zahl by 1
\repeat
%
%
% E00 - E99
\zahl=0
\loop
\partie{E\number\zahl}
\ifnum\zahl<99 \advance\zahl by 1
\repeat
\end{document}
|
