Microsoft Small Basic

Program Listing: WBF108

List Program

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