> -- rus.24bb.ru писал(а):
> откуда это ~National.IsIdentChar(ch) ???
Это как раз позволяет использовать русские буквы в идентификаторах. В оригинале было так:
## Код:
```
PROCEDURE Identifier(VAR sym: BYTE);
      VAR i: SHORTINT;
   BEGIN i := 0;
      REPEAT
         name[i] := ch; INC(i); DevCPM.Get(ch)
      UNTIL (ch < "0")
         OR ("9" < ch) & (CAP(ch) < "A")
         OR ("Z" < CAP(ch)) & (ch # "_") & (ch < "À")
         OR (ch = "×")
         OR (ch = "÷")
         OR (i = MaxIdLen);
      IF i = MaxIdLen THEN err(240); DEC(i) END ;
      name[i] := 0X; sym := ident
   END Identifier;
```
