DMI Crossover Indicator ELD Help?

Hey. I'm trying to find a code for a positive and negative DMI cross that will show on charts and in Radarscreen and show how many bars ago they crossed long or short like with this code in the thread for CrossoverMA:

https://www.tradestation.com/Discussions/Topic.aspx?Topic_ID=78248

Hopefully this thread and open code there for MA and EMA crossovers and how many bars ago they crossed and whether it's long or short, all showing on charts and in Radarscreen, will help others as well. Please post the pos./neg. DMI Crossover code where you can see the crossovers on a chart and also screen in Radarscree for ADX in the same area of Radarscreen to see if the trend is strong or weak for stocks or ETFs, and open code so one can change the input numbers for DMIs and ADX numbers (my #s are sped up and not usual 14,25), and show long or short x number of bars ago if they crossed like with the MA/EMA crossover in the thread above. Thanks.

Here's the MA Crossover for Radarscreen code for Tradestation. Works great at showing when and how many bars ago a stock has crossed over, I'd use it on an intraday timeframe interval when one has just recently crossed to try and enter a trade. Am looking for a similar code for DMI cross with ADX in the code to see how strong or weak the trend is. MA Crossover code, giving credit to author at top:

{
Indicator: _CrossOverMA

Purpose: on chart: shows fast and slow moving averages
on radarscreen: shows price, fast and slow moving averages,
and number of bars since MA crossover has occurred

Note in RS: sort BarsLong in descending order to see all stocks that just recently had Long Trigger
sort BarsShort in descending order to see all stocks that just recently had Short Trigger

Author: MarkSanDiego

Version: 06/22/08 initial
}

input:
Price(close),
FastLength(12),
SlowLength(26),
FastPhase(0),
SlowPhase(0),
UpColor(green),
DnColor(red);

var:
FastMA(0),
SlowMA(0),
RS(False),
Dir(0), // trade direction
BarsLong(100), // bars since Long trigger
BarsShort(100); // bars since Short trigger

once RS = GetAppInfo(aiApplicationT ype) = 2; // check if Radarscreen


FastMA = AverageFC(Price, FastLength); // test with simple moving average so others can try
SlowMA = AverageFC(Price, SlowLength);

If Dir = 1 then BarsLong = BarsLong + 1;
if Dir = -1 then BarsShort = BarsShort + 1;

if RS then Plot1(Price,"Price");
Plot2(FastMA,"Fast MA");
Plot3(SlowMA, "Slow MA");

if FastMA crosses over SlowMA then begin
BarsLong = 0;
Dir = 1;
if RS then begin // radarscreen
SetPlotColor(1, black);
SetPlotBGColor(1, UpColor);
end else begin
SetPlotColor(1, UpColor); // chart
end;
end;

If FastMA crosses under SlowMA then begin
BarsShort = 0;
Dir = -1;
if RS then begin // radarscreen
SetPlotColor(1, black);
SetPlotBGColor(1, DnColor);
end else begin // chart
SetPlotColor(1, DnColor);
end;
end;

if RS then begin
if Dir = 1 then begin
Plot4(BarsLong,"Bars Long", black);
SetPlotBGColor(4, UpColor);
end;

if Dir = -1 then begin
Plot5(BarsShort,"Bars Short", black);
SetPlotBGColor(5, DnColor);
end;
end;


Thanks for any help to convert it to a DMI crossover code, with ADX number shown in Radarscreen as well. Have been looking for this all week. Thanks again.

Curtis