i was bored.... so i made a random game.... all you do is answer riddles and stuff to survive

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    hide mouse
ink rgb(225,0,0),0
Input "Name Please > ";name$
cls
print "Hello ";name$
wait key
cls
Print "I want to play a game."
wait key
cls
Print "If you win, I give you the code to the device strapped around you."
wait key
cls
Print "If you lose, The waist band that you are wearing, will explode."
wait key
cls
Print "If you don't want to play, I will press a red button, and it will explode any way."
wait key
cls
Input "Live or Die? make your choice > ";choice$
if choice$="live"
cls
print "Ok...."
wait key
cls
print "3"
sleep 1000
cls
print "2"
sleep 1000
cls
print "1"
sleep 1000
cls
print "Here we go!!!"
wait key
cls
print "Welcome to the first room."
wait key
cls
print "In here, I will give you a series of puzzles, and to survive, you must get them right."
wait key
cls
print "Puzzle 1"
print " "
print "If a=5 b=5 c=5 d=6 e=7, then what does bad equal?"
input "> ";answer1$ 
if answer1$="556"
cls
print "congrats"
wait key
cls
print "Puzzle 2"
print " "
print "If a spiddle is a spaddle, and a spaddle is a spoodle, is a spiddle a spoodle?"
input "> ";answer2$
if answer2$="yes"
cls
print "1 left"
wait key
cls
print "Puzzle 3"
print " "
print "What walks first on four legs, then two legs, then three legs?"
input "> ";answer3$
if answer3$="a human"
cls
print "Next room!!!"
wait key
print "The key to the next room is behind your eye."
wait key
cls 
print "You see a scalpal on the floor in the middle of the room."
wait key
cls
print "The only way out of this room, is to carve the key out of your eye."
wait key
cls
print "Will you do it?"
input "> ";key1$
if key1$="yes"
cls
Print "You got the key, but now there is another problem..."
wait key
cls
Print "You can barely see."
wait key
cls
Print "T3o t4h2e n5e2x7t5 ro68o987m"
wait key
cls
Print "T5h4e5r5e a8r8e th456r22e3e b6456u45tt6ons55 : o6n45e bl45ue,"
Print "o547ne55 r4ed87, a5n645d o731n1e y7e7l8lo9w."
wait key
cls
Print "T45o6 fi645n7is789h 5m1y g45am2e, y4o2u m1u11s7t ch6o45o21se7"
Print "o45n5e o7f t778he62s1e b752ut2t1o78n5s."
wait key
cls
Print "C456h12o8o52s1e w84i2s1e5ly, y453o123ur 4l45if6e d45ep2e1n54ds 2o2n i2t."
wait key
cls
Print "45Pr456ess 67A i8f9 you4 0p1i3c0k th15e bl786ue on12e"
Print "Pr12e12s7s588 2B0 i0048f y12ou7 p31ic1k t77h2e r4e3d7 o11n2e"
Print "Pr123es12s C i1f y31ou p13ick1 t13he3 1yell13ow 3o3ne"
Input "> ";button$
if button$="c"
print "Y44A53Y!!!! 48TH5E C52O1D88E I2S 5s4d6gg8t7j7rd8rd8hi6o5"
wait key
cls
Print "T21yp04e i4n t212he 53co45d2e: "
Input "> ";code$
if code$="5468778865"
print "A123LL3 D2ON12E!!!!!! Y12OU SUR213VI3V12ED!!!!!!!"
wait key
endif
endif
endif
endif
endif
endif
endif