proc(0) = dpath(s);

    if s == 0;                     /* assign John's data path */
        load path = c:\j\newprod\data;
        save path = c:\j\newprod\data;
    endif;
    if s == 1;                     /* assign Caleb's data path */
        load path = c:\gauss\jcdata;
        save path = c:\gauss\jcdata;
    endif;

endp;