Warning, only run in windowed mode, as his freezes up my computer. It works at lower values, but seems to crash/freeze at 1500. Only Ctrl+Alt+Del and end task stops this.
Graphics 800,600,0,0 SetBuffer BackBuffer() a=True fps=CreateTimer(1500) ; <<<< crashes at this value. works at lower values! While Not KeyDown(1) WaitTimer(fps) Cls If KeyDown(57) For b=0 To 200 If a=True ClsColor(255,255,255) a=False Elseif a=False ClsColor(0,0,0) a=True EndIf Next EndIf Flip Wend