screenRes 800,600,32

Do
  Dim as uinteger ptr target = screenPtr
  ScreenLock

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

  Next i

  ScreenUnLock
  Sleep 1
Loop until inkey <> ""
End