summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closephr.sci
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