' Mini-Animation für Remotedesktop-Stabilisierung
' Zweck: Arbeiten unterwegs (Zug) via 3G/4G, Verbindung stabilisieren, weil
' dadurch auch der RDP-Server laufend Daten generiert, womit umgekehrt die
' 3G/4G-Basisstationen auch laufend nach dem im Tethering-Modus laufenden Smartphone
' suchen, was bei reinem "ping -t" auf der Client-Seite nicht der Fall ist

#Include "fbgfx.bi"

Dim r As Integer, f As Integer

ScreenRes 128, 64, 4, , FB.GFX_ALWAYS_ON_TOP

' Als Test-Thema ein primitiver Kreis
r = 20
f = 2
While InKey <> !"\255k"
	ScreenLock
	Circle (64, 32), r, f,,,0.5,F
	r += 3
	If r > 94 Then
		r = 3
		f += 3
		f And= 15
	EndIf
	ScreenUnLock
	Sleep 300
Wend