include "sdl.inc"
SetDisplay 640,480,1
SetCaption "SDL X-RAY"
sys x, y

While Key(27)=0 
For y=0 To Height Step 10
  For x=0 To Width Step 10
    Rectangle x,y, 8,8, 0,120,255 
    Line x,y,240,69,Rand(64,255),Rand(64,255),Rand(64,255)
  Next
Next 
Flip
Wend
Ends