screenRes 800,600,32
Dim as ubyte ptr target = screenPtr

Do

ScreenLock

For i as integer = 0 to 800*600-1
    *target = 255
    *(target+1) = 100
    *(target+2) = (i / 800*600)
    target += 4

Next i

ScreenUnLock

Loop until inkey <> ""
Sleep