SUB Introduction (NAME$, Age, gender$, Height, npcname$)
    DATE$ = MID$(DATE$, 1, 2) + " " + MID$(DATE$, 4, 2) + ", " +  MID$(DATE$, 7)
    PRINT ">The carnival is in town, so you decide to spend your Sunday afternoon there."
    PRINT "You're having a great time until- Oh, no! It's started raining! Quickly, you"
    PRINT "duck inside the nearest tent. As your eyes adjust to the dim lighting you notice"
    PRINT "an old lady in a purple top hat sitting behind a crystal ball..."
    PRINT
    PRINT "Fortune Teller: CHR$(34)Hello, I am the ~MARVELOUS MADAM MARMALADE~ and fate has"
    PRINT "brought you to my tent on this rainy day of "; DATE$; ".CHR$(34)"
    PRINT
    PRINT "> You seem to have encountered a strange fortune teller. Realising that you have"
    PRINT "nothing better to do, you decide to have your fortune told."
    PRINT
    PRINT "MMM: "; CHR$(34); "What is your name?"; CHR$(34)
    INPUT "* "; NAME$
    PRINT "MMM: "; CHR$(34); "How old are you?"; CHR$(34)
    INPUT "* "; Age
    PRINT "MMM: "; CHR$(34); "Are you male or female?"; CHR$(34)
    INPUT "* "; gender$
    PRINT "MMM: "; CHR$(34); "How tall are you? In inches please."; CHR$(34)
    INPUT "* "; Height
    PRINT "MMM: "; CHR$(34); "What was the name of the boy in third grade that always liked to"
    PRINT "bully you?"; CHR$(34)
    INPUT "* "; npcname$
    PRINT
    PRINT "> You answered every one of the old woman's questions... Even though some of them"
    PRINT "seemed a little strange or obvious. You suddenly feel very tired. The room starts"
    PRINT "becoming hazy, and you can no longer hear the fortune teller."
END SUB