Simple user input storyline.

This is a text adventure. I will update it each step of the way. I do not mind other people using this as long as you ask me before using it or hosting it somewhere else. I give anyone the right to list this source code or modified versions on this website only(unless you ask me first). Listing my name and email will be sufficient credit. Credit me by listing my name(Brendan) and email(shadowlink767@yahoo.com). If you end up using this and changing it, can you please send me the modified source code? I am hoping to make a full text adventure. I am also hoping to make a Final Fantasy-type RPG online multiplayer game eventually. If you can help me with these goals, would like to ask me a question, would like to use my source code, or anything else, I've listed contact info below.
To contact me, email: shadowlink767@yahoo.com

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    

remstart
a$=name 
b$=Princess
c$=Prince
d$=gender
e$=Prince+name
f$=space between words
g$=Princess+name
h$=yes or no answer for "is name correct"
remend

rem chooses where to start print
set cursor 5,100

rem easy insert space between words
f$=" "

rem for girls
c$="Prince"

rem for boys
b$="Princess"

rem Label for name input
nameinput:

rem chooses where to start print
set cursor 5,100

rem asks user for name
input "What is your name? ",a$



rem begins loop process
do

rem Clears screen
cls


rem chooses where to start print
set cursor 5,100


rem Asks if name is correct
print "You have entered ";"'";a$;"' as your name." 
input "Is this name correct? (requires yes or no answer)  ",h$

if h$="yes" then goto genderinput:
if h$="no" then goto tryagain:
if h$="y" then goto genderinput:
if h$="no" then goto tryagain:


tryagain:
rem Clears screen
cls

rem chooses where to start print
set cursor 5,100

input "What is your name?  ",a$



loop




rem a label to go to if name is correct
genderinput:



do

rem Clears screen
cls

rem chooses where to start print
set cursor 5,100

rem asks user to tell gender
input "Are you male or female? Type m for male or f for female.  ",gender$


rem Clears screen
cls

rem chooses where to start print
set cursor 5,100

if gender$="m" then Input "You have chosen male as your gender.  Is this correct?  (requires yes or no answer)",correct$
if gender$="f" then Input "You have chosen female as your gender.  Is this correct?  (requires yes or no answer)",correct$

if correct$="yes" then goto adventurestart:
if correct$="y" then goto adventurestart:



rem Clears screen
cls

rem chooses where to start print
set cursor 5,100
 


loop







Adventurestart:

rem Clears screen
cls

rem chooses where to start print
set cursor 5,100

rem If user is male, then user becomes Prince+name.
if gender$="m" then name$="Prince "+a$

rem if user is female, then then user becomes Princess+name.
if gender$="f" then name$="Princess "+a$










rem Prints name and then prints the adventure's beginning.  
print name$;", prepare to embark on a very exciting adventure."

rem Waits for any user keyboard input
suspend for key

rem Clears screen
cls

rem chooses where to start print
set cursor 5,100

rem Ends program
end