This is my first go at creating anything new in DBP, so dont expect a lot. Unlike the rest of the forum, I took "20 lines" to mean "20 normal commands". Here it is
:
cx=100
cy=100
A:
xpos=mousex()
ypos=mousey()
circle xpos, ypos, 10
left=(cx-20)
top=(cy-20)
right=(left+40)
bottom=(top+40)
box left, top, right, bottom
if cx < xpos then cx = cx + 5
if cx > xpos then cx = cx - 5
if cy < ypos then cy = cy + 5
if cy > ypos then cy = cy - 5
color = point(xpos, ypos)
cls
if color = 0 then goto A:
end
19 commands, no frills, my first program in DBP.