SCREEN 512,512

Smooth2D ON
noise = MakeImage(1,1)

For k = 0 To 10
    Lock Image(noise)
    For i = 0 To 2^Min(k,9)-1
        For j = 0 To 2^Min(k,9)-1
            c# = Min(255,Max(0,Rnd(-255,255)/(1.6^(k-1))+((Int(GetPixel2(i,j,Image(noise))) Shl 24) Shr 24)))
            PutPixel2 i,j,Int(c Shl 16 + c Shl 8 + c),Image(noise)
        Next j
    Next i
    Unlock Image(noise)
    If k<10 Then ResizeImage noise, 2^k, 2^k
Next k

DrawImage noise, 0, 0
DrawScreen
WaitKey