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=ZXR169' /> </object>
'CreateColorPalette (recipe below)
'Do the Following 200 times
'AdjustPen(recipe below)
'Increase the length of a side by 1
'Move the Tortoise the length of a side
'Turn the Tortoise 1/5th of 360 degress
'Turn the Tortoise 1 more degree
'Repeat
'Recipe for CreateColorPalette
'add "SteelBlue" to the color wheel
'add "Teal" to the color wheel
'add "DarkOrchid" to the color wheel
'add "DarkSlateBlue" to the color wheel
'add "Indigo" to the color wheel
'Recipe for AdjustPen
' Change the color of the line the tortoise draws to the next color on the Color Wheel
'Increase the Tortoise's pen width by 1
'If the Tortoise's pen width is greater than 5, then reset it to 1
Copyright (c) Microsoft Corporation. All rights reserved.