Currency Conversion Test

Currency Conversion Pseudocode
Main Module {
Declare ExchangeRate as real;
Declare VariableCurrency as String;
Declare UnitedStatesValue as real;
Declare AmountVariable as real;
Call Input DataModule;
EndMainModule;

InputDataModule;
Write "Welcome to International Currency Conversion";
Write "Please choose Currency Type"
Write "International Currency Types:"
Display "1. Japanese Yen.";
Display "2. French Francs.";
Display "3. Mexican Peso.";
Display "4. Quit."
Write "Enter Amount to be converted";
Prompt User Input Currency Amount;
Input Currency;
If CurrencyType1 then Call JapaneseModule;
Else
If Option 2 then Call FrenchModule;
Else
If Option 3 then Call MexicanModule;
If Option 4 Write "Thank you for using the Currency Conversion. Have a nice day."
EndIf;
EndElse;
EndInputDataModule;

JapaneseModule
VariableCurrency=Japanese Yen;
ExchangeRate = 101.95;
Write "Enter Amount to be converted please.";
Prompt user input;
Input AmountUSD;
AmountVariable = ExchangeRate*AmountUSDollars;
Write "Finished Currency Conversion.";
Display "The value of the currency is "Amount" Japanese Yen";
EndJapaneseModule;

FrenchModule
VariableCurrency=French Franc;
ExchangeRate = 4.82;
Write "Enter Amount to be converted please.";
Prompt user input;
Input AmountUSD;
AmountVariable = ExchangeRate*AmountUSDollars;
Write "Finished Currency Conversion.";
Display "The value of the currency is "Amount" French Francs.";
EndFrenchModule;

MexicanModule
VariableCurrency=MexicanPeso;
ExchangeRate = 12.892;
Write "Enter Amount to be converted please.";
Prompt user input;
Input AmountUSD;
AmountVariable = ExchangeRate*AmountUSDollars;
Write "Finished Currency Conversion.";
Display "The value of the currency is "Amount" Mexican Pesos.";
EndMexicanModule;

Write "Would you like to convert another amount?";
If No then end;
If yes then return InputDataModule;
EndIf
End
}

Currency Conversion Test (Procedures Valid and