TradeStation/ショウミー/WA-New High for Month（1ヶ月基準の高値更新）

{ Search Tag: WA-New High for Month }

variables:
    HighestHi( 0 ) ;

{ if tick, second, minute, daily or weekly bars }
if BarType < 4 or BarType = 14 then
    begin
    if Month( Date ) <> Month( Date[1] ) then
        HighestHi = High
    else if High > HighestHi then
        begin
        Plot1( High, !( "NewHi-M" ) ) ;
        Alert ;
        HighestHi = High ;
        end ;
    end ;