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=SQD974' /> </object>
Turtle
.
Speed
=
10
'draw 30 of the following
'useRandomRedColor
'drawOctagonWithOverLap
' turn the turtle 1/30th of 360
' turn the turtle 5 more degrees
'Recipe for drawOctagonWithOverLap
'draw the following 8 + 1 times
'Move the turtle 110 pixels
'Turn the Turtle 1/8th of 360 degrees
' Recipe for useRandomRedColor
'color #1 is HotPink
'color #2 is Red
'color #3 is Fuchsia
'color #4 is OrangeRed
'color #5 is DeepPink
'color #6 is MediumVioletRed
'color #7 is Crimson
'color #8 is Tomato
' get a Random Number between 1- 8
' set the Pen Color to the Random Color
Copyright (c) Microsoft Corporation. All rights reserved.