Microsoft Small Basic

Program Listing: QWF808

List Program

'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