Код:
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)
Отлично ночью под музыку включить такое пока отдыхаешь от компа...