View.Set("graphics:max,max")

var vote: string
var liberal: int:=0
var greenp: int:=0
var conservative: int:=0
var count: int:=0

loop
put "a) Liberal"
put "b) Green party"
put "c) Conservatives"
get vote

count:=count+1

case vote of
        label "a" :
          liberal:= liberal+1
        label "b" :
            greenp:=greenp+1
        label "c" :
           conservative:=conservative+1
    end case
    exit when count = 3
    
    delay(1500)

end loop
cls

put "LIBERAL: ",liberal
put "GREEN PARTY: ", greenp
put "CONSERVATIVES: ", conservative