Microsoft Small Basic

Program Listing: ZDL075

List Program

GraphicsWindow.BackgroundColor="Yellow"
GraphicsWindow.DrawTriangle(0,0,362,352,0,352)

Timer.Interval = 1001
Timer.Tick = OnTick
Counter = 0

Sub OnTick
Counter = Counter + 1
If( Counter = 1 ) Then
GraphicsWindow.BackgroundColor="Pink"
EndIf

If( Counter = 2 ) Then
GraphicsWindow.BackgroundColor="Black"
EndIf

If( Counter = 3 ) Then
GraphicsWindow.BackgroundColor="Purple"
EndIf


EndSub