I made this code at school and i think its preety good. Fabulous for lonely people!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    input "Enter Name>";a$
cls
set cursor 320,240
print "Hello,"
print a$
wait 2000
cls
DO
input "Teach me a word>";b$
cls
set cursor 1,1
print b$
cls
print "thankyou,"
print a$
print ",for teaching me how to spell"
print b$
wait 10000
cls
print "can i please have something?"
wait 2000
cls
input "What can i have?>";c$
cls
print "Thankyou"
print a$
print "for giving me"
print c$
wait 10000
cls
input "can i have a pet?>";d$
cls
input "im sort of hungry, can i have some food please.What can i have>";e$
cls
print "mmm, that was tasty! Thank you"
cls
LOOP