.he 'CHARIN''Page %'
.fo 'Steven Hardy''January 78'
CHARIN	This function reads a character from the standard input stream.
It returns an integer between 0 and 127 representing 
the ASCII code of the character read.  See  ASCII, CHAROUT and DISCIN.
