.he 'VALOF''Page %'
.fo 'Steven Hardy'- % -'October 1977'
VALOF	Given a word this function (and its UPDATER) access the value of
that word as an identifier - thus:
.tp 7
 	: VARS X; "A" -> X;
 	: VALOF("X") =>
 	** A
 	: VALOF(X) =>		;;; TRY THIS ONE YOURSELF
 	: "B" -> VALOF("X");
 	: X =>
 	** B
.tp 6
 	: VARS XWORD; "X" -> XWORD;
 	: VALOF(XWORD) =>
 	** B
 	: "C" -> VALOF(XWORD);
 	: X =>
 	** C
