$ -----------------------------;
#FUNCTION Currency COnversion;
$ ---------------------------- ;
$  currency converter          ;
$  USD to 5 other currency and ;
$  KRW to the same 5           ;
$ ---------------------------- ;
#VARIABLES;
$ Left Column USD TO OTHER;
A#USD;B#KRW;
C#EUR;D#JPY;
E#GBP;F#CAD;
$ Right Column KRW to OTHER;
G#KRW;H#USD;
I#EUR;J#JPY;
K#GBP;L#CAD;
$The ~ defines allow INPUT;
A~I;G~I;
#CALCS;
$ ---------------------------- ;
$ UPDATE these 1$ per OTHER;
$ KRW ;
B=A*1305.0;
$ EUR ;
C=A*1.0895;
$ JPY ;
D=A*120.493;
$ GBD ;
E=A*0.674032;
$ CAD ;
F=A*1.56206;
$ ---------------------------- ;
$ Uses conversions above;
$ USD ;
H=G*(A/B);
$ EUR ;
I=G*(A/C);
$ JPY ;
J=G*(A/D);
$ GBD ;
K=G*(A/E);
$ CAD ;
L=G*(A/F);
#STOP;
$ ---------------------------- ;
#END;
$ ---------------------------- ;