Код:
InitSprite()
InitKeyboard()
ExamineDesktops()
Width = DesktopWidth(0)
Height= DesktopHeight(0)
OpenScreen(Width,Height,32,"")
Repeat
  StartDrawing(ScreenOutput())
    *Color.Ascii  = DrawingBuffer()
    *Overflow     = *Color  + Width * Height  * 3
    If  Color
      Color = $00
    Else
      Color = $FF
    EndIf
    While *Color  < *Overflow
      *Color\a  = Color
      *Color  + 1
    Wend
  StopDrawing()
  FlipBuffers()
  ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)

Отлично ночью под музыку включить такое пока отдыхаешь от компа...