var music : string
var point : int
var song : int
var chars : array char of boolean
put "This is a two players Trivia game followed by a point system, person who answers the most questions correctly wins."
put "The buzzer buttons are z for player 1 and m for player2"
put "what song is currently playing? (press your buzzer key if you know"
put "1)Bitter Sweet Sympthony: by the Verve"
put "2)Into the Sea: by Dj Dean"
put "3)Mind Made up: by Tupac"
put "4)Sweet Day: by orangville"
loop
    Input.KeyDown (chars)
    if chars ('z') then
        put "what song is currently playing,player 1 (1,2,3 or 4)"
        song := 1
        get song
        if song = 1 then
            put "you got it right"
        end if
    elsif chars ('m') then
        song := 1
        put "what song is currently playing,player 2 (1,2,3 or 4)"
        get song
        if song = 1 then
            put " you got it correct"
        end if
    end if
end loop