heres my 20 line code, creating patterns, etc. (bit pathetic) so Enjoy
do
X=mousex() : Y=mousey() : X1=rnd(320) : Y1=rnd(240) : X2=X1+1+rnd(320) : Y2=Y1+1+rnd(240) : RgbForeValue=RGB(rnd(255),rnd(255),rnd(255)) : RgbBackColor=RGB(rnd(255),rnd(255),rnd(255)) : RadiusValue=rnd(100) : RadiusX=rnd(100) : RadiusY=rnd(100) : ComponentValue=rnd(255)
if rnd(500)=1 then CLS RgbBackColor
if rnd(5)=1 then INK RgbForeValue, RgbBackColor
if rnd(5)=1 then DOT X1, Y2
if rnd(5)=1 then BOX X1, Y1, X2, Y2
if rnd(5)=1 then LINE X1, Y1, X2, Y2
if rnd(5)=1 then CIRCLE X, Y, RadiusValue
if rnd(5)=1 then ELLIPSE X, Y, RadiusX, RadiusY
set cursor 0,0 : print "BASIC2D EXPRESSION DATA"
print
print "point:";POINT(X, Y)
print "rgb:";RGB(ComponentValue,ComponentValue,ComponentValue)
print "rgbr:";RGBR(RgbBackColor)
print "rgbg:";RGBG(RgbBackColor)
print "rgbb:";RGBB(RgbBackColor)
loop