{
{   NOTE:
{     ***********************************************************************
{     ***********************************************************************
{     ****** This program interface is obsolete.  Modules presently    ******
{     ****** using it should be changed to use CLP$GET_LINE_FROM_      ******
{     ****** COMMAND_FILE.                                             ******
{     ***********************************************************************
{     ***********************************************************************
{
{   The purpose of this request is to read the next "physical" line  from  the
{ current command file.  Line continuation is not processed by this request.
{
{   This  request  is  intended for use by command utilities; therefore if the
{ requesting task does not have an active call to  clp$scan_command_file/line,
{ the request will terminate with an error status.
{
{       CLP$GET_DATA_LINE (PROMPT_STRING, LINE, GOT_LINE, STATUS)
{
{ PROMPT_STRING: (input) This parameter specifies the string to be issued as a
{       prompt for the line if the current command file is associated with  an
{       interactive terminal.
{
{ LINE: (output) This parameter specifies the line.
{
{ GOT_LINE: (output) This parameter specifies whether the line was read (TRUE)
{       or end-of-information on the current  command  file  was  encounterred
{       (FALSE).
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITIONS: cle$unexpected_call_to
{       IDENTIFIER: 'CL'
{
