Bill_gas_customers
Bill_gas_customers Perform_initial_processing read customer record DOWHILE more records calculate_amount_owing print_customer_details read customer record ENDDO print_gas_totals END
Perform_initial_processing
Perform_initial_processing
print ‘CUSTOMER USAGE FIGURES’ heading
set total_Customer to zero
set total_amount_owing to zero
ENDPrint_customer_details
Print_customer_details
print customer_number, name, address, gas_usage, amount_owing
add 1 to total_customers
END
Print_gas_totals
Print_gas_totals
print total_customers
print total_amount_owing
END
calculate_amount_owing
calculate_amount_owing
IF usage "less than" 60 THEN
amount_owing = usage * $2.00
ELSE
amount_owing = (60 * 1.75) + ((usage - 60) * $1.50)
ENDIF
add amount_owing to total_amount_owing
END