DATA _NULL_;
        TITLE;
        FILE print;
        ARRAY p p1-p7;
        RETAIN  p1 .10  p2 .05  p3 .025 p4 .01  p5 .005
        p6 .0025        p7 .001;
        PUT     '              TABLE OF STUDENT''S T DISTRIBUT
ION'
          /     '              --------------------------------
--'
         //     '  DF              TWO-TAILED SIGNIFICANT LEVEL
'
          / '  --------------------------------------------
---------------'
          / '    ' @;
        DO i = 1 TO 7;
                pc=100*p(i);
                PUT pc BEST7. '%' @;
        END;
        PUT /;
        DO df=1 TO 30, 35 TO 50 BY 5, 60 TO 100 BY 10,
  200 TO 1000 BY 100;
                PUT df 4. @;
                DO i = 1 TO 7;
                        b=betainv(p{i},df/2,.5);
                        f=df*(1-b)/b;
                        t=sqrt(f);
                        PUT t 8.3 @;
                END;
                PUT;
        END;
        RUN;