Coding Help

color 13:PRINT "Your" ;: color 10:PRINT "iron door " ;: color 13:PRINT "wont open!!"
SLEEP 1000
color 13:PRINT "Do you...?"
PRINT"  A: Craft a " ;: color 11:PRINT "button?"
color 13:PRINT"  B: /give honeydew 46 1?"
color 13:PRINT "Select A or B."

do
    dim as string key = ucase(inkey())
    color 13:print "The " ;: color 10:PRINT "button " ;: color 13:print "works!"
    goto door_open
        sleep 100, 1

    loop
elseif key = "B" then
    color 13:print "The " ;: color 10:PRINT "TNT" ;: color 13:print "explodes! The door is now 'open'."
    goto door_open
end if
sleep 100, 1

loop
sleep 1000
door_open: color 13:PRINT "You escaped your " ;: color 10:PRINT "home" ;: color 13:PRINT "!"
SLEEP 3000
cls