screenRes 800,600,32

Do
  Dim as ubyte ptr target = screenPtr
  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
  Sleep 1
Loop until inkey <> ""
End