Graphics 480,360,0,2
SetBuffer FrontBuffer()

Local Inhalt,Test,Buffer,X,Y,I,ARGB,R,G,B
Inhalt=LoadImage("d:\Tokyo.bmp")
Buffer=ImageBuffer(Inhalt)
LockBuffer Buffer

For Y=0 To 5119
   For X=0 To 5119
      ARGB=ReadPixelFast(X,Y,Buffer)
      R=(ARGB And $FF0000) Shr 16;/$10000
      G=(ARGB And $FF00)Shr 8;/$100
      B=(ARGB And $FF)
      
      R=R+Rand(-2,+2)
      G=G+Rand(-2,+2)
      B=Rand(0,255)
      
      ARGB=R*$10000+G*$100+B
      
      WritePixelFast X,Y,ARGB,Buffer
   Next
Next

UnlockBuffer Buffer

If SaveImage(Inhalt,"d:\Tokyo1.bmp")=1 Then
   Print "ok!"
Else
   Print "Fehler"
End If

Delay 1000

Graphics 480,360,0,2
SetBuffer FrontBuffer()

Local Size=FileSize("d:\Tokyo.bmp")
Local File1=ReadFile("d:\Tokyo.bmp")
Local File2=WriteFile("d:\Tokyo2.bmp")
Local ARGB,Count=0

While Not Eof(File1)
   Count=Count+1
   ARGB=ReadInt(File1)
   If Count>1024 Then ARGB=ARGB+Rand(-200,+200)
   WriteInt(File2,ARGB)
Wend

CloseFile(File1)
CloseFile(File2)

Print "DURCHFÜHRUNG"

Delay 1000