CoWeb

find:
goto:
home

history
links from
printable

login
















Euro Calculator Script
Webb - all rights reserved - ©2004
spacer
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;


0.0004 secs

top of page

Webb - all rights reserved - ©2004
powered by Spinneret 0.10