blob: 39b363f66531085e077b6af78d9a56a87bfcfd9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
// 08.05.31
function Closephr()
global Wfile FID;
if Wfile=='default'
mprintf('%s\n','%');
mprintf('%s\n','}%');
else
mfprintf(FID,'%s\n','%');
mfprintf(FID,'%s\n','}%');
end
endfunction
|