$DEBUG PAGEWIDTH(80) PAGELENGTH(50)

READ$CONSOL: DO;

$INCLUDE(:F1:STRING.DCL)
$NOLIST
$INCLUDE(ISIS.DCL)
$LIST

CHECK$STATUS: PROCEDURE(STAT) EXTERNAL;
   DECLARE STAT ADDRESS;
END CHECK$STATUS;

/*
    ===============================================
    =                                             =
    =  RD$CONSOL - READ CONSOL                    =
    =  -----------------------                    =
    =                                             =
    =  INPUT :                                    =
    =     BUFF$P - A POINTER TO A STRING          =
    =               VARIABLE, AS DECLARED ABOVE.  =
    =  OUTPUT :                                   =
    =     BUFF - A STRING VARIABLE. ( RETURN BY   =
    =              ADDRESS, USING BUFF$P ).       =
    =                                             =
    ===============================================

*/

RD$CONSOL: PROCEDURE(BUFF$P) PUBLIC;

   DECLARE BUFF$P ADDRESS;

   DECLARE
      (BUFF BASED BUFF$P) STRING,
      STAT ADDRESS;

   CALL READ(CI$AFT,.BUFF.D,BUFF.ML,.BUFF.L,.STAT);
   CALL CHECK$STATUS(STAT);
   BUFF.D(BUFF.L)=0;

END RD$CONSOL;


END READ$CONSOL;