{
{   This procedure  scans  "text"  starting  at "start_index" until it finds a
{ character which is not a "space" that is not  contained  in  a  comment  and
{ returns the index of that character in "end_index".  If no such character is
{ found, "end_index" is set to strlength(text)+1.  Also a boolean is  returned
{ indicating whether any spaces or comments were found.
{
{       CLP$SKIP_SPACES_AND_COMMENTS (TEXT, START_INDEX, END_INDEX,
{         FOUND_SPACES_OR_COMMENT)
{
{ TEXT: (input) This parameter specifies the text in which leading spaces  and
{       comments are to be skipped.
{
{ START_INDEX:  (input)  This  parameter  specifies  where  in "text" to start
{       skipping.
{
{ END_INDEX: (output) This parameter specifies where the skipping stopped.
{
{ FOUND_SPACE_OR_COMMENT: (output) This parameter specifies  whether  anything
{       was skipped.
{
