Товарищи, если этот вопрос ещё не обсуждался, посмотритеDevCPDumpот этой процедуры в своих сборках.
## Код:
```
(*"DevCompiler.CompileOpt('@')"*)
MODULE Mod;
   PROCEDURE UrlChar2 (ch: CHAR): BOOLEAN;
      VAR   res: BOOLEAN;
   BEGIN
      CASE ch OF
      | "a".."z", "A".."Z", "0".."9", ";", "/", "?", ":", "@", "=", "&", "$", "-", "_", ".", "+", "!", "*", "'", "(", ")", ",", '"', "#", "%":
         res := TRUE
      ELSE
         res := FALSE
      END;
      RETURN res
   END UrlChar2;
END Mod.
```

## Код:
```
MODULE Mod


   PROCEDURE UrlChar2
      VAR ch: CHAR
      VAR res: BOOLEAN
   BEGIN
      CASE ch OF
      | 33..35, 36..37, 38..41, 42..44, 45..46, 47..58, 59, 61, 63..64, 65..90, 95, 97..122:
         res := TRUE;
      ELSE
         res := FALSE;
      END;
      RETURN (res);
   END UrlChar2

BEGIN
CLOSE
END Mod
```
