Microsoft Small Basic

Program Listing:
Embed this in your website
GraphicsWindow.BackgroundColor="Black"
GraphicsWindow.BrushColor     ="White"
Fname = GraphicsWindow.FontName
xx =-125

GraphicsWindow.FontBold  ="false"
GraphicsWindow.FontItalic="false"
draw()

GraphicsWindow.FontBold  ="false"
GraphicsWindow.FontItalic="true"
draw()

GraphicsWindow.FontBold  ="true"
GraphicsWindow.FontItalic="false"
draw()

GraphicsWindow.FontBold  ="true"
GraphicsWindow.FontItalic="true"
draw()

Sub draw
   xx=xx+150
   yy=25
   For i=1 To 13
      GraphicsWindow.FontSize=8+i*2
      GraphicsWindow.DrawText(xx,yy,Fname)
      yy=yy+30
   EndFor
EndSub
Copyright (c) Microsoft Corporation. All rights reserved.