Microsoft Small Basic
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=QWF808' /> </object>
'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
Copyright (c) Microsoft Corporation. All rights reserved.