if rr1 ==1 then
w=getdate();
rr2 = msprintf ('d:\scilab\report-r%d.txt', rr1);
fd1 = mopen (rr2, 'w');
//mfprintf (fd1, '\n');
mfprintf (fd1, 'Y %d \nM %d \nD %d \nH %d \nM %d \nS %d ', w(1), w(2), w(6), w(7), w(8), w(9));
mfprintf (fd1, '\nT %i', o);
mfprintf (fd1, '\nh %i', p);
mfprintf(fd1,'?????????')
else
w=getdate();
rr2 = msprintf ('d:\scilab\report-r%d.txt', rr1);
fd1=mopen (rr2, 'w');
//mfprintf (fd1, '\n');
mfprintf (fd1, 'Y %d \nM %d \nD %d \nH %d \nM %d \nS %d ', w(1), w(2), w(6), w(7), w(8), w(9));
mfprintf (fd1, '\nT %i', o);
mfprintf (fd1, '\nh %i', p);
end
mclose ('all');