It's the effect of a radar sweep ready for you to drop in your game. No media needed.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Remstart

It's just the code to create a radar effect.
basex & basey set the base x,y co-ords for the centre of the effect
myint is just a counter for the sin & cos values, changing it will not alter anything
radarspeed sets the speed but also effects the seperation of the effect

Remend

basex=60
basey=60
myint=0
radarspeed=2
dim radarx#(11)
dim radary#(11)

Sync On
Sync Rate 60

ink rgb(255,255,0),0

DO
    
    cls
    inc myint,radarspeed : if myint>=360 then myint=0

    radarx#(10)=cos(myint)*50
    radary#(10)=sin(myint)*50
    for r=1 to 10
        line basex,basey,basex+radarx#(r),basey+radary#(r)
        radarx#(r-1)=radarx#(r) 
        radary#(r-1)=radary#(r)
    next r
    sync
    
LOOP