Add key word rsq on the model statement.

data t1;
   do i=1 to 100;
      x=rannor(123);
          y=1+1*x > rannor(123);;
          output;
        end;
run;

proc logistic data=t1;
model y (event='1') = x /link=probit Rsq;
run;