Microsoft Small Basic
Program Listing: QWF808
'Ask the user to enter an adverb, save it as currentAdverb
'Ask the user to enter a verb ending in '-ed', save it as currentEdVerb
'Ask the user to enter an body part, save it as currentBodyPart
'Set the value of the currentStory to the word "Today "
'Add the words "I woke " + currentAdverb + ". " to the currentStory
'Add the words '"Then I " + currentEdVerb + " " to the currentStory
'Add the words "my " + currentBodyPart + ". " to the current story
'Show the currentStory in a message box as a message