Graphics 1024,768,32,1
SetBuffer BackBuffer()

VWait
logo=LoadImage("bin\logo.bmp")
For n=-200 To 0
SetGammaIntensity(n)
Cls
DrawBlock logo,0,0
Delay 25
Flip
Next
WaitKey
End


Function SetGammaIntensity(n)
   For k=0 To 255
      SetGamma k,k,k,k+n,k+n,k+n
   Next
   UpdateGamma
End Function

Function Blend( l# )
   For k=0 To 255
      SetGamma k,k,k,k*l,k*l,k*l
   Next
   UpdateGamma
End Function

Graphics 1024,768,32,1
SetBuffer BackBuffer()
img=LoadImage("touch.spx")
DrawImage img,0,0
;EINBLENDUNG
For i#=0.05 To 1 Step 0.005
Blend(i)
DrawImage img,0,0
Flip
Delay 25
Next
;LOADSCREEN
msg$="Daten und Dateien werden geladen"
Text 1024/2,700,msg$,1
Flip
Delay 1000
Cls
Flip
;AUSBLENDUNG
For i#=1 To 0.05 Step -0.005
Blend(i)
DrawImage img,0,0
Flip
Delay 25
Next
Cls
Flip
WaitKey
End

Function Blend( l# )
   For k=0 To 255
      SetGamma k,k,k,k*l,k*l,k*l
   Next
   UpdateGamma
End Function

Graphics 1024,768,32,1
SetBuffer BackBuffer()
img=LoadImage("touch.spx")

While not Keydown(1)
 oldloop = Millisecs()
 Blend( blender# )

 If switch = 0 then blender = blender + loopspeed / 10
 If switch > 1 then Text 1024/2,700,"Daten und Dateien werden geladen",1
 If switch = 1 then blender = blender - loopspeed / 10

 If blender => 1 and switch = 0                      then switch = Millisecs()
 If switch > 1 and Millisecs() - switch => 1000 then switch = 1
 If switch =1 and blender <= 0                       then Cls:Waitkey():End

 DrawImage img,0,0
 Flip
 cls
 loopspeed = Millisecs() - oldloop

Wend

Function Blend( l# )
   For k=0 To 255
      SetGamma k,k,k,k*l,k*l,k*l
   Next
   UpdateGamma
End Function