Microsoft Small Basic

Program Listing:
Embed this in your website
'United States of America flag by Rushworks 2010
scale = 0.5
flagHoist = 1000 * scale
flagFly = 1900 * scale
unionHoist = 538.5 * scale
unionFly = 760 * scale
starVerticalOffset = 54 * scale
starHorizontalOffset = 63 * scale
starDiameter = 61.6 * scale
stripeHeight = 76.9 * scale
GraphicsWindow.Width = flagFly
GraphicsWindow.Height = flagHoist
For stripes = 0 To 12 Step 2
  GraphicsWindow.BrushColor = "Red"
  GraphicsWindow.FillRectangle(0, stripes * stripeHeight, flagFly, stripeHeight)
EndFor
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FillRectangle(0, 0, unionFly, unionHoist)
GraphicsWindow.BrushColor = "White"
For yy = 0 to 8
  For xx = 0 To 10
    If ((Math.Remainder(yy, 2) = 0 And Math.Remainder(xx, 2) = 0)) Or ((Math.Remainder(yy, 2) = 1 And Math.Remainder(xx, 2) = 1)) Then
      x = xx * starHorizontalOffset + starHorizontalOffset
      y = yy * starVerticalOffset + starVerticalOffset
      GraphicsWindow.FillTriangle(x - starDiameter / 2.5, y - starDiameter / 6, x + starDiameter / 2.5, y - starDiameter / 6, x, y + starDiameter / 8)
      GraphicsWindow.FillTriangle(x, y - starDiameter / 2, x + starDiameter / 4, y + starDiameter / 3, x, y + starDiameter / 8)
      GraphicsWindow.FillTriangle(x, y - starDiameter / 2, x - starDiameter / 4, y + starDiameter / 3, x, y + starDiameter / 8)
    EndIf
  EndFor
EndFor
GraphicsWindow.DrawRectangle(0, 0, GraphicsWindow.Width, GraphicsWindow.Height)
Sound.PlayMusic("O5 L4 R1 C2 < A2 F2 A2 > C2 F1 R8")
Sound.PlayMusic("A G F < A B > C2 R8 C C ")
Sound.PlayMusic("> A G8 F E2 D E F F C < A F1")


Copyright (c) Microsoft Corporation. All rights reserved.