function [a,b] = M_cal1()

cd \winxpfiles\PCbin

[a,b] = dos('cal1')