/* REXX - EURO */
/* Copyright Gerhard Mayer 2001,2002 */
/* Eingabe von drei Werten in folgender Reihenfolge:
   - Ursprungswährung als 3-Buchstaben-Kürzel
   - Zielwährung als 3-Buchstaben-Kürzel
   - umzurechnender Betrag bzw. Rechenausdruck
   Ausgabe des Ergebnisses auf das Standardausgabemedium (Terminal)
   Hinweis 1: Die Währungsangaben müssen in den internationalen
              Kurzformen angegeben werden:
              EUR DEM FRF BEF NLG ESP PTE ITL ATS IEP FIM
   Hinweis 2: Dezimalwerte müssen im amerikanischen Format (mit
              DezimalPUNKT) eingegeben werden, z.B. EURO DEM ITL 23.45
   Hinweis 3: Das Ergebnis wird intern mit dem offiziellen Referenzkurs
              umgerechnet und auf 2 Dezimalstellen gerundet ausgegeben.
*/
Parse Upper Arg src trg line

Numeric Digits 20
/* Konstanten-Definitionen */
currs = 'EUR DEM     FRF     BEF     NLG     ESP     PTE    ' ,
            'ITL     ATS     IEP     FIM    '
fakts = '1   1.95583 6.55957 40.3399 2.20371 166.386 200.482' ,
            '1936.27 13.7603 .787564 5.94573'

If Wordpos(src,currs) = 0 Then Do
   Say 'Ungültige Ursprungswährung:' src
   Exit 12
End
If Wordpos(trg,currs) = 0 Then Do
   Say 'Ungültige Zielwährung:     ' trg
   Exit 12
End

nowords = Words(currs)
Do i=1 To nowords
   dmy = Value(Word(currs,i),Word(fakts,i))
End

If line = '' Then line = 0
Interpret 'res = ' line
Interpret 'res = ' res  * Value(trg) / Value(src)
res = Format(res,,2)
Say res
Exit