/* (c) 1999-2005, Rony G. Flatscher, Wirtschaftsuniversitaet Wien, Austria Europe
   A *possible* solution to excercise # 13
*/

o = .euro ~ NEW("ATS", "Austria", "Schilling", 13.7603)

SAY o~denotation o~exchangeRate o~country o~currency
SAY
SAY "100" o~currency "are:" o~currency2euro(100) "EUR"
SAY "100 EUR are:"          o~euro2currency(100) o~currency


::REQUIRES "solution_13.cls"