-- $Source: /commtar/monoBANK/CICS_INTF/sndtst.ada,v $ 
-- $Revision: 1.8 $ $Date: 88/02/29 21:50:43 $ $Author: chris $ 
with CICS_Terminal_Control;
use  CICS_Terminal_Control;
procedure Send_Test is
    X, Y : Integer := 2;

begin
    CICS_Terminal_Control.Send_Text("Hello, world",
      Erase=>CICS_Terminal_Control.Screen);
    Send_Text("Header is on", cursor=>81, erase=>screen,
      Header=>"Intermetrics Send_Text Header Page %%");
    Send_Text("This text should appear at line 10",
      Format=>justify,Justify_value=>10);
    Send_Text(ASCII.LF & "This text" & ASCII.LF & "should be" & ASCII.LF
      & "spread over" & ASCII.LF & "four lines", accum=>true);
    Send_Text("This line should appear at the bottom of the page",
      Format=>Justify_last);
    Send_Text("Cursor specified:", cursor=>200, Format=>justify,
      Justify_value=>2,Header=>"Intermetrics Send_Text Header Page %%");
    Send_Text("So this text should appear in the middle of a line",
      accum=>true);
    Send_Text("Trailer on", Trailer=>"this is the trailer",
      cursor=>641);
    Send_Page;
end Send_Test;