data speed2;
    set speed;
    Time = _n_;
    if Time >= 61 then S=1; else S=0;
run;

proc arima data=speed2;
    identify var=y(1) crosscorr = (S);
    estimate q=(1) Input=(/(1)S) noconstant;
run;