var num : int
var events, first, second, third, fourth, fith, sixth, seventh, eighth, nine, ten, eleven : string
var  price : real
open : num, "events.txt", get
get : num, events : *
put "Customer:        ", events
get : num, events : *
put "Customer Number:      ", events
%Bottom
loop
    exit when eof (num)


    get : num, events : *
    put events
    get : num, first : *
    put first
    get : num, second : *
    put second
    get : num, third : *
    put third
    get : num, fourth : *
    put fourth
    get : num, fith : *
    put fith
    get : num, sixth : *
    put sixth
    get : num, seventh : *
    put seventh
    get : num, eighth : *
    put eighth
    get : num, nine : *
    put nine
    get : num, ten : *
    put ten
    get : num, eleven : *
    put eleven
end loop
close (num)
put first