Main Module
	Declare International Currency Type as String
	Declare Total Amount International as Real
	Declare Total Amount US as Real
	Call Get User Input Module
	Call Exchange Rate Module
	Call Conversion Module
	Call Display Module
End Main Module
Get User Input Module
	Write “Enter Total Amount of International Currency.”
	Input TotalAmountInternational
Write “Select International Currency Type From The List Below.”
	Write “Canadian Dollars……………………….Enter 1”
	Write “Mexican Pesos………………………….Enter 2”
	Write “English Pounds…………………………Enter 3”
	Write “Japanese Yen…………………………..Enter 4”
	Write “French Francs…………………………..Enter 5”
	Write “Exit Program……………………………Enter 0”
	Input Choice
	Select Case Of Choice
		Case 0:
			Write “GoodBye”
		Case 1-5:
			Call Exchange Rate Module
	End Case
End Get User Input Module
Exchange Rate Module
	If Canadian Dollars Then
	Set Rate = 1.4680
	ElseIf Mexican Pesos Then
	Set Rate = 9.5085
	EsleIf English Pounds Then
	Set Rate = 1.6433
	ElseIf Japanese Yen Then
	Set Rate = 104.9200
	ElseIf French Francs Then
	Set Rate = 6.2561
End If
End Exchange Rate Module
Conversion Module
	TotalAmountUS = TotalAmountInternational / Rate
	If Currency Type = 3 Then
	TotalAmountUS = TotalAmountInternational * Rate
 End Conversion Module
Display Module
	Display “The currency conversion for” InternationalCurrency “,”
	Display “in the amount of” TotalAmountInternational “is”
	Display “converted to” TotalAmountUS “U.S. Dollars.”
	Display “Would you like to enter another conversion or exit the program?”
	Display “Input another Conversion…………………….”1”
	Display “Exit Program……………………………………”0”
	Input Choice
	Select Case of Choice
		Case 1:
			Call Get User Input Module
		Case 0:
			Display “GoodBye!”
			Exit Program
		End Case
	While Case <> 1 or <> 0 Then
		Display Results
	End While
End Display Module