1 12/17/80  get_mode
 2 
 3 Syntax:  get_mode MODE_STR MODE_NAME
 4 
 5 
 6 Function:  extracts the value of a mode from a mode string.
 7 
 8 
 9 Arguments:
10 MODE_STR
11    is a mode string, as used with an I/O module.
12 MODE_NAME
13    is the name of a mode contained in the mode string.
14 
15 
16 Notes:  For a boolean mode, the value returned is "true" or "false",
17 otherwise it is the character string value of the mode.
18 
19 
20 Syntax as active function:  [get_mode MODE_STR MODE_NAME]