
{
{   NOTE:
{     ***********************************************************************
{     ***********************************************************************
{     ****** This program interface is obsolete.  Modules presently    ******
{     ****** using it should be changed to use CLP$INCLUDE_LINE.       ******
{     ***********************************************************************
{     ***********************************************************************
{

  PROCEDURE [XREF] clp$scan_command_line
    (    text: string ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$exception_condition_codes
*copyc ost$status
?? POP ??
