/* REXX - RECHNE */
/* Copyright Gerhard Mayer 2001,2002 */
/* Eingabe des zu berechnenden Ausdrucks (vier Grundrechenarten
   einschließlich Klammerung) als Aufrufparameter, z.B. RECHNE 17+4
   Ausgabe des Ergebnisses auf das Standardausgabemedium (Terminal)
   Hinweis 1: Dezimalwerte müssen im amerikanischen Format (mit
              DezimalPUNKT) eingegeben werden, z.B. RECHNE 100*1.16
   Hinweis 2: Der zu berechnende Ausdruck kann Spezialwerte beinhalten:
              PI  als "Kreiszahl" zur Berechnung von z.B. Kreisumfängen
*/
Parse Upper Arg line

Numeric Digits 20
/* Konstanten-Definitionen mit Anzahl der signifikanten Dezimalstellen */
PI = 3.141592654 ; pisuffx = 9

If line = '' Then line = 0
Interpret 'res = ' line
Select
   When Pos('PI',line) > 0 Then suffx = pisuffx
   Otherwise suffx = 0
End
If suffx > 0 Then res = Format(res,,suffx)
Say res
Exit