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=QCJ339' /> </object>
'Show the tortoise
'Turn the background silver
'SetupTheColors (Recipe below)
'Make the tortoise move as fast as possible
'Do the following 15 times
'DrawOctogon(recipe below)
' Turn the tortoise to the right 1/15th of 360 degrees
'Repeat
'Recipe for DrawOctogon
'Do the following 8 times
'Use the next color on the color wheel for the tortoise
' Move the tortoise 50 pixels
' Turn the tortoise to the right 1/8th of 360 degrees
'Repeat
'Recipe for SetupTheColors
'Color1 is Red
'Color2 is Dark Orange
'Color3 is Gold
'Color 4 is Yellow
'Add Color1 to the colorwheel
'Add Color2 to the colorwheel
'Add Color3 to the colorwheel
'Add Color4 to the colorwheel
'Add Color4 to the colorwheel
'Add Color3 to the colorwheel
'Add Color2 to the colorwheel
'Add Color1 to the colorwheel
'Make the line the Tortoise draws 3 pixels wide
Copyright (c) Microsoft Corporation. All rights reserved.