indexing
	description	: "System's root class"
	date: "$Date$"
	revision: "$Revision$"

class
	CONSOLE_DEBUGGER_TEST

create
	make

feature -- Initialization

	make is
			-- Creation procedure.
		local
		    i: INTEGER
		   str: STRING
		do
		    print ("Line Printed to Console")
		    from
		        i := 1
		    until
		       i > 200000000
		    loop
		       i := i + 1
		    end
		    str.do_nothing
		rescue
		    do_nothing
		end

end -- class CONSOLE_DEBUGGER_TEST