Why won't it let me exit?

[Hack.saw]

code:

var instr : string var guitar : int := Pic.FileNew ("guitar.bmp") var drumset : int := Pic.FileNew ("drumset.bmp") var keyboard : int := Pic.FileNew ("keyboard.bmp") loop     put "What is your favourite instrument?"     get instr     if instr = "guitar" then         Pic.Draw (guitar, 100, 100, picCopy)         delay (2000)         cls     elsif instr = "drums" then         Pic.Draw (drumset, 100, 100, picCopy)         delay (2000)         cls     elsif instr = "keyboard" then         Pic.Draw (keyboard, 100, 100, picCopy)         delay (2000)         cls         exit when instr = "bored"     end if end loop put "Happy Father's Day!"

It won't let me exit out of this- when you type in bored its just begins again saying "What is your favourite instument?". What do I do?

[TheOneTrueGod]

Code is linear. That exit when lies within the elsif construct "keyboard". This means that it'll only check to see if instr is "bored" when instr is "keyboard". Obviously it can't be both at once, so it'll never exit . You'll want to put the exit when directly after the get line.

code:

get instr exit when instr = "bored"

[upthescale]

the 'exit when' is inside the last if satment, try taking it out!!!!

[Hack.saw]

hehe thanks guys that was my cousin posting on my acount she just learning turing and they way she said it over the phone I couldnt figure out the problem