100 OPEN 1,8,1,"VOCABULARY"
101 PRINT#1,CHR$(0);CHR$(192);
102 DIM H(75)
103 FOR I=0 TO 9
104 H(48+I)=I:H(65+I)=I+10
105 NEXT
106 FOR I=49152 TO 50160
107 READ A$
108 H=ASC(A$):L=ASC(RIGHT$(A$,1))
109 D=H(H)*16+H(L):S=S+D
110 PRINT#1,CHR$(D);
111 A=A+1:IF A<20 THEN NEXT:A=-1
112 PRINT"ZEILE:"124+Z;
113 READ V:Z=Z+1:IF V=S THEN 117
114 PRINT" PRUEFSUMMEN-FEHLER ! [146]"
115 CLOSE1:OPEN1,8,15,"S:VOCABULARY":CLOSE1
116 END
117 IF A<0 THEN CLOSE1:END
118 S=0:A=0:PRINT
119 NEXT
120 END
121 :
122 REM ************************
123 :
124 DATA FF,FF,00,00,FF,FF,A9,93,4C,D2,FF,20,3F,C0,85,62,86,63,A2,90, 2934
125 DATA A5,62,30,09,A9,20,20,D2,FF,38,4C,D4,BD,A9,2D,20,D2,FF,18,4C, 2362
126 DATA D4,BD,85,FE,86,FD,A6,02,A5,FE,9D,00,CF,E8,A5,FD,9D,00,CF,E8, 3372
127 DATA 86,02,60,A6,02,CA,BD,00,CF,85,FD,CA,BD,00,CF,85,FE,86,02,A5, 2670
128 DATA FE,A6,FD,60,4C,3F,C0,20,3F,C0,20,2A,C0,4C,2E,C0,20,3F,C0,8D, 2395
129 DATA 00,C0,8E,01,C0,20,3F,C0,8D,02,C0,8E,03,C0,AD,00,C0,AE,01,C0, 2218
130 DATA 20,2A,C0,AD,02,C0,AE,03,C0,4C,2A,C0,C6,02,C6,02,20,3F,C0,E6, 2229
131 DATA 02,E6,02,E6,02,E6,02,4C,2A,C0,A6,FC,CA,BD,00,CE,85,FD,CA,BD, 2800
132 DATA 00,CE,85,FE,86,FC,A5,FE,A6,FD,60,85,FE,86,FD,A6,FC,A5,FE,9D, 3681
133 DATA 00,CE,E8,A5,FD,9D,00,CE,E8,86,FC,60,38,AD,00,C0,ED,02,C0,8D, 2926
134 DATA 04,C0,AD,01,C0,ED,03,C0,8D,05,C0,60,18,AD,00,C0,6D,02,C0,8D, 2261
135 DATA 04,C0,AD,01,C0,6D,03,C0,8D,05,C0,60,A9,0D,4C,D2,FF,20,3F,C0, 2310
136 DATA 8E,00,C0,8D,01,C0,20,3F,C0,8E,02,C0,8D,03,C0,4C,C0,C0,20,ED, 2356
137 DATA C0,AD,04,C0,0D,05,C0,F0,06,A9,00,AA,4C,2A,C0,A9,00,A2,01,4C, 2074
138 DATA 2A,C0,20,ED,C0,30,06,A9,00,AA,4C,2A,C0,A9,00,A2,01,4C,2A,C0, 2040
139 DATA 20,60,C0,4C,1A,C1,20,3F,C0,05,FD,F0,06,A9,00,AA,4C,2A,C0,A9, 2224
140 DATA 00,A2,01,4C,2A,C0,20,3F,C0,8E,00,C0,8D,01,C0,20,3F,C0,8E,02, 1859
141 DATA C0,8D,03,C0,60,20,46,C1,AD,00,C0,2D,02,C0,85,FD,AD,01,C0,2D, 2320
142 DATA 03,C0,85,FE,4C,2E,C0,20,46,C1,AD,00,C0,0D,02,C0,85,FD,AD,01, 2323
143 DATA C0,0D,03,C0,85,FE,4C,2E,C0,20,46,C1,AD,00,C0,4D,02,C0,85,FD, 2418
144 DATA AD,01,C0,4D,03,C0,85,FE,4C,2E,C0,20,46,C1,20,D4,C0,AE,04,C0, 2440
145 DATA AD,05,C0,4C,2A,C0,20,60,C0,20,46,C1,20,C0,C0,AE,04,C0,AD,05, 2259
146 DATA C0,4C,2A,C0,20,46,C1,A0,00,8C,04,C0,8C,05,C0,A0,10,0E,04,C0, 2016
147 DATA 2E,05,C0,2E,02,C0,2E,03,C0,90,1D,18,AD,04,C0,6D,00,C0,8D,04, 1736
148 DATA C0,AD,05,C0,6D,01,C0,8D,05,C0,90,08,EE,02,C0,D0,03,EE,03,C0, 2430
149 DATA 88,D0,D2,AE,04,C0,AD,05,C0,4C,2A,C0,20,46,C1,A0,10,A9,00,8D, 2385
150 DATA 04,C0,8D,05,C0,2E,02,C0,2E,03,C0,2E,04,C0,2E,05,C0,38,AD,04, 1733
151 DATA C0,ED,00,C0,AA,AD,05,C0,ED,01,C0,90,06,8D,05,C0,8E,04,C0,88, 2553
152 DATA D0,DB,2E,02,C0,2E,03,C0,60,20,00,C2,AE,02,C0,AD,03,C0,4C,2A, 2084
153 DATA C0,20,00,C2,AE,04,C0,AD,05,C0,4C,2A,C0,20,96,C0,4C,2A,C0,20, 2184
154 DATA 3F,C0,4C,AB,C0,20,60,C0,20,57,C2,4C,57,C2,20,51,C2,E6,FC,E6, 2703
155 DATA FC,60,20,51,C2,20,57,C0,20,51,C2,20,60,C0,20,ED,C0,30,08,20, 2142
156 DATA 54,C0,20,54,C0,38,60,E6,FC,E6,FC,20,9B,C1,20,57,C2,18,60,A9, 2682
157 DATA 00,A2,01,20,2A,C0,4C,6E,C2,20,3F,C0,E6,02,E6,02,A5,FE,10,C6, 2193
158 DATA 20,51,C2,20,57,C0,20,51,C2,4C,7A,C2,20,3F,C0,05,FD,F0,02,38, 2160
159 DATA 60,18,60,20,3F,C0,8A,4C,D2,FF,20,87,EA,E0,FF,F0,04,E0,0D,B0, 2719
160 DATA 02,A2,00,A9,00,4C,2A,C0,20,C6,C2,20,57,C0,20,B4,C2,B0,06,20, 1998
161 DATA 54,C0,4C,D8,C2,60,86,FD,85,FE,A0,00,B1,FD,F0,06,20,D2,FF,C8, 3165
162 DATA D0,F6,60,20,3F,C0,86,F7,20,3F,C0,A0,00,B1,FD,20,D2,FF,C8,C4, 2988
163 DATA F7,D0,F6,60,20,3F,C0,86,F9,20,3F,C0,86,F7,85,F8,A2,00,A0,00, 2838
164 DATA 20,CF,FF,91,F7,C9,0D,F0,06,E8,C8,C4,F9,D0,F1,60,A5,02,4A,AA, 3179
165 DATA A9,00,4C,2A,C0,20,3F,C0,86,F7,85,F8,20,3F,C0,A0,01,91,F7,8A, 2506
166 DATA 88,91,F7,60,20,3F,C0,86,F7,85,F8,20,3F,C0,A0,00,8A,91,F7,60, 2746
167 DATA 20,3F,C0,86,F7,85,F8,A0,00,B1,F7,AA,C8,B1,F7,4C,2A,C0,20,3F, 2832
168 DATA C0,86,F7,85,F8,A0,00,B1,F7,AA,A9,00,4C,2A,C0,20,3F,C0,AD,0C, 2659
169 DATA 03,AE,0D,03,AC,0E,03,6C,FD,00,20,3F,C0,A4,02,8C,00,C0,8A,0A, 1676
170 DATA 85,02,20,3F,C0,AC,00,C0,84,02,4C,2A,C0,20,3F,C0,8E,00,C0,8D, 1992
171 DATA 01,C0,20,3F,C0,8E,02,C0,8D,03,C0,20,3F,C0,8E,04,C0,8D,05,C0, 2115
172 DATA AE,02,C0,AD,03,C0,20,2A,C0,AE,00,C0,AD,01,C0,20,2A,C0,AE,04, 2178
173 DATA C0,AD,05,C0,4C,2A,C0,20,FD,AE,20,D4,E1,A9,01,85,B9,A9,00,4C, 2533
174 DATA D5,FF,87,CF,28,45,97,47,11, 1158