Sample program named Event09

Listing 17 contains a complete listing of the program named Event09.