import GUI
setscreen ("graphics:1000,1650")

var TextFieldA : int
var TextBox : int

const FirstConversion : string := "The amount in US Dollars is $"

locate (6, 3)
put "Canadian to American"


% This starts a procedure which I've named CanToUsa. It allows Turing to convert
% any amount of money to the stated currency
proc CanToUsa
    var TextA : string := GUI.GetText (TextFieldA)
    if strrealok (TextA) then
        var num1 := strreal (TextA)
        var total : real
        % This gives the location of the answer
        locate (7, 25)
        total := num1 * 0.961879 % The exchange rate of Canadian to American
        for i : 0 .. 0
            GUI.ClearText (TextBox)
            GUI.AddText (TextBox, FirstConversion)
           % if total > 0 then
              %  put total
           % end if
            % GUI.AddLine (TextBox, total)
            % put total
        end for
        % put total : 0 : 3, "."
    end if
end CanToUsa

proc CanToUsa1 (dummy : string)
    CanToUsa
end CanToUsa1

TextFieldA := GUI.CreateTextFieldFull (15, 1525, 50, "", CanToUsa1, GUI.INDENT, 0, 0)

var button1 : int := GUI.CreateButton (100, 1525, 40, "Convert", CanToUsa)

TextBox := GUI.CreateTextBoxFull (190, 1505, 350, 55, 0, 0)


loop
    exit when GUI.ProcessEvent
end loop