InitSprite()
OpenWindow(0, 0, 0, 800, 600, "--Fractal Test--", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
Define Width = WindowWidth(0) - 1, Height = WindowHeight(0) - 1, X, Y
Define I = 1
OpenWindowedScreen(WindowID(0), 0, 0, Width + 1, Height + 1, #False, 0, 0)
While WindowEvent() <> #PB_Event_CloseWindow 
StartDrawing(ScreenOutput())
For X = 0 To Width
For Y = 0 To Height
;--Fractal[--;
Plot(X, Y, X & Y * I)
;--]Fractal--;
Next Y
Next X
StopDrawing()
FlipBuffers()
If I < 0 : I = 0 : Else : I + 1 : EndIf
Wend