View.Set("graphics:640,480")
var count:int:=0
var answer:string
loop
Pic.ScreenLoad ("question1.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question2.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question3.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question4.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question5.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question6.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question7.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question8.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question9.jpg", 0, 0, picCopy)
delay (500)
get answer
if answer = "A" then
count+=1
end if
Pic.ScreenLoad ("question10.jpg", 0, 0, picCopy)
get answer
if answer = "A" then
count+=1
end if
exit when count = 10
end loop
delay (1000)
Pic.ScreenLoad ("winrar.jpg", 0, 0, picCopy)