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

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

SAY o~denotation o~exchangeRate o~country o~amount o~currency  o~euro_amount "EUR"
SAY
o~amount = 100       -- set currency amount
SAY o~amount o~currency "are:" o~euro_amount "EUR"
o~euro_amount = 100  -- set euro amount
SAY o~euro_amount   "EUR are:" o~amount o~currency

::REQUIRES "solution_14.cls"