GraphicsWindow.BackgroundColor = "White"
GraphicsWindow.Title = "ECA"
GraphicsWindow.Clear()
GraphicsWindow.Height = 510
GraphicsWindow.Width = 510
GraphicsWindow.DrawRectangle(10,10,490,490)

For F = 10 To 500
  GraphicsWindow.SetPixel(F,F"Red")
  If F = 500 Then
    GraphicsWindow.DrawText(215,240,"WWW.ECA.IR")
    Endif
  Program.Delay(10)
EndFor
TextWindow.Show()
TextWindow.WriteLine("This Is A Sample Program Written In Small Basic")