/**/

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

SAY o~Bezeichnung o~umrechnungskurs o~Land o~betrag o~waehrung  o~euro_betrag "EUR"
SAY
o~betrag = 100
SAY o~betrag o~waehrung "sind:" o~euro_betrag "EUR"
o~euro_betrag = 100
SAY o~euro_betrag   "EUR sind:" o~betrag o~waehrung

::REQUIRES "pgm_07+08-2.cmd"