History of Euro Calculator Script
Webb - all rights reserved - ©2004
spacer


modified by Russ Webb on  2004-04-22 20:42:46

Author - Holger Waldmann
Email: holger.waldmann@web.de
Webpage:

Summary: Converts currencies from and to Euro, floating exchange rates
can be set by user

Instructions: Converts currencies from and to Euro (the new european
currency).
Fixed exchange rates in program code, floating exchange rates (like USD)
can be set by user.
Use "set" to set the exchange rate, use "get" to display the set rates.
You must set the rates before first usage!

Code:

RPN.2.c+2
[r]#'100'*#'0.5'+w#'100'/;
"Euro"
"_ DEM-"#'1.95583'*Cr;
"_-EUR "#'1.95583'/Cr;
"_  FRF-"#'6.55957'*Cr;
"_-EUR "#'6.55957'/Cr;
~
"_ ATS-"#'13.7603'*Cr;
"_-EUR "#'13.7603'/Cr;
"_   ITL-"#'1936.27'*Cr;
"_-EUR "#'1936.27'/Cr;
~
"_ USD-"xa *Cr;
"_-EUR "xa /Cr;
"_ GBP-"xb *Cr;
"_-EUR "xb /Cr;
~
"_ CHF-"xc *Cr;
"_-EUR "xc /Cr;
"set"D'Set Exchange Rate\1 EUR = ?|USD|GBP|CHF|<-|'c(Xa:Xb:Xc:);
"get"xaxbxc;



modified by Russ Webb on  2004-04-23 00:39:47

Author - Holger Waldmann
Email: holger.waldmann@web.de
Webpage:  

Summary: Converts currencies from and to Euro, floating exchange rates
can be set by user

Instructions: Converts currencies from and to Euro (the new european
currency).
Fixed exchange rates in program code, floating exchange rates (like USD)
can be set by user.
Use "set" to set the exchange rate, use "get" to display the set rates.
You must set the rates before first usage!

Code:

RPN.2.c+2
[r]#'100'*#'0.5'+w#'100'/;
"Euro"
"_ DEM-"#'1.95583'*Cr;
"_-EUR "#'1.95583'/Cr;
"_  FRF-"#'6.55957'*Cr;
"_-EUR "#'6.55957'/Cr;
~
"_ ATS-"#'13.7603'*Cr;
"_-EUR "#'13.7603'/Cr;
"_   ITL-"#'1936.27'*Cr;
"_-EUR "#'1936.27'/Cr;
~
"_ USD-"xa *Cr;
"_-EUR "xa /Cr;
"_ GBP-"xb *Cr;
"_-EUR "xb /Cr;
~
"_ CHF-"xc *Cr;
"_-EUR "xc /Cr;
"set"D'Set Exchange Rate\1 EUR = ?|USD|GBP|CHF|<-|'c(Xa:Xb:Xc:);
"get"xaxbxc;