Graphics 640,480
SetBuffer BackBuffer()
cursor = LoadImage("grafiken\cursor.bmp")
SeedRnd MilliSecs()

R = Rand(0,256)
G = Rand(0,256)
B = Rand(0,256)
MaskImage cursor, 255, 0, 255
Repeat
hintergrund()


Flip
Until KeyHit (1)
Function hintergrund()

Delay (3)

R = + 1
G = + 1
B = - 1

If R = 256 Then
Repeat
R = - 1
Until R = 0
EndIf

If G = 256 Then
Repeat
G = - 1
Until G = 0
EndIf

If B = 0 Then
Repeat
B = + 1
Until B = 256
EndIf

End Function
WaitKey

...Anderer Code^^...
R = Rand(0,256)
G = Rand(0,256)
B = Rand(0,256)
ClsColor R, G, B
MaskImage cursor, 255, 0, 255
Repeat
hintergrund()
...Anderer Code^^...

R = Rand(0,256)
G = Rand(0,256)
B = Rand(0,256)

Graphics 640 ,480,16,2
SetBuffer BackBuffer ()

;Macht den Timer Global sodas er überalle verwendet werden kann
Global timer = CreateTimer (100);der Timer wird auf 100 Impulse Pro Sekunde gestellt (kann man anpassen)
Global r,g,b;deine Variablen werden Global damit du sie auch in einer Funktion nutzen kanst

SeedRnd MilliSecs ()

R = Rand (0 ,255)
G = Rand (0 ,255)
B = Rand (0 ,255)

Repeat
    Cls
    ;Farbe auf Schwerz sonst kann man den Text nicht immer lesen
    Color 0 ,0, 0
    Text 10 ,10,R
    Text 10 ,40,G
    Text 10 ,70,B
   
   
    hintergrund ()
   
    Flip
Until KeyHit (1)

Function hintergrund ()
    WaitTimer timer;es wird Solange Gewartet bis dre Timer den Nächsten impuls gibt
   
    R = (R + Rnd (1 ,2) ) Mod 255;R,G und B werden Solange hochgezählt bis sie 255 sind danach werde sie wieder auf 0 Gesetzt
    G = (G + Rnd (1 ,2) ) Mod 255;ist nicht ganz schön aber reicht ^^
    B = (B + Rnd (1 ,2) ) Mod 255
   
    ClsColor r,g,b;die Cls Farbe wird gesetzt
End Function