/**/

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

SAY o~Bezeichnung o~umrechnungskurs o~Land o~waehrung
SAY
SAY "100" o~waehrung "sind:" o~w2e(100) "EUR"
SAY "100 EUR sind:"          o~e2w(100) o~waehrung


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