how about this simple radar:
centrex#=screen width()/2.0
centrey#=screen height()/2.0
ink rgb(0,255,0)
do
cls
for i#=0 to 360 step .5
cls
radarscreen(centrex#,centrey#) `radar
ink rgb(255,255,255)
x#=newxvalue(centrex#,i#,200)
y#=newzvalue(centrey#,-i#,200)
line centrex#,centrey#,x#,y# `rotating line
wait 5
next
loop
end
function radarscreen(x#,y#)
ink rgb(0,255,0)
circle x#,y#,200
circle x#,y#,50
line x#-220,y#,x#+220,y#
line x#,y#-220,x#,y#+220
ENDFUNCTION
or this one:
centrex#=screen width()/2.0
centrey#=screen height()/2.0
ink rgb(rnd(255),rnd(255),rnd(255)),0
for i#=0 to 2500 step .2
x#=newxvalue(centrex#,i#,i#/10.0)
y#=newzvalue(centrey#,i#,i#/10.0)
circle x#+i,y#+i,5
next
wait key
end