data SAMPLE;
      do i = 1 to total;
         if ranuni(0) <= 0.25 then do;
            set POP point=i nobs=total;
            output;
         end;
      end;
      stop;
   run;