Spotlite

Here is an improved version of Mouse Springs. It runs smoother with Runtime 11.8 :

'spotlite.bas SmallBASIC 2015-07-08 MGA/B+
' modified Mouse springs v1.bas SmallBASIC MGA 2015-04-18 post SmallB, 4-19 Bpf
maxx=xmax
maxy=ymax
oldx=0:oldy=0
maxs=30
color 15,0:cls
while 1
k=inkey
if len(k)=1 and asc(k)=27 then end
pen on
mx=pen(4)
my=pen(5)
pen off
if mx<>oldx or my<>oldy then
cls
for y=0 to maxy step maxs
for x= 0 to maxx step maxs
distance=((x-mx)^2+(y-my)^2)^.5
ms=distance/6
if ms>maxs then ms=maxs
if maxs-ms>0 then circle x,y,maxs-ms,1,15 filled
next
next
oldx=mx:oldy=my
showpage
endif
wend