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
     Program.Delay(300)
     GraphicsWindow.FontSize=8+i*2
     GraphicsWindow.DrawText(xx,yy,Fname)
     yy=yy+30
   EndFor
EndSub
Copyright (c) Microsoft Corporation. All rights reserved.