(11C) Currency Converter

[Gamo]

Program to convert "three" foreign exchange rates.


Procedure:

[A] Rates #1
[B] Base Rates
[C] Rates #2

Store rates #1 to R0
Store rates #2 to R1

n [A] display exchange rates to B based on A rates
n [C] display exchange rates to B based on C rates

n [B] display exchange rates of A based on B rates
-n [B] display exchange rates of C based on B rates

--------------------------------------------------------------------
Example: f [USER] f [FIX] 2

1 USD (United States) =
0.862441 EUR (Euro)
0.767699 GBP (British Pound)

.862441 [STO] 0 // Rate on LBL [A] (Euro)
.767699 [STO] 1 // Rate on LBL [C] (British Pound)

5 USD is how many Euro?
5 [A] display 4.31
Answer is 4.31 Euro

5 USD is how many GBP?
5 [C] display 3.84
Answer is 3.84 GBP

20 Euro is how many USD?
20 [B] display 23.19
Answer is 23.19 USD

20 GBP is how many USD?
20 [CHS] [B] display 26.05 USD // for GBP to USD use Negative Value

--------------------------------------------------------
Program: Exchange Rates

Code:


LBL A
RCL 0
x
RTN
LBL 0
1/x
GSB A
1/x
RTN
-------------------------------------------------------
LBL B
X>0
GTO 0
1/x
GSB C
1/x
CHS
RTN
-----------------------------------------------------
LBL C
RCL 1
x
RTN

Gamo