.he 'DISCIN''Page %'
.fo 'Steven Hardy''January 78'
DISCIN	This function takes a file specification as argument and produces
a character repeater function, analogous to CHARIN, which reads a 
character at a time from the file, e.g.
 	: DISCIN('FOO.P') -> IN;
.br
This creates a character repeater, whish is assigned to IN for the file called
FOO.P.  If given a word DISCIN appends '.P'.  (see ><.  So that 
DISCIN("FOO") is equivalent to DISCIN('FOO.P').
