Graphics 1024,768,32,1
SetBuffer BackBuffer() 
Global AK = 1 
Global TTimer 
Global Font=LoadFont("Comic Sans MS",320,True,False,False) 
Global T1 = CreateImage(1024,768) 
Global BG = CreateImage(1024,768) 
SetFont Font 
SetBuffer ImageBuffer(T1) 
Color 2555,255,0 
Text 1024/2,768/2,"Hallo",1,1 

SetBuffer BackBuffer() 
MaskImage T1,0,0,0 
Global T2 = CreateImage(1024,768) 
SetFont Font 
SetBuffer ImageBuffer(T2) 
Text 1024/2,768/2,"Welt",1,1 

SetBuffer BackBuffer() 
MaskImage T2,0,0,0 

While Not KeyHit(1) 
If AK = 1 Then 
WW = WW + 5 
ElseIf AK = 2 
WW = WW - 5 
End If 
If WW > 1000 Then AK = 2 
If WW < 30 Then AK = 1 
MaleBalken(0,0,WW,1024,768,BG) 
Flip 
Cls 
Wend 
End 

Function MaleBalken(X,Y,Wert,Breite,Hohe,Bild) 
BW1# = Wert/2 
BW2# = Wert/2 
BB# = Breite/2 
SetBuffer ImageBuffer(Bild) 
For XX = 0 To Wert 
P = XX * 100 / Wert 
F = P * 255 / 100 
Color 255,F,0 
Rect X+XX,Y,1,Hohe 
Next 
For XX2 = 0 To Breite - Wert 
P = XX2 * 100 / (Breite - Wert) 
F = P * 255 / 100 
F = 255 - F 
Color 255,F,0 
Rect X+Wert+XX2,Y,1,Hohe 
Next 
SetBuffer BackBuffer() 
DrawImage BG,0,0 
DrawImageRect T1,0,0,0,0,Wert,768 
DrawImageRect T2,0+Wert,0,Wert,0,1024,768 
End Function