x = 1024
y = 768

Graphics x, y, 16, 2

SetBuffer BackBuffer()

modus = 1
groesse = 24
warten = CreateTimer(20)

While Not KeyHit(1)
Cls

   Color Rand(255), Rand(255), Rand(255)

   If modus = 1 Then
      groesse = groesse + 2
      If groesse >= 164 Then modus = 2
   Else
      groesse = groesse - 2
      If groesse <= 24 Then modus = 1
   EndIf
   
   ; nach einigen Sekunden wird diese Schleife nicht mehr verlassen
   Repeat
      schrift = LoadFont("Arial", groesse, 1);
   Until schrift <> 0
   SetFont schrift
   
   Text x/2, y/2, "Northern Lite", 1, 1
   
   WaitTimer(warten)

Flip
Wend


End