var option2 : int
        get option2
        case option2 of
            label 1 :
                var balance, interestRate, interest : real

                function roundCent (amount : real) : real
                    % Round amount to nearest cent
                    result round (amount * 100) / 100
                end roundCent

                procedure banker (var balance, interest : real, interestRate : real)
                    interest := roundCent (balance * interestRate / 100)
                    balance := balance + interest
                end banker

                put "Enter balance: " ..
                get balance
                put "Enter current interest rate: " ..
                get interestRate
                banker (balance, interest, interestRate)
                put "New balance = ", balance
                put "Interest = ", interest
               label 2:  put "Interest = "
               end case

case blank of
%we are now INSIDE of a case statement
    label 1:
        var variables : real
        %This is being declared INSIDE of that case statement you started up above. this is not allowed.
        function myFunction(params : real) :real
            %contents of Function 1
        end myFunction
        %also INSIDE
        procedure myProc(params:real)
            %contents
        end myProc
        %rest of code.....

%This function is now OUTSIDE of the case statement.
function myFunction(params : real) :real
    %contents of Function 1
end myFunction
%also now Outside
procedure myProc(params:real)
    %contents
end myProc

%Other stuff here..
%Now, we can start our case:

case blank of
    label 1:
%etc etc etc....