Microsoft Small Basic
Program Listing:
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=XVW802' /> </object>
'Set the ClickMouse Recipe (below) to be called when the mouse is clicked
'ClearTheScreen (Recipe below)
'ClickMouse Recipe
' Play a chime
' If the right mouse button is clicked then ClearTheScreen (Recipe below)
' Otherwise AddACircle (Recipe below)
'Recipe for ClearTheScreen
'Clear the Program Window
'Write "Right Click to Clear" on the screen at 100,100
'Add "Red" to the color palette
'Add "Green" to the color palette
'Add "Blue" to the color palette
'Add "Purple" to the color palette
'Add "Pink" to the color palette
'Add "Teal" to the color palette
'AddACircle Recipe
' The width of the circle is 15
' Use the next color from your palatte
' Create a Circle
' Make the circle 60% transparent
' Move the center of the circle to the current position of the mouse
'Move the tortoise to the current position of the mouse
Copyright (c) Microsoft Corporation. All rights reserved.