My radiobutton quiz- With problems that need fixing!

[Yoda]

import GUI in "%oot/lib/GUI"
View.Set ("graphics:550;300")

setscreen ("graphics")
var quitbutton : int
var radio : array 1 .. 4 of int
var score := 0
var response : boolean := false
procedure QuitPressed
if response = true then
score := score + 1
put "correct!"
else
score := score - 1
put "Wrong!"
end if
delay (1000)
GUI.Quit
response := false
end QuitPressed
procedure RadioPressed

%The score
%var answers : array 0 .. 9 of int := init (2, 0, 2, 1, 2, 2, 1, 0, 2, 3) %These are the answers to the questions

if radio (1) = GUI.GetEventWidgetID then
response := false
elsif radio (2) = GUI.GetEventWidgetID then
response := false
elsif radio (3) = GUI.GetEventWidgetID then
response := true
elsif radio (4) = GUI.GetEventWidgetID then
response := false
end if

end RadioPressed

procedure RadioPressed2

if radio (1) = GUI.GetEventWidgetID then
response := true
elsif radio (2) = GUI.GetEventWidgetID then
response := false
elsif radio (3) = GUI.GetEventWidgetID then
response := false
elsif radio (4) = GUI.GetEventWidgetID then
response := false
end if

end RadioPressed2

procedure RadioPressed3


if radio (1) = GUI.GetEventWidgetID then
response := false
elsif radio (2) = GUI.GetEventWidgetID then
response := true
elsif radio (3) = GUI.GetEventWidgetID then
response := false
elsif radio (4) = GUI.GetEventWidgetID then
response := false
end if

end RadioPressed3

put "Welcome to the Science Fiction Quiz of Doom!"
delay (1000)
put ""
put "When you think you have the correct answer click on the radio button that"
put "represents it, then, once you've done that, click the ANSWERED button."
delay (2000)
put ""
put "May the force be with you and may Obi Wan Watch over you"
put ""
delay (2000)
put "First question: What was William Gibson's first novel?"
put ""
delay (2000)


radio (1) := GUI.CreateRadioButton (1, 75, "Pattern Recognition", 0,
RadioPressed)
radio (2) := GUI.CreateRadioButton (1, 100, "Virtual Light", radio
(1), RadioPressed)
radio (3) := GUI.CreateRadioButton (1, 125, "Neuromancer", radio (2),
RadioPressed)
radio (4) := GUI.CreateRadioButton (1, 150, "Dune", radio (3), RadioPressed)
quitbutton := GUI.CreateButton (25, 200 - 1, 1, "ANSWERED", QuitPressed)


loop
exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

put "Second question: Who is Luke's father?"
put ""


radio (1) := GUI.CreateRadioButton (1, 75, "Darth", 0, RadioPressed2)
radio (2) := GUI.CreateRadioButton (1, 100, "Your Mom", radio (1),
RadioPressed2)
radio (3) := GUI.CreateRadioButton (1, 125, "Wintermute", radio (2),
RadioPressed2)
radio (4) := GUI.CreateRadioButton (1, 150, "Young buck", radio (3),
RadioPressed2)
quitbutton := GUI.CreateButton (25, 200, 1, "ANSWERED", QuitPressed)

loop
exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

put "Third question: Who wrote the Martian chronicles?"
put ""
delay (1000)

radio (1) := GUI.CreateRadioButton (1, 75, "You", 0, RadioPressed3)
radio (2) := GUI.CreateRadioButton (1, 100, "Isaac Asamov", radio (1),
RadioPressed3)
radio (3) := GUI.CreateRadioButton (1, 125, "Ray Bradbury", radio (2),
RadioPressed3)
radio (4) := GUI.CreateRadioButton (1, 150, "C.S Lewis", radio (3),
RadioPressed3)
quitbutton := GUI.CreateButton (25, 200, 1, "ANSWERED", QuitPressed)

loop
exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

-------------------------------------------------------------------------

Yar, run it, and you will see the problem. Question one runs nicely, but then #2 just zips by, and #3 is practically non-existent. If you have any suggestions, or solutions, to fix this problem, I shall forever be in your debt.[/b]

[Cervantes]

Yar! Yoda is speaking the language of the pirate? Arrrgh!

Well, I don't know GUI, but I found that if you put a nice little GUI.ResetQuit after your event loop:

code:

loop     exit when GUI.ProcessEvent end loop

it works nicely.
Your GUI.ProcessEvent is always returning true, ever since the first time you called GUI.Quit. So you need to reset the GUI.Quit.