Microsoft Small Basic

Program Listing: KHW075

List Program

'Make the tortoise move as fast as possible

'CreateColorPalette (recipe below)

'DrawPentagon (recipe below)


'------------- Recipe for CreateColorPalette

' Add steel blue to the color wheel

' Add dark orchid to the color wheel

' Add dark slate blue to the color wheel

' Add teal to the color wheel

' Add indigo to the color wheel

'------------- End of CreateColorPalette recipe


'------------- 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 4, then

' Reset it to 1

'------------- End of AdjustPen recipe


'------------- Recipe for DrawPentagon

'Do the following 200 times

' AdjustPen (recipe below)

' Move the tortoise the length of a side

' Turn the tortoise 1/5th of 360 degrees

' Turn the tortoise 1 more degree

'Repeat

'------------- End of DrawPentagon recipe