2 ! PR 30389 - we now treat ACHAR equivalent to CHAR (except for
3 ! out of range-values) and IACHAR equivalent to ICHAR.
7 if (iachar(achar(1)) /= 1) STOP 1
8 if (iachar ("\x01")/= 1) STOP 2
9 if (achar (1) /= "\x01") STOP 3
10 if ("\x01" /= achar ( ichar ( "\x01"))) STOP 4
13 if (achar(i
) /= "\x01") STOP 5
14 if (iachar(c
) /= iachar("\x01")) STOP 6
15 if (iachar(achar(2)) /= 2) STOP 7
16 if (iachar ("\x02")/= 2) STOP 8
17 if (achar (2) /= "\x02") STOP 9
18 if ("\x02" /= achar ( ichar ( "\x02"))) STOP 10
21 if (achar(i
) /= "\x02") STOP 11
22 if (iachar(c
) /= iachar("\x02")) STOP 12
23 if (iachar(achar(3)) /= 3) STOP 13
24 if (iachar ("\x03")/= 3) STOP 14
25 if (achar (3) /= "\x03") STOP 15
26 if ("\x03" /= achar ( ichar ( "\x03"))) STOP 16
29 if (achar(i
) /= "\x03") STOP 17
30 if (iachar(c
) /= iachar("\x03")) STOP 18
31 if (iachar(achar(4)) /= 4) STOP 19
32 if (iachar ("\x04")/= 4) STOP 20
33 if (achar (4) /= "\x04") STOP 21
34 if ("\x04" /= achar ( ichar ( "\x04"))) STOP 22
37 if (achar(i
) /= "\x04") STOP 23
38 if (iachar(c
) /= iachar("\x04")) STOP 24
39 if (iachar(achar(5)) /= 5) STOP 25
40 if (iachar ("\x05")/= 5) STOP 26
41 if (achar (5) /= "\x05") STOP 27
42 if ("\x05" /= achar ( ichar ( "\x05"))) STOP 28
45 if (achar(i
) /= "\x05") STOP 29
46 if (iachar(c
) /= iachar("\x05")) STOP 30
47 if (iachar(achar(6)) /= 6) STOP 31
48 if (iachar ("\x06")/= 6) STOP 32
49 if (achar (6) /= "\x06") STOP 33
50 if ("\x06" /= achar ( ichar ( "\x06"))) STOP 34
53 if (achar(i
) /= "\x06") STOP 35
54 if (iachar(c
) /= iachar("\x06")) STOP 36
55 if (iachar(achar(7)) /= 7) STOP 37
56 if (iachar ("\a")/= 7) STOP 38
57 if (achar (7) /= "\a") STOP 39
58 if ("\a" /= achar ( ichar ( "\a"))) STOP 40
61 if (achar(i
) /= "\a") STOP 41
62 if (iachar(c
) /= iachar("\a")) STOP 42
63 if (iachar(achar(8)) /= 8) STOP 43
64 if (iachar ("\b")/= 8) STOP 44
65 if (achar (8) /= "\b") STOP 45
66 if ("\b" /= achar ( ichar ( "\b"))) STOP 46
69 if (achar(i
) /= "\b") STOP 47
70 if (iachar(c
) /= iachar("\b")) STOP 48
71 if (iachar(achar(9)) /= 9) STOP 49
72 if (iachar (" ")/= 9) STOP 50
73 if (achar (9) /= " ") STOP 51
74 if (" " /= achar ( ichar ( " "))) STOP 52
77 if (achar(i
) /= " ") STOP 53
78 if (iachar(c
) /= iachar(" ")) STOP 54
79 if (iachar(achar(10)) /= 10) STOP 55
80 if (iachar(achar(11)) /= 11) STOP 56
81 if (iachar ("\v")/= 11) STOP 57
82 if (achar (11) /= "\v") STOP 58
83 if ("\v" /= achar ( ichar ( "\v"))) STOP 59
86 if (achar(i
) /= "\v") STOP 60
87 if (iachar(c
) /= iachar("\v")) STOP 61
88 if (iachar(achar(12)) /= 12) STOP 62
89 if (iachar ("\f")/= 12) STOP 63
90 if (achar (12) /= "\f") STOP 64
91 if ("\f" /= achar ( ichar ( "\f"))) STOP 65
94 if (achar(i
) /= "\f") STOP 66
95 if (iachar(c
) /= iachar("\f")) STOP 67
96 if (iachar(achar(13)) /= 13) STOP 68
97 if (iachar(achar(14)) /= 14) STOP 69
98 if (iachar ("\x0e")/= 14) STOP 70
99 if (achar (14) /= "\x0e") STOP 71
100 if ("\x0e" /= achar ( ichar ( "\x0e"))) STOP 72
103 if (achar(i
) /= "\x0e") STOP 73
104 if (iachar(c
) /= iachar("\x0e")) STOP 74
105 if (iachar(achar(15)) /= 15) STOP 75
106 if (iachar ("\x0f")/= 15) STOP 76
107 if (achar (15) /= "\x0f") STOP 77
108 if ("\x0f" /= achar ( ichar ( "\x0f"))) STOP 78
111 if (achar(i
) /= "\x0f") STOP 79
112 if (iachar(c
) /= iachar("\x0f")) STOP 80
113 if (iachar(achar(16)) /= 16) STOP 81
114 if (iachar ("\x10")/= 16) STOP 82
115 if (achar (16) /= "\x10") STOP 83
116 if ("\x10" /= achar ( ichar ( "\x10"))) STOP 84
119 if (achar(i
) /= "\x10") STOP 85
120 if (iachar(c
) /= iachar("\x10")) STOP 86
121 if (iachar(achar(17)) /= 17) STOP 87
122 if (iachar ("\x11")/= 17) STOP 88
123 if (achar (17) /= "\x11") STOP 89
124 if ("\x11" /= achar ( ichar ( "\x11"))) STOP 90
127 if (achar(i
) /= "\x11") STOP 91
128 if (iachar(c
) /= iachar("\x11")) STOP 92
129 if (iachar(achar(18)) /= 18) STOP 93
130 if (iachar ("\x12")/= 18) STOP 94
131 if (achar (18) /= "\x12") STOP 95
132 if ("\x12" /= achar ( ichar ( "\x12"))) STOP 96
135 if (achar(i
) /= "\x12") STOP 97
136 if (iachar(c
) /= iachar("\x12")) STOP 98
137 if (iachar(achar(19)) /= 19) STOP 99
138 if (iachar ("\x13")/= 19) STOP 100
139 if (achar (19) /= "\x13") STOP 101
140 if ("\x13" /= achar ( ichar ( "\x13"))) STOP 102
143 if (achar(i
) /= "\x13") STOP 103
144 if (iachar(c
) /= iachar("\x13")) STOP 104
145 if (iachar(achar(20)) /= 20) STOP 105
146 if (iachar ("\x14")/= 20) STOP 106
147 if (achar (20) /= "\x14") STOP 107
148 if ("\x14" /= achar ( ichar ( "\x14"))) STOP 108
151 if (achar(i
) /= "\x14") STOP 109
152 if (iachar(c
) /= iachar("\x14")) STOP 110
153 if (iachar(achar(21)) /= 21) STOP 111
154 if (iachar ("\x15")/= 21) STOP 112
155 if (achar (21) /= "\x15") STOP 113
156 if ("\x15" /= achar ( ichar ( "\x15"))) STOP 114
159 if (achar(i
) /= "\x15") STOP 115
160 if (iachar(c
) /= iachar("\x15")) STOP 116
161 if (iachar(achar(22)) /= 22) STOP 117
162 if (iachar ("\x16")/= 22) STOP 118
163 if (achar (22) /= "\x16") STOP 119
164 if ("\x16" /= achar ( ichar ( "\x16"))) STOP 120
167 if (achar(i
) /= "\x16") STOP 121
168 if (iachar(c
) /= iachar("\x16")) STOP 122
169 if (iachar(achar(23)) /= 23) STOP 123
170 if (iachar ("\x17")/= 23) STOP 124
171 if (achar (23) /= "\x17") STOP 125
172 if ("\x17" /= achar ( ichar ( "\x17"))) STOP 126
175 if (achar(i
) /= "\x17") STOP 127
176 if (iachar(c
) /= iachar("\x17")) STOP 128
177 if (iachar(achar(24)) /= 24) STOP 129
178 if (iachar ("\x18")/= 24) STOP 130
179 if (achar (24) /= "\x18") STOP 131
180 if ("\x18" /= achar ( ichar ( "\x18"))) STOP 132
183 if (achar(i
) /= "\x18") STOP 133
184 if (iachar(c
) /= iachar("\x18")) STOP 134
185 if (iachar(achar(25)) /= 25) STOP 135
186 if (iachar ("\x19")/= 25) STOP 136
187 if (achar (25) /= "\x19") STOP 137
188 if ("\x19" /= achar ( ichar ( "\x19"))) STOP 138
191 if (achar(i
) /= "\x19") STOP 139
192 if (iachar(c
) /= iachar("\x19")) STOP 140
193 if (iachar(achar(26)) /= 26) STOP 141
194 if (iachar(achar(27)) /= 27) STOP 142
195 if (iachar ("\e")/= 27) STOP 143
196 if (achar (27) /= "\e") STOP 144
197 if ("\e" /= achar ( ichar ( "\e"))) STOP 145
200 if (achar(i
) /= "\e") STOP 146
201 if (iachar(c
) /= iachar("\e")) STOP 147
202 if (iachar(achar(28)) /= 28) STOP 148
203 if (iachar ("\x1c")/= 28) STOP 149
204 if (achar (28) /= "\x1c") STOP 150
205 if ("\x1c" /= achar ( ichar ( "\x1c"))) STOP 151
208 if (achar(i
) /= "\x1c") STOP 152
209 if (iachar(c
) /= iachar("\x1c")) STOP 153
210 if (iachar(achar(29)) /= 29) STOP 154
211 if (iachar ("\x1d")/= 29) STOP 155
212 if (achar (29) /= "\x1d") STOP 156
213 if ("\x1d" /= achar ( ichar ( "\x1d"))) STOP 157
216 if (achar(i
) /= "\x1d") STOP 158
217 if (iachar(c
) /= iachar("\x1d")) STOP 159
218 if (iachar(achar(30)) /= 30) STOP 160
219 if (iachar ("\x1e")/= 30) STOP 161
220 if (achar (30) /= "\x1e") STOP 162
221 if ("\x1e" /= achar ( ichar ( "\x1e"))) STOP 163
224 if (achar(i
) /= "\x1e") STOP 164
225 if (iachar(c
) /= iachar("\x1e")) STOP 165
226 if (iachar(achar(31)) /= 31) STOP 166
227 if (iachar ("\x1f")/= 31) STOP 167
228 if (achar (31) /= "\x1f") STOP 168
229 if ("\x1f" /= achar ( ichar ( "\x1f"))) STOP 169
232 if (achar(i
) /= "\x1f") STOP 170
233 if (iachar(c
) /= iachar("\x1f")) STOP 171
234 if (iachar(achar(32)) /= 32) STOP 172
235 if (iachar (" ")/= 32) STOP 173
236 if (achar (32) /= " ") STOP 174
237 if (" " /= achar ( ichar ( " "))) STOP 175
240 if (achar(i
) /= " ") STOP 176
241 if (iachar(c
) /= iachar(" ")) STOP 177
242 if (iachar(achar(33)) /= 33) STOP 178
243 if (iachar ("!")/= 33) STOP 179
244 if (achar (33) /= "!") STOP 180
245 if ("!" /= achar ( ichar ( "!"))) STOP 181
248 if (achar(i
) /= "!") STOP 182
249 if (iachar(c
) /= iachar("!")) STOP 183
250 if (iachar(achar(34)) /= 34) STOP 184
251 if (iachar ('"')/= 34) STOP 185
252 if (achar (34) /= '"') STOP 186
253 if ('"' /= achar ( ichar ( '"'))) STOP 187
256 if (achar(i
) /= '"') STOP 188
257 if (iachar(c
) /= iachar('"')) STOP 189
258 if (iachar(achar(35)) /= 35) STOP 190
259 if (iachar ("#")/= 35) STOP 191
260 if (achar (35) /= "#") STOP 192
261 if ("#" /= achar ( ichar ( "#"))) STOP 193
264 if (achar(i
) /= "#") STOP 194
265 if (iachar(c
) /= iachar("#")) STOP 195
266 if (iachar(achar(36)) /= 36) STOP 196
267 if (iachar ("$")/= 36) STOP 197
268 if (achar (36) /= "$") STOP 198
269 if ("$" /= achar ( ichar ( "$"))) STOP 199
272 if (achar(i
) /= "$") STOP 200
273 if (iachar(c
) /= iachar("$")) STOP 201
274 if (iachar(achar(37)) /= 37) STOP 202
275 if (iachar ("%")/= 37) STOP 203
276 if (achar (37) /= "%") STOP 204
277 if ("%" /= achar ( ichar ( "%"))) STOP 205
280 if (achar(i
) /= "%") STOP 206
281 if (iachar(c
) /= iachar("%")) STOP 207
282 if (iachar(achar(38)) /= 38) STOP 208
283 if (iachar ("&")/= 38) STOP 209
284 if (achar (38) /= "&") STOP 210
285 if ("&" /= achar ( ichar ( "&"))) STOP 211
288 if (achar(i
) /= "&") STOP 212
289 if (iachar(c
) /= iachar("&")) STOP 213
290 if (iachar(achar(39)) /= 39) STOP 214
291 if (iachar ("'")/= 39) STOP 215
292 if (achar (39) /= "'") STOP 216
293 if ("'" /= achar ( ichar ( "'"))) STOP 217
296 if (achar(i
) /= "'") STOP 218
297 if (iachar(c
) /= iachar("'")) STOP 219
298 if (iachar(achar(40)) /= 40) STOP 220
299 if (iachar ("(")/= 40) STOP 221
300 if (achar (40) /= "(") STOP 222
301 if ("(" /= achar ( ichar ( "("))) STOP 223
304 if (achar(i
) /= "(") STOP 224
305 if (iachar(c
) /= iachar("(")) STOP 225
306 if (iachar(achar(41)) /= 41) STOP 226
307 if (iachar (")")/= 41) STOP 227
308 if (achar (41) /= ")") STOP 228
309 if (")" /= achar ( ichar ( ")"))) STOP 229
312 if (achar(i
) /= ")") STOP 230
313 if (iachar(c
) /= iachar(")")) STOP 231
314 if (iachar(achar(42)) /= 42) STOP 232
315 if (iachar ("*")/= 42) STOP 233
316 if (achar (42) /= "*") STOP 234
317 if ("*" /= achar ( ichar ( "*"))) STOP 235
320 if (achar(i
) /= "*") STOP 236
321 if (iachar(c
) /= iachar("*")) STOP 237
322 if (iachar(achar(43)) /= 43) STOP 238
323 if (iachar ("+")/= 43) STOP 239
324 if (achar (43) /= "+") STOP 240
325 if ("+" /= achar ( ichar ( "+"))) STOP 241
328 if (achar(i
) /= "+") STOP 242
329 if (iachar(c
) /= iachar("+")) STOP 243
330 if (iachar(achar(44)) /= 44) STOP 244
331 if (iachar (",")/= 44) STOP 245
332 if (achar (44) /= ",") STOP 246
333 if ("," /= achar ( ichar ( ","))) STOP 247
336 if (achar(i
) /= ",") STOP 248
337 if (iachar(c
) /= iachar(",")) STOP 249
338 if (iachar(achar(45)) /= 45) STOP 250
339 if (iachar ("-")/= 45) STOP 251
340 if (achar (45) /= "-") STOP 252
341 if ("-" /= achar ( ichar ( "-"))) STOP 253
344 if (achar(i
) /= "-") STOP 254
345 if (iachar(c
) /= iachar("-")) STOP 255
346 if (iachar(achar(46)) /= 46) STOP 256
347 if (iachar (".")/= 46) STOP 257
348 if (achar (46) /= ".") STOP 258
349 if ("." /= achar ( ichar ( "."))) STOP 259
352 if (achar(i
) /= ".") STOP 260
353 if (iachar(c
) /= iachar(".")) STOP 261
354 if (iachar(achar(47)) /= 47) STOP 262
355 if (iachar ("/")/= 47) STOP 263
356 if (achar (47) /= "/") STOP 264
357 if ("/" /= achar ( ichar ( "/"))) STOP 265
360 if (achar(i
) /= "/") STOP 266
361 if (iachar(c
) /= iachar("/")) STOP 267
362 if (iachar(achar(48)) /= 48) STOP 268
363 if (iachar ("0")/= 48) STOP 269
364 if (achar (48) /= "0") STOP 270
365 if ("0" /= achar ( ichar ( "0"))) STOP 271
368 if (achar(i
) /= "0") STOP 272
369 if (iachar(c
) /= iachar("0")) STOP 273
370 if (iachar(achar(49)) /= 49) STOP 274
371 if (iachar ("1")/= 49) STOP 275
372 if (achar (49) /= "1") STOP 276
373 if ("1" /= achar ( ichar ( "1"))) STOP 277
376 if (achar(i
) /= "1") STOP 278
377 if (iachar(c
) /= iachar("1")) STOP 279
378 if (iachar(achar(50)) /= 50) STOP 280
379 if (iachar ("2")/= 50) STOP 281
380 if (achar (50) /= "2") STOP 282
381 if ("2" /= achar ( ichar ( "2"))) STOP 283
384 if (achar(i
) /= "2") STOP 284
385 if (iachar(c
) /= iachar("2")) STOP 285
386 if (iachar(achar(51)) /= 51) STOP 286
387 if (iachar ("3")/= 51) STOP 287
388 if (achar (51) /= "3") STOP 288
389 if ("3" /= achar ( ichar ( "3"))) STOP 289
392 if (achar(i
) /= "3") STOP 290
393 if (iachar(c
) /= iachar("3")) STOP 291
394 if (iachar(achar(52)) /= 52) STOP 292
395 if (iachar ("4")/= 52) STOP 293
396 if (achar (52) /= "4") STOP 294
397 if ("4" /= achar ( ichar ( "4"))) STOP 295
400 if (achar(i
) /= "4") STOP 296
401 if (iachar(c
) /= iachar("4")) STOP 297
402 if (iachar(achar(53)) /= 53) STOP 298
403 if (iachar ("5")/= 53) STOP 299
404 if (achar (53) /= "5") STOP 300
405 if ("5" /= achar ( ichar ( "5"))) STOP 301
408 if (achar(i
) /= "5") STOP 302
409 if (iachar(c
) /= iachar("5")) STOP 303
410 if (iachar(achar(54)) /= 54) STOP 304
411 if (iachar ("6")/= 54) STOP 305
412 if (achar (54) /= "6") STOP 306
413 if ("6" /= achar ( ichar ( "6"))) STOP 307
416 if (achar(i
) /= "6") STOP 308
417 if (iachar(c
) /= iachar("6")) STOP 309
418 if (iachar(achar(55)) /= 55) STOP 310
419 if (iachar ("7")/= 55) STOP 311
420 if (achar (55) /= "7") STOP 312
421 if ("7" /= achar ( ichar ( "7"))) STOP 313
424 if (achar(i
) /= "7") STOP 314
425 if (iachar(c
) /= iachar("7")) STOP 315
426 if (iachar(achar(56)) /= 56) STOP 316
427 if (iachar ("8")/= 56) STOP 317
428 if (achar (56) /= "8") STOP 318
429 if ("8" /= achar ( ichar ( "8"))) STOP 319
432 if (achar(i
) /= "8") STOP 320
433 if (iachar(c
) /= iachar("8")) STOP 321
434 if (iachar(achar(57)) /= 57) STOP 322
435 if (iachar ("9")/= 57) STOP 323
436 if (achar (57) /= "9") STOP 324
437 if ("9" /= achar ( ichar ( "9"))) STOP 325
440 if (achar(i
) /= "9") STOP 326
441 if (iachar(c
) /= iachar("9")) STOP 327
442 if (iachar(achar(58)) /= 58) STOP 328
443 if (iachar (":")/= 58) STOP 329
444 if (achar (58) /= ":") STOP 330
445 if (":" /= achar ( ichar ( ":"))) STOP 331
448 if (achar(i
) /= ":") STOP 332
449 if (iachar(c
) /= iachar(":")) STOP 333
450 if (iachar(achar(59)) /= 59) STOP 334
451 if (iachar (";")/= 59) STOP 335
452 if (achar (59) /= ";") STOP 336
453 if (";" /= achar ( ichar ( ";"))) STOP 337
456 if (achar(i
) /= ";") STOP 338
457 if (iachar(c
) /= iachar(";")) STOP 339
458 if (iachar(achar(60)) /= 60) STOP 340
459 if (iachar ("<")/= 60) STOP 341
460 if (achar (60) /= "<") STOP 342
461 if ("<" /= achar ( ichar ( "<"))) STOP 343
464 if (achar(i
) /= "<") STOP 344
465 if (iachar(c
) /= iachar("<")) STOP 345
466 if (iachar(achar(61)) /= 61) STOP 346
467 if (iachar ("=")/= 61) STOP 347
468 if (achar (61) /= "=") STOP 348
469 if ("=" /= achar ( ichar ( "="))) STOP 349
472 if (achar(i
) /= "=") STOP 350
473 if (iachar(c
) /= iachar("=")) STOP 351
474 if (iachar(achar(62)) /= 62) STOP 352
475 if (iachar (">")/= 62) STOP 353
476 if (achar (62) /= ">") STOP 354
477 if (">" /= achar ( ichar ( ">"))) STOP 355
480 if (achar(i
) /= ">") STOP 356
481 if (iachar(c
) /= iachar(">")) STOP 357
482 if (iachar(achar(63)) /= 63) STOP 358
483 if (iachar ("?")/= 63) STOP 359
484 if (achar (63) /= "?") STOP 360
485 if ("?" /= achar ( ichar ( "?"))) STOP 361
488 if (achar(i
) /= "?") STOP 362
489 if (iachar(c
) /= iachar("?")) STOP 363
490 if (iachar(achar(64)) /= 64) STOP 364
491 if (iachar ("@")/= 64) STOP 365
492 if (achar (64) /= "@") STOP 366
493 if ("@" /= achar ( ichar ( "@"))) STOP 367
496 if (achar(i
) /= "@") STOP 368
497 if (iachar(c
) /= iachar("@")) STOP 369
498 if (iachar(achar(65)) /= 65) STOP 370
499 if (iachar ("A")/= 65) STOP 371
500 if (achar (65) /= "A") STOP 372
501 if ("A" /= achar ( ichar ( "A"))) STOP 373
504 if (achar(i
) /= "A") STOP 374
505 if (iachar(c
) /= iachar("A")) STOP 375
506 if (iachar(achar(66)) /= 66) STOP 376
507 if (iachar ("B")/= 66) STOP 377
508 if (achar (66) /= "B") STOP 378
509 if ("B" /= achar ( ichar ( "B"))) STOP 379
512 if (achar(i
) /= "B") STOP 380
513 if (iachar(c
) /= iachar("B")) STOP 381
514 if (iachar(achar(67)) /= 67) STOP 382
515 if (iachar ("C")/= 67) STOP 383
516 if (achar (67) /= "C") STOP 384
517 if ("C" /= achar ( ichar ( "C"))) STOP 385
520 if (achar(i
) /= "C") STOP 386
521 if (iachar(c
) /= iachar("C")) STOP 387
522 if (iachar(achar(68)) /= 68) STOP 388
523 if (iachar ("D")/= 68) STOP 389
524 if (achar (68) /= "D") STOP 390
525 if ("D" /= achar ( ichar ( "D"))) STOP 391
528 if (achar(i
) /= "D") STOP 392
529 if (iachar(c
) /= iachar("D")) STOP 393
530 if (iachar(achar(69)) /= 69) STOP 394
531 if (iachar ("E")/= 69) STOP 395
532 if (achar (69) /= "E") STOP 396
533 if ("E" /= achar ( ichar ( "E"))) STOP 397
536 if (achar(i
) /= "E") STOP 398
537 if (iachar(c
) /= iachar("E")) STOP 399
538 if (iachar(achar(70)) /= 70) STOP 400
539 if (iachar ("F")/= 70) STOP 401
540 if (achar (70) /= "F") STOP 402
541 if ("F" /= achar ( ichar ( "F"))) STOP 403
544 if (achar(i
) /= "F") STOP 404
545 if (iachar(c
) /= iachar("F")) STOP 405
546 if (iachar(achar(71)) /= 71) STOP 406
547 if (iachar ("G")/= 71) STOP 407
548 if (achar (71) /= "G") STOP 408
549 if ("G" /= achar ( ichar ( "G"))) STOP 409
552 if (achar(i
) /= "G") STOP 410
553 if (iachar(c
) /= iachar("G")) STOP 411
554 if (iachar(achar(72)) /= 72) STOP 412
555 if (iachar ("H")/= 72) STOP 413
556 if (achar (72) /= "H") STOP 414
557 if ("H" /= achar ( ichar ( "H"))) STOP 415
560 if (achar(i
) /= "H") STOP 416
561 if (iachar(c
) /= iachar("H")) STOP 417
562 if (iachar(achar(73)) /= 73) STOP 418
563 if (iachar ("I")/= 73) STOP 419
564 if (achar (73) /= "I") STOP 420
565 if ("I" /= achar ( ichar ( "I"))) STOP 421
568 if (achar(i
) /= "I") STOP 422
569 if (iachar(c
) /= iachar("I")) STOP 423
570 if (iachar(achar(74)) /= 74) STOP 424
571 if (iachar ("J")/= 74) STOP 425
572 if (achar (74) /= "J") STOP 426
573 if ("J" /= achar ( ichar ( "J"))) STOP 427
576 if (achar(i
) /= "J") STOP 428
577 if (iachar(c
) /= iachar("J")) STOP 429
578 if (iachar(achar(75)) /= 75) STOP 430
579 if (iachar ("K")/= 75) STOP 431
580 if (achar (75) /= "K") STOP 432
581 if ("K" /= achar ( ichar ( "K"))) STOP 433
584 if (achar(i
) /= "K") STOP 434
585 if (iachar(c
) /= iachar("K")) STOP 435
586 if (iachar(achar(76)) /= 76) STOP 436
587 if (iachar ("L")/= 76) STOP 437
588 if (achar (76) /= "L") STOP 438
589 if ("L" /= achar ( ichar ( "L"))) STOP 439
592 if (achar(i
) /= "L") STOP 440
593 if (iachar(c
) /= iachar("L")) STOP 441
594 if (iachar(achar(77)) /= 77) STOP 442
595 if (iachar ("M")/= 77) STOP 443
596 if (achar (77) /= "M") STOP 444
597 if ("M" /= achar ( ichar ( "M"))) STOP 445
600 if (achar(i
) /= "M") STOP 446
601 if (iachar(c
) /= iachar("M")) STOP 447
602 if (iachar(achar(78)) /= 78) STOP 448
603 if (iachar ("N")/= 78) STOP 449
604 if (achar (78) /= "N") STOP 450
605 if ("N" /= achar ( ichar ( "N"))) STOP 451
608 if (achar(i
) /= "N") STOP 452
609 if (iachar(c
) /= iachar("N")) STOP 453
610 if (iachar(achar(79)) /= 79) STOP 454
611 if (iachar ("O")/= 79) STOP 455
612 if (achar (79) /= "O") STOP 456
613 if ("O" /= achar ( ichar ( "O"))) STOP 457
616 if (achar(i
) /= "O") STOP 458
617 if (iachar(c
) /= iachar("O")) STOP 459
618 if (iachar(achar(80)) /= 80) STOP 460
619 if (iachar ("P")/= 80) STOP 461
620 if (achar (80) /= "P") STOP 462
621 if ("P" /= achar ( ichar ( "P"))) STOP 463
624 if (achar(i
) /= "P") STOP 464
625 if (iachar(c
) /= iachar("P")) STOP 465
626 if (iachar(achar(81)) /= 81) STOP 466
627 if (iachar ("Q")/= 81) STOP 467
628 if (achar (81) /= "Q") STOP 468
629 if ("Q" /= achar ( ichar ( "Q"))) STOP 469
632 if (achar(i
) /= "Q") STOP 470
633 if (iachar(c
) /= iachar("Q")) STOP 471
634 if (iachar(achar(82)) /= 82) STOP 472
635 if (iachar ("R")/= 82) STOP 473
636 if (achar (82) /= "R") STOP 474
637 if ("R" /= achar ( ichar ( "R"))) STOP 475
640 if (achar(i
) /= "R") STOP 476
641 if (iachar(c
) /= iachar("R")) STOP 477
642 if (iachar(achar(83)) /= 83) STOP 478
643 if (iachar ("S")/= 83) STOP 479
644 if (achar (83) /= "S") STOP 480
645 if ("S" /= achar ( ichar ( "S"))) STOP 481
648 if (achar(i
) /= "S") STOP 482
649 if (iachar(c
) /= iachar("S")) STOP 483
650 if (iachar(achar(84)) /= 84) STOP 484
651 if (iachar ("T")/= 84) STOP 485
652 if (achar (84) /= "T") STOP 486
653 if ("T" /= achar ( ichar ( "T"))) STOP 487
656 if (achar(i
) /= "T") STOP 488
657 if (iachar(c
) /= iachar("T")) STOP 489
658 if (iachar(achar(85)) /= 85) STOP 490
659 if (iachar ("U")/= 85) STOP 491
660 if (achar (85) /= "U") STOP 492
661 if ("U" /= achar ( ichar ( "U"))) STOP 493
664 if (achar(i
) /= "U") STOP 494
665 if (iachar(c
) /= iachar("U")) STOP 495
666 if (iachar(achar(86)) /= 86) STOP 496
667 if (iachar ("V")/= 86) STOP 497
668 if (achar (86) /= "V") STOP 498
669 if ("V" /= achar ( ichar ( "V"))) STOP 499
672 if (achar(i
) /= "V") STOP 500
673 if (iachar(c
) /= iachar("V")) STOP 501
674 if (iachar(achar(87)) /= 87) STOP 502
675 if (iachar ("W")/= 87) STOP 503
676 if (achar (87) /= "W") STOP 504
677 if ("W" /= achar ( ichar ( "W"))) STOP 505
680 if (achar(i
) /= "W") STOP 506
681 if (iachar(c
) /= iachar("W")) STOP 507
682 if (iachar(achar(88)) /= 88) STOP 508
683 if (iachar ("X")/= 88) STOP 509
684 if (achar (88) /= "X") STOP 510
685 if ("X" /= achar ( ichar ( "X"))) STOP 511
688 if (achar(i
) /= "X") STOP 512
689 if (iachar(c
) /= iachar("X")) STOP 513
690 if (iachar(achar(89)) /= 89) STOP 514
691 if (iachar ("Y")/= 89) STOP 515
692 if (achar (89) /= "Y") STOP 516
693 if ("Y" /= achar ( ichar ( "Y"))) STOP 517
696 if (achar(i
) /= "Y") STOP 518
697 if (iachar(c
) /= iachar("Y")) STOP 519
698 if (iachar(achar(90)) /= 90) STOP 520
699 if (iachar ("Z")/= 90) STOP 521
700 if (achar (90) /= "Z") STOP 522
701 if ("Z" /= achar ( ichar ( "Z"))) STOP 523
704 if (achar(i
) /= "Z") STOP 524
705 if (iachar(c
) /= iachar("Z")) STOP 525
706 if (iachar(achar(91)) /= 91) STOP 526
707 if (iachar ("[")/= 91) STOP 527
708 if (achar (91) /= "[") STOP 528
709 if ("[" /= achar ( ichar ( "["))) STOP 529
712 if (achar(i
) /= "[") STOP 530
713 if (iachar(c
) /= iachar("[")) STOP 531
714 if (iachar(achar(92)) /= 92) STOP 532
715 if (iachar ("\")/= 92) STOP 533
716 if (achar (92) /= "\") STOP 534
717 if ("\" /= achar ( ichar ( "\"))) STOP 535
720 if (achar(i) /= "\") STOP 536
721 if (iachar(c
) /= iachar("\")) STOP 537
722 if (iachar(achar(93)) /= 93) STOP 538
723 if (iachar ("]")/= 93) STOP 539
724 if (achar (93) /= "]") STOP 540
725 if ("]" /= achar ( ichar ( "]"))) STOP 541
728 if (achar(i) /= "]") STOP 542
729 if (iachar(c) /= iachar("]")) STOP 543
730 if (iachar(achar(94)) /= 94) STOP 544
731 if (iachar ("^
")/= 94) STOP 545
732 if (achar (94) /= "^
") STOP 546
733 if ("^
" /= achar ( ichar ( "^
"))) STOP 547
736 if (achar(i) /= "^
") STOP 548
737 if (iachar(c) /= iachar("^
")) STOP 549
738 if (iachar(achar(95)) /= 95) STOP 550
739 if (iachar ("_
")/= 95) STOP 551
740 if (achar (95) /= "_
") STOP 552
741 if ("_
" /= achar ( ichar ( "_
"))) STOP 553
744 if (achar(i) /= "_
") STOP 554
745 if (iachar(c) /= iachar("_
")) STOP 555
746 if (iachar(achar(96)) /= 96) STOP 556
747 if (iachar ("`
")/= 96) STOP 557
748 if (achar (96) /= "`
") STOP 558
749 if ("`
" /= achar ( ichar ( "`
"))) STOP 559
752 if (achar(i) /= "`
") STOP 560
753 if (iachar(c) /= iachar("`
")) STOP 561
754 if (iachar(achar(97)) /= 97) STOP 562
755 if (iachar ("a
")/= 97) STOP 563
756 if (achar (97) /= "a
") STOP 564
757 if ("a
" /= achar ( ichar ( "a
"))) STOP 565
760 if (achar(i) /= "a
") STOP 566
761 if (iachar(c) /= iachar("a
")) STOP 567
762 if (iachar(achar(98)) /= 98) STOP 568
763 if (iachar ("b
")/= 98) STOP 569
764 if (achar (98) /= "b
") STOP 570
765 if ("b
" /= achar ( ichar ( "b
"))) STOP 571
768 if (achar(i) /= "b
") STOP 572
769 if (iachar(c) /= iachar("b
")) STOP 573
770 if (iachar(achar(99)) /= 99) STOP 574
771 if (iachar ("c
")/= 99) STOP 575
772 if (achar (99) /= "c
") STOP 576
773 if ("c
" /= achar ( ichar ( "c
"))) STOP 577
776 if (achar(i) /= "c
") STOP 578
777 if (iachar(c) /= iachar("c
")) STOP 579
778 if (iachar(achar(100)) /= 100) STOP 580
779 if (iachar ("d
")/= 100) STOP 581
780 if (achar (100) /= "d
") STOP 582
781 if ("d
" /= achar ( ichar ( "d
"))) STOP 583
784 if (achar(i) /= "d
") STOP 584
785 if (iachar(c) /= iachar("d
")) STOP 585
786 if (iachar(achar(101)) /= 101) STOP 586
787 if (iachar ("e
")/= 101) STOP 587
788 if (achar (101) /= "e
") STOP 588
789 if ("e
" /= achar ( ichar ( "e
"))) STOP 589
792 if (achar(i) /= "e
") STOP 590
793 if (iachar(c) /= iachar("e
")) STOP 591
794 if (iachar(achar(102)) /= 102) STOP 592
795 if (iachar ("f
")/= 102) STOP 593
796 if (achar (102) /= "f
") STOP 594
797 if ("f
" /= achar ( ichar ( "f
"))) STOP 595
800 if (achar(i) /= "f
") STOP 596
801 if (iachar(c) /= iachar("f
")) STOP 597
802 if (iachar(achar(103)) /= 103) STOP 598
803 if (iachar ("g
")/= 103) STOP 599
804 if (achar (103) /= "g
") STOP 600
805 if ("g
" /= achar ( ichar ( "g
"))) STOP 601
808 if (achar(i) /= "g
") STOP 602
809 if (iachar(c) /= iachar("g
")) STOP 603
810 if (iachar(achar(104)) /= 104) STOP 604
811 if (iachar ("h
")/= 104) STOP 605
812 if (achar (104) /= "h
") STOP 606
813 if ("h
" /= achar ( ichar ( "h
"))) STOP 607
816 if (achar(i) /= "h
") STOP 608
817 if (iachar(c) /= iachar("h
")) STOP 609
818 if (iachar(achar(105)) /= 105) STOP 610
819 if (iachar ("i
")/= 105) STOP 611
820 if (achar (105) /= "i
") STOP 612
821 if ("i
" /= achar ( ichar ( "i
"))) STOP 613
824 if (achar(i) /= "i
") STOP 614
825 if (iachar(c) /= iachar("i
")) STOP 615
826 if (iachar(achar(106)) /= 106) STOP 616
827 if (iachar ("j
")/= 106) STOP 617
828 if (achar (106) /= "j
") STOP 618
829 if ("j
" /= achar ( ichar ( "j
"))) STOP 619
832 if (achar(i) /= "j
") STOP 620
833 if (iachar(c) /= iachar("j
")) STOP 621
834 if (iachar(achar(107)) /= 107) STOP 622
835 if (iachar ("k
")/= 107) STOP 623
836 if (achar (107) /= "k
") STOP 624
837 if ("k
" /= achar ( ichar ( "k
"))) STOP 625
840 if (achar(i) /= "k
") STOP 626
841 if (iachar(c) /= iachar("k
")) STOP 627
842 if (iachar(achar(108)) /= 108) STOP 628
843 if (iachar ("l
")/= 108) STOP 629
844 if (achar (108) /= "l
") STOP 630
845 if ("l
" /= achar ( ichar ( "l
"))) STOP 631
848 if (achar(i) /= "l
") STOP 632
849 if (iachar(c) /= iachar("l
")) STOP 633
850 if (iachar(achar(109)) /= 109) STOP 634
851 if (iachar ("m
")/= 109) STOP 635
852 if (achar (109) /= "m
") STOP 636
853 if ("m
" /= achar ( ichar ( "m
"))) STOP 637
856 if (achar(i) /= "m
") STOP 638
857 if (iachar(c) /= iachar("m
")) STOP 639
858 if (iachar(achar(110)) /= 110) STOP 640
859 if (iachar ("n
")/= 110) STOP 641
860 if (achar (110) /= "n
") STOP 642
861 if ("n
" /= achar ( ichar ( "n
"))) STOP 643
864 if (achar(i) /= "n
") STOP 644
865 if (iachar(c) /= iachar("n
")) STOP 645
866 if (iachar(achar(111)) /= 111) STOP 646
867 if (iachar ("o
")/= 111) STOP 647
868 if (achar (111) /= "o
") STOP 648
869 if ("o
" /= achar ( ichar ( "o
"))) STOP 649
872 if (achar(i) /= "o
") STOP 650
873 if (iachar(c) /= iachar("o
")) STOP 651
874 if (iachar(achar(112)) /= 112) STOP 652
875 if (iachar ("p
")/= 112) STOP 653
876 if (achar (112) /= "p
") STOP 654
877 if ("p
" /= achar ( ichar ( "p
"))) STOP 655
880 if (achar(i) /= "p
") STOP 656
881 if (iachar(c) /= iachar("p
")) STOP 657
882 if (iachar(achar(113)) /= 113) STOP 658
883 if (iachar ("q
")/= 113) STOP 659
884 if (achar (113) /= "q
") STOP 660
885 if ("q
" /= achar ( ichar ( "q
"))) STOP 661
888 if (achar(i) /= "q
") STOP 662
889 if (iachar(c) /= iachar("q
")) STOP 663
890 if (iachar(achar(114)) /= 114) STOP 664
891 if (iachar ("r
")/= 114) STOP 665
892 if (achar (114) /= "r
") STOP 666
893 if ("r
" /= achar ( ichar ( "r
"))) STOP 667
896 if (achar(i) /= "r
") STOP 668
897 if (iachar(c) /= iachar("r
")) STOP 669
898 if (iachar(achar(115)) /= 115) STOP 670
899 if (iachar ("s
")/= 115) STOP 671
900 if (achar (115) /= "s
") STOP 672
901 if ("s
" /= achar ( ichar ( "s
"))) STOP 673
904 if (achar(i) /= "s
") STOP 674
905 if (iachar(c) /= iachar("s
")) STOP 675
906 if (iachar(achar(116)) /= 116) STOP 676
907 if (iachar ("t
")/= 116) STOP 677
908 if (achar (116) /= "t
") STOP 678
909 if ("t
" /= achar ( ichar ( "t
"))) STOP 679
912 if (achar(i) /= "t
") STOP 680
913 if (iachar(c) /= iachar("t
")) STOP 681
914 if (iachar(achar(117)) /= 117) STOP 682
915 if (iachar ("u
")/= 117) STOP 683
916 if (achar (117) /= "u
") STOP 684
917 if ("u
" /= achar ( ichar ( "u
"))) STOP 685
920 if (achar(i) /= "u
") STOP 686
921 if (iachar(c) /= iachar("u
")) STOP 687
922 if (iachar(achar(118)) /= 118) STOP 688
923 if (iachar ("v
")/= 118) STOP 689
924 if (achar (118) /= "v
") STOP 690
925 if ("v
" /= achar ( ichar ( "v
"))) STOP 691
928 if (achar(i) /= "v
") STOP 692
929 if (iachar(c) /= iachar("v
")) STOP 693
930 if (iachar(achar(119)) /= 119) STOP 694
931 if (iachar ("w
")/= 119) STOP 695
932 if (achar (119) /= "w
") STOP 696
933 if ("w
" /= achar ( ichar ( "w
"))) STOP 697
936 if (achar(i) /= "w
") STOP 698
937 if (iachar(c) /= iachar("w
")) STOP 699
938 if (iachar(achar(120)) /= 120) STOP 700
939 if (iachar ("x
")/= 120) STOP 701
940 if (achar (120) /= "x
") STOP 702
941 if ("x
" /= achar ( ichar ( "x
"))) STOP 703
944 if (achar(i) /= "x
") STOP 704
945 if (iachar(c) /= iachar("x
")) STOP 705
946 if (iachar(achar(121)) /= 121) STOP 706
947 if (iachar ("y
")/= 121) STOP 707
948 if (achar (121) /= "y
") STOP 708
949 if ("y
" /= achar ( ichar ( "y
"))) STOP 709
952 if (achar(i) /= "y
") STOP 710
953 if (iachar(c) /= iachar("y
")) STOP 711
954 if (iachar(achar(122)) /= 122) STOP 712
955 if (iachar ("z
")/= 122) STOP 713
956 if (achar (122) /= "z
") STOP 714
957 if ("z
" /= achar ( ichar ( "z
"))) STOP 715
960 if (achar(i) /= "z
") STOP 716
961 if (iachar(c) /= iachar("z
")) STOP 717
962 if (iachar(achar(123)) /= 123) STOP 718
963 if (iachar ("{")/= 123) STOP 719
964 if (achar (123) /= "{") STOP 720
965 if ("{" /= achar ( ichar ( "{"))) STOP 721
968 if (achar(i) /= "{") STOP 722
969 if (iachar(c) /= iachar("{")) STOP 723
970 if (iachar(achar(124)) /= 124) STOP 724
971 if (iachar ("|
")/= 124) STOP 725
972 if (achar (124) /= "|
") STOP 726
973 if ("|
" /= achar ( ichar ( "|
"))) STOP 727
976 if (achar(i) /= "|
") STOP 728
977 if (iachar(c) /= iachar("|
")) STOP 729
978 if (iachar(achar(125)) /= 125) STOP 730
979 if (iachar ("}")/= 125) STOP 731
980 if (achar (125) /= "}") STOP 732
981 if ("}" /= achar ( ichar ( "}"))) STOP 733
984 if (achar(i) /= "}") STOP 734
985 if (iachar(c) /= iachar("}")) STOP 735
986 if (iachar(achar(126)) /= 126) STOP 736
987 if (iachar ("~
")/= 126) STOP 737
988 if (achar (126) /= "~
") STOP 738
989 if ("~
" /= achar ( ichar ( "~
"))) STOP 739
992 if (achar(i) /= "~
") STOP 740
993 if (iachar(c) /= iachar("~
")) STOP 741
994 if (iachar(achar(127)) /= 127) STOP 742
995 if (iachar ("\x7f")/= 127) STOP 743
996 if (achar (127) /= "\x7f") STOP 744
997 if ("\x7f" /= achar ( ichar ( "\x7f"))) STOP 745
1000 if (achar(i) /= "\x7f") STOP 746
1001 if (iachar(c) /= iachar("\x7f")) STOP 747
1002 if (iachar(achar(128)) /= 128) STOP 748
1003 if (iachar ("€
")/= 128) STOP 749
1004 if (achar (128) /= "€
") STOP 750
1005 if ("€
" /= achar ( ichar ( "€
"))) STOP 751
1008 if (achar(i) /= "€
") STOP 752
1009 if (iachar(c) /= iachar("€
")) STOP 753
1010 if (iachar(achar(129)) /= 129) STOP 754
1011 if (iachar ("�
")/= 129) STOP 755
1012 if (achar (129) /= "�
") STOP 756
1013 if ("�
" /= achar ( ichar ( "�
"))) STOP 757
1016 if (achar(i) /= "�
") STOP 758
1017 if (iachar(c) /= iachar("�
")) STOP 759
1018 if (iachar(achar(130)) /= 130) STOP 760
1019 if (iachar ("‚
")/= 130) STOP 761
1020 if (achar (130) /= "‚
") STOP 762
1021 if ("‚
" /= achar ( ichar ( "‚
"))) STOP 763
1024 if (achar(i) /= "‚
") STOP 764
1025 if (iachar(c) /= iachar("‚
")) STOP 765
1026 if (iachar(achar(131)) /= 131) STOP 766
1027 if (iachar ("ƒ
")/= 131) STOP 767
1028 if (achar (131) /= "ƒ
") STOP 768
1029 if ("ƒ
" /= achar ( ichar ( "ƒ
"))) STOP 769
1032 if (achar(i) /= "ƒ
") STOP 770
1033 if (iachar(c) /= iachar("ƒ
")) STOP 771
1034 if (iachar(achar(132)) /= 132) STOP 772
1035 if (iachar ("„
")/= 132) STOP 773
1036 if (achar (132) /= "„
") STOP 774
1037 if ("„
" /= achar ( ichar ( "„
"))) STOP 775
1040 if (achar(i) /= "„
") STOP 776
1041 if (iachar(c) /= iachar("„
")) STOP 777
1042 if (iachar(achar(133)) /= 133) STOP 778
1043 if (iachar ("…
")/= 133) STOP 779
1044 if (achar (133) /= "…
") STOP 780
1045 if ("…
" /= achar ( ichar ( "…
"))) STOP 781
1048 if (achar(i) /= "…
") STOP 782
1049 if (iachar(c) /= iachar("…
")) STOP 783
1050 if (iachar(achar(134)) /= 134) STOP 784
1051 if (iachar ("†
")/= 134) STOP 785
1052 if (achar (134) /= "†
") STOP 786
1053 if ("†
" /= achar ( ichar ( "†
"))) STOP 787
1056 if (achar(i) /= "†
") STOP 788
1057 if (iachar(c) /= iachar("†
")) STOP 789
1058 if (iachar(achar(135)) /= 135) STOP 790
1059 if (iachar ("‡
")/= 135) STOP 791
1060 if (achar (135) /= "‡
") STOP 792
1061 if ("‡
" /= achar ( ichar ( "‡
"))) STOP 793
1064 if (achar(i) /= "‡
") STOP 794
1065 if (iachar(c) /= iachar("‡
")) STOP 795
1066 if (iachar(achar(136)) /= 136) STOP 796
1067 if (iachar ("ˆ
")/= 136) STOP 797
1068 if (achar (136) /= "ˆ
") STOP 798
1069 if ("ˆ
" /= achar ( ichar ( "ˆ
"))) STOP 799
1072 if (achar(i) /= "ˆ
") STOP 800
1073 if (iachar(c) /= iachar("ˆ
")) STOP 801
1074 if (iachar(achar(137)) /= 137) STOP 802
1075 if (iachar ("‰
")/= 137) STOP 803
1076 if (achar (137) /= "‰
") STOP 804
1077 if ("‰
" /= achar ( ichar ( "‰
"))) STOP 805
1080 if (achar(i) /= "‰
") STOP 806
1081 if (iachar(c) /= iachar("‰
")) STOP 807
1082 if (iachar(achar(138)) /= 138) STOP 808
1083 if (iachar ("Š
")/= 138) STOP 809
1084 if (achar (138) /= "Š
") STOP 810
1085 if ("Š
" /= achar ( ichar ( "Š
"))) STOP 811
1088 if (achar(i) /= "Š
") STOP 812
1089 if (iachar(c) /= iachar("Š
")) STOP 813
1090 if (iachar(achar(139)) /= 139) STOP 814
1091 if (iachar ("‹
")/= 139) STOP 815
1092 if (achar (139) /= "‹
") STOP 816
1093 if ("‹
" /= achar ( ichar ( "‹
"))) STOP 817
1096 if (achar(i) /= "‹
") STOP 818
1097 if (iachar(c) /= iachar("‹
")) STOP 819
1098 if (iachar(achar(140)) /= 140) STOP 820
1099 if (iachar ("Œ
")/= 140) STOP 821
1100 if (achar (140) /= "Œ
") STOP 822
1101 if ("Œ
" /= achar ( ichar ( "Œ
"))) STOP 823
1104 if (achar(i) /= "Œ
") STOP 824
1105 if (iachar(c) /= iachar("Œ
")) STOP 825
1106 if (iachar(achar(141)) /= 141) STOP 826
1107 if (iachar ("�
")/= 141) STOP 827
1108 if (achar (141) /= "�
") STOP 828
1109 if ("�
" /= achar ( ichar ( "�
"))) STOP 829
1112 if (achar(i) /= "�
") STOP 830
1113 if (iachar(c) /= iachar("�
")) STOP 831
1114 if (iachar(achar(142)) /= 142) STOP 832
1115 if (iachar ("Ž
")/= 142) STOP 833
1116 if (achar (142) /= "Ž
") STOP 834
1117 if ("Ž
" /= achar ( ichar ( "Ž
"))) STOP 835
1120 if (achar(i) /= "Ž
") STOP 836
1121 if (iachar(c) /= iachar("Ž
")) STOP 837
1122 if (iachar(achar(143)) /= 143) STOP 838
1123 if (iachar ("�
")/= 143) STOP 839
1124 if (achar (143) /= "�
") STOP 840
1125 if ("�
" /= achar ( ichar ( "�
"))) STOP 841
1128 if (achar(i) /= "�
") STOP 842
1129 if (iachar(c) /= iachar("�
")) STOP 843
1130 if (iachar(achar(144)) /= 144) STOP 844
1131 if (iachar ("�
")/= 144) STOP 845
1132 if (achar (144) /= "�
") STOP 846
1133 if ("�
" /= achar ( ichar ( "�
"))) STOP 847
1136 if (achar(i) /= "�
") STOP 848
1137 if (iachar(c) /= iachar("�
")) STOP 849
1138 if (iachar(achar(145)) /= 145) STOP 850
1139 if (iachar ("‘
")/= 145) STOP 851
1140 if (achar (145) /= "‘
") STOP 852
1141 if ("‘
" /= achar ( ichar ( "‘
"))) STOP 853
1144 if (achar(i) /= "‘
") STOP 854
1145 if (iachar(c) /= iachar("‘
")) STOP 855
1146 if (iachar(achar(146)) /= 146) STOP 856
1147 if (iachar ("’
")/= 146) STOP 857
1148 if (achar (146) /= "’
") STOP 858
1149 if ("’
" /= achar ( ichar ( "’
"))) STOP 859
1152 if (achar(i) /= "’
") STOP 860
1153 if (iachar(c) /= iachar("’
")) STOP 861
1154 if (iachar(achar(147)) /= 147) STOP 862
1155 if (iachar ("“
")/= 147) STOP 863
1156 if (achar (147) /= "“
") STOP 864
1157 if ("“
" /= achar ( ichar ( "“
"))) STOP 865
1160 if (achar(i) /= "“
") STOP 866
1161 if (iachar(c) /= iachar("“
")) STOP 867
1162 if (iachar(achar(148)) /= 148) STOP 868
1163 if (iachar ("”
")/= 148) STOP 869
1164 if (achar (148) /= "”
") STOP 870
1165 if ("”
" /= achar ( ichar ( "”
"))) STOP 871
1168 if (achar(i) /= "”
") STOP 872
1169 if (iachar(c) /= iachar("”
")) STOP 873
1170 if (iachar(achar(149)) /= 149) STOP 874
1171 if (iachar ("•
")/= 149) STOP 875
1172 if (achar (149) /= "•
") STOP 876
1173 if ("•
" /= achar ( ichar ( "•
"))) STOP 877
1176 if (achar(i) /= "•
") STOP 878
1177 if (iachar(c) /= iachar("•
")) STOP 879
1178 if (iachar(achar(150)) /= 150) STOP 880
1179 if (iachar ("–
")/= 150) STOP 881
1180 if (achar (150) /= "–
") STOP 882
1181 if ("–
" /= achar ( ichar ( "–
"))) STOP 883
1184 if (achar(i) /= "–
") STOP 884
1185 if (iachar(c) /= iachar("–
")) STOP 885
1186 if (iachar(achar(151)) /= 151) STOP 886
1187 if (iachar ("—
")/= 151) STOP 887
1188 if (achar (151) /= "—
") STOP 888
1189 if ("—
" /= achar ( ichar ( "—
"))) STOP 889
1192 if (achar(i) /= "—
") STOP 890
1193 if (iachar(c) /= iachar("—
")) STOP 891
1194 if (iachar(achar(152)) /= 152) STOP 892
1195 if (iachar ("˜
")/= 152) STOP 893
1196 if (achar (152) /= "˜
") STOP 894
1197 if ("˜
" /= achar ( ichar ( "˜
"))) STOP 895
1200 if (achar(i) /= "˜
") STOP 896
1201 if (iachar(c) /= iachar("˜
")) STOP 897
1202 if (iachar(achar(153)) /= 153) STOP 898
1203 if (iachar ("™
")/= 153) STOP 899
1204 if (achar (153) /= "™
") STOP 900
1205 if ("™
" /= achar ( ichar ( "™
"))) STOP 901
1208 if (achar(i) /= "™
") STOP 902
1209 if (iachar(c) /= iachar("™
")) STOP 903
1210 if (iachar(achar(154)) /= 154) STOP 904
1211 if (iachar ("š
")/= 154) STOP 905
1212 if (achar (154) /= "š
") STOP 906
1213 if ("š
" /= achar ( ichar ( "š
"))) STOP 907
1216 if (achar(i) /= "š
") STOP 908
1217 if (iachar(c) /= iachar("š
")) STOP 909
1218 if (iachar(achar(155)) /= 155) STOP 910
1219 if (iachar ("›
")/= 155) STOP 911
1220 if (achar (155) /= "›
") STOP 912
1221 if ("›
" /= achar ( ichar ( "›
"))) STOP 913
1224 if (achar(i) /= "›
") STOP 914
1225 if (iachar(c) /= iachar("›
")) STOP 915
1226 if (iachar(achar(156)) /= 156) STOP 916
1227 if (iachar ("œ
")/= 156) STOP 917
1228 if (achar (156) /= "œ
") STOP 918
1229 if ("œ
" /= achar ( ichar ( "œ
"))) STOP 919
1232 if (achar(i) /= "œ
") STOP 920
1233 if (iachar(c) /= iachar("œ
")) STOP 921
1234 if (iachar(achar(157)) /= 157) STOP 922
1235 if (iachar ("�
")/= 157) STOP 923
1236 if (achar (157) /= "�
") STOP 924
1237 if ("�
" /= achar ( ichar ( "�
"))) STOP 925
1240 if (achar(i) /= "�
") STOP 926
1241 if (iachar(c) /= iachar("�
")) STOP 927
1242 if (iachar(achar(158)) /= 158) STOP 928
1243 if (iachar ("ž
")/= 158) STOP 929
1244 if (achar (158) /= "ž
") STOP 930
1245 if ("ž
" /= achar ( ichar ( "ž
"))) STOP 931
1248 if (achar(i) /= "ž
") STOP 932
1249 if (iachar(c) /= iachar("ž
")) STOP 933
1250 if (iachar(achar(159)) /= 159) STOP 934
1251 if (iachar ("Ÿ
")/= 159) STOP 935
1252 if (achar (159) /= "Ÿ
") STOP 936
1253 if ("Ÿ
" /= achar ( ichar ( "Ÿ
"))) STOP 937
1256 if (achar(i) /= "Ÿ
") STOP 938
1257 if (iachar(c) /= iachar("Ÿ
")) STOP 939
1258 if (iachar(achar(160)) /= 160) STOP 940
1259 if (iachar (" ")/= 160) STOP 941
1260 if (achar (160) /= " ") STOP 942
1261 if (" " /= achar ( ichar ( " "))) STOP 943
1264 if (achar(i) /= " ") STOP 944
1265 if (iachar(c) /= iachar(" ")) STOP 945
1266 if (iachar(achar(161)) /= 161) STOP 946
1267 if (iachar ("¡
")/= 161) STOP 947
1268 if (achar (161) /= "¡
") STOP 948
1269 if ("¡
" /= achar ( ichar ( "¡
"))) STOP 949
1272 if (achar(i) /= "¡
") STOP 950
1273 if (iachar(c) /= iachar("¡
")) STOP 951
1274 if (iachar(achar(162)) /= 162) STOP 952
1275 if (iachar ("¢
")/= 162) STOP 953
1276 if (achar (162) /= "¢
") STOP 954
1277 if ("¢
" /= achar ( ichar ( "¢
"))) STOP 955
1280 if (achar(i) /= "¢
") STOP 956
1281 if (iachar(c) /= iachar("¢
")) STOP 957
1282 if (iachar(achar(163)) /= 163) STOP 958
1283 if (iachar ("£
")/= 163) STOP 959
1284 if (achar (163) /= "£
") STOP 960
1285 if ("£
" /= achar ( ichar ( "£
"))) STOP 961
1288 if (achar(i) /= "£
") STOP 962
1289 if (iachar(c) /= iachar("£
")) STOP 963
1290 if (iachar(achar(164)) /= 164) STOP 964
1291 if (iachar ("¤
")/= 164) STOP 965
1292 if (achar (164) /= "¤
") STOP 966
1293 if ("¤
" /= achar ( ichar ( "¤
"))) STOP 967
1296 if (achar(i) /= "¤
") STOP 968
1297 if (iachar(c) /= iachar("¤
")) STOP 969
1298 if (iachar(achar(165)) /= 165) STOP 970
1299 if (iachar ("¥
")/= 165) STOP 971
1300 if (achar (165) /= "¥
") STOP 972
1301 if ("¥
" /= achar ( ichar ( "¥
"))) STOP 973
1304 if (achar(i) /= "¥
") STOP 974
1305 if (iachar(c) /= iachar("¥
")) STOP 975
1306 if (iachar(achar(166)) /= 166) STOP 976
1307 if (iachar ("¦
")/= 166) STOP 977
1308 if (achar (166) /= "¦
") STOP 978
1309 if ("¦
" /= achar ( ichar ( "¦
"))) STOP 979
1312 if (achar(i) /= "¦
") STOP 980
1313 if (iachar(c) /= iachar("¦
")) STOP 981
1314 if (iachar(achar(167)) /= 167) STOP 982
1315 if (iachar ("§
")/= 167) STOP 983
1316 if (achar (167) /= "§
") STOP 984
1317 if ("§
" /= achar ( ichar ( "§
"))) STOP 985
1320 if (achar(i) /= "§
") STOP 986
1321 if (iachar(c) /= iachar("§
")) STOP 987
1322 if (iachar(achar(168)) /= 168) STOP 988
1323 if (iachar ("¨
")/= 168) STOP 989
1324 if (achar (168) /= "¨
") STOP 990
1325 if ("¨
" /= achar ( ichar ( "¨
"))) STOP 991
1328 if (achar(i) /= "¨
") STOP 992
1329 if (iachar(c) /= iachar("¨
")) STOP 993
1330 if (iachar(achar(169)) /= 169) STOP 994
1331 if (iachar ("©
")/= 169) STOP 995
1332 if (achar (169) /= "©
") STOP 996
1333 if ("©
" /= achar ( ichar ( "©
"))) STOP 997
1336 if (achar(i) /= "©
") STOP 998
1337 if (iachar(c) /= iachar("©
")) STOP 999
1338 if (iachar(achar(170)) /= 170) STOP 1000
1339 if (iachar ("ª
")/= 170) STOP 1001
1340 if (achar (170) /= "ª
") STOP 1002
1341 if ("ª
" /= achar ( ichar ( "ª
"))) STOP 1003
1344 if (achar(i) /= "ª
") STOP 1004
1345 if (iachar(c) /= iachar("ª
")) STOP 1005
1346 if (iachar(achar(171)) /= 171) STOP 1006
1347 if (iachar ("«
")/= 171) STOP 1007
1348 if (achar (171) /= "«
") STOP 1008
1349 if ("«
" /= achar ( ichar ( "«
"))) STOP 1009
1352 if (achar(i) /= "«
") STOP 1010
1353 if (iachar(c) /= iachar("«
")) STOP 1011
1354 if (iachar(achar(172)) /= 172) STOP 1012
1355 if (iachar ("¬
")/= 172) STOP 1013
1356 if (achar (172) /= "¬
") STOP 1014
1357 if ("¬
" /= achar ( ichar ( "¬
"))) STOP 1015
1360 if (achar(i) /= "¬
") STOP 1016
1361 if (iachar(c) /= iachar("¬
")) STOP 1017
1362 if (iachar(achar(173)) /= 173) STOP 1018
1363 if (iachar ("
")/= 173) STOP 1019
1364 if (achar (173) /= "
") STOP 1020
1365 if ("
" /= achar ( ichar ( "
"))) STOP 1021
1368 if (achar(i) /= "
") STOP 1022
1369 if (iachar(c) /= iachar("
")) STOP 1023
1370 if (iachar(achar(174)) /= 174) STOP 1024
1371 if (iachar ("®
")/= 174) STOP 1025
1372 if (achar (174) /= "®
") STOP 1026
1373 if ("®
" /= achar ( ichar ( "®
"))) STOP 1027
1376 if (achar(i) /= "®
") STOP 1028
1377 if (iachar(c) /= iachar("®
")) STOP 1029
1378 if (iachar(achar(175)) /= 175) STOP 1030
1379 if (iachar ("¯
")/= 175) STOP 1031
1380 if (achar (175) /= "¯
") STOP 1032
1381 if ("¯
" /= achar ( ichar ( "¯
"))) STOP 1033
1384 if (achar(i) /= "¯
") STOP 1034
1385 if (iachar(c) /= iachar("¯
")) STOP 1035
1386 if (iachar(achar(176)) /= 176) STOP 1036
1387 if (iachar ("°
")/= 176) STOP 1037
1388 if (achar (176) /= "°
") STOP 1038
1389 if ("°
" /= achar ( ichar ( "°
"))) STOP 1039
1392 if (achar(i) /= "°
") STOP 1040
1393 if (iachar(c) /= iachar("°
")) STOP 1041
1394 if (iachar(achar(177)) /= 177) STOP 1042
1395 if (iachar ("±
")/= 177) STOP 1043
1396 if (achar (177) /= "±
") STOP 1044
1397 if ("±
" /= achar ( ichar ( "±
"))) STOP 1045
1400 if (achar(i) /= "±
") STOP 1046
1401 if (iachar(c) /= iachar("±
")) STOP 1047
1402 if (iachar(achar(178)) /= 178) STOP 1048
1403 if (iachar ("²
")/= 178) STOP 1049
1404 if (achar (178) /= "²
") STOP 1050
1405 if ("²
" /= achar ( ichar ( "²
"))) STOP 1051
1408 if (achar(i) /= "²
") STOP 1052
1409 if (iachar(c) /= iachar("²
")) STOP 1053
1410 if (iachar(achar(179)) /= 179) STOP 1054
1411 if (iachar ("³
")/= 179) STOP 1055
1412 if (achar (179) /= "³
") STOP 1056
1413 if ("³
" /= achar ( ichar ( "³
"))) STOP 1057
1416 if (achar(i) /= "³
") STOP 1058
1417 if (iachar(c) /= iachar("³
")) STOP 1059
1418 if (iachar(achar(180)) /= 180) STOP 1060
1419 if (iachar ("´
")/= 180) STOP 1061
1420 if (achar (180) /= "´
") STOP 1062
1421 if ("´
" /= achar ( ichar ( "´
"))) STOP 1063
1424 if (achar(i) /= "´
") STOP 1064
1425 if (iachar(c) /= iachar("´
")) STOP 1065
1426 if (iachar(achar(181)) /= 181) STOP 1066
1427 if (iachar ("µ
")/= 181) STOP 1067
1428 if (achar (181) /= "µ
") STOP 1068
1429 if ("µ
" /= achar ( ichar ( "µ
"))) STOP 1069
1432 if (achar(i) /= "µ
") STOP 1070
1433 if (iachar(c) /= iachar("µ
")) STOP 1071
1434 if (iachar(achar(182)) /= 182) STOP 1072
1435 if (iachar ("¶
")/= 182) STOP 1073
1436 if (achar (182) /= "¶
") STOP 1074
1437 if ("¶
" /= achar ( ichar ( "¶
"))) STOP 1075
1440 if (achar(i) /= "¶
") STOP 1076
1441 if (iachar(c) /= iachar("¶
")) STOP 1077
1442 if (iachar(achar(183)) /= 183) STOP 1078
1443 if (iachar ("·
")/= 183) STOP 1079
1444 if (achar (183) /= "·
") STOP 1080
1445 if ("·
" /= achar ( ichar ( "·
"))) STOP 1081
1448 if (achar(i) /= "·
") STOP 1082
1449 if (iachar(c) /= iachar("·
")) STOP 1083
1450 if (iachar(achar(184)) /= 184) STOP 1084
1451 if (iachar ("¸
")/= 184) STOP 1085
1452 if (achar (184) /= "¸
") STOP 1086
1453 if ("¸
" /= achar ( ichar ( "¸
"))) STOP 1087
1456 if (achar(i) /= "¸
") STOP 1088
1457 if (iachar(c) /= iachar("¸
")) STOP 1089
1458 if (iachar(achar(185)) /= 185) STOP 1090
1459 if (iachar ("¹
")/= 185) STOP 1091
1460 if (achar (185) /= "¹
") STOP 1092
1461 if ("¹
" /= achar ( ichar ( "¹
"))) STOP 1093
1464 if (achar(i) /= "¹
") STOP 1094
1465 if (iachar(c) /= iachar("¹
")) STOP 1095
1466 if (iachar(achar(186)) /= 186) STOP 1096
1467 if (iachar ("º
")/= 186) STOP 1097
1468 if (achar (186) /= "º
") STOP 1098
1469 if ("º
" /= achar ( ichar ( "º
"))) STOP 1099
1472 if (achar(i) /= "º
") STOP 1100
1473 if (iachar(c) /= iachar("º
")) STOP 1101
1474 if (iachar(achar(187)) /= 187) STOP 1102
1475 if (iachar ("»
")/= 187) STOP 1103
1476 if (achar (187) /= "»
") STOP 1104
1477 if ("»
" /= achar ( ichar ( "»
"))) STOP 1105
1480 if (achar(i) /= "»
") STOP 1106
1481 if (iachar(c) /= iachar("»
")) STOP 1107
1482 if (iachar(achar(188)) /= 188) STOP 1108
1483 if (iachar ("¼
")/= 188) STOP 1109
1484 if (achar (188) /= "¼
") STOP 1110
1485 if ("¼
" /= achar ( ichar ( "¼
"))) STOP 1111
1488 if (achar(i) /= "¼
") STOP 1112
1489 if (iachar(c) /= iachar("¼
")) STOP 1113
1490 if (iachar(achar(189)) /= 189) STOP 1114
1491 if (iachar ("½
")/= 189) STOP 1115
1492 if (achar (189) /= "½
") STOP 1116
1493 if ("½
" /= achar ( ichar ( "½
"))) STOP 1117
1496 if (achar(i) /= "½
") STOP 1118
1497 if (iachar(c) /= iachar("½
")) STOP 1119
1498 if (iachar(achar(190)) /= 190) STOP 1120
1499 if (iachar ("¾
")/= 190) STOP 1121
1500 if (achar (190) /= "¾
") STOP 1122
1501 if ("¾
" /= achar ( ichar ( "¾
"))) STOP 1123
1504 if (achar(i) /= "¾
") STOP 1124
1505 if (iachar(c) /= iachar("¾
")) STOP 1125
1506 if (iachar(achar(191)) /= 191) STOP 1126
1507 if (iachar ("¿
")/= 191) STOP 1127
1508 if (achar (191) /= "¿
") STOP 1128
1509 if ("¿
" /= achar ( ichar ( "¿
"))) STOP 1129
1512 if (achar(i) /= "¿
") STOP 1130
1513 if (iachar(c) /= iachar("¿
")) STOP 1131
1514 if (iachar(achar(192)) /= 192) STOP 1132
1515 if (iachar ("À
")/= 192) STOP 1133
1516 if (achar (192) /= "À
") STOP 1134
1517 if ("À
" /= achar ( ichar ( "À
"))) STOP 1135
1520 if (achar(i) /= "À
") STOP 1136
1521 if (iachar(c) /= iachar("À
")) STOP 1137
1522 if (iachar(achar(193)) /= 193) STOP 1138
1523 if (iachar ("Á
")/= 193) STOP 1139
1524 if (achar (193) /= "Á
") STOP 1140
1525 if ("Á
" /= achar ( ichar ( "Á
"))) STOP 1141
1528 if (achar(i) /= "Á
") STOP 1142
1529 if (iachar(c) /= iachar("Á
")) STOP 1143
1530 if (iachar(achar(194)) /= 194) STOP 1144
1531 if (iachar ("Â
")/= 194) STOP 1145
1532 if (achar (194) /= "Â
") STOP 1146
1533 if ("Â
" /= achar ( ichar ( "Â
"))) STOP 1147
1536 if (achar(i) /= "Â
") STOP 1148
1537 if (iachar(c) /= iachar("Â
")) STOP 1149
1538 if (iachar(achar(195)) /= 195) STOP 1150
1539 if (iachar ("Ã
")/= 195) STOP 1151
1540 if (achar (195) /= "Ã
") STOP 1152
1541 if ("Ã
" /= achar ( ichar ( "Ã
"))) STOP 1153
1544 if (achar(i) /= "Ã
") STOP 1154
1545 if (iachar(c) /= iachar("Ã
")) STOP 1155
1546 if (iachar(achar(196)) /= 196) STOP 1156
1547 if (iachar ("Ä
")/= 196) STOP 1157
1548 if (achar (196) /= "Ä
") STOP 1158
1549 if ("Ä
" /= achar ( ichar ( "Ä
"))) STOP 1159
1552 if (achar(i) /= "Ä
") STOP 1160
1553 if (iachar(c) /= iachar("Ä
")) STOP 1161
1554 if (iachar(achar(197)) /= 197) STOP 1162
1555 if (iachar ("Å
")/= 197) STOP 1163
1556 if (achar (197) /= "Å
") STOP 1164
1557 if ("Å
" /= achar ( ichar ( "Å
"))) STOP 1165
1560 if (achar(i) /= "Å
") STOP 1166
1561 if (iachar(c) /= iachar("Å
")) STOP 1167
1562 if (iachar(achar(198)) /= 198) STOP 1168
1563 if (iachar ("Æ
")/= 198) STOP 1169
1564 if (achar (198) /= "Æ
") STOP 1170
1565 if ("Æ
" /= achar ( ichar ( "Æ
"))) STOP 1171
1568 if (achar(i) /= "Æ
") STOP 1172
1569 if (iachar(c) /= iachar("Æ
")) STOP 1173
1570 if (iachar(achar(199)) /= 199) STOP 1174
1571 if (iachar ("Ç
")/= 199) STOP 1175
1572 if (achar (199) /= "Ç
") STOP 1176
1573 if ("Ç
" /= achar ( ichar ( "Ç
"))) STOP 1177
1576 if (achar(i) /= "Ç
") STOP 1178
1577 if (iachar(c) /= iachar("Ç
")) STOP 1179
1578 if (iachar(achar(200)) /= 200) STOP 1180
1579 if (iachar ("È
")/= 200) STOP 1181
1580 if (achar (200) /= "È
") STOP 1182
1581 if ("È
" /= achar ( ichar ( "È
"))) STOP 1183
1584 if (achar(i) /= "È
") STOP 1184
1585 if (iachar(c) /= iachar("È
")) STOP 1185
1586 if (iachar(achar(201)) /= 201) STOP 1186
1587 if (iachar ("É
")/= 201) STOP 1187
1588 if (achar (201) /= "É
") STOP 1188
1589 if ("É
" /= achar ( ichar ( "É
"))) STOP 1189
1592 if (achar(i) /= "É
") STOP 1190
1593 if (iachar(c) /= iachar("É
")) STOP 1191
1594 if (iachar(achar(202)) /= 202) STOP 1192
1595 if (iachar ("Ê
")/= 202) STOP 1193
1596 if (achar (202) /= "Ê
") STOP 1194
1597 if ("Ê
" /= achar ( ichar ( "Ê
"))) STOP 1195
1600 if (achar(i) /= "Ê
") STOP 1196
1601 if (iachar(c) /= iachar("Ê
")) STOP 1197
1602 if (iachar(achar(203)) /= 203) STOP 1198
1603 if (iachar ("Ë
")/= 203) STOP 1199
1604 if (achar (203) /= "Ë
") STOP 1200
1605 if ("Ë
" /= achar ( ichar ( "Ë
"))) STOP 1201
1608 if (achar(i) /= "Ë
") STOP 1202
1609 if (iachar(c) /= iachar("Ë
")) STOP 1203
1610 if (iachar(achar(204)) /= 204) STOP 1204
1611 if (iachar ("Ì
")/= 204) STOP 1205
1612 if (achar (204) /= "Ì
") STOP 1206
1613 if ("Ì
" /= achar ( ichar ( "Ì
"))) STOP 1207
1616 if (achar(i) /= "Ì
") STOP 1208
1617 if (iachar(c) /= iachar("Ì
")) STOP 1209
1618 if (iachar(achar(205)) /= 205) STOP 1210
1619 if (iachar ("Í
")/= 205) STOP 1211
1620 if (achar (205) /= "Í
") STOP 1212
1621 if ("Í
" /= achar ( ichar ( "Í
"))) STOP 1213
1624 if (achar(i) /= "Í
") STOP 1214
1625 if (iachar(c) /= iachar("Í
")) STOP 1215
1626 if (iachar(achar(206)) /= 206) STOP 1216
1627 if (iachar ("Î
")/= 206) STOP 1217
1628 if (achar (206) /= "Î
") STOP 1218
1629 if ("Î
" /= achar ( ichar ( "Î
"))) STOP 1219
1632 if (achar(i) /= "Î
") STOP 1220
1633 if (iachar(c) /= iachar("Î
")) STOP 1221
1634 if (iachar(achar(207)) /= 207) STOP 1222
1635 if (iachar ("Ï
")/= 207) STOP 1223
1636 if (achar (207) /= "Ï
") STOP 1224
1637 if ("Ï
" /= achar ( ichar ( "Ï
"))) STOP 1225
1640 if (achar(i) /= "Ï
") STOP 1226
1641 if (iachar(c) /= iachar("Ï
")) STOP 1227
1642 if (iachar(achar(208)) /= 208) STOP 1228
1643 if (iachar ("Ð
")/= 208) STOP 1229
1644 if (achar (208) /= "Ð
") STOP 1230
1645 if ("Ð
" /= achar ( ichar ( "Ð
"))) STOP 1231
1648 if (achar(i) /= "Ð
") STOP 1232
1649 if (iachar(c) /= iachar("Ð
")) STOP 1233
1650 if (iachar(achar(209)) /= 209) STOP 1234
1651 if (iachar ("Ñ
")/= 209) STOP 1235
1652 if (achar (209) /= "Ñ
") STOP 1236
1653 if ("Ñ
" /= achar ( ichar ( "Ñ
"))) STOP 1237
1656 if (achar(i) /= "Ñ
") STOP 1238
1657 if (iachar(c) /= iachar("Ñ
")) STOP 1239
1658 if (iachar(achar(210)) /= 210) STOP 1240
1659 if (iachar ("Ò
")/= 210) STOP 1241
1660 if (achar (210) /= "Ò
") STOP 1242
1661 if ("Ò
" /= achar ( ichar ( "Ò
"))) STOP 1243
1664 if (achar(i) /= "Ò
") STOP 1244
1665 if (iachar(c) /= iachar("Ò
")) STOP 1245
1666 if (iachar(achar(211)) /= 211) STOP 1246
1667 if (iachar ("Ó
")/= 211) STOP 1247
1668 if (achar (211) /= "Ó
") STOP 1248
1669 if ("Ó
" /= achar ( ichar ( "Ó
"))) STOP 1249
1672 if (achar(i) /= "Ó
") STOP 1250
1673 if (iachar(c) /= iachar("Ó
")) STOP 1251
1674 if (iachar(achar(212)) /= 212) STOP 1252
1675 if (iachar ("Ô
")/= 212) STOP 1253
1676 if (achar (212) /= "Ô
") STOP 1254
1677 if ("Ô
" /= achar ( ichar ( "Ô
"))) STOP 1255
1680 if (achar(i) /= "Ô
") STOP 1256
1681 if (iachar(c) /= iachar("Ô
")) STOP 1257
1682 if (iachar(achar(213)) /= 213) STOP 1258
1683 if (iachar ("Õ
")/= 213) STOP 1259
1684 if (achar (213) /= "Õ
") STOP 1260
1685 if ("Õ
" /= achar ( ichar ( "Õ
"))) STOP 1261
1688 if (achar(i) /= "Õ
") STOP 1262
1689 if (iachar(c) /= iachar("Õ
")) STOP 1263
1690 if (iachar(achar(214)) /= 214) STOP 1264
1691 if (iachar ("Ö
")/= 214) STOP 1265
1692 if (achar (214) /= "Ö
") STOP 1266
1693 if ("Ö
" /= achar ( ichar ( "Ö
"))) STOP 1267
1696 if (achar(i) /= "Ö
") STOP 1268
1697 if (iachar(c) /= iachar("Ö
")) STOP 1269
1698 if (iachar(achar(215)) /= 215) STOP 1270
1699 if (iachar ("×
")/= 215) STOP 1271
1700 if (achar (215) /= "×
") STOP 1272
1701 if ("×
" /= achar ( ichar ( "×
"))) STOP 1273
1704 if (achar(i) /= "×
") STOP 1274
1705 if (iachar(c) /= iachar("×
")) STOP 1275
1706 if (iachar(achar(216)) /= 216) STOP 1276
1707 if (iachar ("Ø
")/= 216) STOP 1277
1708 if (achar (216) /= "Ø
") STOP 1278
1709 if ("Ø
" /= achar ( ichar ( "Ø
"))) STOP 1279
1712 if (achar(i) /= "Ø
") STOP 1280
1713 if (iachar(c) /= iachar("Ø
")) STOP 1281
1714 if (iachar(achar(217)) /= 217) STOP 1282
1715 if (iachar ("Ù
")/= 217) STOP 1283
1716 if (achar (217) /= "Ù
") STOP 1284
1717 if ("Ù
" /= achar ( ichar ( "Ù
"))) STOP 1285
1720 if (achar(i) /= "Ù
") STOP 1286
1721 if (iachar(c) /= iachar("Ù
")) STOP 1287
1722 if (iachar(achar(218)) /= 218) STOP 1288
1723 if (iachar ("Ú
")/= 218) STOP 1289
1724 if (achar (218) /= "Ú
") STOP 1290
1725 if ("Ú
" /= achar ( ichar ( "Ú
"))) STOP 1291
1728 if (achar(i) /= "Ú
") STOP 1292
1729 if (iachar(c) /= iachar("Ú
")) STOP 1293
1730 if (iachar(achar(219)) /= 219) STOP 1294
1731 if (iachar ("Û
")/= 219) STOP 1295
1732 if (achar (219) /= "Û
") STOP 1296
1733 if ("Û
" /= achar ( ichar ( "Û
"))) STOP 1297
1736 if (achar(i) /= "Û
") STOP 1298
1737 if (iachar(c) /= iachar("Û
")) STOP 1299
1738 if (iachar(achar(220)) /= 220) STOP 1300
1739 if (iachar ("Ü
")/= 220) STOP 1301
1740 if (achar (220) /= "Ü
") STOP 1302
1741 if ("Ü
" /= achar ( ichar ( "Ü
"))) STOP 1303
1744 if (achar(i) /= "Ü
") STOP 1304
1745 if (iachar(c) /= iachar("Ü
")) STOP 1305
1746 if (iachar(achar(221)) /= 221) STOP 1306
1747 if (iachar ("Ý
")/= 221) STOP 1307
1748 if (achar (221) /= "Ý
") STOP 1308
1749 if ("Ý
" /= achar ( ichar ( "Ý
"))) STOP 1309
1752 if (achar(i) /= "Ý
") STOP 1310
1753 if (iachar(c) /= iachar("Ý
")) STOP 1311
1754 if (iachar(achar(222)) /= 222) STOP 1312
1755 if (iachar ("Þ
")/= 222) STOP 1313
1756 if (achar (222) /= "Þ
") STOP 1314
1757 if ("Þ
" /= achar ( ichar ( "Þ
"))) STOP 1315
1760 if (achar(i) /= "Þ
") STOP 1316
1761 if (iachar(c) /= iachar("Þ
")) STOP 1317
1762 if (iachar(achar(223)) /= 223) STOP 1318
1763 if (iachar ("ß
")/= 223) STOP 1319
1764 if (achar (223) /= "ß
") STOP 1320
1765 if ("ß
" /= achar ( ichar ( "ß
"))) STOP 1321
1768 if (achar(i) /= "ß
") STOP 1322
1769 if (iachar(c) /= iachar("ß
")) STOP 1323
1770 if (iachar(achar(224)) /= 224) STOP 1324
1771 if (iachar ("à
")/= 224) STOP 1325
1772 if (achar (224) /= "à
") STOP 1326
1773 if ("à
" /= achar ( ichar ( "à
"))) STOP 1327
1776 if (achar(i) /= "à
") STOP 1328
1777 if (iachar(c) /= iachar("à
")) STOP 1329
1778 if (iachar(achar(225)) /= 225) STOP 1330
1779 if (iachar ("á
")/= 225) STOP 1331
1780 if (achar (225) /= "á
") STOP 1332
1781 if ("á
" /= achar ( ichar ( "á
"))) STOP 1333
1784 if (achar(i) /= "á
") STOP 1334
1785 if (iachar(c) /= iachar("á
")) STOP 1335
1786 if (iachar(achar(226)) /= 226) STOP 1336
1787 if (iachar ("â
")/= 226) STOP 1337
1788 if (achar (226) /= "â
") STOP 1338
1789 if ("â
" /= achar ( ichar ( "â
"))) STOP 1339
1792 if (achar(i) /= "â
") STOP 1340
1793 if (iachar(c) /= iachar("â
")) STOP 1341
1794 if (iachar(achar(227)) /= 227) STOP 1342
1795 if (iachar ("ã
")/= 227) STOP 1343
1796 if (achar (227) /= "ã
") STOP 1344
1797 if ("ã
" /= achar ( ichar ( "ã
"))) STOP 1345
1800 if (achar(i) /= "ã
") STOP 1346
1801 if (iachar(c) /= iachar("ã
")) STOP 1347
1802 if (iachar(achar(228)) /= 228) STOP 1348
1803 if (iachar ("ä
")/= 228) STOP 1349
1804 if (achar (228) /= "ä
") STOP 1350
1805 if ("ä
" /= achar ( ichar ( "ä
"))) STOP 1351
1808 if (achar(i) /= "ä
") STOP 1352
1809 if (iachar(c) /= iachar("ä
")) STOP 1353
1810 if (iachar(achar(229)) /= 229) STOP 1354
1811 if (iachar ("å
")/= 229) STOP 1355
1812 if (achar (229) /= "å
") STOP 1356
1813 if ("å
" /= achar ( ichar ( "å
"))) STOP 1357
1816 if (achar(i) /= "å
") STOP 1358
1817 if (iachar(c) /= iachar("å
")) STOP 1359
1818 if (iachar(achar(230)) /= 230) STOP 1360
1819 if (iachar ("æ
")/= 230) STOP 1361
1820 if (achar (230) /= "æ
") STOP 1362
1821 if ("æ
" /= achar ( ichar ( "æ
"))) STOP 1363
1824 if (achar(i) /= "æ
") STOP 1364
1825 if (iachar(c) /= iachar("æ
")) STOP 1365
1826 if (iachar(achar(231)) /= 231) STOP 1366
1827 if (iachar ("ç
")/= 231) STOP 1367
1828 if (achar (231) /= "ç
") STOP 1368
1829 if ("ç
" /= achar ( ichar ( "ç
"))) STOP 1369
1832 if (achar(i) /= "ç
") STOP 1370
1833 if (iachar(c) /= iachar("ç
")) STOP 1371
1834 if (iachar(achar(232)) /= 232) STOP 1372
1835 if (iachar ("è
")/= 232) STOP 1373
1836 if (achar (232) /= "è
") STOP 1374
1837 if ("è
" /= achar ( ichar ( "è
"))) STOP 1375
1840 if (achar(i) /= "è
") STOP 1376
1841 if (iachar(c) /= iachar("è
")) STOP 1377
1842 if (iachar(achar(233)) /= 233) STOP 1378
1843 if (iachar ("é
")/= 233) STOP 1379
1844 if (achar (233) /= "é
") STOP 1380
1845 if ("é
" /= achar ( ichar ( "é
"))) STOP 1381
1848 if (achar(i) /= "é
") STOP 1382
1849 if (iachar(c) /= iachar("é
")) STOP 1383
1850 if (iachar(achar(234)) /= 234) STOP 1384
1851 if (iachar ("ê
")/= 234) STOP 1385
1852 if (achar (234) /= "ê
") STOP 1386
1853 if ("ê
" /= achar ( ichar ( "ê
"))) STOP 1387
1856 if (achar(i) /= "ê
") STOP 1388
1857 if (iachar(c) /= iachar("ê
")) STOP 1389
1858 if (iachar(achar(235)) /= 235) STOP 1390
1859 if (iachar ("ë
")/= 235) STOP 1391
1860 if (achar (235) /= "ë
") STOP 1392
1861 if ("ë
" /= achar ( ichar ( "ë
"))) STOP 1393
1864 if (achar(i) /= "ë
") STOP 1394
1865 if (iachar(c) /= iachar("ë
")) STOP 1395
1866 if (iachar(achar(236)) /= 236) STOP 1396
1867 if (iachar ("ì
")/= 236) STOP 1397
1868 if (achar (236) /= "ì
") STOP 1398
1869 if ("ì
" /= achar ( ichar ( "ì
"))) STOP 1399
1872 if (achar(i) /= "ì
") STOP 1400
1873 if (iachar(c) /= iachar("ì
")) STOP 1401
1874 if (iachar(achar(237)) /= 237) STOP 1402
1875 if (iachar ("í
")/= 237) STOP 1403
1876 if (achar (237) /= "í
") STOP 1404
1877 if ("í
" /= achar ( ichar ( "í
"))) STOP 1405
1880 if (achar(i) /= "í
") STOP 1406
1881 if (iachar(c) /= iachar("í
")) STOP 1407
1882 if (iachar(achar(238)) /= 238) STOP 1408
1883 if (iachar ("î
")/= 238) STOP 1409
1884 if (achar (238) /= "î
") STOP 1410
1885 if ("î
" /= achar ( ichar ( "î
"))) STOP 1411
1888 if (achar(i) /= "î
") STOP 1412
1889 if (iachar(c) /= iachar("î
")) STOP 1413
1890 if (iachar(achar(239)) /= 239) STOP 1414
1891 if (iachar ("ï
")/= 239) STOP 1415
1892 if (achar (239) /= "ï
") STOP 1416
1893 if ("ï
" /= achar ( ichar ( "ï
"))) STOP 1417
1896 if (achar(i) /= "ï
") STOP 1418
1897 if (iachar(c) /= iachar("ï
")) STOP 1419
1898 if (iachar(achar(240)) /= 240) STOP 1420
1899 if (iachar ("ð
")/= 240) STOP 1421
1900 if (achar (240) /= "ð
") STOP 1422
1901 if ("ð
" /= achar ( ichar ( "ð
"))) STOP 1423
1904 if (achar(i) /= "ð
") STOP 1424
1905 if (iachar(c) /= iachar("ð
")) STOP 1425
1906 if (iachar(achar(241)) /= 241) STOP 1426
1907 if (iachar ("ñ
")/= 241) STOP 1427
1908 if (achar (241) /= "ñ
") STOP 1428
1909 if ("ñ
" /= achar ( ichar ( "ñ
"))) STOP 1429
1912 if (achar(i) /= "ñ
") STOP 1430
1913 if (iachar(c) /= iachar("ñ
")) STOP 1431
1914 if (iachar(achar(242)) /= 242) STOP 1432
1915 if (iachar ("ò
")/= 242) STOP 1433
1916 if (achar (242) /= "ò
") STOP 1434
1917 if ("ò
" /= achar ( ichar ( "ò
"))) STOP 1435
1920 if (achar(i) /= "ò
") STOP 1436
1921 if (iachar(c) /= iachar("ò
")) STOP 1437
1922 if (iachar(achar(243)) /= 243) STOP 1438
1923 if (iachar ("ó
")/= 243) STOP 1439
1924 if (achar (243) /= "ó
") STOP 1440
1925 if ("ó
" /= achar ( ichar ( "ó
"))) STOP 1441
1928 if (achar(i) /= "ó
") STOP 1442
1929 if (iachar(c) /= iachar("ó
")) STOP 1443
1930 if (iachar(achar(244)) /= 244) STOP 1444
1931 if (iachar ("ô
")/= 244) STOP 1445
1932 if (achar (244) /= "ô
") STOP 1446
1933 if ("ô
" /= achar ( ichar ( "ô
"))) STOP 1447
1936 if (achar(i) /= "ô
") STOP 1448
1937 if (iachar(c) /= iachar("ô
")) STOP 1449
1938 if (iachar(achar(245)) /= 245) STOP 1450
1939 if (iachar ("õ
")/= 245) STOP 1451
1940 if (achar (245) /= "õ
") STOP 1452
1941 if ("õ
" /= achar ( ichar ( "õ
"))) STOP 1453
1944 if (achar(i) /= "õ
") STOP 1454
1945 if (iachar(c) /= iachar("õ
")) STOP 1455
1946 if (iachar(achar(246)) /= 246) STOP 1456
1947 if (iachar ("ö
")/= 246) STOP 1457
1948 if (achar (246) /= "ö
") STOP 1458
1949 if ("ö
" /= achar ( ichar ( "ö
"))) STOP 1459
1952 if (achar(i) /= "ö
") STOP 1460
1953 if (iachar(c) /= iachar("ö
")) STOP 1461
1954 if (iachar(achar(247)) /= 247) STOP 1462
1955 if (iachar ("÷
")/= 247) STOP 1463
1956 if (achar (247) /= "÷
") STOP 1464
1957 if ("÷
" /= achar ( ichar ( "÷
"))) STOP 1465
1960 if (achar(i) /= "÷
") STOP 1466
1961 if (iachar(c) /= iachar("÷
")) STOP 1467
1962 if (iachar(achar(248)) /= 248) STOP 1468
1963 if (iachar ("ø
")/= 248) STOP 1469
1964 if (achar (248) /= "ø
") STOP 1470
1965 if ("ø
" /= achar ( ichar ( "ø
"))) STOP 1471
1968 if (achar(i) /= "ø
") STOP 1472
1969 if (iachar(c) /= iachar("ø
")) STOP 1473
1970 if (iachar(achar(249)) /= 249) STOP 1474
1971 if (iachar ("ù
")/= 249) STOP 1475
1972 if (achar (249) /= "ù
") STOP 1476
1973 if ("ù
" /= achar ( ichar ( "ù
"))) STOP 1477
1976 if (achar(i) /= "ù
") STOP 1478
1977 if (iachar(c) /= iachar("ù
")) STOP 1479
1978 if (iachar(achar(250)) /= 250) STOP 1480
1979 if (iachar ("ú
")/= 250) STOP 1481
1980 if (achar (250) /= "ú
") STOP 1482
1981 if ("ú
" /= achar ( ichar ( "ú
"))) STOP 1483
1984 if (achar(i) /= "ú
") STOP 1484
1985 if (iachar(c) /= iachar("ú
")) STOP 1485
1986 if (iachar(achar(251)) /= 251) STOP 1486
1987 if (iachar ("û
")/= 251) STOP 1487
1988 if (achar (251) /= "û
") STOP 1488
1989 if ("û
" /= achar ( ichar ( "û
"))) STOP 1489
1992 if (achar(i) /= "û
") STOP 1490
1993 if (iachar(c) /= iachar("û
")) STOP 1491
1994 if (iachar(achar(252)) /= 252) STOP 1492
1995 if (iachar ("ü
")/= 252) STOP 1493
1996 if (achar (252) /= "ü
") STOP 1494
1997 if ("ü
" /= achar ( ichar ( "ü
"))) STOP 1495
2000 if (achar(i) /= "ü
") STOP 1496
2001 if (iachar(c) /= iachar("ü
")) STOP 1497
2002 if (iachar(achar(253)) /= 253) STOP 1498
2003 if (iachar ("ý
")/= 253) STOP 1499
2004 if (achar (253) /= "ý
") STOP 1500
2005 if ("ý
" /= achar ( ichar ( "ý
"))) STOP 1501
2008 if (achar(i) /= "ý
") STOP 1502
2009 if (iachar(c) /= iachar("ý
")) STOP 1503
2010 if (iachar(achar(254)) /= 254) STOP 1504
2011 if (iachar ("þ
")/= 254) STOP 1505
2012 if (achar (254) /= "þ
") STOP 1506
2013 if ("þ
" /= achar ( ichar ( "þ
"))) STOP 1507
2016 if (achar(i) /= "þ
") STOP 1508
2017 if (iachar(c) /= iachar("þ
")) STOP 1509
2018 if (iachar(achar(255)) /= 255) STOP 1510
2019 if (iachar ("ÿ
")/= 255) STOP 1511
2020 if (achar (255) /= "ÿ
") STOP 1512
2021 if ("ÿ
" /= achar ( ichar ( "ÿ
"))) STOP 1513
2024 if (achar(i) /= "ÿ
") STOP 1514
2025 if (iachar(c) /= iachar("ÿ
")) STOP 1515