Problem Statement

Given a character value in your language, print its code   (could be ASCII code, Unicode code, or whatever your language uses).

The character   'a'   (lowercase letter A)   has a code of 97 in ASCII   (as well as Unicode, as ASCII forms the beginning of Unicode). Conversely, given a code, print out the corresponding character.

Let's start with the solution:

procedure main(arglist)
if *arglist > 0 then L := arglist else L := [97, "a"]

every x := !L do 
   write(x, " ==> ", char(integer(x)) | ord(x) )  # char produces a character, ord produces a number
end