Dec [DM],[EURO]
EchoLn DM ---> EURO Converter
%nochmal
Echo DM-Wert:
Input [DM]
If [DM]='0' Goto fehler
CalcVar [EURO]=[DM]*'0.51'
Echo [EURO]
EchoLn  EURO
Halt

%fehler
EchoLn Division durch 0 nicht erlaubt!
Goto nochmal
End