Function Readc

Part of:

package elprep
( readc < scanner > )
Read current character in scanner if possible, or return #EOT.