This is Ada code from my Spring '14 semester at Truman State.