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

  PROCEDURE [XREF] clp$get_data_line
    (    prompt_string: string ( * );
     VAR line: ost$string;
     VAR got_line: boolean;
     VAR status: ost$status);

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