Sorry your browser is not supported!

Start:
do
cls
Text 0,0,"You are in a jail cell and you see:"
Text 0,15,"Bars"
Text 0,30,"Lock"
Text 0,45,"Bed"
Text 0,60,"Bucket"
Set Cursor 0,75
Input "What would you like to interact with? ",interact$

if Upper$(interact$) = "BARS" then gosub Bars
if Upper$(interact$) = "LOCK" then gosub Lock
if Upper$(interact$) = "BED"  then gosub Bed
if Upper$(interact$) = "BUCKET" then gosub Bucket

loop

Bars:
cls
if match# = 1 then Text 0,0,"You strike the match on the bars and throw it onto the bed!" : Text 0,15,"The bed burst into flames and the guard runs to get some help!" : matchstruck# = 1
if match# = 0 then Text 0,0,"What in the world are you going to do with some bars that are locked?"
Suspend for Key
Return

Lock:
cls
if nail# = 1 and matchstruck# = 0 then Print "You try to pick the lock but the guard sees you and takes the nail away!" : GoTo Lose
if nail# = 1 and matchstruck# = 1 then Print "You pick the lock and escape now go find your possesions!" : Suspend for Key: GoTo Win
if nail# = 0 and matchstruck# = 0 then Print "You can't do anything with that lock yet, try looking for something you can use has a pick"

Suspend for Key
Return

Bed:
cls
Text 0,15,"You can:"
Text 0,30,"Look under the bed (Type Look)"
Text 0,45,"Examine the bed(Type Examine)"
Input "What would you like to do? ",bedinteract$

if Upper$(bedinteract$) = "LOOK" then gosub BedLook
if Upper$(bedinteract$) = "EXAMINE" then gosub BedExamine

Return

Bucket:
cls
Print "You pee in the bucket and gain some health!!!"
rem put something like a health bar of what ever here
Suspend for Key
Return

BedLook:
cls
Print "You look under the bed and find a Match!"
match# = 1
Suspend for Key
Return

BedExamine:
cls
Print "You Examine the bed and find a Nail sticking out of it!"
nail# = 1
Suspend for Key
Return

Lose:
cls
Text 30,30, "You lost the game!!!"
Suspend for Key
cls
Input "Would you like to restart? ",restart$

if Upper$(restart$) = "YES" then goto start
if Upper$(restart$) = "NO" then End

Win:
cls
Text 30,30,"End of scene 1"
Suspend for Key
cls
Input "Would you like to restart? ",restart$

if Upper$(restart$) = "YES" then goto start
if Upper$(restart$) = "NO" then End

interact$ = upper$(interact$)

repeat
cls
print "1. Bed"
print "2. Shoebox"
print "3. Chariot"
print "4. Gopher"
input "Select an object (by object number)",objnum$
until VAL(objnum$)>0 and VAL(objnum$)<5