@ Save a gauss data set @
@ gallup personal interviews (n=677) from 1953-1995 @


load q[677,6]=galday.dat;

q=q~(q[.,5]-meanc(q[.,5]));
        lbl = {
                yr,month,day,days,pid,truen,piddev
               };

@q=selif(q,q[.,1] .lt 85);@

   create f0 =gpers with ^lbl,0,8;
    if f0 == -1;
        errorlog "Can't open output file";
        end;
    endif;
    if writer(f0,q) /= rows(q);
        errorlog "Disk Full";
        end;
    endif;
    f0 = close(f0);