Microsoft Small Basic

Program Listing:

Embed this in your website

GraphicsWindow.MouseMove=OnMouseMoveGraphicsWindow.MouseUp=OnMouseUpwidth=640height=480padSize=120BOX_WIDTH=64BOX_HEIGHT=24halfPadSize=padSize/2start:GraphicsWindow.Clear()GraphicsWindow.BrushColor="White"GraphicsWindow.DrawText(2,420,"Click to end")GraphicsWindow.BackgroundColor="Black"GraphicsWindow.BrushColor="Orange"GraphicsWindow.PenWidth=0pad=Shapes.AddRectangle(padSize,12)