Module main()
    // Local variable
    Declare String keepGoing = "y"
	Declare Real runningCommission = 0.0 
    
    // Calculate commissions as many
    // times as needed.
    While keepGoing == "y"
        // Display a salesperson's commission.
        Call showCommission(runningCommission)
        // Do it again?
        Display "Do you want to calculate another"
        Display "commission? (Enter y for yes.)"
        Input keepGoing
    End While
	Display "Total commission is ", runningCommission
End Module

// The showCommission module gets the
// amount of sales and displays the
// commission.
Module showCommission(Real Ref running)
    // Local variables
    Declare Real sales, commission
    // Constant for the commission rate
    Constant Real COMMISSION_RATE = 0.10
    // Get the amount of sales.
    Display "Enter the amount of sales."
    Input sales
    // Calculate the commission.
    Set commission = sales * COMMISSION_RATE
	set running = running + commission
    // Display the commission
    Display "The commission is $", commission
End Module