int :ord ( string $CHAR )

Returns the ASCII codepoint of the first character in given string.

# Translate a character to a number.
:set &CHAR s''
:set &CHAR :getchar
:writeln s'ord(' $CHAR s') = ' :ord $CHAR