function pas(fname)
%function pas('fname');
%                for running pascal programs from within matlab

command='!\users\rocky\rdi\pas\';
len1=length(command);
len2=length(fname);
command(len1+1:len1+len2)=fname;
eval(command)
