proc(0)=graphs;

local dosstr;

dosstr="cd\\gauss\\graphs";

dos ^dosstr;

retp;

endp;