Name: read-char

Syntax:
(read-char [filename])

Description:
Reads a single character for input from the keyboard or from and external file. The return value is the ASCII value for the character.

Example(s):
(read-char)
65

(setq op-file (open "test.txt" "r"))
(read-char op-file)
72