blob: 2a8b08ca5c95b0db918bb4b2411459cd28768048 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//
// 2010.05.15
function Out=Texctr(N)
if type(N)==1
Alpha='abcdefghijklmnopqrstuvwxyz';
Out='ketpicctr'+part(Alpha,N);
else
if part(N,1)=='\'
Out=part(N,2:length(N));
else
Out=N;
end;
end;
endfunction
|