SUB ProcessRadarData
       SHARED SampPeriod, TimeChangeFlag, WindPTR, TimeDone, BurstFlag
       SHARED DataPtr, RadarValid, Mode$
       SHARED AzimuthRaw!, ElevationRaw!, RangeRaw!, TimeRaw!
       SHARED TempValid, Mb100PTR

       PutStatus ("Processing Radar")
       
       IF Mode$ = "T" THEN
               RadarValid = yes
               LOCATE 23, 2: COLOR white, black: PRINT "Tracking"; SPACE$(50);
       ELSE
               RadarValid = no
               LOCATE 23, 2: COLOR white, red: BEEP: PRINT "Update suspended, RADAR IS NOT TRACKING. Mode is "; Mode$;
       END IF

       IF RadarValid = yes AND DataPtr < Limit THEN
               DataPtr = DataPtr + 1
               WindPTR = DataPtr - 1
               OldPTR = DataPtr - 2
               
'get radar data
               FD!(Rng, DataPtr) = RangeRaw!
               FD!(Ele, DataPtr) = ElevationRaw!
               FD!(Az, DataPtr) = AzimuthRaw!
               FD!(Tm, DataPtr) = TimeRaw! + SampPeriod + 2

'calculate trig data
               FD!(Ht, DataPtr) = FD!(Rng, DataPtr) * SIN(FD!(Ele, DataPtr))
               FD!(Pl, DataPtr) = FD!(Rng, DataPtr) * COS(FD!(Ele, DataPtr))
               FD!(Th, DataPtr) = (((FD!(Pl, DataPtr) / 1000) ^ 2) / 16990) + FD!(Ht, DataPtr) + VAL(PreFlight$(2))
               FD!(PlotX, DataPtr) = FD!(Pl, DataPtr) * SIN(FD!(Az, DataPtr))
               FD!(PlotY, DataPtr) = FD!(Pl, DataPtr) * COS(FD!(Az, DataPtr))
             
               IF DataPtr > 1 THEN
                       FD!(Wh, WindPTR) = INT((FD!(Th, DataPtr) + FD!(Th, OldPTR)) / 2)
                       x! = FD!(PlotX, OldPTR) - FD!(PlotX, DataPtr)
                       y! = FD!(PlotY, OldPTR) - FD!(PlotY, DataPtr)
                       t! = FD!(Tm, DataPtr) - FD!(Tm, OldPTR)
                       FD!(Wv, WindPTR) = INT(SQR((x! ^ 2) + (y! ^ 2)) / t! * 10) / 10
                       IF y! = 0 THEN
                               y! = .000001
                       END IF
                       wdt! = ATN(x! / y!)
                       IF y! < 0 THEN
                               wdt! = wdt! + PI!
                       ELSE
                               IF x! < 0 THEN wdt! = wdt! + 2 * PI!
                       END IF
                       FD!(Wd, WindPTR) = (INT(fnDegs!(wdt!) * 10) / 10) / Deg2Rad!

                       IF FD!(Wh, WindPTR) > 2999 AND PreFlight$(5) = "15" AND TimeDone = no THEN
                               SampPeriod = 28
                               TimeChangeFlag = yes
                       END IF
                     
                       IF FD!(Wh, WindPTR) >= LevelsHt!(Mb100PTR) THEN
                               TempValid = yes
                       END IF

                       IF WindPTR > 2 THEN
                               IF FD!(Wh, WindPTR) < FD!(Wh, WindPTR - 1) AND FD!(Wh, WindPTR - 1) < FD!(Wh, WindPTR - 2) THEN
                                       BurstFlag = yes
                                       TempValid = yes
                               ELSE
                                       BurstFlag = no
                               END IF
'phew!
                       END IF
               END IF
       END IF

       ClearStatus
END SUB