'----------------------------------------------------------------------------
Dim FID, FInterval, FLeft, FTop, FHDirection, FVDirection
'----------------------------------------------------------------------------
Sub StartF()
   FLeft = (Window.Screen.availWidth - 100) / 2:    FHDirection = "R"
   FTop = (Window.Screen.availHeight - 100) / 2:  FVDirection = "D"
   Window.FObj.Style.Display = ""
   Window.FObj.Style.Top = FTop
   Window.FObj.Style.Left = FLeft
   FInterval = 250
   FID = Window.setInterval("ShowF", FInterval)
End Sub
'---------------------------------------------------------------------------
Sub EndF()
   Call Window.clearInterval(FID)
End Sub
'---------------------------------------------------------------------------
Sub ShowF()
   Call Window.clearInterval(FID)
   If FHDirection = "R" Then
      FLeft = FLeft + 5
      If FLeft >= Window.Screen.availWidth - 100 Then FHDirection = "L"
   Else
      FLeft = FLeft - 5
      If FLeft <= 0 Then FHDirection = "R"
   End If
   If FVDirection = "D" Then
      FTop = FTop + 5
      If FTop >= Window.Screen.availHeight Then FVDirection = "U"
   Else
      FTop = FTop - 5
      If FTop <= 0 Then FVDirection = "D"
   End If
   Window.FObj.Style.Visibility = "visible"
   Window.FObj.Style.Top = FTop
   Window.FObj.Style.Left = FLeft
   FID = Window.setInterval("ShowF", FInterval)
End Sub
'---------------------------------------------------------------------------