-- $Source: /commtar/monoBANK/CICS_INTF/pstack.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/15 15:46:33 $ $Author: chris $ 
  
with CICS_Terminal_Control;
procedure pstack is
    procedure recurse(n: in Integer) is
	space: string(1..1500);
	begin
	    CICS_Terminal_Control.Send_Text(Integer'Image(n));
	    if  n = 50 then
		return;
	    else
		recurse (n+1);
	    end if;
	end recurse;

begin
    recurse(0);
end pstack;