-- $Source: /commtar/monoBANK/CICS_INTF/converse.ada,v $ 
-- $Revision: 1.2 $ $Date: 88/03/27 13:09:10 $ $Author: chris $ 
with CICS_Terminal_Control;
with CICS_Exceptions;
procedure converse is
    package TC renames CICS_Terminal_Control;
    package CICSE renames CICS_Exceptions;
    to : string(1..1);
begin
    TC.Converse("Clear line and enter 'X'",to);
    if to = "X" then
	TC.Send_Text("Converse worked");
    else
	TC.Send_Text("Converse failed");
    end if;
exception
    when CICSE.Length_Error =>
	TC.Send_Text("Length_error exception");
    when Constraint_Error =>
	TC.Send_Text("Constraint_error exception");
    when others =>
	TC.Send_Text("Got an exception");
end converse;