"// Project: Rectangles
// Created: 2017-07-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Rectangles" )
SetWindowSize( 1024, 720, 0 )
SetDisplayAspect(1024/720.0)
UseNewDefaultFonts(1)
ClearScreen()
do
a = MakeColor(Random(0,255),Random(0,255),Random(0,255))
b = MakeColor(Random(0,255),Random(0,255),Random(0,255))
c = MakeColor(Random(0,255),Random(0,255),Random(0,255))
d = MakeColor(Random(0,255),Random(0,255),Random(0,255))
DrawBox(10,10,90,90,a,b,c,d,0)
Sync()
Sleep(500)
loop
"