i made that nice code with LINE command that shows that someone running to the door in the front of him. its 2D code, but looks like 3D

- just give some imagination
full source (41 lines):
l as integer
l = 40
randomize timer()
t as integer
NewX as Integer
NewY as Integer
CurX as Float
CurY as Float
do
cls
if t < timer()
dec l
t = timer()+100
NewX = rnd(100)-50+Screen width()/2
NewY = rnd(100)-50+screen height()/2
endif
CurX = CurveValue(NewX,CurX,10)
CurY = CurveValue(NewY,CurY,10)
mmz = mousemovez()
if mmz > 0 then inc l
if mmz < 0 then dec l
if L<=0 then l = 1
for a=0 to Screen width()/l
line a*l,0,CurX,CurY
next a
for a=0 to Screen width()/l
line a*l,screen height(),CurX,CurY
next a
for a=0 to Screen height()/l
line 0,a*l,CurX,CurY
next a
for a=0 to Screen height()/l
line screen width(),a*l,CurX,CurY
next a
loop
compressed(19 lines)
randomize timer()
l as integer
l = 40
t as integer
NewX as Integer : NewY as Integer
CurX as Float : CurY as Float
do : cls
if t < timer()
dec l
t = timer()+100
NewX = rnd(100)-50+Screen width()/2 : NewY = rnd(100)-50+screen height()/2
endif
CurX = CurveValue(NewX,CurX,10) : CurY = CurveValue(NewY,CurY,10)
if L<=0 then l = 1
for a=0 to Screen width()/l : line a*l,0,CurX,CurY : next a
for a=0 to Screen width()/l : line a*l,screen height(),CurX,CurY : next a
for a=0 to Screen height()/l : line 0,a*l,CurX,CurY : next a
for a=0 to Screen height()/l : line screen width(),a*l,CurX,CurY : next a
loop
dam i LIKE LINE commands!