note
	description: "menus application root class"
	date: "$Date$"
	revision: "$Revision$"

class
	APPLICATION

inherit
	ARGUMENTS

create
	make

feature
	person: PERSON
	acc: ACCOUNT
	balance: INTEGER

feature {NONE} -- Initialization

	make
			-- Run application.
		do
			--| Add your code here
			create acc.open ("Bob Johnson", 2300)
			person := acc.owner
			balance := acc.balance

			print (person.name + "%N--------------%N")

			acc.deposit (2300)
			print ("Initial: ")
			print (balance)
			print (" %N")

			if acc.may_withdraw (50) then
				acc.withdraw (3600)
			end
			print ("Final:   ")
			print (acc.balance)
			print (" %N")

			print ("%N%NLedger:%N--------%N")

			acc.print_transactions
		end

end